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!