Membuat Form Mahasiswa Sederhana Tanpa Database

Fasilitas yang digunakan untuk membuat form mahasiswa sederhana tanpa database adalah, Form, Label, TextBox, ComboBox, Radio Button, dan ChekBox. Silahkan rancang form seperti halaman berikut:

pada kasus ini akan menampilkan form mahasiswa ke form tampil mahasiswa. selanjutnya silahkan rancang form seperti berikut:

Perlu di perhatikan setiap label yang ditambah default teks nilai tersebut adalah kosong atau "".

adapun kode dari program tersebut seperti berikut.

-

Public Class frmMahasiswa

    Dim jenisKemalin, Hobi As String

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

        With cmbJurusan.Items

            .Add("Akutansi")

            .Add("Manajemen")

            .Add("Sistem Informasi")

            .Add("Teknik Informatika")

        End With

        With cmbJenjangStudi.Items

            .Add("Diploma III")

            .Add("Sarjana")

        End With

    End Sub



    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

        With frmTampilMahasiswa

            .lblNPM.Text = txtNpm.Text

            .lblNama.Text = txtNama.Text

            .lblJenisKelamin.Text = jenisKemalin

            .lblJurusan.Text = cmbJurusan.Text

            .lblJenjangStudi.Text = cmbJenjangStudi.Text

            .lblHobi.Text = Hobi

        End With

        frmTampilMahasiswa.ShowDialog(Me)

    End Sub



    Private Sub rbPria_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbPria.CheckedChanged

        jenisKemalin = rbPria.Text

    End Sub



    Private Sub rbWanita_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbWanita.CheckedChanged

        jenisKemalin = rbWanita.Text

    End Sub



    Private Sub cbMembaca_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbMembaca.CheckedChanged

        Hobi = Hobi & cbMembaca.Text

    End Sub



    Private Sub cbNontonTV_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbNontonTV.CheckedChanged

        Hobi = Hobi & cbMembaca.Text

    End Sub



    Private Sub cbSepakBola_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbSepakBola.CheckedChanged

        Hobi = Hobi & cbMembaca.Text

    End Sub

End Class

-

agar lebih jelas program ini dapat di jalankan dengan membuka ini 

--https://drive.google.com/drive/folders/1TnoKzptFnKiwMQxwZnlNIVw0PcGoJHDt?usp=sharing

atau silahkan langsung lihat cara pembuatan di video berikut. semoga ini dapat membantu anda memahami Perancangan form di visual basic .net