Visual Lanjutan Rangkuman Teori 3

1. For-Next
Digunakan untuk mengulang perintah dalam jumlah yang ditentukan. pada for-next kita tidak perlu menuliskan kondisi yang akan yang akan di uji, tetapi cukup hanya memberikan nilai step awal dan akhir nilai.
Sintaks:
For variabel = nilai_awal To nilai_akhir
     ekspresi
Next
Keterangan :
variabel : nama integer yang digunakan untuk melakukan proses perulangan
nilai_awal : nilai awal suatu variabel untuk menentukan awal perulangan
nilai_akhir : nilai suatu variabel untu menentukan akhir dari perulangan
ekpresi : blok perintah yang akan dilakukan jika kondisi perulangan memenuhi syarat.
Contoh:
-Membuat Teks “Visual Basic” sebanyak 10 pada Objek ListBox
Dim i As Integer
listbox1.Items.Clear()
For i = 1 to 10
    listbox1.Items.Add(“Visual Basic”)
Next

-Membuat Deret angka 1 sampai 10
Dim i As Integer
listbox1.Items.Clear()
For i = 1 to 10
    listbox1.Items.Add(i)
Next


2. Do-Loop
Perulangan Do…Loop digunakan untuk perulangan yang jumlah perulangannya tidak diketahui. Perulangan ini akan dijalankan sesuai kondisi yang telah ditetapkan.
Pemeriksaan Kondisi pada Do…Loop dapat dilakukan diawal dan diakhir.
Kondisi akan dijalankan pada dua keadaan yaitu Until dan While.

2.1. Do…Loop dengan Pemeriksaan diawal
-Do Until … Loop
Perulangan akan dilakukan ketika kondisi bernilai salah dan berhenti sampai ketika kondisi bernilai benar.
Sintaks:
Do Until (Kondisi)
     ekspresi
Loop

Keterangan:
kondisi : suatu kondisi berupa syarat tertentu, jika kondisi bernilai benar maka perulangan masih terus dilakukan, sebaliknya jika kondisi bernilan salah maka perulangan akan berhenti.
ekpresi : blok perintah yang akan dilakukan jika kondisi perulangan memenuhi syarat.
Contoh:
Membuat Deret angka 1 sampai 10
Dim i As Integer
i = 1
listbox1.Items.Clear()
Do Until i > 10
listbox1.Items.Add(i)
i=i+1
Loop

-Do While … Loop
Loop dengan do While cocok digunakan pada perulangan yang terjadi selama kondisi tertentu memenuhi syarat (selama kondisi benar, statement akan dijalankan terus).
Sintaks:
Do While (Kondisi)
     ekspresi
Loop

Keterangan:
kondisi : suatu kondisi berupa syarat tertentu, jika kondisi bernilai benar maka perulangan masih terus dilakukan, sebaliknya jika kondisi bernilan salah maka perulangan akan berhenti.
ekpresi : blok perintah yang akan dilakukan jika kondisi perulangan memenuhi syarat.
Contoh:
Membuat Deret angka 1 sampai 10
Dim i As Integer
i = 1
listbox1.Items.Clear()
Do while i > 10
listbox1.Items.Add(i)
i=i+1
Loop

2.2. Do…Loop dengan Pemeriksaan diakhir
-Do … Loop Until
Perulangan akan dilakukan ketika kondisi bernilai salah dan berhenti sampai ketika kondisi bernilai benar.
Sintaks:
Do
     ekspresi
Loop Until (Kondisi)

Keterangan:
kondisi : suatu kondisi berupa syarat tertentu, jika kondisi bernilai benar maka perulangan masih terus dilakukan, sebaliknya jika kondisi bernilan salah maka perulangan akan berhenti.
ekpresi : blok perintah yang akan dilakukan jika kondisi perulangan memenuhi syarat.
Contoh:
Membuat Deret angka 1 sampai 10
Dim i As Integer
i = 1
listbox1.Items.Clear()
Do
listbox1.Items.Add(i)
i=i+1
Loop Until i > 10

-Do … Loop While
Loop dengan do While cocok digunakan pada perulangan yang terjadi selama kondisi tertentu memenuhi syarat (selama kondisi benar, statement akan dijalankan terus).
Sintaks:
Do
     ekspresi
Loop While (Kondisi)

Keterangan:
kondisi : suatu kondisi berupa syarat tertentu, jika kondisi bernilai benar maka perulangan masih terus dilakukan, sebaliknya jika kondisi bernilan salah maka perulangan akan berhenti.
ekpresi : blok perintah yang akan dilakukan jika kondisi perulangan memenuhi syarat.


3. While-End While
Perulangan While…End While tidak jauh berbeda dengan perulangan do … loop digunakan untuk perulangan yang jumlah perulangannya tidak diketahui. Perulangan ini akan dijalankan sesuai kondisi yang telah ditetapkan.
Sintaks:
While (Kondisi)
     ekspresi
End While

Keterangan:
kondisi : suatu kondisi berupa syarat tertentu, jika kondisi bernilai benar maka perulangan masih terus dilakukan, sebaliknya jika kondisi bernilan salah maka perulangan akan berhenti.
ekpresi : blok perintah yang akan dilakukan jika kondisi perulangan memenuhi syarat.
Contoh:
Membuat Deret angka 1 sampai 10
Dim i As Integer
i = 1
ListBox1.Items.Clear()
While i <= 10
    ListBox1.Items.Add(i)
    i = i + 1
End While