Latihan_06_46110037

Deskripsi  Form Latihan 06

Pada Latihan ini terdapat 4 object yaitu Label, CheckBox, RadioButton, dan Textbox

Object Label

Terdapat 7 label yaitu Makanan Khas Makassar (judul); Makanan; Harga; Qty; Jumlah; Total dan Jumlah Bersih

Object TextBox

Terdapat 6 textbox Harga; 6 textbox Qty; 6 textbox Jumlah; textbok Total; textbox potongan  dan  textbox Jumlah Bersih yang berstatus ReadOnly=True.

Object CheckBox

Terdapat 6 checkbox yaitu Coto; Pallubasa; Sop Konro; Sop Saudara; Konro Bakar dan Ulu Juku’. Apabila checkbox dicentang(click) maka textbox Qty akan berstatus input (ReadOnly=False).

Object RadioButton

Terdapat 2 RadiioButton yaitu Pot. Member 10% dan Noon-Member. Jika Potongan Member 10% di click maka akan muncul berapa potongan yang didapatkan pada textbox Potongan, Rumusnya:

Jika member=>  Total harga*10%

Non Member => 0

Script Unique

Mengubah tampilan Textbox ketika checkbutton coto di click

If COTO46110037.Checked = True Then

            HARGACOTO46110037.Text = 6000

            UNITCOTO46110037.ReadOnly = False

        Else : HARGACOTO46110037.ReadOnly = True

            UNITCOTO46110037.ReadOnly = True

            HARGACOTO46110037.Text = ""

            UNITCOTO46110037.Text = ""

            JUMLAHCOTO46110037.Text = ""

        End If

Maksud dari script diatas adalah jika coto di check maka textboxt harga coto akan memunculkan harga dari coto yaitu 6000, sedangkan textbox Qty coto akan berubah menjadi textbox berstatus Input. Selain itu jika coto di check kembali maka tampilannya akan berubah seperti tampilan awal.

Jika menggunakan If jangan Lupa End If-nya

Even

Check

Property 

Property TextBox =>ReadOnly= True

Langkah-Langkah Menjalankan Form

• Buka project yang telan dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas dengan menggunakan Label, Textbox. Checkbox dan RadioButton.
• Ganti nama Textbox, Checkbox dan RadioButton di properties-Name
• Ganti status Textbox menjadi ReadOnly di properties lalu pilih ReadOnly True
• Click dua kali Coto, kemudian ketik sriptnya :

If COTO46110037.Checked = True Then
            HARGACOTO46110037.Text = 6000
            UNITCOTO46110037.ReadOnly = False
        Else : HARGACOTO46110037.ReadOnly = True
            UNITCOTO46110037.ReadOnly = True
            HARGACOTO46110037.Text = ""
            UNITCOTO46110037.Text = ""
            JUMLAHCOTO46110037.Text = ""
        End If  

         => Lakukan hal yang sama pada semua checkbox (Pallubasa; Sop Konro; Sop Saudara; Konro Bakar dan Ulu Juku’)

• click dua kali textbox Qty misalnya TextBox Qty Coto, kemudian ketik scriptnya:

JUMLAHCOTO46110037.Text = Val(HARGACOTO46110037.Text) * Val(UNITCOTO46110037.Text)

TOTAL46110037.Text = Val(JUMLAHCOTO46110037.Text) + Val(JUMLAHPALLUBASA46110037.Text) + Val(JUMLAHSOPKONDRO46110037.Text) + Val(JUMLAHSOPSAUDARA46110037.Text) + Val(JUMLAHKONDROBAKAR46110037.Text) + Val(JUMLAHULUJUKU46110037.Text)

         => Lakukan hal yang sama untuk semua Textbox Qty (Pallubasa; Sop Konro; Sop Saudara; Konro Bakar dan Ulu Juku’)

•  Click dua kali tombol RadioButton (pot. Member 10%). lalu ketik scriptnya:

If PELANGGAN46110037.Checked = True Then
     POTONGAN46110037.Text = Val(TOTAL46110037.Text) / 10
     Else : POTONGAN46110037.Text = 0
     End If

• Kembali ke Form Design, kemudian Click double Non-Member, dan ketik scriptnya:

POTONGAN46110037.Text = 0

•  Click double Textbox Potongan, kemudian ketik scriptnya:

JUMBER46110037.Text = Val(TOTAL46110037.Text) - Val(POTONGAN46110037.Text)

• Selesai :) Click Start Debugging atau tekan F5 untuk menjalankan form.