Aplikasi Penjualan Tiket Kereta Api dengan visual basic

        Ini adalah program sederhana aplikasi penjualan tiket kereta api dengan visual basic 

langsung saja ya.......

1. Buka visual basic , new project  pilih setandart exe

2. kemudian tambah kan pada  form anda 7 label, 1 ComboBox, 1 frame , 5 Textbox, 3 CammondButton lalu buat desain form seperti di bawah ini:

3. Kemudian ketikan Kode program seperti di bawah ini :

Private Sub Combo1_click()
If Combo1.Text = "Mut2121" Then
Text2.Text = "23000"
Text3.Text = "Mutiara"
Text4.Text = "17.00"
End If
If Combo1.Text = "Bim2121" Then
Text2.Text = "50000"
Text3.Text = "Bima"
Text4.Text = "16.00"
End If
If Combo1.Text = "Eko2121" Then
Text2.Text = "35000"
Text3.Text = "Ekonomi"
Text4.Text = "19.00"
End If
If Combo1.Text = "Sen2121" Then
Text2.Text = "15000"
Text3.Text = "Senja"
Text4.Text = "20.00"
End If

End Sub

Private Sub Command1_Click()
Text6.Text = Text2.Text * Text5.Text
End Sub


Private Sub Command2_Click()
Combo1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Combo1.AddItem "Mut2121"
Combo1.AddItem "Bim2121"
Combo1.AddItem "Sen2121"
Combo1.AddItem "Eko2121"
End Sub

 4. Save program anda kemudian Jalankan program Run, pilih start atau dengan  F5 ,,,,,

     Silahkan mencoba...... :-)