MEMBUAT PROGRAM PENDAFTARAN DENGAN VISUAL BASIC 6.0

Halloo everyone...

di post ini saya akan sedikit berbagi tentang visual basic. Sebenernya ini kuis UTS kemaren disuruh bikin ginian Hehe.. ya alhamdulillah berhasil makanya mau dishare sedikit :)

cekidot guys!

Dengan Ketentuan:

-Pada saat program dijalankan, Kursor berada di Nomor Pendaftaran.

-Nomor Pendaftaran, Nama Siswa dan Alamat di input manual.

-Jenis Kursus ada 3: VBP, PHP, FLS

-Jika:
VBP, Maka: Nama Kursus VISUAL BASIC. Biaya Rp 400.000

PHP, maka: Nama Kursus PEMROGRAMAN PHP. Biaya Rp 500.000

FLS, maka: Nama Kursus ANIMASI FLASH. Biaya Rp 450.000

-Biaya Pendaftaran Rp 75.000

-Paket Kursus ada 2: Fundamental, dan Advanced

-Jika Fundamental, maka: Biaya Modul Rp 200.000

         Advanced, maka: Biaya Modul Rp 350.000

-Button "Hitung Total" = Biaya Kursus + Biaya Pendaftaran + Biaya Modul

-Button "Daftar Lagi" untuk membersihkan, dan kursor kembali berada di Nomor Pendaftaran.

-Button "Keluar" untuk keluar dari program.

Pertama, buat design tampilan seperti tampilan di atas. Jangan lupa untuk ME-RENAME semua textbox, command button, combobox, optionbutton, dan label menjadi nama-nama dibawah ini (sebenarnya bebas mau dikasih nama apa, tapi untuk ini, samain aja namanya biar nggak bingung):
re-namenya di Properties ya....

Textbox:
txtnopen
txtnama
txtalamat
txtnakur
txtbiaya
txtbiapen
txtbiamod
txttotbia

ComboBox:
cbjenis

OptionButton:
optfunda
optadvan

CommandButton:
cmdhitung
cmdlagi
cmdkeluar

CODINGAN

Private Sub Form_Activate()
txtnopen.SetFocus
End Sub


Private Sub Form_Load()
cbjenis.AddItem ("VBP")
cbjenis.AddItem ("PHP")
cbjenis.AddItem ("FLS")
End Sub

Private Sub cbjenis_Click()

If cbjenis.Text = "VBP" Then

   txtnakur.Text = "VISUAL BASIC"

   txtbiaya.Text = 400000

ElseIf cbjenis.Text = "PHP" Then

   txtnakur.Text = "PEMROGRAMAN PHP"

   txtbiaya.Text = 500000

Else

   txtnakur.Text = "ANIMASI FLASH"

   txtbiaya.Text = 450000

End If

End Sub

Private Sub cmdhitung_Click()

txtbiapen.Text = 75000

If optfunda.Value = True Then

txtbiamod.Text = 200000

Else

txtbiamod.Text = 350000

End If

txttotbia.Text = Val(txtbiapen.Text) + Val(txtbiaya.Text) + Val(txtbiamod.Text)

End Sub

Private Sub cmdlagi_Click()

txtnopen.Text = ""

txtnama.Text = ""

txtalamat.Text = ""

cbjenis.Text = ""

txtnakur.Text = ""

txtbiaya.Text = ""

optfunda.Value = False

optadvan.Value = False

txtbiapen.Text = ""

txtbiamod.Text = ""

txttotbia.Text = ""

txtnopen.SetFocus

End Sub

Private Sub cmdkeluar_Click()

pesan = MsgBox("Tutup Pendaftaran?", vbYesNo + vbQuestion, "Konfirmasi")

If pesan = vbYes Then

End

End If

End Sub

SEMOGA BERMANFAAT :)
SEE YOU NEXT POST!

Read More

MEMBUAT MENU MAKANAN SEDERHANA DENGAN VISUAL BASIC 6.0

Buka Program visual Basic. Lalu pilih Standard EXE kemudian Open

Kemudian muncul Form baru. Setelah itu buat design seperti gambar di bawah ini.

Caranya:

Buatlah Tulisan (yang ditandai lingkaran merah oleh saya) menggunakan Tool Label (Tool Labelnya juga yang saya beri lingkaran merah). Begitu juga membuat Combobox (lingkaran hijau) dengan Tool Combobox (Tool yang dilingkari tanda hijau). Dan kemudian buatlah textbox (lingkaran biru) dengan Tool Textbox (Toolnya ditandai lingkaran biru).

Ganti nama Combobox pada name (di properties) menjadi cbmenu.

Ganti nama Textbox (untuk nama makanan) pada name (di properties) menjadi txtmakanan. Begitu pula Textbox untuk nama minuman dan Total, ubah nama pada name di properties menjadi txtminum dan txttotal.

Kosongkan Textbox (untuk nama makanan) pada Text (di properties). Begitu pula Textbox untuk nama minuman dan Total juga dikosongkan.

Klik pada yang dilingkari merah untuk menampilkan jendela coding. Dan tuliskan codingnya sama seperti diatas.

Private Sub cbmenu_Click()

If cbmenu.Text = "MENU001" Then

txtmakan.Text = "Soto Ayam"

txtminum.Text = "ES Jeruk"

txttotal.Text = "Rp 20.000"

ElseIf cbmenu.Text = "MENU002" Then

txtmakan.Text = "Sate Ayam"

txtminum.Text = "ES Teh Manis"

txttotal.Text = "Rp 25.000"

ElseIf cbmenu.Text = "MENU003" Then

txtmakan.Text = "Nasi Goreng"

txtminum.Text = "Teh Botol"

txttotal.Text = "Rp 15.000"

End If

End Sub

Private Sub Form_Activate()

cbmenu.SetFocus

End Sub

Private Sub Form_Load()

cbmenu.AddItem ("MENU001")

cbmenu.AddItem ("MENU002")

cbmenu.AddItem ("MENU003")

End Sub

Setelah selesai penulisan coding, running program dengan mengklik tombol play (yang dilingkari merah)

Tampilan Runningan Coding. Combobox muncul nama pilihan menu.

Hasil Akhir.

Sekian..

Semoga bermanfaat :)

Read More