Program Aplikasi Penerimaan Siswa Baru

Kode Program Combo Box Jurusan Yang Dipilih :

Private Sub CboJurusan_Click()

If CboJurusan.Text = "S1 Sistem Informasi" Then

TxtPropti.Text = "350000"

TxtBiayaPen.Text = "300000"

Else

TxtPropti.Text = "300000"

TxtBiayaPen.Text = " 300000"

End If

TxtHarus.Text = Val(TxtBiaya.Text) + Val(TxtPropti.Text) + Val(TxtBiayaPen.Text)

End Sub

Kode Program Combo Box Program Yang Dipilih :

Private Sub CboProgram_Click()

If CboProgram.Text = "Reguler" Then

TxtBiaya.Text = "3500000"

Else

TxtBiaya.Text = "4000000"

End If

End Sub

Kode Sub Form Load :

Private Sub Form_Load()

CboProgram.AddItem "Reguler"

CboProgram.AddItem "eksekutif"

CboJurusan.AddItem "S1 Sistem Informasi"

CboJurusan.AddItem "D3 Manajemen Informatika"

CboTahun.AddItem "2013"

CboTahun.AddItem "2014"

CboTahun.AddItem "2015"

CboTahun.AddItem "2016"

End Sub

Kode Program Tombol Daftar Baru :

Private Sub CmdDaftar_Click()

TxtNama.Text = ""

TxtJenis.Text = ""

TxtAlamat.Text = ""

TxtAsal.Text = ""

TxtBiaya.Text = ""

TxtOrangtua.Text = ""

TxtPropti.Text = ""

TxtBiayaPen.Text = ""

TxtHarus.Text = ""

CboProgram.Text = ""

CboJurusan.Text = ""

CboTahun.Text = ""

TxtNama.SetFocus

End Sub

Kode Program Tombol Selesai :

Private Sub CmdSelesai_Click()

Unload Me

End Sub

Kode Program Option Jenis Kelamin :

Private Sub OptLaki_Click()

TxtJenis.Text = "Laki-laki"

End Sub

Private Sub OptPerempuan_Click()

TxtJenis.Text = "Perempuan"

End Sub

Kode Program Tombol Yang Harus Dibayar :

Private Sub TxtHarus_Click()

TxtHarus.Text = Val(TxtBiaya.Text) + Val(TxtPropti.Text) + Val(TxtBiayaPen.Text)

End Sub