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:
- Buat new project, tambahkan 2 buah textbox dan 1 buah commanbutton
- Ubah properti caption command1 menjadi grade nilai, dan kosongkan properti text dari text1 dan text2
- Atur tampilan seperti dibawah !!
Private Sub Command1_Click()5. Jalankan program !!!
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
Lihat juga :
- Contoh If..Then..Else pada visual basic
1 komentar:
bagaimana dengan setiap deret bilangan berkelipatan 3 dan hasil deretan bilangan dikurangi 4
Posting Komentar