Membuat Form Daftar

Pada kali ini saya akan membuat sebuah Form Pendaftaran . Untuk pertama kita buat dahulu Form Utama seperti gambar di bawah ini

 

Setelah selesai membuat Form di atas selanjutnya  kita isi dengan Code dan Method untuk setiap Button dan TextBox.

Pertama kita Double Klik pada Form  kemudian ubah Method menjadi “ Activated” Code nya seperti di bawah ini.

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

        Call bersih()

        Call isicombo()

    End Sub

Sebelumnya kita buat dulu sebuah Method dengan nama “ bersih “ bertujuan untuk membersihkan isi dari TextBox setelah selesai pengisian. Selanjutnya kita buat Method juga untuk mengisi ComboBox dengan nama “ isicombo” di bawah ini   adalah Code nya yang diisi dengan menyesuiakan isi dari ComboBox

Sub bersih()

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        ComboBox1.Text = " Teknik Infomatika"

    End Sub

    Sub isicombo()

        ComboBox1.Items.Add("05 Teknik Informatika")

        ComboBox1.Items.Add("04 Sistem Informasi")

        ComboBox1.Items.Add("02 Teknik Komputer")

        ComboBox1.Items.Add("03 Komputer Akutansi ")

        ComboBox1.Items.Add("01 Manajemen Informatika")

    End Sub

Setelah selesai mengisi codennya di lanjutkan dengan membuat Event pada Button yang sudah di buat .  Pada Button  “ Tambah “ kita masukkan Codenya pertama kita buat dahulu Method dengan nama “ normal” bertujuan untuk Refresh kembali Button yang lainnya berikut codenya

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Button1.Text = "Tambah" Then

            Button1.Text = "Simpan"

            Button2.Enabled = False

            Button3.Enabled = False

            Button4.Text = "Batal"

            TextBox1.Focus()

        Else

        End If

    End Sub

Pada Code diatas terlihat Ketika Button Tambah di Klik akan Berudah Menjadi Button Simpan .

Sub Normal()

        Button1.Text = "Tambah"

        Button1.Enabled = True

        Button2.Text = "Ubah"

        Button2.Enabled = True

        Button3.Text = "Hapus"

        Button3.Enabled = True

        Button4.Text = "Keluar"

    End Sub

Diatas terlihat  pada code ada True dan False untuk “ True” setiap perintah yang benar akan di kerjakan dan untuk “False” Button menjadi tidak Aktif.

Selanjutnya berlanjut pada Button Keluar berikut Codenya

  Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        If Button4.Text = "Batal" Then

            Call Normal()

            Call bersih()

        Else

            Me.Close()

        End If

    End Sub

Perintah Me.Close  diatas untuk keluar dari Menu Utama sebelumnya akan memanggil Method Normal bertujuan untuk Menormalkan kembali Button menjadi Aktif dan  Method Bersih bertujuan untuk membarsihkan isi dari TextBox yang telah diisi.  Saat ini Menu belum berjalan sempurna  karena beberapa Event belum di masukkan .  Hasil Output Formnya 

Sampai Jumpa di Episode Selanjutnya ………………