Jalan berbangkit

ASSALAMU'ALAIKUM WARRAHMATULLAHI WABARAKATUH

Senin, 15 Oktober 2012

Tugas Pemrograman 1 (Aplikasi Penghitung Zakat)



Bismillahirohmanirrohim
A.    Pendahuluan
Alhamdulillah, atas pertolongan Allah SWT tugas pertama dari mata kuliah pemrogrman visual dapat diselesaikan. Semoga pertolongan Allah senantiasa melimpahi kita semua amin. Pertolongan Allah adalah salah satu kenikmatan yang sangat berarti, sehingga sebagai hambaNya berusahalah untuk bersyukur atas nikmat Allah ini. Karena apabila kita senantiasa bersyukur atas nikmat Allah maka Allah akan menambah nikmatNya kepada kita.
B.     Nama program
Tugas pemrograman visual pertama ini saya bernama Aplikasi Penghitung Zakat Profesi.
C.     Harapan dibuatnya program
Semoga dengan dibuatnya program ini, semakin memperdalam pemahaman saya terhadap visual basic 2010. Dengan program yang saya buat sesederhana mungkin sesuai dengan apa yang telah dosen tuliskan dalam tugasnya. Sehingga, dari yang sederhana ini mudah-mudahan akan menghantarkan saya kepemahaman yang lebih dalam lagi. Amin..
D.    Dasar teori pengembangan program
Program aplikasi penghitungan zakat profesi merupakan program alih bahasa pemrograman yang pernah saya buat dengan bahasa java dan masih memiliki konsep yang sama.
Pembuatan aplikasi ini berdasarkan pada teori yang saya ambil dari BAZNAS ( Badan Amil Zakat Nasional).
Sistem penghitungan nisab zakat profesi yang dijadikan pedoman oleh BAZNAS adalah senilai harga 524 kg beras, dengan dalil diqiyaskan kepada nisab pertanian sebesar 652kg gabah. Sedangkan pengeluaran zakatnya diqiyaskan dengan emas dan perak sebesar 2,5%.

Nishab
Para ulama umumnya mengqiyaskan zakat profesi dengan zakat tanaman. termasuk ketika mengqiyaskan nisab. Maka nishab zakat profesi sesuai dengan zakat tanaman, yaitu setiap menerima panen atau penghasilan dan besarnya adalah 5 wasaq atau setara dengan 652, 8 kg gabah
Dan tunaikanlah haknya di hari memetik hasilnya (dengan dikeluarkan zakatnya)…" (QS Al-An`am 141 )
Rasulullah SAW bersabda:
`Tidak ada zakat pada hasil tanaman yang kurang dari lima wasaq` (HR Ahmad dan al-Baihaqi dengan sanad jayyid)
Dan tidak ada zakat pada kurma yang kurang dari lima wasaq` (HR Muslim).
1 wasaq = 60 sha`, 1 sha` = 2, 176 kg, maka 5 wasaq = 5 x 60 x 2, 176 = 652, 8 kg gabah. Jika dijadikan beras sekitar 520 kg. Maka nishab zakat profesi seharga dengan 520 kg beras. Yaitu sekitar Rp 1.300.000, -.
Nishab ini adalah jumlah pemasukan dalam satu tahun. Artinya bila penghasilan seseorang dikumpulkan dalam satu tahun bersih setelah dipotong dengan kebutuhan pokok dan jumlahnya mencapai Rp 1.300.000, - maka dia sudah wajib mengeluarkan zakat profesinya. Ini bila mengacu pada pendapat pertama.
Dan bila mengacu kepada pendapat kedua, maka penghasilannya itu dihitung secara kotor tanpa dikurangi dengan kebutuhan pokoknya. Bila jumlahnya dalam setahun mencapai Rp 1.300.000, -, maka wajiblah mengeluarkan zakat.

E.     Visual aplikasi penghitung zakat profesi
a.       Apabila aplikasi dijalankan, maka akan terlihat antar muka aplikasi seperti berikut ini:

Antar muka aplikasi ini terusun atas :
Object
Properties
Value
Form
Text
Aplikasi Penghitung Zakat Profesi
TextBox1
Name
Txtnama
TextBox2
Name
Txtprofesi
TextBox3
Name
Txtgajipokok
TextBox4
Name
Txtgajilain
TextBox5
Name
Txtangsuran
TextBox6
Name
Txtpengeluaran
TextBox7
Name
Txtpelunasan
TextBox8
Name
Txtttlpemasukan
TextBox9
Name
Txtttlpengeluaran
TextBox10
Name
Txthasil
Button1
Name
Btnhitung
Button2
Name
Btnbersih
Button3
Name
Btnkeluar
GroupBox1
Text
Pemasukan
GroupBox2
Text
Pengeluaran
GroupBox3
Text
Hasil
GroupBox4
Text
Proses

b.      Listing Program
1.      Double click pada tombol Hitung dan ketik program berikut
Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click


        txttotpemasukan.Text = Val(txtgajipokok.Text) + Val(txtgajilain.Text)

        txttotpengeluaran.Text = Val(txtpengeluaran.Text) + Val(txtangsuran.Text) + Val(txtpelunasan.Text)

        txthasil.Text = Val(txttotpemasukan.Text) - Val(txttotpengeluaran.Text)

        Label16.Text = txtnama.Text
        Label17.Text = txtprofesi.Text

        If txthasil.Text >= 1300000 Then

            Label15.Text = txthasil.Text * 2.5 / 100

        Else
            MsgBox("Anda Tidak Wajib zakat", MsgBoxStyle.Information, "Peringatan")
        End If

    End Sub

2.      Double click pada tombol Bersihkan dan tulis program dibawah ini
Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        txtnama.Text = ""
        txtprofesi.Text = ""
        txtgajipokok.Text = ""
        txtgajilain.Text = ""
        txtpengeluaran.Text = ""
        txtpelunasan.Text = ""
        txtangsuran.Text = ""
        txttotpemasukan.Text = ""
        txttotpengeluaran.Text = ""
        txthasil.Text = ""
        Label15.Text = ""
        Label16.Text = ""
        Label17.Text = ""
        txtnama.Focus()


    End Sub


3.      Double click pada tombol Keluar dan tulis program berikut
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        If MsgBox("Apakah Anda Yakin ?", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = 6 Then
            Me.Close()
        End If
End Sub



F.      Demo program


           
G.    Penutup
Demikian, semoga bermanfaat.
Seindah apapun rencana kita, jauh lebih indah rencana Allah untuk kita.

Tidak ada komentar:

Posting Komentar