Pengenalan VB.Net

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

    End Sub

Next

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

<MsgBox> untuk menampilkan Massage Box

Baca Selanjutnya ..