Penerimaan Mahasiswa Baru

KODE KOLOM COMBO PADA JURUSAN YANG DIPILIH

Private Sub cbojurusan_Click()

If cbojurusan.Text = "S1 Sistem Informasi" Then

txtprodi.Text = "190000"

txtpendaftaran.Text = "300000"

ElseIf cbojurusan.Text = "D3 Manajemen Informatika" Then

txtprodi.Text = "170000"

txtpendaftaran.Text = "400000"

End If

txtbayar = Val(txtbiaya.Text) + Val(txtprodi.Text) + Val(txtpendaftaran.Text)

End Sub

KODE KOLOM COMBO PADA PROGRAM YANG DIPILIH

Private Sub cboprogram_Click()

If cboprogram.Text = "REGULER" Then

txtbiaya.Text = "250000"

ElseIf cboprogram.Text = "EKSKUTIF" Then

txtbiaya.Text = "290000"

End If

End Sub

KODE UNTUK MEMUNCULKAN PADA PILIHAN

Private Sub Form_Load()

cboprogram.AddItem "REGULER"

cboprogram.AddItem "EKSKUTIF"

cbotahun.AddItem "2015"

cbotahun.AddItem "2016"

cbotahun.AddItem "2017"

cbotahun.AddItem "2018"

cbojurusan.AddItem "S1 Sistem Informasi"

cbojurusan.AddItem "D3 Manajemen Informatika"

End Sub

KODE PADA OPTION LAKI-LAKI

Private Sub optlaki_Click()

txtjenis.Text = "Laki-Laki"

End Sub

KODE PADA OPTION PEREMPUAN

Private Sub optperempuan_Click()

txtjenis.Text = "Perempuan"

End Sub