Latihan_06_36110033

     Latihan_06_36110033

A.    Object-object dalam Latihan_06_36110033 :

            1.      Object Label

Terdapat tujuah 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 harga dikali kuantitas, kuantitas dikurang potongan jika ada.

          3.      Object CheckBox

Terdapat enam object checkbox (coto, pallubasa, sop konro, sop saudara, konro bakar, ulu juku’). Ketika checkbox coto dicek, maka texbox harga dan kuantitas untuk coto ReadOnlya menjadi false. Begitu juga untuk checkbox pallubasa, sop konro, sop saudara, konro bakar, dan ulu juku’.

           4.      Object RadioButton

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

B.     Script Unique

Untuk CheckBox Coto:

        If M1_36110033.Checked Then

            H1_36110033.ReadOnly = False

            Q1_36110033.ReadOnly = False

        Else

            H1_36110033.ReadOnly = True

            Q1_36110033.ReadOnly = True

        End If

Untuk RadioButton Pot. Member 10%:

        If bm_36110033.Checked Then

           J8_36110033.Text = Val(J7_36110033.Text) * (10 / 100)

           JB_36110033.Text = Val(J7_36110033.Text) -Val(J8_36110033.Text)

        End If

Untuk RadioButton Non Member:

If bN_36110033.Checked Then

  J8_36110033.Text = 0

  JB_36110033.Text = Val(J7_36110033.Text) - Val(J8_36110033.Text)

End If

C.    Even

M1_36110033_CheckedChanged

Q1_36110033_TextChanged

bm_36110033_CheckedChanged

bN_36110033_CheckedChanged

M2_36110033_CheckedChanged

M3_36110033_CheckedChanged

M4_36110033_CheckedChanged

M5_36110033_CheckedChanged

D.    Property

Property TextBox ==> ReadOnly=True

Prosedur

1.    Buka Ms. Visual Studio

2.    Klik Create Project

3.    Ketik nama file yang ingin disimpan

4.    Akan terbuka jendela pekerjaan Ms. Visual Studio

5.    Design form dengan menggunakan tools pada toolbox

6.    Buat text pada form dengan menggunakan label, sebanyak 7 label. Dengan nama text masing-masing sebagai berikut:

o    MAKANAN KHAS MAKASSAR sebagai judul

o    Makanan

o    Harga

o    Qty

o    Jumlah

o    Total

o    Jumlah Bersih

7. Buat kolom sesuai dengan design pada latihan 06 dengan mengguanakan textbox,  sebanyak 21 kolom. Nama textbox diisi dengan identitas apa saja yang kemudian diikuti nomor stambuk.

8.  Buat 6 kolom ceklist sesuai dengan design pada latihan 06 dengan chekbox dengan nama apa saja dengan diikuti no stambuk. Kolom itu nantinya akan digunakan untuk mengcheklist daftar makan yang kita pesan/makan dan juga untuk mengaftifkan textbox readonly true menjadi readonly false untuk semua kolom textbox yang kita buat sebelumnya.

9.    Buat 2 tombol sesuai dengan design pada latihan 06 dengan menggunakan radionbutton. Kemudian beri nama apa saja dengan diikuti stambuk setelahnya dan menuliskan nama textnya dengan Pot Member 10% dan Non Member.

10.  Untuk menuliskan rumus pada latihan 04, klik dua kali pada chekbox dibawah button Makanan. Akan muncul lembar kerja untuk menulis rumus. Adapun rumusnya dapat dituliskan sebagai berikut:

Public Class Latihan_06_36110033

PrivateSubM1_36110033_CheckedChanged(ByValsenderAsSystem.Object, ByValeAsSystem.EventArgs)Handles M1_36110033.CheckedChanged

If M1_36110033.Checked Then

H1_36110033.ReadOnly = False

Q1_36110033.ReadOnly = False

Else H1_36110033.ReadOnly = True

Q1_36110033.ReadOnly = True

End If

End Sub

11.  Selanjutnya kembali kedesign latihan 06. Kilk dua kali textbox dibawah button Qyt   dan tulis rumus berikut:

PrivateSubQ1_36110033_TextChanged(ByValsenderAsSystem.Object,ByVal eAsSystem.EventArgs)Handles Q1_36110033.TextChanged

J1_36110033.Text=Val(H1_36110033.Text)*Val(Q1_36110033.Text)

J7_36110033.Text=Val(J1_36110033.Text)+Val(J2_36110033.Text)+Val(J3_36110033.Text)+Val(J4_36110033.Text)+Val(J5_36110033.Text+Val(J6_36110033.Text)

 End Sub

12.         Kembali lagi ke design latihan 06, klik dua kali radionbuttonnya untuk menuliskan rumus, dapat atau tidaknya potongan harga seorang konsumen. Adapun rumus untuk yang mendapat potongan dan tidak adalah sebagai berikut:

PrivateSubbm_36110033_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesbm_36110033.CheckedChanged

If bm_36110033.Checked Then

J8_36110033.Text=Val(J7_36110033.Text)*(10/100)

JB_36110033.Text=Val(J7_36110033.Text)-Val(J8_36110033.Text)

End If

End Sub

Private SubbN_36110033_CheckedChanged(ByValsenderAsSystem.Object, ByVal e As System.EventArgs)Handles bN_36110033.CheckedChanged

If bN_36110033.Checked Then

J8_36110033.Text = 0

JB_36110033.Text = Val(J7_36110033.Text)-Val(J8_36110033.Text)

End If

End Sub

13.         Selanjutnya rumus tinggal diulang menu-menu yang lain. Rumus untuk keseluruhan rumus yang belum dituliskan adalah sebagai berikut:

Private SubM2_36110033_CheckedChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles M2_36110033.CheckedChanged

If M2_36110033.Checked Then

H2_36110033.ReadOnly = False

Q2_36110033.ReadOnly = False

Else

H2_36110033.ReadOnly = True

Q2_36110033.ReadOnly = True

End If

End Sub

Private SubM3_36110033_CheckedChanged(ByValsenderAsSystem.Object, ByVal e As System.EventArgs) Handles M3_36110033.CheckedChanged

If M3_36110033.Checked Then

H3_36110033.ReadOnly = False

Q3_36110033.ReadOnly = False

Else

H3_36110033.ReadOnly = True

Q3_36110033.ReadOnly = True

End If

End Sub

Private SubM4_36110033_CheckedChanged(ByValsenderAsSystem.Object, ByVal e As System.EventArgs) Handles M4_36110033.CheckedChanged

If M4_36110033.Checked Then

H4_36110033.ReadOnly = False

Q4_36110033.ReadOnly = False

Else

H4_36110033.ReadOnly = True

Q4_36110033.ReadOnly = True

End If

End Sub

Private SubM5_36110033_CheckedChanged(ByValsenderAsSystem.Object, ByValeAsSystem.EventArgs) Handles M5_36110033.CheckedChanged

If M5_36110033.Checked Then

H5_36110033.ReadOnly = False

Q5_36110033.ReadOnly = False

Else

H5_36110033.ReadOnly = True

Q5_36110033.ReadOnly = True

End If

End Sub

Private SubM6_36110033_CheckedChanged(ByValsenderAsSystem.Object, ByValeAsSystem.EventArgs) Handles M6_36110033.CheckedChanged

If M6_36110033.Checked Then

H6_36110033.ReadOnly = False

Q6_36110033.ReadOnly = False

Else

H6_36110033.ReadOnly = True

Q6_36110033.ReadOnly = True

End If

End Sub

Private Sub Q2_36110033_TextChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles Q2_36110033.TextChanged

J2_36110033.Text=Val(H2_36110033.Text)*Val(Q2_36110033.Text)

J7_36110033.Text=Val(J1_36110033.Text)+Val(J2_36110033.Text)+Val(J3_36110033.Text)+Val(J4_36110033.Text)+Val(J5_36110033.Text)+Val(J6_36110033.Text)

End Sub

Private Sub Q3_36110033_TextChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles Q3_36110033.TextChanged

J3_36110033.Text = Val(H3_36110033.Text) * Val(Q3_36110033.Text)

J7_36110033.Text=Val(J1_36110033.Text)+Val(J2_36110033.Text)+Val(J3_36110033.Text)+Val(J4_36110033.Text)+Val(J5_36110033.Text)+Val(J6_36110033.Text)

End Sub

Private Sub Q4_36110033_TextChanged(ByVal sender AsSystem.Object, ByVale As System.EventArgs)Handles Q4_36110033.TextChanged

J4_36110033.Text=Val(H4_36110033.Text)*Val(Q4_36110033.Text)

J7_36110033.Text=Val(J1_36110033.Text)+Val(J2_36110033.Text)+Val(J3_36110033.Text)+Val(J4_36110033.Text)+Val(J5_36110033.Text)+Val(J6_36110033.Text)

End Sub

Private SubQ5_36110033_TextChanged(ByValsenderAsSystem.Object, ByVal e As System.EventArgs)HandlesQ5_36110033.TextChanged

J5_36110033.Text=Val(H5_36110033.Text)*Val(Q5_36110033.Text)

J7_36110033.Text=Val(J1_36110033.Text)+Val(J2_36110033.Text)+Val(J3_36110033.Text)+Val(J4_36110033.Text)+Val(J5_36110033.Text)+Val(J6_36110033.Text)

End Sub

Private Sub Q6_36110033_TextChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles Q6_36110033.TextChanged

J6_36110033.Text = Val(H6_36110033.Text) * Val(Q6_36110033.Text)

J7_36110033.Text=Val(J1_36110033.Text)+Val(J2_36110033.Text)+Val(J3_36110033.Text)+Val(J4_36110033.Text)+Val(J5_36110033.Text)+Val(J6_36110033.Text)

End Sub

End Class

14.   Kemudian di Start Debbuging, maka kita akan tahu, betul atau tidaknya rumus yang kita gunakan serta coba jalankan perintah yang ingin kita ketahui dari latihan tersebut untuk mengetahui hasilnya yang lebih jelas lagi.

15.  Jika program berjalan simpan dengan menekan tombol ctrl+s  untuk menyimpan data

16.  Setelah melaksanakan semua prosedur maka latihan 06 selesai.