Ini adalah program sederhana aplikasi penjualan tiket kereta api dengan visual basic
4. Save program anda kemudian Jalankan program Run, pilih start atau dengan F5 ,
Ini adalah program sederhana aplikasi penjualan tiket kereta api dengan visual basic
4. Save program anda kemudian Jalankan program Run, pilih start atau dengan F5 ,
- Contoh Program Penjualan Tiket Pesawat Dengan Visual Basic
- Penjualan Ticket Kapal Laut
- Penjualan Ticket Mobil Antar Provinsi Sumatra
Cara Membuat Aplikasi Penjualan Tiket Pesawat Menggunakan Visual Basic. Aplikasi penjualan tiket. Pun sama caranya dengan combo box. Tutorial kali ini saya akan membahas mengenai cara pembuatan program Sistem Operasi Android menggunakan Software Eclipse. Sebagai contoh kasus cara membuat program sederhana Penjualan Tiket Pesawat dengan memakai Tools: TextView, Plain Text, Spinner, Radio Button, CheckBox dan Button.
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
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 ,
Contoh Program Penjualan Tiket Pesawat Dengan Visual Basic
Penjualan Ticket Kapal Laut
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
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
Penjualan Ticket Mobil Antar Provinsi Sumatra
4. Save program anda kemudian Jalankan program Run, pilih start atau dengan F5 ,