Belajar VB 2008

Kali ini saya mencoba belajar menggunakan Visual Basic 2008. Rujukan yang saya gunakan adalah tulisan M. Choirul Amri dari ilmukomputer.org.

Sebelum mulai, pastikan sudah terinstall VB 2008 Express di komputer kita. Jika belum, dapat download Visual Basic Express gratis di http://www.microsoft.com/Express/VB/.
Baik, kita mulai saja. Yang akan kita buat saat ini adalah menu makanan kesukaan. Tampilan form yang akan kita buat seperti ini:

dengan nama properties: Form1, Label1, TextBox1, dan Button1
kemudian berikut source-code nya:

01	Public Class Form1

02

03	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

04	Dim Makanan As String = UCase(TextBox1.Text)

05	If Makanan = "SATE" Then

06	MessageBox.Show("Enak, tapi kolesterol tinggi", "Respon", MessageBoxButtons.OK).ToString()

07	ElseIf Makanan = "PECEL" Then

08	MessageBox.Show("Murah dan Sehat!", "Respon", MessageBoxButtons.OK).ToString()

09	ElseIf Makanan = "MIE AYAM" Then

10	MessageBox.Show("Ini kurang sehat lho!", "Respon", MessageBoxButtons.OK).ToString()

11	ElseIf Makanan = "" Then

12	MessageBox.Show("Makanan belum diisikan", "Respon", MessageBoxButtons.OK).ToString()

13

Else

14	MessageBox.Show("Maaf yang ini No Comment! ;p", "Respon", MessageBoxButtons.OK).ToString()

15

End If

16

End Sub

17

18	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

19	Label1.Text = "Apa makanan favorit Anda?"

20

End Sub

21

End Class

UCase digunakan untuk mengonversikan setiap input yang dilakukan menjadi huruf kapital semua. Hal ini dilakukan agar program dapat mengenali, baik input huruf kecil maupun huruf besar, pada akhirnya akan dianggap sama oleh program, yakni sebagai huruf kapital(huruf besar).
Berikut contoh ketika program dijalankan: