Perualangan

Tugas Pertemuan Ke Tiga

A. Menambahkan Button Pada Program Penjualan Pertemuan Ke Dua

     

     1. Interface Program

     Penjelasan :
            - Pada saat pertama kali program dijalankan, semua isian dalam keadaan tidak aktif.
               untuk mengaktifkan isian tekan tomnbol isi data.
            - Setelah isi data ditekan, maka semua isian akan aktif.
            - Apabila tombol Clear ditekan, maka kondisi akan kembali seperti saat program
               baru pertama kali dijalankan 
     Kode program :
- Isi Data

 - Clear

- Tutup

 - Kode Proses

B. Puzzle

- Intgerface Program

- Kode Program

Analisa dan Memperbaiki Program Praktikum ke_2

Kali ini kita akan mencoba memperbaiki If dan Case yang ada pada program praktikum ke-2.
Tampilan program...

Hasil perbaikannya adalah sebagai berikut.
- Listing program

tampilan awal :

Analisa Program Praktikum ke-2

Analias tugas praktikum ke-2.

Berikut ini adalah analisa dari program praktek ke 2.

1.       Program pertama

-          Tampilan program

a.       Form 1

b.      Form2

c.       Module

-          Permasalahan

Ulasan

a.       Kita perhatikan kode sumber berikut

Apabila program dijalankan, maka compiler akan menghentikan program dan memberi tahu kita bahwa “Constant cannot be the target of an assignment” yang menunjukan bahwa nilai konstanta tidak dapat dirubah sebagaimana ketika kita memberi nilai pada variabel biasa.

Perhatikan listing yang bergaris bawah hitam, disana telah ada variabel konstanta dengan nilai “Kuningan”. Tetapi pada tombol alamat ada pmberian nilai dengan aigment yang merujuk pada nilai yang sama. Hal ini membuat program menjadi gagal untuk dieksekusi. Langkah yang diambil adalah dengan menonaktivkan pemberian nilai pada tombol alamat 1.

b.      Perhatikan kode sumber berikut

Ketika tombol nama 1 diklick maka akan memunculkan nilai nandang. Hal ini diakibatkan karena tombol nama 1 menggunakan variabel global form. Ini menjadi hal biasa karena pada dasarnya, variabel yang lebih dekat yang akan dieksekusi terlebih dahulu. Namun pada tombol nama 2, memunculkan nama yang berbeda karena menggunakan variabel global yang ada di module.

 

      

Namun untuk masalah alamat, hal ini terkait dengan permasalah yang pertama yakni penonaktifan alamat =” kuningan”. Namun masih ada constanta alamat = “kuningan” yang dideklarasikan di class form1. Hal ini mengakibatkan tombol alamat 1 dan 2 menampilkan nilai yang sama.

c.       Perhatikan kode sumber berikut

Masalah yang ketiga adalah, mengapa tombol tambah umur 1 dan dua berbeda.

Hal ini dikarenakan, pada method tombol tamba umur 1 menggunakan variabel yang bersifat tidak statis. Hal ini akan mengakibatkan ketika tombol diklik selalu akan dimulai dari angaka 1.

Sedangkan tombol tambah umur 2 menggunakan variabel statis yang menjadikanya ketika diklik akan bertambah bukan kembali keawal.

d.      Analisa form ke dua

1.       Disana dapat diliha bahwa Option Excplisit Off, yang menandakan bahwa variabel tidak perlu dipesan terlebih dahulu.

2.       Menggunkan module untuk memberi nilai variabel

3.       Penggunaan method showdialog() mengkibatkan form pertama menjadi tidak aktif.

4.       Pengaktifkan properties readonly di true sehingga textbox tidak dapa disi saat dijankan.

5.       Karena variabel diisi dengan varibel global maka, nilai nama umur dan alamat tidak akan berubah. Tidak adanya perintah increment mengakibatkan umur tidak berubah.

6.       Tombol tutup yang tidak memilki peringatan ya atau tidak ketika kita akan keluar dari form2.

demmikian, semoga bermanfaat ....

semua ketelitian adalah hak Allah Semata....

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.