Deskripsi dan Prosedur Latihan_06_36110039

     Deskripsi Form Latihan_06_36110039 

Terdapat empat object yaitu label, textbox, checkbox, RadioButton:
1.    Object Label
Terdapat tujuh label (yang bertuliskan Makanan khas Makassar; Makanan; Harga; Qty; Jumlah; Total; Jumlah Bersih)

2.    Object TextBox
Terdapat dua puluh satu textbox (semuanya status ReadOnly tetapi ada dua belas textbox yang akan menjadi status input ketika checkbox dicek). Status input tersebut digunakan untuk memasukkan nilai harga dan kuantitas. Status yang tetap ReadOnly digunakan untuk menampilkan hasil perhitungan harga dikali kuantitas; total semua jumlah harga; pengurangan potongan jika ada; jumlah bersih dari total harga kurang potongan.

3.   Object CheckBox
Terdapat enam object checkbox (coto, pallubasa, sop konro, sop saudara, konro bakar, ulu juku’). Ketika checkbox coto, pallubasa, sop konro, sop saudara, konro bakar, dan ulu juku’ dicek, maka textbox harga dan kuantitas untuk coto ReadOnly-nya menjadi false.

4.  Object RadioButton
Terdapat dua object radiobutton (Pot. Member 10% dan Non Member). Pot. Member 10% digunakan untuk memberikan potongan 10% dari Total harga sedangkan Non Member untuk tidak memberikan potongan harga.

         Script Unique
Untuk CheckBox Coto:
If coto_36110039.Checked Then
            hacot_36110039.ReadOnly = False
            qcot_36110039.ReadOnly = False
        Else
            hacot_36110039.ReadOnly = True
            qcot_36110039.ReadOnly = True
        End If
Saat Textchanged:
jcot_36110039.Text = Val(hacot_36110039.Text) * Val(qcot_36110039.Text)
tot_36110039.Text = Val(jcot_36110039.Text) + Val(jpal_36110039.Text) + Val(jkon_36110039.Text) + Val(jsau_36110039.Text) + Val(jbak_36110039.Text) + Val(jul_36110039.Text)

Untuk RadioButton Pot. Member 10%:
If potmem_36110039.Checked Then
            mem_36110039.Text = Val(tot_36110039.Text) * (10 / 100)
            jber_36110039.Text = Val(tot_36110039.Text) - Val(mem_36110039.Text)
        End If
Untuk RadioButton Non Member:
If nonmem_36110039.Checked Then
            mem_36110039.Text = 0
            jber_36110039.Text = Val(tot_36110039.Text) - Val(mem_36110039.Text)
        End If

        Even
coto_36110039_CheckedChanged
qcot_36110039_TextChanged
potmem_36110039_CheckedChanged
nonmem_36110039_CheckedChanged

    Property
Property TextBox ==> ReadOnly=True/false

Prosedur menjalankan Latihan_06_36110039:

1.    Klik icon Add New Item.
      
2.    Pada kolom Categories dan Templates klik Windows Forms, isi kolom name dengan Latihan_06_36110039.vb,  kemudian pilih add.
     
3.    Kemudian pilih object Label dan buat sebanyak 7. Pada properti text masing-masing label, isilah kalimat berikut: (Makanan khas Makassar; Makanan; Harga; Qty; Jumlah; Total; Jumlah Bersih).

4.    Kemudian pilih object Button dan buat sebanyak 2. Isi properti text masing-masing menjadi Analizing dan close, lalu properti name menjadi nama yang anda inginkan dan nomor stambuk pada akhir nama tersebut.

5.    Kemudian pilih object textbox dan buat sebanyak 21 (semuanya status ReadOnly tetapi ada dua belas textbox yang akan menjadi status input ketika checkbox dicek).

6.    Kemudian pilih object checkbox dab buat sebanyak 6. Terdiri dari (coto, pallubasa, sop konro, sop saudara, konro bakar, ulu juku’).

7.    Setelah perintah diatas dilakukan maka jadilah seperti kolom dibawah ini:
      

8.    Klik 2x checkbox Coto sehingga muncul perintah berikutnya dan masukkan rumus, contohnya seperti
       ini:
Private Sub coto_36110039_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles coto_36110039.CheckedChanged
If coto_36110039.Checked Then
   hacot_36110039.ReadOnly = False
   qcot_36110039.ReadOnly = False
Else
   hacot_36110039.ReadOnly = True
   qcot_36110039.ReadOnly = True
      End If

9.    Klik 2x textbox Qty Coto sehingga muncul perintah berikutnya dan masukkan rumus, contohnya seperti
       ini:
Private Sub qcot_36110039_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles qcot_36110039.TextChanged
jcot_36110039.Text = Val(hacot_36110039.Text) *
Val(qcot_36110039.Text)
      tot_36110039.Text = Val(jcot_36110039.Text) + Val(jpal_36110039.Text)
      + Val(jkon_36110039.Text) + Val(jsau_36110039.Text) + 
      Val(jbak_36110039.Text) + Val(jul_36110039.Text)
End Sub

10.    Klik 2x RadioButton Pot. Member 10% sehingga muncul perintah berikutnya dan masukkan rumus, contohnya seperti ini:
Private Sub potmem_36110039_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles potmem_36110039.CheckedChanged
        If potmem_36110039.Checked Then
            mem_36110039.Text = Val(tot_36110039.Text) * (10 / 100)
            jber_36110039.Text = Val(tot_36110039.Text) –
            Val(mem_36110039.Text)
  End If
End Sub

11.    Klik 2x Radiobutton non-member sehingga muncul perintah berikutnya dan masukkan rumus, contohnya seperti ini:
Private Sub nonmem_36110039_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nonmem_36110039.CheckedChanged
        If nonmem_36110039.Checked Then
            mem_36110039.Text = 0
            jber_36110039.Text = Val(tot_36110039.Text) –
            Val(mem_36110039.Text)
        End If
End Sub


12.    Klik menu Project pilih Kumpulan_Latihan_06_36110039. Pada Startup Form pilih Latihan_06_36110039 lalu close.

       


13.    Untuk melihat apakah program yang anda telah buat sudah benar atau belum tepat maka klik icon Start Debugging dan isi kolom yang perlu diisi dan klik tombol Analisa untuk mengetahui fungsi dan hasilnya.