Gunakan suatu struktur If...Then untuk menjalankan suatu pernyataan secara
kondisional. Anda dapat menggunakan syntax satu baris ataupun syntax banyak baris.
If kondisi Then pernyataan
Atau
If kondisi Thenpernyataan-pernyataan
End If
contoh
buat form seperti berikut
ketentuan
double klik pada button proses kemudian buat list kode seperti berikut
Private Sub proses_Click()
If nilai.Text <= 50 Then
ket.Text = "anda tidak lulus"
Else
ket.Text = "anda lulus"
End If
End Sub
dari list diatas dapat dibaca jika nilai(dalam textbox1/nilai) kurang dari atau sama dengan 50 maka text box ket akan berisi text "anda tidak lulus"
dan penggunaan else diatas karena memiliki dua pernyataan yaitu
anda lulus
anda tidak lulus
jika peryataan lebih dari 2 maka kita harus menggunakan ElseIf
contoh
list kode berikut
Private Sub proses_Click()
If nilai.Text <= 50 Then
ket.Text = "GRADE C"
ElseIf nilai.Text >= 51 And nilai.Text <= 80 Then
ket.Text = "GRADE B"
Else
ket.Text = "GRADE A"
End If
End Sub
ket : jika( if ) nilai(textbox1) input angka kurang dari atau sama dengan <=50 mka ket(textbox2) "grade C" dan jika ( else if ) nilai ( textbox1) >=51 & <=80 maka ket (textbox2) "grade B" dan selain itu ( else ) maka ket ( textbox2) "GRADE A"
selain itu disini berarti selain angka kurang dari 80
jika di run ( F5) maka hasilnya seperti berikut
selamat mencoba semoga bermanfaat
salam indahnya berbagi
Tidak ada komentar:
Posting Komentar