Manipulasi Button Pada VB.NET

Pada pembahasan vb.net kali ini gak tau apa judul materinya, soalnya pada pertemuan ini pak Dosen langsung aja ngasih latihan yang semua coding pada masing – masing toolbox didikte tanpa menjelaskannya terlebih dahulu. Tapi jika kita masih ingat latihan – latihan pada VB.Net yang kemarin, pada latihan kali ini semua yang akan kita praktekan pernah dibahas. Jadi misalnya belum pernah pelajari latihan – latihan pada materi yang kemarin, alangkah baiknya jika dipelajari dulu dech…

Pertama mari kita buat form terlebih dahulu seperti pada dibawah ini :

Setelah selesai pmbuatan form diatas, ubahlah properties pada masing – masing toolbox sesuai dibawah ini atau ubahlah sesuai keinginan kita agar kita mudah dalam memahami pada setiap codingnya.

Textbox1

Name = txtnpm

Text = -

Textbox2

Name = txtnama

Text = -

Textbox3

Name = txtnama

Text = -

Textbox4

Name = txtalamat

Text = -

Combox1

Name = cmbjurusan

Text = -

Button1

Name = btntambah

Text = Tambah

Button2

Name = btnubah

Text = Ubah

Button3

Name = btnhapus

Text = Hapus

Button4

Name = btnkeluar

Text = Keluar

Listbox1

Name = listboxt1

Setelah semua properties kita ubah, langsung aja kita masukan codingnya sesuai dibawah ini :

Public Class Form1

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

Call isicombo()

Call bersih()

End Sub

Sub isicombo()

Cmbjurusan.Items.Add("01 Tekinik Informatika")

Cmbjurusan.Items.Add("02 Teknik Informasi")

Cmbjurusan.Items.Add("03 Manajemen Informasi")

Cmbjurusan.Items.Add("04 Komputer Akutansi")

Cmbjurusan.Items.Add("05 Teknik Komputer")

End Sub

Sub bersih()

Txtnpm.Text = ""

Txtnama.Text = ""

Txtalamat.Text = ""

Txttelepon.Text = ""

End Sub

Sub normal()

Btntambah.Text = "Tambah"

Btntambah.Enabled = True

Btnubah.Text = "Ubah"

Btnubah.Enabled = True

Btnhapus.Text = "Hapus"

Btnhapus.Enabled = True

Btnkeluar.Text = "Keluar"

Btnkeluar.Enabled = True

End Sub

Private Sub Btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btntambah.Click

If Btntambah.Text = "Tambah" Then

Btntambah.Text = "Simpan"

Btnubah.Enabled = False

Btnhapus.Enabled = False

Btnkeluar.Text = "Batal"

Txtnpm.Focus()

Else

ListBox1.Items.Add(Trim(Txtnpm.Text) + " " + Trim(Txtnama.Text) + " " + Trim(Txtalamat.Text) + " " + Trim(Txttelepon.Text))

End If

End Sub

Private Sub Btnubah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnubah.Click

If Btnubah.Text = "Ubah" Then

Btntambah.Enabled = False

Btnhapus.Enabled = False

Btnkeluar.Text = "Batal"

Txtnpm.Focus()

End If

End Sub

Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

If Btnhapus.Text = "Hapus" Then

Btntambah.Enabled = False

Btnubah.Enabled = False

Btnkeluar.Text = "Batal"

Txtnpm.Focus()

End If

End Sub

Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

If Btnkeluar.Text = "Keluar" Then

Me.Close()

Else

Call bersih()

Call normal()

End If

End Sub

End Class

Isi Data Dengan Tampilan pada Listview

Pada pembahasan vb.net kali ini gak tau apa judul materinya, soalnya pada pertemuan ini pak Dosen langsung aja ngasih latihan yang semua coding pada masing – masing toolbox didikte tanpa menjelaskannya terlebih dahulu. Tapi jika kita masih ingat latihan – latihan pada VB.Net yang kemarin, pada latihan kali ini semua yang akan kita praktekan pernah dibahas. Jadi misalnya belum pernah pelajari latihan – latihan pada materi yang kemarin, alangkah baiknya jika dipelajari dulu dech…

Pertama mari kita buat form terlebih dahulu seperti pada dibawah ini :

Setelah selesai pmbuatan form diatas, ubahlah properties pada masing – masing toolbox sesuai dibawah ini atau ubahlah sesuai keinginan kita agar kita mudah dalam memahami pada setiap codingnya.

Textbox1

Name = txtnpm

Text = -

Textbox2

Name = txtnama

Text = -

Textbox3

Name = txtnama

Text = -

Textbox4

Name = txtalamat

Text = -

Combox1

Name = cmbjurusan

Text = -

Button1

Name = btntambah

Text = Tambah

Button2

Name = btnubah

Text = Ubah

Button3

Name = btnhapus

Text = Hapus

Button4

Name = btnkeluar

Text = Keluar

Listbox1

Name = listboxt1

Setelah semua properties kita ubah, langsung aja kita masukan codingnya sesuai dibawah ini :

Public Class Form1

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

Call isicombo()

Call bersih()

End Sub

Sub isicombo()

Cmbjurusan.Items.Add("01 Tekinik Informatika")

Cmbjurusan.Items.Add("02 Teknik Informasi")

Cmbjurusan.Items.Add("03 Manajemen Informasi")

Cmbjurusan.Items.Add("04 Komputer Akutansi")

Cmbjurusan.Items.Add("05 Teknik Komputer")

End Sub

Sub bersih()

Txtnpm.Text = ""

Txtnama.Text = ""

Txtalamat.Text = ""

Txttelepon.Text = ""

End Sub

Sub normal()

Btntambah.Text = "Tambah"

Btntambah.Enabled = True

Btnubah.Text = "Ubah"

Btnubah.Enabled = True

Btnhapus.Text = "Hapus"

Btnhapus.Enabled = True

Btnkeluar.Text = "Keluar"

Btnkeluar.Enabled = True

End Sub

Private Sub Btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btntambah.Click

If Btntambah.Text = "Tambah" Then

Btntambah.Text = "Simpan"

Btnubah.Enabled = False

Btnhapus.Enabled = False

Btnkeluar.Text = "Batal"

Txtnpm.Focus()

Else

ListBox1.Items.Add(Trim(Txtnpm.Text) + " " + Trim(Txtnama.Text) + " " + Trim(Txtalamat.Text) + " " + Trim(Txttelepon.Text))

End If

End Sub

Private Sub Btnubah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnubah.Click

If Btnubah.Text = "Ubah" Then

Btntambah.Enabled = False

Btnhapus.Enabled = False

Btnkeluar.Text = "Batal"

Txtnpm.Focus()

End If

End Sub

Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

If Btnhapus.Text = "Hapus" Then

Btntambah.Enabled = False

Btnubah.Enabled = False

Btnkeluar.Text = "Batal"

Txtnpm.Focus()

End If

End Sub

Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

If Btnkeluar.Text = "Keluar" Then

Me.Close()

Else

Call bersih()

Call normal()

End If

End Sub

End Class

Setelah semua coding selesai, maka hasilnya adalah sebagai berikut :

Belajar VB.Net

Belajar VB.Net

Pada materi sebelumnya kita telah pelajari tentang apa itu VB.NET, mulai dari sejarah, cara menginstal sampai pada pengenalan object – object yang ada pada jendela Visual Studio 2008. Sebagaimana dengan proses belajar kali ini, kita akan mncoba membuat struktur program pada Visual Studio 2008.

Langkah pertama yang kita lakukan adalah membuka Visual Studio 2008, setelah kita masuk pada star page Visual Studio 2008 buatlah project baru caranya klik project pada menu create lalu akan muncul tampilan sebagai berikut :

Setelah itu kita klik Windows pada Visual Basic yang ada pada Project types, kemudian pilih (klik) Windows Form Application pada Visual Studio templates. Ubah name yang ada disudut kiri bawah menjadi Latihan_1. Maka akan muncul tampilan seperti berikut ini :

Langkah berikutnya adalah mendesign form yang telah kita buat tadi dengan tool yang ada didalam sebuah toolbox. Masih ingat kan apa itu toolbox? Klo lupa mari kita ingat kembali.

1. Tool box: merupakan kumpulan control (tool) mis: textbox, label, button.

2. Menu: Menu yang dapat dipilih.

3. Form: tempat meletakkan control (tool) mis textbox, label, button dan lain-lain.

4. Toolbar: Toolbar biasanya merupakan tombol singkat dari menu.

5. Project Explorer: di jendela ini terdapat komponen-komponen yang menyusun project kita. (Project bisa terdiri dari form,module,class dll.)

6. Properties window: properties window adalah tempat untuk mengatur control (objek).

Pertama masukan label pada form, caranya double klik pada A Label atau drag dan masukan kedalam form. Pada latihan kali ini masukan label pada form sebanyak 7 label. Setelah itu masukan juga 7 Textbox dengan cara yang sama seperti memasukan label, 2 Button dan 1 Listbox.

Lalu ubahlah properties pada masing – masing tool, untuk latihan ini saya akan ubah propertiesnya sesuai dibawah ini :

Tool	Name	Text
Label 1	Label 1	Input
Label 2	Label 2	Hasil
Label 3	Label 3	Data 1
Label 4	Label 4	Data 2
Label 5	Label 5	Data 3
Label 6	Label 6	Data 4
Label 7	Label 7	Data 5
Textbox1	Txtinput	-
Textbox2	txthasil	-
Textbox3	Txt1	-
Textbox4	Txt2	-
Textbox5	Txt3	-
Textbox6	Txt4	-
Textbox7	Txt5	-
Button1	Button1	Proses 1
Button2	Button2	Proses 2
Listbox1	Listbox1

Maka tampilan formnya akan menjadi seperti dibawah ini :

Lalu masukan Codingnya sebagai berikut :

Public Class Form1

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

If Txtinput.Text = "TI" Then

Txthasil.Text = "Teknik informatika"

Else

If Txtinput.Text = "SI" Then

Txthasil.Text = "Sistem informasi"

End If

End If

End Sub

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

ListBox1.Items.Add(Txt1.Text + " " + Txt2.Text + " " + Txt3.Text + " " + Txt4.Text + " " + Txt5.Text)

End Sub

End Class

Setelah itu kita Run (F5) dan kita isi pada masing – masing textbox (kecuali pada textbox hasil) dan kita klik pada Button Proses 1 dan Proses 2 maka akan menghasilkan :

Selesai dech…mudah kan?

Sorry kalau bahasanya gak lugas, soalnya waktunya terbatas dan rangkuman ini harus buru – buru di upload.