Penerapan Looping (Perulangan) Pada Visual Studio dan Jenisnya

Looping atau perulangan adalah suatu bentuk kegiatan mengulang suatu statement sampai batas yang diinginkan.secara sederhanyanya seperti kita menghitung mulai dari 1 sampai 10 dalam kejadian tersebut juga terjadi perulang, yaitu kita menyebutkan beberapa angka hinga pada akhirnya berhenti di angka 10. Hal seperti ini juga dapat dilakukan dengan Visual Studio yang mana menguntungkan bagi kamu yang ingin mengembangkan sebuah sistem, baik bersekala besar maupun kecil. Secara otomatis ketika kamu bertujuan membuat list angka 1 sampai 1000 kamu tidak perlu mengetikkan nya pada setiap baris kode kamu. Dengan menggunakan looping mempersingkat waktu kerja dan ke ringanan baris program yang kamu buat

langsung saja kita buat sebuah project baru, disini kita akan memanfaatkan fungsi button dan listbox.

kamu bisa mengubah listbox dengan nama LstHasil agar tidak membingungkan kamu saat mengikuti coding, untuk event semua terjadi di button berarti setiap coding yang ada di letakkan di antara private sub button dan end sub

For … Next
Digunakan untuk mengulangi suatu perintah dalam jumlah yang telah ditentukan. Dengan menggunakan For-Next anda dapat menentukan berapa kali pengulangan akan dilakukan. Bentuk sintaxnya adalah sebagai berikut :

Dim bill As Integer
  LstHasil.Items.Clear()
     For bill = 1 To 10 Step 1
       LstHasil.Items.Add(bill)
     Next

LstHasil merupakan object yang bertujuan untuk menampilkan hasil looping yang di kerjakan. Di contoh coding yang di atas LstHasil melakukan pemberisihan terhadapat item yang ada kemudian melanjutkan looping. Tujuan nya agar tidak terjadinya data yang tampil 2 kali atau lebih.

Dim kata As Integer
   LstHasil.Items.Clear()
     For kata = 1 To 50 Step 1
        LstHasil.Items.Add(kata & ". Penusa")
     Next

di coding yang di atas terdapat sedikit perbenaan yakni, dimana nanti hasil yang ditampilkan bukan saja anggka 1 sampai sepuluh melainkan dengan text Penusa, fungsi & beertujuan agar hasil looping yang berupa angka di gabungkan dengan text Penusa

Do … Until
Dapat dikatakan sebagai kebalikan dari Do-While. Do-Until digunakan untuk melakukan proses pengulangan selama kondisi yang dibandingkan tidak memenuhi syarat (bernilai false). Pengulangan ini akan dilakukan secara berulangulang sampai (until) kondisi memenuhi syarat (bernilai true). Bentuk sintaxnya adalah sebagai berikut :

Dim y As Integer
    LstHasil.Items.Clear()
      y = 1
       Do Until y > 20
          If y Mod 2 = 0 Then
              LstHasil.Items.Add(y)
           End If
         y += 1
       Loop

Do..While
Digunakan untuk mengulang sebuah blok aksi (perintah/statement) pada jumlah tertentu selama (While) suatu kondisi memenuhi syarat (bernilai true) sampai kondisi tersebut tidak memenuhi syarat. Bentuk sintaxnya adalah sebagai berikut :

Dim x As Integer
     LstHasil.Items.Clear()
      x = 1
       Do While x <= 100
         LstHasil.Items.Add(x ^ 2)
      x += 1
    Loop

End While
Digunakan untuk mengulang sebuah blok aksi (perintah/statement) pada jumlah tertentu selama (While) suatu kondisi memenuhi syarat (bernilai true) sampai kondisi tersebut tidak memenuhi syarat. Bentuk sintaxnya adalah sebagai berikut :

Dim w As Integer
    LstHasil.Items.Clear()
      w = 1
       While w <= 20
         If w Mod 2 = 0 Then
            LstHasil.Items.Add(-w)
         Else
            LstHasil.Items.Add(w)
         End If
       w = w + 1
      End While

Kamu juga bisa langsung download file source code di atas melalui Portal Wio Code

Download
Click here

Daftar Akun
Click here