materi visual besic 2008

Pembahasan Kuliah VB.Net Pertemuan Ke – 4 , adalah membuat Inputan Data Beserta Kelengkapannya, Di Sertai dengan Pemakaian Combo Box .
Detailnya adalah sebagai berikut :
• Yang Pertama adalah kita Bikin Desainya / Form Isinya Yaitu :
4 Label Yaitu untuk NPM,Nama,Alamat Dan Jenjang.
4 TexBox Untuk NPM,Nama,Alamat
1 Combo Box Untuk Jenjang
1 List Box

Contoh gambar Diatas :







Selanjutnya Meng Codingnya Di bawah ini
Double Klik Pada Form’y Dan Muncul Seperti Dibawah ini :

Public Class Form1

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call Bersih()
Call IsiCombo()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

*Method Bersih Untuk Menghilangkan, isi dari masing2 TexBox 

Sub Bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ComboBox1.Text = "06 Teknik Informatika"
End Sub

*Method IsiCombo Untuk Mengisi Lis ComboBox

Sub IsiCombo()
ComboBox1.Items.Add("06 Tekhnik Informatika")
ComboBox1.Items.Add("07 Tekhnik Informasi")
ComboBox1.Items.Add("56 Menjemen Informatika")
ComboBox1.Items.Add("05 Tekhnik Komputer")
End Sub

*Mengisi Code pada tombol Keluar yang ada pada Form

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Call Noramal()
End Sub
*Method Normal untuk tombol Default dan semuanya bisa di klik

Sub Noramal()
Button1.Text = "Tambah"
Button1.Enabled = True
Button2.Text = "Ubah"
Button2.Enabled = True
Button3.Text = "Hapus"
Button3.Enabled = True
Button4.Text = "Keluar"
Button4.Enabled = True
End Sub

*Membuat code pada tombol 1 yaitu buton Tambah

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()
End If
End Sub
End Class

------------------------------------------------------------------------------------
Ket: pada buton “Tambah” apa bila di klik maka akan berubah menjadi “Simpan” dan kedua buton yaitu tombol “Ubah” & “Hapus” akan tidak bekerja / False.
Tutorial Belum Selesai, Tunggu Minngu depan,,,,,,, !!!!! 

Posted in: