Contoh If .. Then pada visual basic

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 !!!

Lihat juga :
- Contoh If..Then..Else pada visual basic

Thanks for reading Contoh If .. Then pada visual basic