By Indra arga | At 08.45 | Label :
Teknologi
| 0 Comments
Private Sub Command1_Click()
Text7 = blank
Dim psn1 As String
Dim psn2 As String
Dim byr1 As Integer
Dim byr2 As Integer
Dim total As Integer
byr1 = Text3
byr2 = Text6
psn1 = Text2
psn2 = Text5
total = byr1 + byr2
Text7 = Text7 & "Berikut pesanan anda" & vbCrLf
Text7 = Text7 & psn1 & vbCrLf
Text7 = Text7 & psn2 & vbCrLf
Text7 = Text7 & "" & vbCrLf
Text7 = Text7 & "Berikut total pembayaran" & vbCrLf
Text7 = Text7 & "Rp. " & total
End Sub
Private Sub Command2_Click()
MsgBox "Terima kasih telah memesan :)"
Unload Me
End Sub
Private Sub Text1_Change()
Dim no1
Select Case Text1.Text
Case 1: Text2.Text = "- Ayam goreng"
Case 2: Text2.Text = "- Ikan goreng"
Case 3: Text2.Text = "- Nasi goreng"
Case 4: Text2.Text = "- Nasi uduk"
Case 5: Text2.Text = "- Sosis goreng"
Case 6: Text2.Text = "- Cireng"
Case 7: Text2.Text = "- Teh botol"
Case 8: Text2.Text = "- Ice cream"
Case 9: Text2.Text = "- Jus jeruk"
Case 10: Text2.Text = "- Jus alpukat"
Case blank: Text2.Text = "-"
Case Else: Text2.Text = "-"
End Select
Select Case Text1.Text
Case 1: Text3.Text = "10000"
Case 2: Text3.Text = "8000"
Case 3: Text3.Text = "9000"
Case 4: Text3.Text = "3000"
Case 5: Text3.Text = "2000"
Case 6: Text3.Text = "500"
Case 7: Text3.Text = "2500"
Case 8: Text3.Text = "3500"
Case 9: Text3.Text = "7000"
Case 10: Text3.Text = "7500"
Case blank: Text3.Text = "-"
Case Else: Text3.Text = "-"
End Select
End Sub
Private Sub Text4_Change()
Dim no2
Select Case Text4.Text
Case 1: Text5.Text = "- Ayam goreng"
Case 2: Text5.Text = "- Ikan goreng"
Case 3: Text5.Text = "- Nasi goreng"
Case 4: Text5.Text = "- Nasi uduk"
Case 5: Text5.Text = "- Sosis goreng"
Case 6: Text5.Text = "- Cireng"
Case 7: Text5.Text = "- Teh botol"
Case 8: Text5.Text = "- Ice cream"
Case 9: Text5.Text = "- Jus jeruk"
Case 10: Text5.Text = "- Jus alpukat"
Case blank: Text5.Text = "-"
Case Else: Text5.Text = "-"
End Select
Select Case Text4.Text
Case 1: Text6.Text = "10000"
Case 2: Text6.Text = "8000"
Case 3: Text6.Text = "9000"
Case 4: Text6.Text = "3000"
Case 5: Text6.Text = "2000"
Case 6: Text6.Text = "500"
Case 7: Text6.Text = "2500"
Case 8: Text6.Text = "3500"
Case 9: Text6.Text = "7000"
Case 10: Text6.Text = "7500"
Case blank: Text6.Text = "-"
Case Else: Text6.Text = "-"
End Select
End Sub
