noreply@blogger.com (yes) — Tue, 29 May 2012 15:17:00 -0700

Cara Membuat file exe pada Vb.6.0

Bagaimana Cara Membuat file "exe di Vb.6. Bagi anda yang sudah mahir di program Vb.6 mungkin akan tersenyum bahkan tertawa kalau ada temen anda yg baru belajar Vb (Pemula seperti saya ini hehehe...) bertanya kepada anda tentang bagaimana membuat file "exe" yang berfungsi sebagai file executor aplikasi bila di jalankan. mungkin di google sudah banyak petunjuk tentang Vb.6, namun gue hanya menyumbangkan sedikit ilmu yg gue punya untuk anda semua sebagai refrensi belajar terutama di pogram Vb.

ok g usah lama lama bercerita karna gue bukan seorang pujangga.

Pertama pastikan anda sudah membuat project program vb tersebut bila belum buat. percuma aja gue nulis ini

untuk lebih cepatnya atau istilah geolnya cara instan anda bisa buka vb portable ( kalau belum punya vb portable silahkan download di ) Sini !!

Setelah anda download programnya / jalankan progam vb (pastikan anda sudah mempunyai project program terlebih dahulu) setelah program sudah di desaign dan coding sudah jadi nah sekarang tinggal di buatkan file "exe"nya saja. klik file--->> make project.exe jadi dah file "exe" cukup mudah bukan.kalau masih kurang jelas silahkan lihat pada gambar di bawah ini.

untuk lebih dalam tentang belajar vb silahkan baca kumpulan artikel di situs resmi yang ada di indonesia free n cheapz...hehehe...silahkan klik Link ini..!!! ok sampai di sini dulu ya...pangeran sudah ngantuk tak terasa udah pagi juga.....jgn lupa kunjungi juga blog - blog yg laen pasti seru.....

terakhir "banyaklah belajar karna belajar akan menambah segalanya bagimu apapun yang kamu pelajari"

noreply@blogger.com (yes) — Mon, 28 May 2012 16:49:00 -0700

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......:::::

Kumpulan Artikel By Canoz PangEran TidoErr

Cara Membuat file exe pada Vb.6.0