Statemen If .. Endif digunakan untuk memilih suatu kondisi apakah bernilai benar (true) atau salah (false). Jika suatu kondisi atau keadaan bernilai benar maka blok program di antara if dan endif akan dijalankan, tetapi jika kodisi salah maka blok program diantara if dan endif tidak akan dieksekusi.
Sintak penulisan statement if endif adalah:
If [Kondisi] Then
[Kode program yang akan dieksekusi jika Kondisi bernilai benar]
Endif
Contoh:
Dim i as Integer
i = InputBox("Masukan Nilai i:")
If i > 5 Then
MsgBox "Nilai i lebih dari 5"
Endif
Penulisan statemen If Endif seperti di atas dapat dipersingkat menjadi satu baris karena blok kode program diantara If dan Endif hanya ada satu baris statemen yaitu statemen MsgBox "Nilai i lebih dari 5", penulisan menjadi sebagai berikut:
If i > 5 Then MsgBox "Nilai i lebih dari 5"
Statemen Endif dapat dihilangkan jika penulisan statemen If disatukan dalam satu baris.
Statemen If .. Else .. Endif
Jika pada contoh sebelumnya hanya ada satu kondisi saja yang dieksekusi dari statemen If .. Endif, maka contoh statemen berikutnya menggunakan statemen Else untuk mengeksekusi blok kode program jika kondisi yang pertama bernilai salah (false)
Contoh:
Dim i as Integer
i = InputBox("Masukan Nilai i:")
If i > 5 Then
MsgBox "Nilai i lebih dari 5"
Else
Msgbox MsgBox "Nilai i kurang dari 5"
Endif
Statemen If .. ElseIf .. Else .. Endif
Statemen If juga dapat memeriksa lebih dari 2 kondisi yaitu dengan menambahkan baris kode ElseIf [Kondisi]
Contoh:
Dim i As Integer
i = InputBox("Masukan Nilai i:")
If i > 10 Then
MsgBox "Nilai i lebih dari 10"
ElseIf i > 5 Then
MsgBox "Nilai i kurang dari 10 lebih dari 5"
ElseIf i > 3 Then
MsgBox "Nilai i kurang dari 5 lebih dari 3"
Else
MsgBox "Nilai i kurang dari 3"
End If
Selesai....
No comments:
Post a Comment