Codingan Visual Basic

inilah codingan bikin menu masakan : SISTEM INFORMASI
-MAKANAN
-MINUMAN
-PAJAK
-Mengetahui OK DAN TIDAK



Dim pajak, total pajak As String

Private Sub chkburger_Click()
If chkaquagelas.Value = False Then
txttotal.Text = Val(txttotal.Text - 5000)
Else
txttotal.Text = Val(txttotal.Text + 5000)
End If
End Sub

Private Sub cmdok_Click()
txtkembali.Text = Val(txtbayar.Text - txttotal.Text)
End Sub

Private Sub opttidak_Click()
txttotal.Text = Val(txttotal.Text + 0)
End Sub

Private Sub optya_Click()
txttotal.Text = Val(txttotal.Text + 20000)
End Sub

Private Sub txtpajak_Change()
pajak = txtpajak.Text / 100
total_pajak = pajak * Val(txttotal.Text)
txttotal.Text = Val(txttotal.Text) + total_pajak
End Sub

Private Sub cmdbatal_Click()
chkayambakar.Value = Clear
chkbakso.Value = Clear
chkmieayam.Value = Clear
chkestehmanis.Value = Clear
chkesjeruk.Value = Clear
chkaquagelas.Value = Clear
txtbayar.Text = Clear
txtkembali.Text = Clear
txtpajak.Text = "0"
optya.Value = Clear
opttidak.Value = Clear
End Sub