PERULANGAN PADA VISUAL BASIC (LOOPING)

                   Pertama saya akan membahas Perulangan (Loop),& bentuk umum perulangan pada VB kali ini. kedua yaitu contoh program sederhana yang  saya pelajari pada praktikum minggu yang lalu. Langsung saja kita mulai cara” LOOPING beserta coodinganya:

A. Perulangan (LOOP)

            Perulangan (Visual Basic)  menurut saya adalah  mengulang statement atau cara-cara yang diperintahkan pada VB

Bentuk umum perulangan pada VB :

  Do While : berulang selama data bernilai “True” dan berhenti bila “False”.

  Do Until : berulang bila bernilai “False” dan berhenti ketika bernilai”True”.

  For Next : berulang otomatis tanpa memasukkan/mengetkan rumus aritmatika.

B. Contoh - Contoh Program Loopin

            kali ini saya akan membuat program perulangan yg akan diulang adalah statementnya.

berikut langkah-langkah nya :

  Bukalah aplikasi Visual Basic 6.0

  Buatlah NEW PROJECT pada VB 6.0 sampai muncul kotak Form1.

  Buatlah 1 buah List box & 5 buah Command Button pada Form

  Ubahlah List Box dan Command Button pada menu properties :

  List Box 1 > Kosongkan/abaikan juga tidak apa-apa

  Command Button 1 > Ubah captionnya menjadi “For Next 1”.

  Command Button 2 > Ubah captionnya menjadi “For Next 2”.

  Command Button 1 > Ubah captionnya menjadi “Do While”.

  Command Button 2 > Ubah captionnya menjadi “Do Until”.

  Command Button 5 > Ubah captionnya menjadi “Clear”

          Supaya agar jelas dijalankan dengan sesuai fungsinya, codingkan aplikasi sederhana tersebut dengan cara (double klik pada tombol Command Button 1) untuk Identitas perintah suatu “Commmand Button 1” ketik codingan di bawah berikut :

Private Sub Command1_Click() Dim i As Integer List1.Clear For i = 1 To 20 List1.AddItem "angka " & i Next i End Sub Private Sub Command2_Click() List1.Clear For i = 20 To 1 Step -2 List1.AddItem "angka " & i Next i End Sub Private Sub Command3_Click() List1.Clear i = Asc("z") Do While i >= Asc("a") List1.AddItem "huruf " & Chr(i) i = i - 1 Loop End Sub Private Sub Command4_Click() List1.Clear i = Asc("a") Do Until i > Asc("z") List1.AddItem "huruf " & Chr(i) i = i + 1 Loop End Sub Private Sub Command5_Click() List1.Clear End Sub Berikut hasil tampilaan programnya saat “Run” Selanjutnya saya  akan membuat form ke-2 dengan langkah seperti biasa :   Klik kanan pada Project (Project1.vbp)   lalu klik Project 1 properties   Pada kolom StartUp Object ubah Form1 menjadi Form2. lalu klik Ok. Jika sudah kita akan lanjut untuk pembuatan program kedua yaitu, Operasi Hitung Ganjil Genap. Dengan ketentuan yang harus digunakan dalam toolbox adalah 1 buah List Box, 1 buah Text Box , dan 3 buah Command Button. Langsung saja kita mulai : Buatlah 1 buah List Box, 1 buah text Box, dan 3 buah Command Button Ubahlah TextBox dan Command Button pada bagian properties:   ListBox 1 > kosongksn/ abaikan   TextBox 1 Kosongkan  textnya.   Command Button 1 > Ganti captionnya menjadi “Ganjil”.   Command Button 2 > Ganti captionnya menjadi “Genap”.   Command Button 3 > Ganti captionnya menjadi “Clear”. berikut tampilan skematiknya: Lalu codingkan aplikasi tersebut agar bisa dijalankan sesuai fungsinya. (double klik pada tombol Command Button 1) untuk Identitas “Commmand Button 1” ketik : Private Sub Command1_Click() List1.Clear For i = 1 To 20 Step 2 List1.AddItem "angka " & i Next i End Sub Private Sub Command2_Click() List1.Clear For i = 2 To 20 Step 2 List1.AddItem "angka " & i Next i End Sub Private Sub Command3_Click() List1.Clear Text1.Text = Clear Tampilan saat “Run”