Membuat Menu Data Mahasiswa Menggunakan Visual Basic

Hi guys kali ini saya ingin memberi tahu cara menginput data mahasiswa menggunakan Visual Basic. Yuk langsung aja kita ke langkah-langkahnya..

Langkah pertama, buka aplikasi Visual Basic Studio, kemudian buat file project baru dengan cara File > New > Project. Beri nama file data anda

Jika sudah, lalu Ok. Kemudian desain form anda

yang dibutuhkan adalah Label, TextBox, Button, ComboBox, RadioButton, dan GroupBox, Kemudian mulailah mendesain.

Pada ComboBox, di Propertis masukkan string/kode data pada Items, lalu Ok

Jika sudah double click pada ComboBox lalu masukkan codingan, sepeti berikut, :

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

        If ComboBox1.Text = "D3 - MI" Then TextBox3.Text = "D3 MENEJEMEN INFORMATIKA"

        If ComboBox1.Text = "S1 - SI" Then TextBox3.Text = "S1 SISTEM INFORMASI"

        If ComboBox1.Text = "S1 - TI" Then TextBox3.Text = "S1 TEKNIK INFORMATIKA"

        If ComboBox1.Text = "D3 - MI" Then TextBox6.Text = "3800000"

        If ComboBox1.Text = "S1 - SI" Then TextBox6.Text = "4250000"

        If ComboBox1.Text = "S1 - TI" Then TextBox6.Text = "5000000"

End Sub

Codingan tersebut akan memunculkan data pada TextBox3 untuk kolom jurusan serta TextBox6 untuk kolom data biaya kuliah.

Langkah selanjutnya yaitu memasukkan codingan untuk RadioButton, dengan cara men double click RadioButton1 lalu masukkan codingan seperti berikut

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked Then
            TextBox4.Text = 0.1 * TextBox6.Text
            TextBox7.Text = 0
        End If
End Sub

Untuk RadioButton2, juga lakukkan hal yang sama nemun berbeda codingan, seperti berikut:

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked Then
            TextBox4.Text = 0
            TextBox7.Text = TextBox6.Text / 6
        End If
End Sub

RadioButton tersebut berfungsi untuk menghitung apakah mahasiswa tersebut mendapatkan diskon atau tidak untuk pembayaran kuliah.

Langkah berikutnya untuk menjalankan tombol proses agar dapat menghitung serta menginput data mahasiswa, dengan cara mendouble click button proses kemudin masukkan codingan berikut, agar dapat berjalan.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim BYKL As Integer
        Dim ANG As Integer
        Dim DIS As Integer
        Dim SISA As Integer

        DIS = TextBox4.Text
        BYKL = TextBox6.Text
        ANG = TextBox7.Text
        SISA = BYKL - ANG - DIS
        TextBox5.Text = SISA
End Sub

DIS merupakan code inisial untuk mengenal/ memanggil TextBox4 atau kolom discount 

BYKL untuk code inisial TextBoxt6 atau kolom biaya

ANG untuk code inisial TextBoxt7 pada kolom angsuran

SISA merupakan penghitungan total dari biaya dikurang angsuran dikurang discount 

Kemudian hasil hitung akan keluar pada TextBox5 atau Sisa Pembayaran yang harus dibayarkan oleh mahasiswa tersebut.

Kemudian untuk tombol Input atau mengclear data, dengan cara mendaouble click tombol input lalu masukkan codingan

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

        ComboBox1.Text = ""

        RadioButton1.Checked = False

        RadioButton2.Checked = False

End Sub

Dan yang terakhir tombol Exit atau Keluar, dengan cara yang sama kemudian masukkan codingan seperti berikut

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Close()

End Sub

End Class

Kemudian Run atau jalankan program, jika sudah tidak ada error program akan berjalan dan dapat menghitung secara benar seperti berikut

Selamat mencoba, Mohon maaf bila terdapat kesalahan

Semoga bermanfaat :)