Perulangan pada vb6

Perulangan pada vb6
Di Posting Oleh : wandi
Kategori : Pelajaran Pemprograman

Hallo semuaya, di kesempatan kali ini saya akan coba  share lagi mengenai VB6 . Kali ini kita akan membahas mengenai perulangan pada vb6 , jadi ini masih dasarnya saja ya . Setelah saya sebelumnya membahas mengenai percabangan pada vb6.

Perulangan

Perulangan di ibaratkan jika kita sedang balapan .Terus merulang rulang sampai lap terakhir . Baru selesai perulangan itu . Jika di pemprograman kita memerlukan kita akan mendapatkan informasi yang berhubungan dengan perulangan adalah sudah lap berapa ? , sampai lap berapa ? , kondisinya apa sudah selasai sampai lap akhir ?

Apa sih fungsinya perulangan itu ? fungsinya adalah untuk mengulang , maksudnya jika kita ingin mencetak kata " saya tidak mengerjakan PR " 100 kali tinggal gunakan perulangan , gak perlu ketik manual . Itu sebagaian kecilnya saja , sebenarnya manfaatnya banyak sekali .

Baca juga: Fugsi vb6?

For next 

Perulangan pada vb6 , kita mengunakan for next , while , do. Kita akan coba bahas satu satu . Yang pertama saya akan bahas adalah for next .

Pertama atur tampilan seperti berikut . Kita siapkan 2 label , 2 text box , 1 command bottom , 1 list box .

Untuk penulisan for next

FOR variable=nilai_awal TO nilai_awal

      statment

next variable

Sekarang kawan kawan tau penulisannya . Kita lanjut ke bagian koding dan ketik kode berikut .

Private Sub Command1_Click()
kata = Text1
n = Val(Text2)
For x = 1 To n
    List1.AddItem x & "." & kata
Next x
End Sub

kita simpan nilai dari text1 dan text2 kedalam variable , agar lebih rapih dan enak di lihatnya . Jika sudah kita buat for nextnya dengan x=1 sampai ke n yaitu yang nanti di inputkan oleh user , lalu melakukan perintah List1.AddItem x & "." & kata , yang fungsinnya untuk menambahkan item ke listbox dengan nilai x & "." & kata .

Sebagai tambahan kalo yang itu pertambahan satu kalo kita gak gunakan step kalo jika pakai step bebas bisa  + 2 , -3  . Sekarang kita coba codingnya ubah

Private Sub Command1_Click()
kata = Text1
n = Val(Text2)
For x = 1 To n Step +2
    List1.AddItem x & "." & kata
Next x
End Sub

Itu artinya x=x+2 , yang artinya jika x =1 maka x=1+2

While 

Oke sekarang kita akan coba menggunakan while . Bro apa sih bedanya dengan for ? nanti kalian akan tau selah kalian selesai ini .

while kondisi
    Perintah
wend

Untuk stepnya  adalah kita lakukan di bagian statment atau perintah . Maksudnya apa ? kita langsung ke contoh .

Atur tampilan seperti berikut

Sekarang kita ke bagian kodingnya

Private Sub Command1_Click()
n = Val(Text1)
x = 1
While x < n
    List1.AddItem x
    x = x * 2
    
Wend
End Sub

Artinya disana jika x lebih kecil dari n maka akan melakukan perintah
List1.AddItem x
    x = x * 2

x=x*2 fungsinya sebagai step  seperti yang tadi saya bilang stepnya itu dilakukan di statment atau perintah  .  Mengapa kita perlu step ? agar dapat merubah x , jika tidak x tidak pernah berubah maka perulangan tidak akan terjadi . Coba saja hapus x=x*2 lalu jalankan , maka akan not respon .

Baca Juga : Apa itu Atribut dan Entitas?

Do 

Oke sekarang kita lanjut ke perulangan do . Penulisannya 

Do
    perintah
Loop Until kondisi

Lansung saja lanjut ke contohnya
tampilannya seperti yang tadi saja  ,tetapi kodingannya kita ubah

Private Sub Command1_Click()
n = Val(Text1)
x = 1
Do
    List1.AddItem x
    x = x * 2
Loop Until x < n
End Sub 

Perbedaanya apa sih ?

for itu stepnya tidak bisa perkalian
while melakukan kondisi dulu
do melakukan perintah dulu lalu kondisi

Oke mungkin itu dia bahas bahas mengenai perulangan pada vb6 . Semoga bermanfaat dan juga menambah wawasan . Terimakasih telah berkenan membaca artikel ini . Sampai jumpa di artikel yang lainnya yang lebih menarik dan juga lebih bermanfaat .

Mau liat atau download source code aplikasi premium bisa disini.

Tweet