CARA MEMBUAT APLIKASI PENERIMAAN SISWA BARU

LANGKAH PERTAMA seperti biasa buka terlebih dulu VB 6.0

SELANJUTNYA desain sesuai dengan kebutuhan, contohnya seperti gambar ini

LANJUT kodenya seperti ini

KODE TOMBOL PROGRAM COMBO BOX JURUSAN YANG DIPILIH

Private Sub cbojurusan_Click()

If cboJurusan.Text = "S1 Sistem Informasi" Then

txtPropti.Text = "350000"

txtBiayaPendft.Text = "300000"

Else

txtPropti.Text = "300000"

txtBiayaPendft.Text = " 300000"

End If

txtHarus.Text = Val(txtBiaya.Text) + Val(txtPropti.Text) + Val(txtBiayaPendft.Text)

End Sub

KODE TOMBOL PROGRAM YANG DIPILIH

Private Sub cboProgram_Click()

If cboProgram.Text = "Reguler" Then

txtBiaya.Text = "3500000"

Else

txtBiaya.Text = "4000000"

End If

End Sub

KODE TOMBOL PROGRAM DAFTAR BARU

Private Sub cmdDaftar_Click()

txtNama.Text = ""

txtJenis.Text = ""

txtAlamat.Text = ""

txtAsal.Text = ""

txtBiaya.Text = ""

txtOrangtua.Text = ""

txtPropti.Text = ""

txtBiayaPendft.Text = ""

txtHarus.Text = ""

cboProgram.Text = ""

cboJurusan.Text = ""

cboTahun.Text = ""

txtNama.SetFocus

End Sub

KODE TOMBOL PROGRAM SELESAI

Private Sub cmdSelesai_Click()

Unload Me

End Sub

KODE TOMBOL PROGRAM 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 OPTION JENIS KELAMIN

Private Sub OptLaki_Click()

txtJenis.Text = "Laki-laki"

End Sub

KODE PROGRAM POTION JENIS KELAMIN

Private Sub OptPerempuan_Click()

txtJenis.Text = "Perempuan"

End Sub

KODE PROGRAM TXT YANG HARUS DIBAYAR

Private Sub txtHarus_Change()

txtHarus.Text = Val(txtBiaya.Text) + Val(txtPropti.Text) + Val(txtBiayaPendft.Text)

End Sub

TERAKHIR... coba jalankan programnya seperti ini

SEMOGA BERMANFAAT...