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.

Turnament PWSA Cup II

TOURNAMENT PAGUYUBAN WARGA SUNGAI AYAK DI JABODETABEK 2011

List Tim dan Peserta

 

Tim Bekasi EDDY SUN JIU  cong sun phen APHEN 2  AKONG KHAU PHIN	Tim Tangerang 1 ABUI BUI NEN ASUN  A ON Sejun	Tim Tangerang 2 JONO TEDDY PHANG AKHUN RICKY yanto belitang
Tim Tangerang 3 asen alip orien then sau bui eddy (alvin) erwin	Tim Tangerang 4 aphin asiu budi ardy banlin	Tim -----

Tata Cara Pertandingan

1.       Pertandingan akan dilakukan dengan sistem kompetisi penuh , artinya semua tim akan berhadapan.

2.       Menggunakan sistem kelasemen / poin

3.       Kemenangan 3 poin, imbang 1 poin

4.       Final akan mempertemukan peringkat 1 dengan peringkat 2 kelasemen

5.       Bagi tim yang terlambat sampai di tempat 15 menit, maka akan dinyatakan kalah WO 3 – 0

Waktu dan Tempat

Tempat                     : Lapangan Futsal Carefour, Daan Mogot, Jakarta

Waktu                       : 3 april 2011 – jam 11.00 –

Jadwal Acara

Jam	Acara	Ket
11.00 –  11.15	Brefing
11.15 – 14.00	Pertandingan
14.00 – 15.00	Penyerahan Hadiah dan Ramah Tamah

Jadwal Pertandingan

P. 1

TANGERANG  1                 VS           TANGERANG 4

11.15 – 11.30

P.2

TANGERANG 2                  VS           TANGERANG 3

11.30 – 11.45

P.3

BEKASI                                  VS           TANGERANG 1

11.45 – 12.00

P.4

TANGERANG 3                  VS           TANGERANG 4

12.00 – 12.15

P.5

BEKASI                                  VS           TANGERANG 2

12.15 – 12.30

P.6

TANGERANG 1                  VS           TANGERANG 3

12.30 – 12.45

P.7

BEKASI                                  VS           TANGERANG 4

12.45 – 13.00

P.8

TANGERANG 1                  VS           TANGERANG 2

13.00 – 13.15

P.9

BEKASI                                  VS           TANGERANG 3

13.15 – 13.30

P. 10

TANGERANG 2                  VS           TANGERANG 4

13.30 – 13.45

FINAL

----------------                     VS           ------------

13.45 – 14.00

  

Sekilas mengenai  TURNAMEN PWSA CUP ( Paguyuban Warga Sungai Ayak di Jabodetabek)

PWSA CUP ini pertama kali di adakan pada Tahun lalu, tepatnya tanggal 5 Desember 2010, acara perdana ini tergolong sukses karena banyaknya para pemuda sungai ayak yang berpartisipasi dalam acara ini, sekitar 30 sampai 40 pemuda sungai ayak yang merantau di jabodetabek ikut dalam acara ini, karena melihat antusias para peserta, maka pada tanggal 3 April 2011m akan diadakan kembali PWSA CUP II, ditempat yang sama, yaitu CAREFOUR DAAN MOGOT, Jakarta. Dengan dukungan dari para sesepuh sungai ayak di jabodetabek, maka diharapkan acara ini akan lebih meriah lagi..

Prediksi

Bekasi

Perhelatan pertama memang menjadi milik tim dari bekasi. Dengan kemenangan 100 % dan selalu mencetak di atas 3 gol ke gawang lawan-lawannya menjadikan bekasi sebagai tim terbaik karena berhasil menjadi juara, hal ini dikarenakan mungkin para lawan belum mengetahui tipe permainannya, Bekasi Kembali dengan kekuatan yang sama dengan perhelatan sebelumnya. Prediksi masih menjagokan Bekasi Sebagai Juara

Tangerang I

Berstatus sebagai finalis tahun lalu, membuat tim Tangerang 1 sangat penasaran dengan juara, tim ini juga telah banyak melakukan perubahan dengan latihan rutin dan penambahan kakuatan, tetapi mereke harus kehilangan Alok yang merupakan top skore tahun lalu karena harus pulang ke Sungai Ayak, akan sangat terasa kehilangan seorang striker tajam di lini depan, tetapi mereka tetap menjadi unggulan kedua di turnamen tahun ini.

Tangerang 2

Tim ini merupakan gabungan dari beberapa tim yang ikut dalam perhelatan tahun lalu. Tim ini meyimpan kekuatan yang terselubung karena belum mengetahui kekuatan gabungan dari tim ini.

Tangerang 3

Tim Tangerang 3 adalah tim yang baru pertama kali ikut dalam tournament ini, dengan para pemain yang berlatih secara rutin, tim ini menjadi ancaman bagi tim-tim yang telah ada sebelumya seperti tim bekasi dan Tangerang 1. Kekuatan mereka masih belum bisa ditebak oleh para pemain lawan

Tangerang 4

Sama seperti tim Tangerang 3, kekuatan tim ini juga belum diketahui tim lain. Karena tim ini juga baru pertama kali ikut dalam tournament ini, tim ini juga manjadi ancaman bagi tim2 lain di tournament ini.