Struktur penulisan kontrol select case

Select Case (pilihan)
Case (pilihan 1)
     (pernyataan 1)
Case (pilihan 2)
     (pernyataan 2)
Case (pilihan 3)
     (pernyataan 3)
Case Else
     (pernyataan 4)
End Select

Private Sub Command1_Click()
Dim no_hari As Integer
Dim hari As String
no_hari = Text1.Text
Select Case no_hari
Case 1
     hari = "Minggu"
Case 2
     hari = "Senin"
Case 3
     hari = "Selasa"
Case 4
     hari = "Rabu"
Case 5
     hari = "Kamis"
Case 6
     hari = "Jum'at"
Case 7
     hari = "Sabtu"
Case Else
MsgBox " saat ini Jumlah hari hanya ada 7 om !", vbOKOnly, "Nama-Nama Hari"
End Select
   Text2.Text = hari
End Sub

Contoh Pemrograman Visual Basic IF - Then - Else

Percabangan dengan If - Then - Else

Percabangan berdasarkan kondisi suatu variabel atau nilai di dalam pemrograman Visual Basic dinyatakan dengan perintah:

If  <kondisi> Then

 < Keputusan kondisi benar >

Else

 < Keputusan kondisi salah >

End If

Penulisan percabangan seperti di atas disebut dengan “kondisi dan keputusan”.

Dalam pengertian yang umum bisa dikatakan:

Jika memenuhi kondisi maka lakukan proses keputusan untuk kondisi benar, jika tidak lakukan proses keputusan untuk kondisi salah 

Contoh 1: 

“Jika bilangan habis dibagi dua maka bilangan itu adalah bilangan genap, jika tidak

bilangan itu adalah bilangan ganjil”, yang dituliskan dengan: 

If bilangan mod 2 = 0 Then

 Ket = “Bilangan genap”

Else

 Ket = “Bilangan ganjil”

End If 

Contoh 2: 

“Jika peminjaman lebih dari 7 hari maka dikenakan denda sebesar 2000”, yang

dituliskan dengan 

If peminjaman>7 Then

Denda = 2000 

Else

Denda = 0 

End If 

String Functions

* Ucase :

Untuk mengubah suatu string menjadi huruf besar semua.
Co : s = LCase("Rio Suwardiman") , maka nilai s adalah "RIO SUWARDIMAN"

* Lcase :

Untuk mengubah suatu string menjadi huruf kecil semua.
Co : s = LCase("Rio Suwardimanka nilai s adalah "rio suwardiman"

* InStr :

Untuk menentukan apakah string tertentu berada pada string lain.
Co : s = InStr("Rio Suwardiman", "o") , maka nilai s adalah 3

* InStrRev :

Untuk mencari posisi string dalam string yang lain, mulai dari akhir.
Co : Rio = InStr(1,”suwardiman”,”R”,vbBinaryCompare)
‘varian Rio akan berisi 0,karena karakter “R” (r besar) tidak ditemukan dalam kata “saya”

* Left :

Untuk mengambil n karakter di sebelah kiri suatu string.
Co : Rio, s = Left("Rio Suwardiman", 5)
maka nilai s adalah "Rio S"

* Right :

Untuk mengambil n karakter di sebelah kanan suatu string.
Co : Rio, s = Right("Rio Suwardiman", 4)
maka nilai s adalah "iman"

* Mid :

Untuk mengambil n karakter dari suatu posisi yang ditetapkan.
Co :s = Mid("Rio Suwardiman", 2, 2) , maka nilai s adalah "io

* Ltrim :

Untuk menghilangkan spasi kosong di awal suatu string.
Co : s = LTrim("      Rio Suwardiman      ") , maka nilai s adalah "Rio Suwardiman      "

* Rtrim :

Untuk menghilangkan spasi kosong di akhir suatu string.
Co : s = RTrim("      Rio Suwardiman      ") , maka nilai s adalah "      Rio Suwardiman"

* Trim :

Untuk menghilangkan spasi kosong di awal dan akhir suatu string.
Co : s = Trim("      Rio Suwardiman      ") , maka nilai s adalah "Rio Suwardiman"

* Len :

Untuk menghitung jumlah karakter yang membentuk suatu string.
Co : s = Len("Rio Suwardiman") , maka nilai s adalah 14

* Chr :

Untuk menghasilkan karakter yang terwakili oleh suatu angka tertentu.
Co : s = Chr(80) , maka nilai s adalah “A”

* Asc :

Untuk menghasilkan angka ASCII dari suatu karakter tunggal.
Co : Asc(“A”) , maka nilai s adalah 80

* Str :

Fungsi Str juga mengkonversi nilai ke tipe data string, samahalnya dengan CStr.
Co : Dim str1 As String
Dim int1 As Integer
str1 = Str(int1)

* Cstr :

Fungsi Cstr mengubah suatu nilai ke tipe data string. Salah satu penggunaanya adalah saat kita ingin memasukan nilai numerik menjadi nilai dari sebuah textbox.
Co : Dim dblNilai As Double
Text1.Text = CStr(dblNilai)

* Val :

Fungsi Val hanya mengubah nilai numerik yang ada dalam string menjadi Double. Tetapi tidak dapat mengubah dari nilai bertipe data numerik.
Co : Dim l As Double
l = Val(Text1.Text)

* StrReverse :

Untuk mengubah urutan karakter suatu string.
Co : Print StrReverse("Rio")
Output : oiR

Arigatou Gozaimasu~