Pemrograman Visual (VB) P4 Materi Logika Percabangan IF cth1
PERCABANGAN ( IF) Dengan VB 6.0
°KONDISI PERCABANGAN
Kondisi percabangan yakni suatu kondisi yang hanya dapat dikerjakan karena memenuhi kriteria.
Bentuk kondisi percabangan yang dapat ditemui antara lain :
IF…. End IF
IF …. Else …. End IF
IF …. Else IF …. End IF
IF … Else IF …. Else …. End IF
NB :
Condition :
- Kondisi : Operasi aritmatika, operasi logika
- Statement
- 1 KONDISI ( IF … End IF )
IF kondisi then
Statement
End IF
Example :
Dim Bayar As String = “Sudah”
Dim Status As String = “Bisa Ujian”
IF Bayar = “Sudah” Then
Status = “Bisa Ujian”
End IF
Contoh Program If
1.Buat formnya seperti gambar dibawah ini.
2.Isikan perintah berikut :
3.Tampilan Program
- 2 KONDISI ( IF …. ELSE …. END IF )
IF kondisi Then
Statement
Else
Statement
End IF
Example :
- Dim Bayar As String = “Sudah”
Dim Status As String = “Bisa Ujian”
IF Bayar = “Sudah” Then
Status = “Bisa Ujian”
Else
Status = “Bayar Dulu ya”
End IF
- Dim Harta As Integer = 100000
Dim Status As String = “Kaya”
IF Harta = 100000 Then
Status = “Kaya”
Else
Status = “Belum Kaya”
End IF
Contoh Program If…. Else…End If
- Buat form seperti berikut ini
2. Masukkan perintah dibawah ini:
3. Tampilan Program
- >2 KONDISI ( IF …. ELSE IF …. END IF )
IF kondisi1 then
Statement
ElseIF kondisi2 then
Statement
ElseIF Kondisi3 then
Statement
End IF
Example :
Dim Nilai As Integer
Dim Keterangan As String
IF Nilai >= 80 then
Keterangan = “Lulus”
Else IF Nilai > 50 then
Keterangan = “Lulus dengan catatan”
Else IF Nilai <= 50 then
Keterangan = “Tidak lulus”
End IF
Contoh Program If..Else If..End If
1.Buat Form seperti berikut:
2.Ketikkan perintah seperti berikut:
3. Tampilan Program
- >3 KONDISI ( IF …. ELSE IF …. ELSE …. END IF )
IF Kondisi1 then
Statement
Else IF Kondisi2 then
Statement
Else IF Kondisi3 then
Statement
Else
Statement
End IF
Example :
Dim Keterangan As String
Keterangan = “”
IF TextBox1.Text > = 80 then
Keterangan = “Lulus”
Else IF TextBox1.Text > 50 then
Keterangan = “Lulus dengan catatan”
Else IF TextBox1.Text <= 50 then
Keterangan = “Tidak Lulus”
Else
Keterangan = “Lihat lagi nilai anda”
End IF
TextBox2.Text = Keterangan
1.Tampilan
- Contoh Program Percabangan : IF …. ELSE …. END IF
Nama Objek Enabled
Nilai Akhir → TxtNA True
Proses → Cmdproses True
Keterangan → Txtket False
Example :
Dim Kodebrg As String
Dim Hargabrg As Integer
Hargabrg = “”
IF TextBox1.Text = “A” Then
Hargabrg = 1000
end IF
TextBox2. Text = Hargabrg
Contoh Program :
Buat lah form seperti dibawah ini,lalu klik 2 kali pada button (Proses) lalu masukkan perintah pada gambar kedua dan setelah di Run akan menghasilkan tampilan program seperti gambar ketiga.
