Nur Cahyo

Private Sub Bakso_Click()

If Bakso.Value = 1 Then

TextBakso.Text = 4000

Else

TextBakso.Text = 0

End If

TextTotalhargamak = Val(TextBakso.Text) + Val(TextMieayam.Text) + Val(TextMieBakso.Text)

End Sub

Private Sub Command2_Click()

TextBakso.Text = ""

TextMieayam.Text = ""

TextMieBakso.Text = ""

Bakso.Value = 0

MieAyam.Value = 0

Miebakso.Value = 0

opteh.Value = False

Optjus.Value = False

Optmin.Value = False

TextTotalhargamak.Text = ""

Texttotalminum.Text = ""

Textbyr.Text = ""

Texttl.Text = ""

Textppn.Text = ""

Textkembali = ""

End Sub

Private Sub Command3_Click()

x = MsgBox("keluar", vbQuestion + vbOKCancel, "Informasi")

If x = vbOK Then

Unload Me

End If

End Sub

Private Sub MieAyam_Click()

If MieAyam.Value = 1 Then

TextMieayam.Text = 5000

Else

TextMieayam.Text = 0

End If

TextTotalhargamak = Val(TextBakso.Text) + Val(TextMieayam.Text) + Val(TextMieBakso.Text)

End Sub

Private Sub Miebakso_Click()

If Miebakso.Value = 1 Then

TextMieBakso.Text = 7000

Else

TextMieBakso.Text = 0

End If

TextTotalhargamak = Val(TextBakso.Text) + Val(TextMieayam.Text) + Val(TextMieBakso.Text)

End Sub

Private Sub opteh_Click()

Texttotalminum.Text = 1500

End Sub

Private Sub Optjus_Click()

Texttotalminum.Text = 2000

End Sub

Private Sub Optmin_Click()

Texttotalminum.Text = 2500

End Sub

Private Sub Command1_Click()

Texttl = Val(TextTotalhargamak.Text) + Val(Texttotalminum.Text)

Textppn = Texttl.Text * 0.1

Textbyr.SetFocus

End Sub

Private Sub Textbyr_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textkembali = Val(Textbyr.Text) - Val(Texttl.Text)

End If

End Sub