Struktur Perulangan dan Cara Penulisannya di Visual Basic 6.0
Pada artikel kali ini tipandtrickunikvb ingin sedikit membahas tentang perulangan atau yang sering dikenal didunia pemograman dengan istilah Looping.
Looping atau perulangan adalah sebuah kondisi dimana satu atau beberapa baris kode program di eksekusi secara berulang-ulang. Ada 2 jenis perulangan, yaitu Perulangan Kondisi dan Perulangan Hitung.
Perulangan kondisi adalah perulangan yang berlangsung selama suatu kondisi terpenuhi atau tercapai. Sedangkan perulangan hitung adalah perulangan yang telah ditetapkan jumlah perulangannya.
Untuk menyatakan kondisi ada beberapa struktur penulisannya yang dapat digunakannya, yitu:
Do…..Loop
For….Next
While….Wend
Sekarang kita akan bahas satu persatu tentang struktur perulangan diatas
A. Struktur Do….Loop
1. Struktur Do..Loop…while dan Do…Loop….Until
Perulangan ini termasuk kedalam perulangan kondisi, aturan yang digunakan untuk penulisan perulangan ini adalah sebagai berikut :
Do
<statement>
[Exit Do]
<statement>
Loop (While|Until) <kondisi>
While, digunakan untuk melakukan perulangan selama suatu kondisi terpenuhi.
Until, digunakan untuk melakukan perulangan hingga suatu kondisi terpenuhi
Exit Do, digunakan untuk keluar dari dalam kondisi perulangan sebelum seluruh perulangan selesai
Dari struktur perulangan diatas maka dapat diperoleh 2 kombinasi perulangan sebagai berikut
Do
<statement>
Loop While <kondisi>
dan
Do
<statement>
Loop Until <kondisi>
2. Struktur Do While…Loop dan Do Until….Loop
Aturan yang digunakan untuk struktur ini adalah
Do (While|Until) <kondisi>
<statement>
(Exit Do)
<statement>
Loop
Dari struktur perulangan diatas maka dapat diperoleh 2 kombinasi perulangan sebagai berikut
Do While <kondisi>
<statement>
Loop
Dan
Do Until <kondisi>
<statement>
Loop
Dalam kondisi diatas VB menguji perulangan yang digunakan terlebih dahulu, jika tidak terpenuhi maka statement didalam kondisi perulangan akan di ulang terus menerus hingga terpenuhi.
B. Struktur For Next
Perulangan For…Next merupakan struktur perulangan hitung maksudnya banyaknya perulangan sudah ditentukan sejak awal. Adapun untuk struktur penulisannya sebagai berikut :
For <variable> =< n_Awal>To <n_Akhir> [step<statement>]
<statement>
<Exit For>
<statement>
Next [<variable>]
Stetement diatas akan di ulang secara terus menerus selama variabel masih bernilai n_awal dan n_akhir
C. Struktur While…Wend
Struktur ini hampir sama dengan Do While…Loop, Syntax aturan penulisannya adalah sebagai berikut :
While <kondisi>
<statemen1>
<statement2>
…….
Wend
Setelah kita membahas satu persatu tantang struktur perulangan Do…..Loop, For….Next dan
While….Wend, sekarang kita langusng ke uji praktek dalam bentuk kode program yang ada di Visual Basic 6.0
Cara penulisan kode Program Perulangan di dalam Form Visual Basic 6.0
Buka Form VB 6, desainlah form sesuai gambar dibawah ini
 |
| Struktur Perulangan |
Tulis kode pada masing-masing CommandButton seperti dibawah ini
Private Sub Command1_Click()
Form1.Cls
For ACHAN = 1 To 5
Form1.Print ACHAN
Next ACHAN
End Sub
Private Sub Command2_Click()
Form1.Cls
Dim ACHAN As Integer
For ACHAN = 1 To 10
Form1.Print ACHAN
Next ACHAN
End Sub
Private Sub Command3_Click()
Form1.Cls
Dim AKU, CINTA As Integer
For AKU = 1 To 3
For CINTA = 10 To 5 Step -1
Form1.Print CINTA
Next CINTA
Next AKU
End Sub
Private Sub Command4_Click()
Form1.Cls
ACHAN = 5
Do While ACHAN > 0
Form1.Print ACHAN
ACHAN = ACHAN - 1
Loop
End Sub
Private Sub Command5_Click()
Form1.Cls
ACHAN = 8
Do Until ACHAN = 0
Form1.Print ACHAN
ACHAN = ACHAN - 2
Loop
End Sub
Private Sub Command6_Click()
Form1.Cls
A = 6
Do
Form1.Print A
A = A - 1
Loop While A > 0
End Sub
Private Sub Command7_Click()
Form1.Cls
Dim A As Integer
A = 1
While A <= 10
Form1.Print A
A = A + 1
Wend
End Sub
Private Sub Form_Load()
Form1.FontBold = True
End Sub
Setelah menulis kode sekarang jalankan program, dan lihat hasilnya pada gambar dibawah ini
 |
| Hasil Perulangan |
Demikian pembahasan kita tentang Struktur Perulangan dan Cara Penulisannya di Visual Basic 6.0 ,semoga bermanfaat buat kita semua. Amin
No comments:
Post a Comment