one time: Program Penerimaan Mahasiswa Baru dengan VB 6.0

1. Buka program aplikasi Visual Basic 6.0

2. Pilih & Klik ‘standard.exe’

3. Desainlah program seperti di bawah ini :

Berikut Properties Form nya :

Kontrol	Property	Nilai
Form 1	Caption	Penerimaan Mahasiswa Baru Tahun 2012/2013
Label 1	Caption	Nama
Label 2	Caption	No. Pendaftaran
Label 3	Caption	Alamat
Label 4	Caption	150rb/sks 1 semester 20 SKS
Label 5	Caption	Total
Label 6	Caption	Bayar
Label 7	Caption	Sisa Bayar
Label 8	Caption	BPP Teknik Informatika = Rp 2jt/smt BPP Sistem Informasi = Rp 2jt/smt BPP Manaj.Infor = Rp 725rb/smt
Frame 1	Caption	Jenjang Pendidikan
Frame 2	Caption	Jurusan Akademik
Frame 3	Caption	Pembayaran
Text 1 – Text 6	Text	(Kosongkan saja)
Option 1	Caption	D3
Option 2	Caption	S1
Option 3	Caption	S2
Command 1	Caption	&Process
Command 2	Caption	Clear &All
Command 3	Caption	E&xit RUN
Combo 1	Text	Pilih Jurusan

Deskripsi

a. Uang gedung ditentukan dari jenjang D1, D2 dan D3. Spesifikasinya :

o D1 >> UG1 = 10000000(10juta)

o D2 >> UG2 = 15000000(15juta)

o D3 >> UG3 = 20000000(20juta)

b. Uang per Semester [bayaran] ditentukan berdasarkan dari Jurusan yang dipilih. Spesifikasinya :

o Teknik Informatika >> BPP1 = 2000000 (2juta)

o SistemInformasi >> BPP2 = 2000000 (2juta)

o Manajemen Informatika >> BPP3 = 725000 (725ribu)

c. Uang SKS adalah 150.000(100 ribu) per SKS-nya dan dihitung dengan ketentuan paket 20 SKS per semesternya. Jadi per semester uang SKS-nya 3.000.000 (3 juta)

d. Total Pembayaran diperoleh dari uang gedung, uang bayaran dan SKS yang telah disatukan menjadi satu kesatuan

e. Untuk kolom "sisa bayar" akan tampil setelah kolom "bayar" sudah diisi / diinput

Buka jendela kode, lalu ketikkan kode /listing/script program berikut :

Dim OP As Currency

v Private Sub Command1_Click()

UG1 = 10000000

UG2 = 15000000

UG3 = 20000000

BPP1 = 2000000

BPP2 = 2000000

BPP3 = 725000

SKS = 150000 * 20

If Option1 = True Then

OP = UG1 + SKS

ElseIf Option2 = True Then

OP = UG2 + SKS

ElseIf Option3 = True Then

OP = UG3 + SKS

End If

Select Case Combo1.Text

Case "Teknik Informatika"

Text4.Text = Format(OP + BPP1, "####,###,###,#0")

Case "Sistem Informasi"

Text4.Text = Format(OP + BPP2, "####,###,###,#0")

Case "Manajemen Informatika"

Text4.Text = Format(OP + BPP3, "####,###,###,#0")

End Select

End Sub

v Private Sub Command2_Click()

i = MsgBox("Apakah anda yakin ingin menghapus semua?", vbQuestion + vbYesNo, "WARNING..!!")

If i = vbYes Then

Text1.Text = Clear

Text2.Text = Clear

Text3.Text = Clear

Text4.Text = Clear

Text6.Text = Clear

Text5.Text = "0"

Option1 = Clear

Option2 = Clear

Option3 = Clear

Combo1.Text = "Pilih Jurusan"

Text5.SetFocus

End If

End Sub

v Private Sub Command3_Click()

i = MsgBox("Apakah anda yakin ingin keluar dari RUN?", vbExclamation + vbYesNo, "WARNING..!!")

If i = vbYes Then

Form2.Hide

End

Form2.Show

End If

End Sub

v Private Sub Form_Load()

Combo1.AddItem "Pilih Jurusan"

Combo1.AddItem "Teknik Informatika"

Combo1.AddItem "Sistem Informasi"

Combo1.AddItem "Manajemen Informatika"

End Sub

v Private Sub Text5_Change()

If Text5.Text Then

Text6.Text = Format(Text4.Text - Text5.Text, "####,###,###,#0")

End If

End Sub

Outputnya setelah klik RUN:

Fungsi button 'Clear All' yaitu untuk menghapus secara keseluruhan. Sebelum mengeksekusi menghapus akan tampil window alert message seperti dibawah ini :