Sabtu, 12 Januari 2013

mengenal fungsi percabangan if...elseif...then

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: