Aplikasi Transaksi Zakat Pada Visual Studio 2012

Aplikasi Transaksi Zakat

Aplikasi ini di buat untuk memenuhi tugas matakuliah Pemgroman Visual di semeter V di STMIK Eresha. Aplikasi ini berfungsi sebagai alat hitung untuk transaksi zakat. dengan kriteria zakat masing-masing. Keterangan perhitungan zakat yang ada pada aplikasi saya yaitu:
1.  zakat maal
zakat yang meliputi segala harta benda,zakat mal dibagi menjadi beberapa jenis zakat yaitu zakat emas dan perak.
zakat emas dan perak mempunyai nashab atau waktu yang harus di keluarkan selama 1 tahun.
perhitungannya adalah:

85 gram emas
nashab: 1 tahun
wajib di keluarkan: 1/40 / 85

 850 gram perak

nashab: 1 tahun

wajib di keluarkan: 21.25 gram

2. Zakat Fitrah
zakat yang di keluarkan pada saat menjelang hari raya idul fitri.
harta yang di keluarkan adalah makanan pokok di negeri masing-masing.
Dengan timbangan 2.5 kg dari jumlah bahan pokoknya.
perthitungannya adalah:
berat bahan pokok / 2.5

3. Zakat An'am
zakat hewan ternak (Al An'am) pada unta, sapi, kerbau dan kambing (dengan berbagai variannya) adalah ijma'.
unta
nishabnya 5 ekor, yang di keluarkan 1
sapi
nishabnya 30 ekor, yang di keluarkan 1
kambing
nishabnya 40 ekor, yang di keluarkan 1

4. Zakat Profesi
ada 2 jenis pelaksanaan, sesuai jenis pendapatan manusia.
pertama, untuk orang yang gajian bulanan, maka pendekatannya
dengan zakat tanaman, yaitu nishabnya adalah 5 wasaq senilai 635 kg gabah kering,
dan di keluarkan 2.5%, yang di keluarkan ketika menerima hasil gaji, tidak ada haul.

Berikut desain gambar aplikasi yang telah saya buat:

1. Menu Utama

2. Menu Transaksi Zakat Maal

 2.1Tampilan data di dalam microsoft word

3. Menu Transaksi Zakat Fitrah

 3.1 Tampilan data di dalam microsoft word

4. Menu Transaksi Zakat An'am

4.1 Tampilan data di dalam microsoft word

5. Menu Transaksi Zakat Profesi

Dapat dilihat tools yang di gunakan adalah:
Label
TextBox
ComboBox
Button

Adapun source yang di gunakan di dalam software visual studio 2012:
1. Menu Utama
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Form2.Show()
        Me.Visible = False
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Form3.Show()
        Me.Visible = False
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Form4.Show()
        Me.Visible = False
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Form5.Show()
        Me.Visible = False
    End Sub
End Class

2. Menu Transaksi Maal
Imports word = Microsoft.Office.Interop.Word
Public Class Form2
    Dim app As New word.Application
    Dim dok As New word.Document
    Dim jenis, tujuan, nama, alamat, no, email As String
    Dim nilai1, hasil As Single

    Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click
        nilai1 = txt1.Text
        hasil = (nilai1 / 85) * 0.025 * 85
        txt2.Text = hasil
       
    End Sub
  
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles Me.Load
        cb1.Items.Add("Emas")
        cb1.Items.Add("Perak") 'combo box maal'

        cb2.Items.Add("Fakir Miskin")
        cb2.Items.Add("Amil")
        cb2.Items.Add("Mualaf")
        cb2.Items.Add("Gharimin")
    End Sub

    Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn2.Click
        jenis = cb1.SelectedItem
        txt3.Text = jenis
        txt4.Text = nilai1
        txt5.Text = hasil 'bagian maal'

        tujuan = cb2.SelectedItem
        txt6.Text = tujuan
        nama = txtnama.Text
        txt7.Text = nama
        alamat = txtalamat.Text
        txt8.Text = alamat
        no = txtno.Text
        txt9.Text = no
        email = txtemail.Text
        txt10.Text= email
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        dok = app.Documents.Open("H:\semester 5\Bpk Agus Suharto\UTS\zakatmaal.docx")
        dok.Bookmarks("tp").Select()
        app.Selection.TypeText(cb2.Text)
        dok.Bookmarks("nl").Select()
        app.Selection.TypeText(txtnama.Text)
        dok.Bookmarks("almt").Select()
        app.Selection.TypeText(txtalamat.Text)
        dok.Bookmarks("no").Select()
        app.Selection.TypeText(txtno.Text)
        dok.Bookmarks("em").Select()
        app.Selection.TypeText(txtemail.Text) 'identitas muzzaki'

        dok.Bookmarks("jns").Select()
        app.Selection.TypeText(cb1.Text)
        dok.Bookmarks("jml").Select()
        app.Selection.TypeText(txt1.Text)
        dok.Bookmarks("klr").Select()
        app.Selection.TypeText(txt2.Text) 'zakat maal'

        dok.SaveAs2("H:\semester 5\Bpk Agus Suharto\UTS\zakatmaal" & txtnama.Text & ".docx")

        MessageBox.Show("Terimakasih Telah Membayar Zakat Maal", "Zakat Maal", MessageBoxButtons.OKCancel, MessageBoxIcon.Information)
        Me.Close()
        Form1.Close()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        txt1.Text = ""
        txt2.Text = ""
        txt3.Text = ""
        txt4.Text = ""
        txt5.Text = ""
        txt6.Text = ""
        txt7.Text = ""
        txt8.Text = ""
        txt9.Text = ""
        txt10.Text = ""
        txtnama.Text = ""
        txtno.Text = ""
        txtalamat.Text = ""
        txtemail.Text = ""
        cb1.Text = ""
        cb2.Text = ""
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Form1.Show()
        Me.Close()
    End Sub
End Class

3. Menu Transaksi Zakat Fitrah

Imports word = Microsoft.Office.Interop.Word
Public Class Form3
    Dim nilai2, hasil2 As Single
    Dim jenis, tujuan, nama, alamat, no, email As String
    Dim app As New word.Application
    Dim dok As New word.Document

    Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click

        nilai2 = txt1.Text
        hasil2 = nilai2 * 2.5
        txt2.Text = hasil2
    End Sub

    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles Me.Load
        cb1.Items.Add("Beras")
        cb1.Items.Add("Jagung")
        cb1.Items.Add("Gandum")
        cb1.Items.Add("Sagu")

        cb2.Items.Add("Fakir Miskin")
        cb2.Items.Add("Amil")
        cb2.Items.Add("Mualaf")
        cb2.Items.Add("Gharimin")
    End Sub

    Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn2.Click
        jenis = cb1.SelectedItem
        txt3.Text = jenis
        txt4.Text = nilai2
        txt5.Text = hasil2 'bagian fitrah'

        tujuan = cb2.SelectedItem
        txt6.Text = tujuan 'bagian muzzaki'

        nama = txtnama.Text
        txt7.Text = nama
        alamat = txtalamat.Text
        txt8.Text = alamat
        no = txtno.Text
        txt9.Text = no
        email = txtemail.Text
        txt10.Text = email
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        txt1.Text = ""
        txt2.Text = ""
        txt3.Text = ""
        txt4.Text = ""
        txt5.Text = ""
        txt6.Text = ""
        txt7.Text = ""
        txt8.Text = ""
        txt9.Text = ""
        txt10.Text = ""
        txtnama.Text = ""
        txtno.Text = ""
        txtalamat.Text = ""
        txtemail.Text = ""
        cb1.Text = ""
        cb2.Text = ""
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        dok = app.Documents.Open("H:\semester 5\Bpk Agus Suharto\UTS\zakatfitrah.docx")
        dok.Bookmarks("tp").Select()
        app.Selection.TypeText(cb2.Text)
        dok.Bookmarks("nl").Select()
        app.Selection.TypeText(txtnama.Text)
        dok.Bookmarks("almt").Select()
        app.Selection.TypeText(txtalamat.Text)
        dok.Bookmarks("no").Select()
        app.Selection.TypeText(txtno.Text)
        dok.Bookmarks("em").Select()
        app.Selection.TypeText(txtemail.Text) 'identitas muzzaki'

        dok.Bookmarks("jns").Select()
        app.Selection.TypeText(cb1.Text)
        dok.Bookmarks("jml").Select()
        app.Selection.TypeText(txt1.Text)
        dok.Bookmarks("klr").Select()
        app.Selection.TypeText(txt2.Text) 'zakat fitrah'

        dok.SaveAs2("H:\semester 5\Bpk Agus Suharto\UTS\zakatfitrah" & txtnama.Text & ".docx")

        MessageBox.Show("Terimakasih Telah Membayar Zakat Fitrah", "Zakat Fitrah", MessageBoxButtons.OKCancel, MessageBoxIcon.Information)
        Me.Close()
        Form1.Close()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Form1.Show()
        Me.Close()
    End Sub

    Private Sub Label17_Click(sender As Object, e As EventArgs) Handles Label17.Click

    End Sub
End Class

4. Menu Transaksi Zakat An'am

Imports word = Microsoft.Office.Interop.Word
Public Class Form4
    Dim app As New word.Application
    Dim dok As New word.Document 'reference word'
    Dim jenis, tujuan, nama, alamat, no, email As String
    Dim hewan, klr As Integer
    Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn2.Click
        tujuan = cb2.SelectedItem
        txt6.Text = tujuan

        jenis = cb1.SelectedItem
        txt3.Text = jenis

        nama = txtnama.Text
        txt7.Text = nama
        alamat = txtalamat.Text
        txt8.Text = alamat
        no = txtno.Text
        txt9.Text = no
        email = txtemail.Text
        txt10.Text = email

        hewan = txt1.Text
        txt4.Text = hewan
        klr = txt2.Text
        txt5.Text = klr

    End Sub

    Private Sub Form4_Load(sender As Object, e As EventArgs) Handles Me.Load
        cb1.Items.Add("Unta")
        cb1.Items.Add("Sapi")
        cb1.Items.Add("Kambing")


        cb2.Items.Add("Fakir Miskin")
        cb2.Items.Add("Amil")
        cb2.Items.Add("Mualaf")
        cb2.Items.Add("Gharimin") 'combo box muzzaki'
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        txt1.Text = ""
        txt2.Text = ""
        txt3.Text = ""
        txt4.Text = ""
        txt5.Text = ""
        txt6.Text = ""
        txt7.Text = ""
        txt8.Text = ""
        txt9.Text = ""
        txt10.Text = ""
        txtnama.Text = ""
        txtno.Text = ""
        txtalamat.Text = ""
        txtemail.Text = ""
        cb1.Text = ""
        cb2.Text = ""
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        dok = app.Documents.Open("H:\semester 5\Bpk Agus Suharto\UTS\zakatan'am.docx")
        dok.Bookmarks("tj").Select()
        app.Selection.TypeText(cb2.Text)
        dok.Bookmarks("nl").Select()
        app.Selection.TypeText(txtnama.Text)
        dok.Bookmarks("al").Select()
        app.Selection.TypeText(txtalamat.Text)
        dok.Bookmarks("no").Select()
        app.Selection.TypeText(txtno.Text)
        dok.Bookmarks("em").Select()
        app.Selection.TypeText(txtemail.Text) 'identittas muzzaki'

        dok.Bookmarks("jns").Select()
        app.Selection.TypeText(cb1.Text)
        dok.Bookmarks("jml").Select()
        app.Selection.TypeText(txt1.Text)
        dok.Bookmarks("klr").Select()
        app.Selection.TypeText(txt2.Text)


        dok.SaveAs2("H:\semester 5\Bpk Agus Suharto\UTS\zakatan'am" & txtnama.Text & ".docx")


        MessageBox.Show("Terimakasih Telah Membayar Zakat An'am", "Zakat An'am", MessageBoxButtons.OKCancel, MessageBoxIcon.Information)
        Me.Close()
        Form1.Close()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Form1.Show()
        Me.Close()
    End Sub
    Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click
        If cb1.Text = "Unta" Then
            txt1.Text = "5"
            txt2.Text = "1"
        Else
            If cb1.Text = "Sapi" Then
                txt1.Text = "30"
                txt2.Text = "1"
            Else
                If cb1.Text = "Kambing" Then
                    txt1.Text = "40"
                    txt2.Text = "1"
                End If
            End If
        End If

    End Sub
End Class

Catatan: Aplikasi ini terkoneksi atau terhubung ke dalam microsoft word setelah button proses di jalankan.

Demikian yang dapat yang saya bagikan, semoga jelas dan bermanfaat.