Kode Check dan Option

 

Kode Check1

Private Sub chkmie_Click()

If chkmie.Enabled = True Then

txtmie.Text = "10000"

End If

End Sub

Kode Check2

Private Sub chknasi_Click()

If chknasi.Enabled = True Then

txtnasi.Text = "12000"

End If

End Sub

Kode Check3

Private Sub chksoto_Click()

If chksoto.Enabled = True Then

txtsoto.Text = "15000"

End If

End Sub

Kode Check4

Private Sub chkuduk_Click()

If chkuduk.Enabled = True Then

txtuduk.Text = "5000"

End If

End Sub

Kode Lagi

Private Sub cmdlagi_Click()

txtnasi.Text = " "

txtuduk.Text = " "

txtmie.Text = " "

txtsoto.Text = " "

txtalpukat.Text = " "

txtmangga.Text = " "

txtmangga.Text = " "

txtjeruk.Text = " "

txtteh.Text = " "

txttotal.Text = " "

txtnasi.SetFocus

 End Sub

Kode Penjumlahan

Private Sub Command1_Click()

txttotal.Text = Val(txtnasi.Text) + Val(txtuduk.Text) + Val(txtmie.Text) + Val(txtsoto.Text) + Val(txtmangga.Text) + Val(txtalpukat.Text) + Val(txtjeruk.Text) + Val(txtteh.Text)

End Sub

Kode Selesai

Private Sub Command2_Click()

Unload Me

End Sub

Kode Option1

Private Sub optal_Click()

If optal.Enabled = True Then

txtalpukat.Text = "7000"

End If

End Sub

Kode Option2

Private Sub opteh_Click()

If opteh.Enabled = True Then

txtteh.Text = "5000"

End If

End Sub

Kode Option3

Private Sub optje_Click()

If optje.Enabled = True Then

txtjeruk.Text = "9000"

End If

End Sub

Kode Option4

Private Sub optmang_Click()

If optmang.Enabled = True Then

txtmangga.Text = "8000"

End If

End Sub