Contoh Program Penjualan Tiket Dengan Visual Basic

How i met your mother torrent. Download The Office - Complete Season 1-9 [F4S7] torrent or any other torrent from Video > TV shows Direct download via magnet link.

Download snes super nintendo 3000 jogos ps2 baixar. Contoh Coding Penjualan Tiket Bioskop Codes and Scripts Downloads Free. Tasm Program That Add Two Numbers. Tiket Bioskop Source Code For Vb. Multiple choice questions for research methods. Membuat berbagai contoh coding dalam bahasa Java SE. Dimulai dengan.

Before downloading CorelDraw 12 free download. Sir what is the RAR Password of corel draw 12. Reply Delete. Awais Shakir 18 August 2016 at 05:14. Corel draw 12 free download - Corel Painter 2016, SignTools for Corel Draw, Corel Painter 2016, and many more programs. Corel draw 12 free download rar. Tags: CorelDraw, 12. Free, download, software, registered, full Version CorelDraw v12 About Corel DrawCorelDraw v12 is a computer software also known as CorelDraw. It is an important and useful computer software.

1. Penjualan Ticket Mobil Antar Provinsi Sumatra
2. Contoh Program Penjualan Tiket Pesawat Dengan Visual Basic

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

Penjualan Ticket Mobil Antar Provinsi Sumatra

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 ,

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

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 ,

Contoh Program Penjualan Tiket Pesawat Dengan Visual Basic