Alur Percabangan

If tunggal


If digunakan untuk membandingkan suatu kondisi tertentu . jika kondisi tersebut benar. Maka akan dijalankan blok pernyataan tertentu. Tetapi jika kondisi tersebut asalh, pernyataan di dalam if tidak akan dijalankan, dan blok if tersebut akan dilompati.
Bentuk Umum :
if <kondisi> then
<Pernyataan..>

1.If…Then….Else….End If
Bentuk Umum : If <Kondisi> Then
…<Pernyataan-1/Aksi-1>
Else
…<Pernyataan-2 / Aksi-1>
End If

2.If …Majemuk
Bentuk Umum : If <Kondisi-1> Then
<Pernyataan-1 / Aksi-1/>
Elseif <Kondisi-2> Then
<Pernyataan-2 / aksi-2>
Elseif <Kondisi-n>/Aksi-n>
Else
<Aksi-default>
End If

3.Select Case – End Select

Digunakan untuk mengeksekusi sejumlah pernyataan sesuai dengan ekspresi yang ada. Selain itu Ekspresi bias berupa range nilai tertentu atau beberapa ekspresi sekaligus.
Bentuk Umum : Select Case
Case is <Ekspresi-1>
<Pernyataan-1>
Case is <Ekspresi-2>
<Pernyataan-2>
Case is <Ekspresi-n>
<Pernyataan-n>
Case else
<Pernyataan-default>
End Select

Contoh :
Pembuatan Design Form Nilai Mahasiswa

Rubahlah Propertisnya :


Keterangan :

Ketika Form dijalankan TextBox Dalam keadaan Kosong

Saat Command proses di Klik , Maka akan Muncul Keterangan pada Text4 (txtket) dengan Ketentuan :

Jika Total Nilai >=60 maka Keterangan “LULUS” selain itu Keterangan “GAGAL”

Klik dua kali pada command Proses lalu ketikan kode berikut :



Private Sub cmdproses_click()

If Val (txttotal.Text) >= 60 Then

Txtketerangan.Text= “LULUS”

Else

Txtketerangan.Text=”GAGAL”

End If

End Sub



Private Sub CmdKeluar

A = Msgbox “Anda Ingin Keluar?”,Vbokonly,”Pesan”

If A= Vbok then

Unload Me

End if

End sub