BELAJAR PERULANGAN / LOOPING Posted on |

Looping adalah instruksi program yang memerintahkan suatu tugas di ulang – ulang berdasarkan kondisi tertentu. Pengulangan ini dapat di kendalikan jumlahnya oleh aplikasi anda bergantung pada kondisi yang di inginkan. Loop akan terus di lakukan selama kondisi yang dibandingkan oleh Loop tersebut memenuhi syarat (bernilai True). Apabila kondisi perbandingan tersebut tidak lagi memenuhi lagi memenuhi syarat (bernilai False), Loop akan berhenti, dan proses pemrograman akan di lanjutkan dibawah loop tersebut.

1 . For …Next
Sintaks : For counter = nilai awal To nilai akhir [Step kenaikan]
….ekspresi
Next counter
For next digunakan untuk mengulangi suatu perintah suatu perintah dalam jumlah yang ditentukan. Dengan loop ini, Anda bias menentukan sampai berapa kali Loop berulang serta besar kenaikannya.

2. Do…While
Sintaks : Do While (Kondis)
….ekspresi…
Loop
Do While adalah loop yang akan melakukan perulangan terus-menerus selama (While) suatu kondisi memenuhi syarat (bernilai True). Loop ini akan Terus – menerus di jalankan sampai kondisinya tidak lagi memenuhi syarat (False), baru setelah itu ia akan berhenti.

4.Do..Until
Sintaks : Do until (kondisi)
….ekspresi…..
Loop
Do Until akan menjalankan blok program didalam loop tersebut selam kondisi yang dibandingkan tidak memenuhi syarat (nilai False). Loop ini akan terus – menerus dijalankan sampai kondisinya memenuhi syarat (True). Baru setelah itu ia akan berhenti.

While…Wend
Sintaks :
While (kondisi)
……ekspresi….
Wend
While Wend adalah perintah untuk melakukan perulangan. While Wend serupa denga Do Until.
Pembuatan Design Form Looping :

klik dua kali optionya setelah itu akan muncul code view
codenya :

Private Sub optionFor_next click()

Dim I as Integer

List1.Clear

For I = 1 to 10

do while 1<=10

List1.additem i

I = I + 1

Loop

End sub

Private Sub optionDo_while Click ()

Dim I as Integer

List1.clear

I = 0

do while 1 <= 10

List1. additem I

I = I + 1

Loop

End sub

Private Sub optionDo_Until Click()

Dim I as Integer

List1.Clear

I = 0
Do Until I = 10

list1.additem I

I = I + 1

Loop

End Sub

Private Sub optionWhile_Wend Click()

Dim as I integer

List1.clear

I = 0

While I <= 10

List1. additem I

I = I + 1

Wend

End Sub

Read More..