Contoh If .. Then pada visual basic

ada bentuk If...Then...Else ada dua percabangan atau bagian. Percabangan yang pertama untuk pernyataan-pernyatan jika kondisi tercapai, dan percabangan yang kedua untuk pernyataan-pernyataan jika kondisi tidak tercapai.

Perbedaan If...Then dan If...Then...Else

If...Then	If...Then...Else
hanya ada satu percabangan (percabangan tunggal)	terdapat dua percabangan
hanya jika kondisi tercapai yang dapat dijalankan	kondisi tercapai atau tidak tercapai dapat dijalankan

Bentuk If...Then...Else

If  <kondisi>  Then

<pernyataan>

...

<pernyataan>

Else

<pernyataan>

...

<pernyataan>

End If

Contoh program :

1.  Buat New project, standard exe
2. Tambahkan 3 buah label, 3 buah textbox, dan 1 commandbutton
3.  Atur properti label,textbox dan commandbutton seperti di bawah

Label1	Caption = Nilai A
Label2	Caption = Nilai B
Label3	Caption = Hasil
Command1	Caption = Lihat Hasil

            4.  Kosongkan properti text pada text1, text2, dan text3. Dan atur tampilan seperti ini :

1       5.    masukan code program di bawah !!!

Private Sub Command1_Click()

Dim a, b As Integer

Dim hasil As String

a = Text1.Text

b = Text2.Text  

If a > b Then       

hasil = "nilai A lebih besar dari nilai B" 

Else       

hasil = "nilai B lebih besar dari nilai A" 

End If 

Text3.Text = hasil 

End Sub

         6.   Jalankan Programnya !!

If...Then  adalah bentuk pemilihan keputusan untuk satu percabangan, bila kondisi terpenuhi (True),maka hanya satu percabangan saja yang dikerjakan. sebaliknya jika kondisi tidak terpenuhi (False), maka tidak ada yang dikerjakan.

if  <kondisi> then

     <pernyataan>

End if

atau

if  <kondisi> then

     <pernyataan>

      ....

<pernyataan>

End if

Contoh :

if a = 25 then

   b=a

end if

kondisi bisa lebih dari satu. Jika kondisi lebih dari satu, maka gabungkan kondisi-kondisinya dengan menggunakan operator logika,

contoh :

if (a>70) and (a<80) then

   b=a

end if

berikut contoh dalam program:

1.  Buat new project, tambahkan 2 buah textbox dan 1 buah commanbutton
2. Ubah properti caption command1 menjadi grade nilai, dan kosongkan properti text dari text1 dan text2
3. Atur tampilan seperti dibawah !!

     4. Masukan code program di bawah ini:

Private Sub Command1_Click()
Dim nilai As Integer
nilai = Text1.Text
If (nilai < 60) Then
Text2.Text = "Grade nilai anda = E"
End If
If (nilai >= 60) And (nilai < 70) Then
Text2.Text = "Grade nilai anda = D"
End If
If (nilai >= 70) And (nilai < 80) Then
Text2.Text = "Grade nilai anda = C"
End If
If (nilai >= 80) And (nilai < 90) Then
Text2.Text = "Grade nilai anda = B"
End If
If (nilai >= 90) And (nilai <= 100) Then
Text2.Text = "Grade nilai anda = A"
End If
End Sub

     5. Jalankan program !!!