TUTORIAL PEMBUATAN APLIKASI TIKET KERETA 

MENGGUNAKAN VB.NET 

(Visual Studio 2010 Exspress Editions)

Tampilan Desains Awal

Ini adalah contoh sofware yang saya buat sebagai pembelajaran mengenai vb.Net mungkin kelihatan jauh dari kata sempurna tetapi lumayan lah untuk pembelajaran pemula sedikit membantu dan mungkin juga bisa jadi refrensi. untuk download programnya silahkan klik disini !! (free tidak di pungut biaya)

form login

form 1 (form awal buat pengisian input pembelian tiket kereta api)

form jadwal kereta api

Untuk caption dan skripnya silahkan gunakan jurus copy paste yang sudah sangat terkenal.

coding :

Form login menggunakan

Input box

Form 1

	name	text
Combobox1	cmbSawal
Combobox2	cmbStujuan
Combobox3	cmbNMkereta
Combobox4	cmbJNSkereta
Combobox5	cmbjmlbeli
Textbox1	txttotal
Listbox1
Combobutton1		harga
Combobutton2		cetak
Combobutton3		Jadwal kereta
Combobutton4		keluar

Form 2

	Name
Combobox1
Combobox2
Combobox3
Textbox1
Textbox2

PublicClassForm1

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

Dim nama = InputBox("User Login", " Berikan Senyuman Teman Sebelah Anda")

Me.Text = "Anda Login Dengan User  : " + nama

EndSub

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ListBox1.Items.Add("Harga Tiket")

        ListBox1.Items.Add("--------------------------------------------------------")

        ListBox1.Items.Add("Stasiun Awal          : " + cmbSawal.Text)

        ListBox1.Items.Add("Stasiun tujuan        : " + cmbStujuan.Text)

        ListBox1.Items.Add("Nama Kereta         : " + cmbNMkereta.Text)

        ListBox1.Items.Add("Jenis Kereta           : " + cmbJnsKereta.Text)

        ListBox1.Items.Add("Total Harga            : " + txttotal.Text)

EndSub

PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim A, B AsSingle

        A = txtSharga.Text

        B = cmbJMLbeli.Text

        txttotal.Text = A * B

EndSub

PrivateSub cmbJnsKereta_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbJnsKereta.SelectedIndexChanged

If cmbJnsKereta.Text = "VIP"Then

            txtSharga.Text = "120000"

ElseIf cmbJnsKereta.Text = "Excecutive"Then

            txtSharga.Text = "110000"

ElseIf cmbJnsKereta.Text = "Express"Then

            txtSharga.Text = "100000"

ElseIf cmbJnsKereta.Text = "Ekonomi"Then

            txtSharga.Text = "50000"

EndIf

        txttotal.Focus()

EndSub

PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Me.Close()

EndSub

PrivateSub cmbform2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbform2.Click

Form2.Show()

EndSub

EndClass

:::::..........silahkan contact person my email "Canoz Pangeran Tidoerr"apa bila anda mengalami kesulitan......:::::