Pages

Subscribe:

Labels

Friday, February 10, 2012

Latihan VB

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.

0 comments:

Post a Comment

mining