Program VB Menu Restoran

Program Menu Restoran menggunakan Case pada VB 100% working dijamin

Pict :

Codingnya :

Private Sub Command1_Click()
r = MsgBox("Apakah pesan anda sudah benar ?", vbQuestion + vbYesNo, "konfirmasi")
If r = vbYes Then
Select Case Text1
Case Is = "1"
Text6 = Text2 * 15000
Case Is = "2"
Text6 = Text2 * 18000
Case Is = "3"
Text6 = Text2 * 18000
Case Is = "4"
Text6 = Text2 * 20000
Case Is = "5"
Text6 = Text2 * 22000
Case Is = "6"
Text6 = Text2 * 30000
Case Is = "7"
Text6 = Text2 * 10000
Case Is = "8"
Text6 = Text2 * 50000
Case Is = "9"
Text6 = Text2 * 20000
End Select

Select Case Text3
Case Is = "10"
Text7 = Text4 * 8000
Case Is = "11"
Text7 = Text4 * 5000
Case Is = "12"
Text7 = Text4 * 4000
Case Is = "13"
Text7 = Text4 * 9000
Case Is = "14"
Text7 = Text4 * 6500
Case Is = "15"
Text7 = Text4 * 10000
Case Is = "16"
Text7 = Text4 * 10000
Case Is = "17"
Text7 = Text4 * 15000
End Select
End If
End Sub

Private Sub Command2_Click()
r = MsgBox("Terima kasih sudah memesan, silahkan membayar", vbQuestion + vbOKCancel, "konfirmasi")
If r = vbOK Then
Text5 = Val(Text6) + Val(Text7)
End If
End Sub