Powered By Blogger

Selasa, 13 Mei 2014

KALKULATOR ZAKAT


syms y t;
jawab='y';
while jawab=='y';
disp('**********************************')
disp('  PROGRAM KALKULATOR ZAKAT')
disp('**********************************')
disp(' ')

    disp('>>>>>>>>>> Pilih zakat yang ingin Anda Hitung <<<<<<<<<<')
    disp(' ')
    disp(' 1 = Zakat Penghasilan ')
    disp(' 2 = Zakat Mal(Harta Benda)')
    disp(' 3 = Zakat Hasil Pertanian/Perkebunan')
    disp(' ')
    disp(' ')
   
 x=input('Zakat yang saya pilih adalah ');
 switch x
     case(1)
         disp(' ')
         disp(' ')
         disp('##########################')
         disp('          Zakat Penghasilan')
         disp('##########################')
         disp(' ')
         a=input(' # Pendapatan / Gaji per Bulan (setelah dipotong pajak): Rp ');
         b=input(' # Pendapatan lain dalam satu tahun : Rp ');
         c=input(' # Harga Beras saat ini (per kg) : Rp ');
         d=input(' # Rata-rata pengeluaran rutin per bulan : Rp ');
         e=input(' # Pengeluaran lainnya dalam satu tahun : Rp ');
         n=(520*c);
         penghasilan=(12*a+b-12*d-e);
    disp(' ')
    disp(['  >>> Penghasilan yang wajib saya zakati : Rp ',num2str(penghasilan)])
    if penghasilan>n
        zakat=(2.5*penghasilan/100);
        disp(' ')
        disp(['  >>> Besarnya zakat penghasilan yang harus saya keluarkan per tahun adalah Rp ',num2str(zakat)])
    else
        didp(' ')
        disp('<<<<< Nishab belum memenuhi untuk zakat >>>>>')
    end
    case(2)
         disp(' ')
         disp(' ')
         disp('##############################')
         disp('         Zakat Mal(Harta Benda)')
         disp('##############################')
         disp(' ')
         disp('Syarat : Harta yang dimiliki telah mencapai haul (1 tahun)')
         disp(' ')

         tabungan=input(' # Harta dalam bentuk tabungan : Rp ');
         uang=input(' # Harta dalam bentuk uang tunai  : Rp ');
         surat=input(' # Harta dalam bentuk surat berharga : Rp ');
         kendaraan=input(' # Harta dalam bentuk kendaraan : Rp ');
         properti=input(' # Harta dalam bentuk properti : Rp ');
         perak=input(' # Jumlah perak yang dimiliki(gram) : ');
         harga_perak=input('     Masukkan harga perak(per gram) : Rp ');
         emas=input(' # Jumlah emas yang dimiliki (gram) : ');
         harga_emas=input('    Masukkan harga emas(per gram) : Rp ');
         hutang=input(' # Masukkan jumlah hutang jatuh tempo saat membayar zakat : Rp ');
         nishab_emas=(85*harga_emas);
         emas1=(emas*harga_emas);
         nishab_perak=(595*harga_perak);
         perak1=(perak*harga_perak);
    if emas1>nishab_emas & perak1>nishab_perak
         mal=(tabungan+uang+surat+kendaraan+properti+emas1+perak1)-hutang;
         disp(' ')
         disp(['   >>> Harta yang wajib saya zakati : Rp ',num2str(mal)])
         zakat=((2.5*mal)/100);
         disp(' ')
         disp(['   >>> Besarnya zakat mal yang harus saya keluarkan adalah Rp ',num2str(zakat)])
elseif emas1>nishab_emas & perak1<nishab_perak
         mal=(tabungan+uang+surat+kendaraan+properti+emas1)-hutang;
         disp(' ')
         disp(['   >>> Harta yang wajib saya zakati : Rp ',num2str(mal)])
         zakat=((2.5*mal)/100);
         disp(' ')
         disp(['   >>> Besarnya zakat mal yang harus saya keluarkan adalah Rp ',num2str(zakat)])
elseif emas1<nishab_emas & perak1>nishab_perak
         mal=(tabungan+uang+surat+kendaraan+properti+perak1)-hutang;
         disp(' ')   
         disp(['   >>> Harta yang wajib saya zakati : Rp ',num2str(mal)])
         zakat=((2.5*mal)/100);
         disp(['Besarnya zakat mal yang harus saya keluarkan adalah Rp ',num2str(zakat)])
elseif emas1<nishab_emas & perak1<nishab_perak
         mal=(tabungan+uang+surat+kendaraan+properti)-hutang;
         disp(' ')
         disp(['   >>> Harta yang wajib saya zakati : Rp ',num2str(mal)])
         zakat=((2.5*mal)/100);
         disp(' ')
         disp(['   >>> Besarnya zakat mal yang harus saya keluarkan adalah Rp ',num2str(zakat)])
end;
     case(3)
         disp(' ')
         disp(' ')
         disp('####################################')
         disp('           Hasil Perkebunan/Pertanian')
         disp('####################################')
         disp(' ')
         p1=input('Masukkan jumlah penghasilan perkebunan/pertanian : Rp ');
         disp(['Hasil Perkebunan/Pertanian = ',num2str(p1)])
         disp('>>>>>>>>>>>>>|||<<<<<<<<<<<<<')
         disp('Pilih jenis irigasi kebun Anda')
         disp('   a= Irigasi dari air hujan/sungai')
         disp('   b = Irigasi dari PDAM')
         disp(' ')
         r=input('Irigasi kebun saya adalah ');
         switch r
             case(a)
                zkt=(10*p1/100);
                 disp(['   >>> Besarnya Zakat Hasil Perkebunan/Pertanian dengan Irigasi kebun saya dari air hujan/sungai yang harus saya keluarkan adalah Rp ',num2str(zkt)])
                
             case(b)
                 zkt=(5*p1/100);
                 disp(['   >>> Besarnya Zakat Hasil Perkebunan/Pertanian dengan Irigasi kebun saya dari PDAM yang harus saya keluarkan adalah ',num2str(zkt)])
             otherwise
                 disp('***Maaf pilihan Anda tidak tersedia, silahkan coba lagi.***')
         end
     otherwise
         disp('***Maaf pilihan Anda tidak tersedia, silahkan coba lagi.***')
   
 end
 disp(' ')
 disp(' ')
 jawab=input('Apakah Anda ingin menghitung zakat lagi? (y/t)');
end

0 komentar:

Posting Komentar