Pratikum
Pengenalan
VB.Net
1.
Memulai VB.Net
Untuk memulai,
VB.Net yang harus diperhatikan, tentunya harus memiliki aplikasinya terlebih
dahulu .. J,
kemudian tinggal klik pada icon VB.net nya. Dan pilih menu file è new è project dan klik.
Maka akan muncul
window new project kemudian pilih windows è
windows forms application. Ganti name sesuai keinginan anda dan klik “ok”
Ini merupakan
tampilan dari vb.net
11. Window
Kerja
22. Solution
Explorer
33. Properties
44. Toolbars
55. Menu
Window Kerja ::
11. Desain
22. Code
2. Pengenalan
Form dan Percabangan
Elemen yang
digunakan :
1a. Label
( 2 Buah :: Label1 dan Label2 )
2b. TextBox
( 1 Buah :: TextBox1 )
[Klik 2 kali] pada
TextBox1 dan tulis kode program [Kedalam window code] berikut ini :
Private Sub
TextBox1_TextChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
TextBox1.TextChanged
If
Val(TextBox1.Text) = 0 Then
Label2.Text = "Nol" 'Pernyataan-1
Else
If
Val(TextBox1.Text) = 1 Then
Label2.Text = "Satu" 'Pernyataan-2
Else
If
Val(TextBox1.Text) = 2 Then
Label2.Text = "Dua" 'Pernyataan-M1
Else
Label2.Text = "????" 'Pernyataan-M2
End
If
End
If
End If
3. Perulangan dan
Array
Elemen yang
digunakan :
1. ListBox
( 1 Buah :: ListBox1 )
2. Button
( 1 buah :: Button1 )
Note ::
1.
[Klik 2 kali] di Form dan Button
2.
Yang perlu diperhatikan adalah penambahan [Dim kata() As String] diawal source code
3.
Tambahkan Source Code berikut ini ::
Dim kata() As String
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
ReDim
kata(3)
kata(0) = "Apel"
Kata(1) = "Durian"
Kata(2) = "Mangga"
Kata(3) = "Melon"
Dim i As Integer
For i =
0 To UBound(Kata)
ListBox1.Items.Add(Kata(i))
Next
End Sub
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button1.Click
Dim
KataYangDicari As String
Dim
IndexKata As Integer
KataYangDicari = InputBox("Ketikkan Kata yang Anda Cari")
IndexKata =
System.Array.BinarySearch(kata, KataYangDicari)
If
IndexKata >= 0 Then ' nilai >= nol
berarti data ditemukan
MsgBox("Kata("
& IndexKata.ToString & ") = "
& kata(IndexKata), , "Data Ditemukan")
ListBox1.TopIndex = IndexKata
ListBox1.SelectedIndex = IndexKata
End If
End
Sub
Note ::
<Kata()> merupakan deklarasi untuk array
<For> digunakan untuk perulangan
<If> digunakan untuk seleksi
0 komentar:
Posting Komentar