membuat aplikasi sederhana dengan visual basic | R2Srekayasa

membuat aplikasi sederhana dengan visual basic

program :
Private Sub Command1_Click()
nomor = Val(Text1)
Select Case nomor
Case 1:
Text2 = "Soto Ayam"
Text3 = 4000
Case 2:
Text2 = "Soto Daging"
Text3 = 5000
Case 3:
Text2 = "Sate Ayam"
Text3 = 6000
Case 4:
Text2 = "Bali Ayam+Telor"
Text3 = 5000
Case 5:
Text2 = "Rawon"
Text3 = 5000
End Select
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub