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 ………………