Struktur If-Then merupakan struktur percabangan dimana suatu perintah akan dikerjakan apabila bernilai benar atau kondisi-nya terpenuhi. Namun jika kondisi-nya bernilai salah maka perintah di dalam struktur If tidak akan dikerjakan program akan mengerjakan tindakan berikutnya.
Berikut adalah bentuk penulisan dari struktur If-Then :
if (kondisi) then
...Perintah...
end if
Keterangan:
- Kondisi berisi perbandingan variabel dengan variabel lainya dengan menggunakan tanda <,>,=,<> dari keadaan yang bernilai "Benar" atau "Salah"
- Perintah merupakan rangkaian kode program yang akan dijalankan apabila Kondisi bernilai benar
Contoh program:
Buatlah sebuah program yang menyeleksi nilai inputan. Inputan nilai dilakukan lewat Edit1.text dan akan di eksekusi melalui Command1 pada prosedure Command1_Click. Lakukanlah seleksi pada nilai tersebut yaitu apabila nilainya lebih besar atau sama dengan 4, tampil keterangan "Lulus" . Tetapi jika kondisinya salah program tidak merespon. Asumsikan imputan nilai antara 0 sampai 10.
Private Sub Command1_Click()
If Text1.Text >= 4 Then
MsgBox "Nilai '" + Text1.Text + "' Keterangan 'Lulus'", vbInformation
End If
End Sub
Hasil Program:
Misalnya nilai yang diinputkan pada Text1.Taxt adalah 5 maka tampil Message Box yang isinya:
Nilai '5' Keterangan 'Lulus'
Download source code
Download contoh program
0 komentar:
Posting Komentar