0 Coding untuk visual basic (membuat daftar menu makanan)

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