Perulangan atau Looping pada Microsoft Visual Basic 6.0

A. Pengertian Perulangan (Looping)
Yaitu suatu proses dimana program terus mengeksekusi ulang perintah sampai memenuhi kondisi tertentu. Dalam prakteknya, penulisan sintak dari perulangan (looping) adalah sebagai berikut:

1. For ... Next
2. Do ... Loop
3. While ... Wend

B. Penulisan Sintak dari Looping

1. Perulangan dengan For ... Next
Pengulangan proses menggunakan For…Next adalah bentuk pengulangan terkendali dengan variabel kendali yang terus berjalan maju atau mundur. Format penulisan pengulangan ini adalah sebagai berikut:

For variabel = nilai_awal To nilai_akhir Step langkah
<Proses dalam pengulangan>
Next variable

Contoh


[Private Sub Command1_Click()
For angka = 1 to 10
Print angka;
Next angka
End Sub]

Output dari listing diatas adalah 1 2 3 4 5 6 7 8 9 10
*Step tidak ditulis jika bernilai 1

Contoh II


[Private Sub Command1_Click()
For angka = 1 to 10 Step 2
Print angka;
Next angka
End Sub]

Maka Output dari listing diatas adalah 1 3 5 7 9

2. Perulangan dengan Do ... Loop
Proses perualangan menggunakan Do ... Loop adalah perulangan yang digunakan untuk mengulangi suatu blok statemen selama kondisi yang disyaratkan bernilai true dengan jumlah tak terhingga. Struktur Do ... Loop memiliki 2 bentuk.

Bentuk 1
Do While <Kondisi>
      <Blok Kode Program>
Loop

Keterangan: <Blok Kode Program> akan dijalankan jika sebuah <Kondisi> bernilai TRUE dan akan berhenti jika <Kondisi> bernilai FALSE

Bentuk 2
Do Until <Kondisi>
      <Blok Kode Program>
Loop

Keterangan: <Blok Kode Program> akan dijalankan sampai <Kondisi> bernilai TRUE dan akan berheti jika <Kondisi> bernilai FALSE.

Contoh


[Private Sub Command1_Click()
List1.Clear
i = Asc("Z")
Do While i >= Asc("A")
      List1.AddItem Chr(i)
      i = i - 1
Loop
End Sub]

Output dari listing diatas adalah Z X Y W V dan seterusnya sampai i bernilai A

Contoh II

[Private Sub Command1_Click()
List1.Clear
i=Asc("A")
Do Until i > Asc("Z")
      List1.AddItem Chr(i)
      i = i + 1
Loop
End Sub]

Output dari listing diatas adalah A B C D E dan seterusnya sampai i bernilai Z

3. Perulangan dengan While ... Wend
Proses perulangan menggunakan While ... Wend adalah perulangan terkendali dengan proses akan diulang selama kondisi yang diberikan masih terpenuhi. Format penulisan perulangna ini adalah:

While <Kondisi>
      <Kode Program>
Wend

Contoh


[angka = 1
While angka <= 17
      List1.AddItem angka
      angka = angka + 2
Wend]

Keterangan: angka =1 (adalah nilai awal), dan angka + 2 (nilai awal + 2), karena 2 adalah bilangan tetap, maka 1+2=3, hasil akhir ditambah lagi dengan 2 menjadi 3+2=5, 5+2=7, ... 15+2=17
Maka output dari listing diatas adalah 1 3 5 7 9 11 13 15 17
Name

Java MySQL MySQL Connector NetBeans Source Code VB .NET Tutorial VB .NET Tutorial VB 6.0 VB .NET VB 6.0 XAMPP
false
ltr
item
Blog Bashkara: Perulangan atau Looping pada Microsoft Visual Basic 6.0
Perulangan atau Looping pada Microsoft Visual Basic 6.0
Yaitu suatu proses dimana program terus mengeksekusi ulang perintah sampai memenuhi kondisi tertentu.
Blog Bashkara
http://ibastama.blogspot.com/2016/08/perulangan-loop-pada-microsoft-visual-basic-6-0.html
http://ibastama.blogspot.com/
http://ibastama.blogspot.com/
http://ibastama.blogspot.com/2016/08/perulangan-loop-pada-microsoft-visual-basic-6-0.html
true
2200963340812408254
UTF-8
Not found any posts Not found any related posts VIEW ALL Readmore Reply Cancel reply Delete By Home PAGES POSTS View All RECOMMENDED FOR YOU Tag ARCHIVE SEARCH ALL POSTS Not found any post match with your request Back Home Contents See also related Sunday Monday Tuesday Wednesday Thursday Friday Saturday Sun Mon Tue Wed Thu Fri Sat January February March April May June July August September October November December Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec just now 1 minute ago $$1$$ minutes ago 1 hour ago $$1$$ hours ago Yesterday $$1$$ days ago $$1$$ weeks ago more than 5 weeks ago Followers Follow THIS CONTENT IS PREMIUM Please share to unlock Copy All Code Select All Code All codes were copied to your clipboard Can not copy the codes / texts, please press [CTRL]+[C] (or CMD+C with Mac) to copy