Menguasai Visual Basic .Net (Part 2) - Project

Setelah kita mempelajari tahap awal dari Pengenalan Visual Studio, maka langkah selanjutnya adalah membuat sebuah project. Caranya adalah dengan membuka visual studio dan pilih start New Project, pada saat kita membuat project baru maka automatis kita diberikan sebuah form dengan nama Form1. Coba kita permak Form1 tersebut kira-kita dengan tampilan seperti ini.

Caranya, buka Toolbox yang berada disamping kiri, dan drag and drop control label,TextBox dan sebuah Button, ubahlah text untuk masing-masing control tersebut sesuai dengan gambar diatas. Selanjutnya buka coding view dari tombol Test dengan cara click 2 kali pada tombol tersebut, dan ketikan kode berikut ini.

1. Contoh Pengunaan TextBox

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Tentukan Pilihan Anda!")
        ElseIf TextBox1.Text = "Visual Basic" Then
            MsgBox("Selamat Belajar!")
        Else
            MsgBox("Bahasa yang keren juga!")
        End If
    End Sub

Penjelasan Code.

Setiap kita click tombol Test maka program kita akan memeriksa text yang ada pada TextBox1.text disini kita menggunakan logika IF. 

Jika textnya kosong maka program akan memanggil

MsgBox("Tentukan Pilihan Anda!")

Jika textnya tertulis Visual Basic maka program akan memanggil

MsgBox("Selamat Belajar!")

Jika tertulis selain itu maka program akan memanggil

MsgBox("Bahasa yang keren juga!").

Silakan Run projectnya dengan menekan tombol F5 atau tombol Start maka kita akan melihat tampilan seperti ini. 

2. Contoh Penggunaan ComboBox
Ubah tampilan dari Form1 menjadi seperti ini, dengan menambahkan 2 buah GroupBox dan 1 buah ComboBox.

Disini kita akan membahas bagaimana mengambil nilai dari sebuah ComboBox, dan dengan tampilan kode yang lebih profesional. Pertama sekali isilah items dari ComboBox1 secara manual,  dengan cara click tombol panah kecil yang ada pada bagian atas ComboBox1. dan pilih Edit Items. Kira-kira tampilannya seperti ini.

Kemudia buka coding view dari Button2, dan tulislah kode barikut

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim bahasa As String
        bahasa = ComboBox1.Text
        If bahasa = "Visual Basic" Then
            MsgBox("Anda Pemenangnya!")
        Else
            MsgBox(bahasa & " Selamat belajar!")
        End If
    End Sub

Penjelasan Code
Disini kita mendeklarasikan variabel bahasa dengan type data string kemudian mengisi variabel tersebut dengan nilai dari ComboBox1.Text. Syntax berikutnya tidak perlu dijelaskan karena hampir sama dengan penjelasan diatas.

Hasil akhir dari project kita pada saat dijalankan akan terlihat seperti ini.

Selamat belajar, semoga sukses.
Salam Hangat
AlifaVb