Cara membuat kondisi dan pengulangan pada Visual Basic 6.0


1.   If... Then... Else...
Digunakan sebagai statemen kondisi. Sebuah kode/blok kode akan dijalankan apabila kondisi terpenuhi (true), dan blok kode lainnya akan dijalankan apabila kondisi tidak terpenuhi (false).
 
Syntax 1:
If conditional Then statement

Contoh:
If nilai_angka >= 80 Then nilai_huruf = “A”

Syntax 2:
If conditional Then
    Statement
End If

Contoh:
If nilai_angka >= 80 Then
  nilai_huruf = “A”
  MsgBox “Selamat Anda mendapat nilai terbaik”, _
  vbInformation, “Informasi”
End If

Syntax 3:
If conditional Then
    statement
Else
     statement
 End If

Contoh:
If nilai_angka >= 80 Then
  nilai_huruf = “A”
  MsgBox “Selamat Anda mendapat nilai terbaik”, _
  vbInformation, “informasi”
Else
  MsgBox “Anda harus belajar lebih giat lagi”, _
  vbInformation, “Informasi”
End If

Syntax 4:
If conditional Then
    statement
Else lf condition2 Then
     statement
Else
    Statement
End If


Contoh:
If nilai_angka >= 80 Then
  nilai_huruf = “A”
  MsgBox “Selamat Anda mendapat nilai terbaik”, _
  vbInformation, “Informasi”
Else lf nilai_angka >= 70 Then
  nilai_huruf = “B”
  MsgBox “Nilai anda baik”, _
  vbInformation, “Informasi”
Else
  MsgBox “Nilai anda kurang”, _
  vbInformation, “Informasi”
End If



2. Do... Loops
Digunakan sebagai statemen perulangan.
Syntax 1:
Do Until (Expression)
     (Code to execute)
Loop

Contoh:
Dim i As Integer
I = 0
Do Until = 100
         I = i + 1
Loop


EmoticonEmoticon