Program Entri Data Mahasiswa dgn Vb.Net

Buatlah sebuah program Entri Data Mahasiswa Seperti gambar di bawah ini

Penyelesaian:
1. Aturlah Propertinya sbb:

  Di dalam tampilan Combobox item atau isian akan muncul otomatis pada saat program di jalankan ada 2 cara menambahkannya di dalam Properti List dan Nilai Propertis dapat dimasukan manual namun saat ini kita akan mencoba menggunakan Procedure dan Function.

Tambahkan kode program berikut

Public Class frLatihan3

'--- deklarasi sub program --- 

Sub KomboAgama()

Me.cbAgama.Items.Add("Islam") Me.cbAgama.Items.Add("Kristen Protestan") Me.cbAgama.Items.Add("Kristen Khatolic") Me.cbAgama.Items.Add("Hindu") Me.cbAgama.Items.Add("Budha")

End SubSub KomboJurusan() Me.cbJurusan.Items.Add("Manajemen Informatika") Me.cbJurusan.Items.Add("Teknik Informatika") Me.cbJurusan.Items.Add("Sistem Informasi")

End Sub

Sub KomboProgdi() Me.cbProgdi.Items.Add("D1") Me.cbProgdi.Items.Add("D2") Me.cbProgdi.Items.Add("D3") Me.cbProgdi.Items.Add("D4") Me.cbProgdi.Items.Add("S1") Me.cbProgdi.Items.Add("S2") Me.cbProgdi.Items.Add("S3")

End Sub

Sub ListKota() Me.lstKota.Items.Add("Bandung") Me.lstKota.Items.Add("Denpasar") Me.lstKota.Items.Add("Jakarta") Me.lstKota.Items.Add("Surabaya") Me.lstKota.Items.Add("Manado") Me.lstKota.Items.Add("Medan") Me.lstKota.BackColor = Color.Silver

End Sub

Private Sub frMahasiswa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'--- mengisi properti objek Form 

Me.Text = "Data Mahasiswa" Me.ControlBox = False  

Me.BackColor = Color.DarkSeaGreen

Me.StartPosition = FormStartPosition.CenterScreen Me.lbJudul.Font = New System.Drawing.Font("Times New

Roman", 18.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Me.lbJudul.ForeColor = System.Drawing.SystemColors.Window Me.rbPria.Checked = True                                                                            'memberi nilai awal

'--- memanggil sub program --- 

KomboAgama()

KomboJurusan() KomboProgdi() ListKota()

End Sub

Private Sub btClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btClose.Click

Me.Close() 

End Sub

Private Sub picPhoto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picPhoto.Click

End Sub End Class

 
 
Selamat Program Anda Telah Selesai.. ;-)

 

Selalu Gunakan Nama yang sama dengan yang ada di modul agar anda mudah dalam melakukan pengecekan kesalahan di dalam form

 Selamat Mencoba  !!!!