Macam-Macam (Bentuk) Perulangan Pada Gambas (Do, For, Repeat, While, Loop, Each, Until, Wend, Next, Break, Continue)

Ada tiga bentuk perulangan pada Pemrogaman Gambas berdasarkan jenis perintahnya, yaitu : Do, For, Repeat, While.

*** Perulangan Do ***

Perintah perulangan Do diakhiri dengan Loop.

Pada dasarnya perulangan Do strutukrnya sama dengan While dan Repeat.

Contoh menggunakan While:

Public Sub Main()

 Dim a As Integer = 1

 Do While a <= 5
    Print "Ngopi Mbak"; a
    Inc a
 Loop
End

Hasil:
Ngopi Mbak 1
Ngopi Mbak 2
Ngopi Mbak 3
Ngopi Mbak 4
Ngopi Mbak 5

Contoh mirip perulangan Repeat

Public Sub Main()

 Dim b As Integer
 b = 3
 Do
    Print "Nasi Goreng"; b
    Inc b
 Loop Until b = 6

End

Hasil:

Nasi Goreng 3
Nasi Goreng 4
Nasi Goreng 5
Nasi Goreng 6

*** Perulangan For ***

Perintah perulangan For diakhiri dengan perintah Next.

For – To – Next

Merupakan perulangan meningkat, yakni dari angka kecil ke angka besar.

Public Sub Main()

   Dim n As Byte

   For n = 5 To 10

     Print “Ke-” & n

   Next

End

Hasil:

Ke-5

Ke-6

Ke-7

Ke-8

Ke-9

Ke-10

For – DownTo – Next

Merupakan perulangan menurun, yakni dari angka besar ke angka kecil.

Public Sub Main()

   Dim z As Byte

   For z = 6 DownTo 2

     Print “Angka-” & z

  Next

End

Hasil:

Angka-6

Angka-5

Angka-4

Angka-3

Angka-2

Peringatan!

Perlu diketahui dan hati-hati saat menggunakan perulangan For-DownTo jika angka terkecilnya adalah Nol, maka akan terjadi perulangan terus-menerus jika tidak ada kondisi yang menghentikannya.

Public Sub Main()

   Dim s As Byte

   For s = 3 DownTo 0

     Print s

     ‘Perintah menghentikan perulangan

     If s = 0 Then Break

   Next

End

Hasil:

3

2

1

0

For – Each – Next

Merupakan perulangan untuk yang umumnya untuk menampilkan data array.

Public Sub Main()

   Dim n As Short

   Dim nama As String[] = ["Wagimin", "Paijo", "Wiwik", "Sulastri"]

   For Each nama

     Print "Nama ke-" & n & ": " & nama[n]

     Inc n

   Next

End

Hasil:

Nama ke-0: Wagimin

Nama ke-1: Paijo

Nama ke-2: Wiwik

Nama ke-3: Sulastri

Nb: “n” digunakan sebagai index array.

*** Perulangan Repat ***

Perintah perulangan Repeat diakhiri dengan Until

Pada perulangan ini, kontrol/ekspresi diletakkan di akhir

Public Sub Main()

   Dim t As Integer

   Repeat

     Print Timer

   Until Timer > 10

End

*** Perulangan While ***

Perintah perulangan While diakhiri dengan Wend.

Public Sub Main()

 
 Dim a As Integer

 a = 1

 While a <= 10
    Print "Assalamualaikum"; a
    Inc a
 Wend
End

 *** Perulangan Procedure ***

Merupakan perulangan klasik yang menggunakan procedure untuk melakukan perulangan

Public Sub Main()

   Prosedurku(0)

End

Private Sub Prosedurku(Angka As Byte)

   If Angka < 4 Then

      Print "Angka ke-" & Angka

      Inc Angka

      Prosedurku(Angka)

   Endif

End

*** Catatan ***
Dalam perulangan juga terdapat kontrol berupa perintah Break untuk menghentikan perulangan, dan Continue untuk mengabaikan. *tidak berlaku untuk perulangan procedure.

Contoh Break:

Public Sub Main()

 Dim v As Short
 For v = 0 To 10
      Print "Bismillaahirrohmanirrokhiim " & v
      If v = 3 Then Break
   Next

End
Hasil:
Bismillaahirrohmanirrokhiim 0
Bismillaahirrohmanirrokhiim 1
Bismillaahirrohmanirrokhiim 2
Bismillaahirrohmanirrokhiim 3
Contoh Continue
Public Sub Main()

 Dim v As Short
 For v = 2 To 5
      If v = 3 Then Continue
      Print "Alhamdulillaah " & v
   Next

End
Hasil:
Alhamdulillaah 2
Alhamdulillaah 4
Alhamdulillaah 5
Perhatikan bahwa angka 3 diatas hilang
Nb: Letak perintah Break/Continue (sebelum/sesudah Print) berpengaruh pada hasil.


Semoga bermanfaat.