Tugas Dari Lab C Sore

Bingung Pak Fadli, mau posting apa. Kepikiranya ya posting aja latihan-latihan yang sudah dikerjain, hehehehe, gapapa ya Pak :)
Ini latihan yang judulnya "Cafe Palembang", ada screenshotnya lho Pak...
Ni penjelasan source codenya (coding dulu baru penjelasan) :

Private Sub Command1_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

End Sub

Bagian ini adalah source code untuk Command1 (CLEAR), untuk mengosongkan semua teksbox.

Private Sub Command2_Click()

End

End Sub

Seperti namanya, code ini memerintahkan aplikasi untuk keluar (coding paling simpel :)

Private Sub Option1_Click()

Text3.Text = 5000

Text4.SetFocus

End Sub

Saat option1, yaitu "Kapal Selam" diklik, maka harga/porsi (Text3) bernilai 5000 dan kursor berpindah ke jumlah beli (Text4).

Private Sub Option3_Click()

Text3.Text = 5500

Text4.SetFocus

End Sub

Pada prinsipnya sama, dua sub diatas untuk option2 (Lenngang) dan option3 (Pempek Panggang)

to be continued.....