Pendaftaran Mahasiswa Baru (Visual Basic)

Gambar 1.1

Untuk membuat form pendaftaran mahasiswa baru, buka Visual Basic v6.0 kemudian ikuti langkah-langkah berikut ini :

1.      Sediakan tools sebagai berikut  :

Tools	Nama
Form1	PendaftaranMahasiswa
Frame1	Jurusan
Frame2	Cara Bayar
Frame3	Pembayaran
Label1	No. Daftar
Label2	Nama
Label3	NPM
Label4	Alamat
Label5	Total
Label6	Cicilan
Text1	Daftar
Text2	Nama
Text3	NPM
Text4	Alamat
Text5	Total
Text6	Cicilan
Option1	MI
Option2	TK
Option3	AK
Option4	Cash
Option5	Cicil 5X
Command1	OK
Command2	Clear
Command3	Exit

2.      Masukkan listing program dibawah ini :

Private Sub Command1_Click()

Dim nama, alamat As String

Dim daftar As Long

Dim cash As Long

If Option1.Value = True Then

UG = 5000000

BPP = 1000000

End If

If Option2.Value = True Then

UG = 6000000

BPP = 1200000

End If

If Option3.Value = True Then

UG = 5000000

BPP = 900000

End If

If Option4.Value = True Then

total = UG + BPP + 150000 + (20 * 100000)

cicilan = 0

End If

If Option5.Value = True Then

total = UG + BPP + 150000 + (20 * 100000)

cicilan = total / 5

End If

End Sub

Private Sub Command2_Click()

daftar = ""

nama = ""

alamat = ""

total = ""

cicilan = ""

Option1 = False

Option2 = False

Option3 = False

Option4 = False

Option5 = False

daftar.SetFocus

End Sub

Private Sub Command3_Click()

jawab = MsgBox("Anda yakin ingin keluar?", _

vbInformation + vbYesNo, "INFO")

If jawab = vbNo Then

PendaftaranMahasiswa.Show

ElseIf jawab = vbYes Then

End  

End If

End Sub

  

3.      Klik Start/Tekan F5 :

Kemudian akan muncul output seperti pada gambar 1.1.