Membuat Program Entri Data Mahasiswa menggunakan Microsoft Visual Basic 2010 Express

Membuat Program Entri Data Mahasiswa

menggunakan Microsoft Visual Basic 2010 Express

1.    Buka aplikasi Microsoft Visual Basic 2010 pada PC/Laptop anda.

2.    Klik New Project.

     Pilih Windows Forms Application dan isikan nama file yang akan dibuat pada kolom Name.

Kemudian klik OK.

3.    Buatlah Design program seperti dibawah ini :

4.       Untuk coding lengkapnya adalah sebagai berikut :

Public Class Form1

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

    End Sub

    Sub KomboAgama()

        Me.ComboBox1.Items.Add("Islam")

        Me.ComboBox1.Items.Add("Kristen Protestan")

        Me.ComboBox1.Items.Add("Kristen Katolic")

        Me.ComboBox1.Items.Add("Hindu")

        Me.ComboBox1.Items.Add("Budha")

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

    End Sub

    Sub KomboJurusan()

        Me.ComboBox2.Items.Add("Manajemen Informatika")

        Me.ComboBox2.Items.Add("Teknik Informatika")

        Me.ComboBox2.Items.Add("Sistem Informasi")

    End Sub

    Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged

    End Sub

    Sub KomboProgdi()

        Me.ComboBox3.Items.Add("D1")

        Me.ComboBox3.Items.Add("D2")

        Me.ComboBox3.Items.Add("D3")

        Me.ComboBox3.Items.Add("D4")

        Me.ComboBox3.Items.Add("S1")

        Me.ComboBox3.Items.Add("S2")

        Me.ComboBox3.Items.Add("S3")

    End Sub

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

        KomboAgama()

        KomboJurusan()

        KomboProgdi()

        ListKota()

        Me.BackColor = Color.DarkSeaGreen

        Me.Text = "Data Mahasiswa"

        Me.ControlBox = False

        Me.StartPosition FormStartPosition.CenterScreen

        Me.Label1.Font = New System.Drawing.Font("Times New Roman", 18.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.RadioButton1.Checked = True

    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 ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

    End Sub

    Sub ListKota()

        Me.ListBox1.Items.Add("Bandung")

        Me.ListBox1.Items.Add("Denpasar")

        Me.ListBox1.Items.Add("Jakarta")

        Me.ListBox1.Items.Add("Surabaya")

        Me.ListBox1.Items.Add("Manado")

        Me.ListBox1.Items.Add("Medan")

        Me.ListBox1.BackColor = Color.Silver

    End Sub

End Class

5.       Setelah semua selesai, jalankan program dengan menekan tombol start debugging atau bisa menggunakan tombol F5.

6.    Selamat mencoba kawan.. semoga penjelasan diatas dapat bermanfaat dan mempermudah teman-teman semua dalam pembuatan program.

Tetap semangat, terus berusaha dan pantang menyerah !!  Selamat belajar..

http://fitrifebriani26.blogspot.com