LANGKAH MEMBUAT PROGRAM PENJUALAN TIKET KERETA API DENGAN VISUAL BASIC 6

Microsoft Visual Basic (VB) merupakan sebuah bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM).

Visual Basic merupakan turunan bahasa pemrograman BASIC dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat. Para programmer dapat membangun aplikasi dengan menggunakan komponen-komponen yang disediakan oleh Microsoft Visual Basic Program-program yang ditulis dengan Visual Basic. Oleh karena itu, dalam pemrograman untuk bisnis, Visual Basic memiliki pangsa pasar yang sangat luas.

Berikut ini adalah salah satu contoh penerapan visual basic dalam membuat program penjualan tiket kereta api :

1.    Buka visual basic, lalu new project  dan pilih setandart exe.

2.    Maka akan muncul sebuah tampilan form kosong yang nantinya akan kita design sesuai kebutuhan kita menggunakan tools yang telah disediakan oleh visual basic 6. Berikut tampilan form yang masih kosong

Dalam membuat program penjualan tiket kereta ini, saya menggunakan 2 buah form yang terpisah. Form pertama, untuk tampilan depan (awal), sedangkan form yang kedua untuk pengisian kelengkapan data tiket dari penumpang.

MEMBUAT FORM PERTAMA (AWAL)

( tampilan program sebelum di run )

Tools dan fungsi yang digunakan pada form ini adalah sebagai berikut :

Nama Toolbox	Keterangan Fungsi
Label1	Untuk running text “ SELAMAT DATANG”
Label2	Untuk question “ Apakah Anda Ingin… “
Label3	Untuk keterangan jam
Command1	Button Beli
Command2	Button Batal
Timer1	Untuk membuat running text
Timer2	Untuk membuat tampilan jam
Image1	Untuk background pada form

Langkah- langkahnya sebagai berikut berikut:

1.       Membuat tulisan “ SELAMAT DATANG “ (Label1) dapat bergerak atau biasa disebut sebagai running text dengan menggunakan tool timer (Timer1). Lalu klik ganda pada tool timer dan ketikkan Coding berikut:

2.       Membuat tampilan jam (Label3) menggunakan tool timer (Timer2), kembali mengklik ganda pada tool symbol timer dan kali ini menggunakan coding seperti berikut:

3.       Pada button Beli (Command1), merupakan penghubung dengan form kedua, caranya dengan klik ganda pada button Beli dan bentuk codingnya berikut :

4.       Pada button Batal (Command2), merupakan salah satu  langkah menutup program saat program sedang di run. Caranya dengan mengklik ganda pada button Batal, dan ketik coding berikut :

5.       Kemudian kita juga dapat menyisipkan gambar , misalnya seperti gambar latar atau background (Image1) dengan memilih tools image lalu pilih gambar yang ingin disisipkan. Lalu pada menu di Windows Properties, menu Stretch ubah menjadi true nilainya, agar ukuran image dapat kita ubah sesuai keinginan dan kebutuhan kita.

6.       Image yang sudah diatur dan disesuaikan ukurannya, lalu di klik knan dan pilih Send To Back. Hal ini agar tampilan gambar berada dibelakang tulisan pada form yang kita buat.

MEMBUAT FORM KEDUA

( tampilan program sebelum di run )

Tools dan fungsi yang digunakan pada form ini adalah sebagai berikut :

Nama Toolbox	Keterangan Funsi
Text1	Untuk tempat menginput jumlah tiket Anak
Text2	Untuk tempat menginput Kode Tiket
Text3	Untuk tempat menginput jumlah tiket Dewasa
Text4	Utk menampilkan hasil total bayar keseluruhan
Text5	Untuk menampilkan total bayar tiket Anak
Text6	Untuk menampilkan total bayar tiket Dewasa
Text7	Untuk tempat menginput Nama Penumpang
Combo2	Untuk menampilkan pilihan Stasiun Tujuan
Combo4	Untuk menampilkan pilihan Stasiun Awal
Combo5	Untuk menampilkan pilihan Nama Kereta
Command1	Button Total Bayar
Command2	Button Cetak tiket
Command3	Button Home
Option1	Jika ada biaya tambahan ( Bagasi )
Option2	Untuk memilih option kelas Ekonomi
Option3	Untuk memilih option kelas Bisnis
Image1	Untuk menampilkan background
Image2	Untuk menampilkan gambar kereta api pilihan

Langkah- langkahnya sebagai berikut berikut:

1.    Memasukkan isi pilihan nama Stasiun Tujuan (Combo2), Stasiun Awal (Combo4), dan Nama Kereta Api (Combo5), dengan klik ganda form lalu pilih Form_Load(). Lalu tuliskan coding berikut :

2.    Agar dapat menampilkan gambar kereta yang kita pilih (Image2), maka ketikkan coding berikut :

3.    Untuk menhitung total bayar tiket Anak-anak (Text5), maka kita harus klik ganda pada (Text1), kemudian ketikkan codingan berikut :

4.    Untuk menhitung total bayar tiket Dewasa (Text6), maka kita harus klik ganda pada (Text3), kemudian ketikkan codingan berikut :

5.    Untuk menampilkan keseluruhan total bayar, termasuk jika ada biaya tambahan, maka caranya kita dapat klik ganda pada button Total Bayar (Command1), lalu ketikkan kode berikut ini :

6.    Untuk mencetak tiket dalam bentuk MsgBox, maka kita klik ganda pada button Cetak Tiket (Command2), dan ketikkan coding berikut ini :

MsgBox vbCrL + "TIKET KERETA" + vbCrLf + "Kereta Api: " & Combo5.Text + vbCrLf + "Stasiun Awal: " & Combo4.Text + vbCrLf + "Stasiun Akhir: " & Combo2.Text + vbCrLf + " Anak - anak:" & Text1.Text + vbCrLf + " Dewasa:" & Text3.Text + vbCrLf + "Total Bayar:" & Text4.Text

 

7.       Untuk kembali ke form satu, maka click ganda pada button Home (Command3), lalu ketik coding berikut :

Berikut merupakan tampilan program yang sudah di Run :