Fungsi Pengulangan Di Visual Basic 6

Asalamualaikum warahmatuwlahi wabarakatuh

Hari ini kita akan belajar sintak fungsi pengulangan di visual basic 6. Pengulangan adalah melakukan suatu aktifitas yang hampir sama dan dibatasi oleh parameter. Contoh pengulangan dalam kediupan sehari harinya misalkan



Buat apa sih kita harus belajar pengulangan ?

Dengan pengulangan kita dapat mengurangi kode yang kita tulis dalam suatu program. Kan cape kalo harus ngetik koding dibawah cuma buat bikin bulan di kombobox ? Oleh karena itu kita harus belajar pengulangan untuk memperkecil sintak kita dan otomatis memperkecil ukuran program kita juga.

ComboTanggal.AddItem (1)
ComboTanggal.AddItem (2)
ComboTanggal.AddItem (3)
ComboTanggal.AddItem (4)
ComboTanggal.AddItem (5)
ComboTanggal.AddItem (6)
ComboTanggal.AddItem (7)
ComboTanggal.AddItem (8)
ComboTanggal.AddItem (9)
ComboTanggal.AddItem (10)
ComboTanggal.AddItem (11)
ComboTanggal.AddItem (12)

Ada banyak cara untuk melakukan pengulangan kita ambil beberapa aja ya karena segala hal yang kebanyakan itu gak baik.

Mengunakan fungsi Do While

Dim i As Integer
i  = 1
Do While (i <= 12) 
ComboTanggal.AddItem (i)
i = i + 1
Loop

Menggunakan fungsi Do Until

Dim i As Integer
i = 1
Do Until (i > 12)
ComboTanggal.AddItem (i)
i = i + 1
Loop

Menggunakan fungsi While

Dim i As Integer
i = 1
While (i <= 12)
ComboTanggal.AddItem (i)
i = i + 1
Wend

Menggunakan fungsi For

Dim i As Integer
i = 1
For i = 1 To 12
ComboTanggal.AddItem (i)
Next 

Menggunakan label

Dim i As Integer
i = 1
E:
If (i < 50) Then
i = i + 1
GoTo E:
End If

Apa itu fungsi Do While ?
Do While adalah sebuah fungsi yang berfungsi untuk memerintahkan program untuk melakukan sesuatu selama kondisi yang di tulis itu benar. Jika kita terjemahkan ke dalam bahasa indonesia maka akan menjadi "lakukan selama" yang maksudnya selama kondisi yang ada didalam kurung tersebut benar maka akan terus dijalankan , dan jika tidak maka fungsi tersebut maka akan berhenti.

Struktur fungsi Do While

Do While(kondisi)

aksi & parameter

Loop

Contoh 1 : Mencetak tahun 2014 sampai ke tahun 1945 ke ComboTanggal

Dim Tahun As Integer
Tahun = 2014
Do While (Tahun >= 1945)
ComboTanggal.AddItem Tahun
Tahun = Tahun - 1
Loop

Contoh 2 : Mencetak Bilangan ganjil 1 sampai 100 ke listbox

Dim AngkaKita As Integer
AngkaKita = 1
Do While (AngkaKita <= 100)
List1.AddItem AngkaKita
AngkaKita = AngkaKita +2
Loop

Apa itu fungsi Do Until ?
Do Until adalah sebuah fungsi yang berfungsi untuk memerintahkan program untuk melakukan sesuatu sampai kondisi yang di tulis itu benar.


Struktur fungsi Do Until
Do Until( kondisi  )
aksi  & parameter
Loop

Contoh 1 : Mencetak bilangan 1 sampai 100 ke combobox

Dim i As Integer
i = 1
Do Until (i > 100)
ComboAngka.AddItem (i)
i = i + 1
Loop

Contoh 2 : Mencetak bilangan genap dari angka 100 sampai angka 1 ke combobox

Dim i As Integer
i = 1
Do Until (i > 100)
ComboGenap.AddItem (100 + 1 - i)
i = i + 2
Loo

Apa itu fungsi While ?
While adalah sebuah fungsi yang berfungsi untuk memerintahkan program untuk melakukan sesuatu selama kondisi yang di tulis itu benar.

Struktur fungsi While

While (kondisi)
aksi & parameter
Wend

Contoh 1 : Mencetak bilangan 1 satu sampai angka 100 

Dim i As Integer
i = 1
While (i <= 100)
ComboGenap.AddItem (i)
i = i + 1
Wend

Contoh 2 : Mencetak souce code dari file

Open "C:\mynote.txt" For Input As #1
While EOF(0)
Line Input #1, DataText
TextSource.Text = TextSource.Text & DataText & vbNewLine 
Wend
Close

Apa itu fungsi For ?
For adalah fungsi yang berfungsi untuk memerintahkan program melaksanakan program program dari variabel awal hingga variabel akhir.

Struktur For

For variabel = angkaawal to angkaakhir step angkastep
Next

Keterangan : Step


Contoh 1 :  Mencetak bilangan genap dari 1 sampai 10

For i = 1 to 10  Step2
Text1.Text = Text1.Text & i & VbNewLine
Next 

Hasil

1
3
5
7
9

Apa itu label ?
Label adalah fungsi di visual basic yang berfungsi untuk memberi tanda perintah dalam suatu program.

Pos Test

1. Buatlah suatu pengulangan dari 1 sampai 100

2. Buatlah suatu pengulangan dari 100 sampai 1 dengan mencetak bilangan ganjil

3. Buatlah suatu pengulangan dengan hasil

1
23
456

4. Buahlah pengulangan dengan hasil seperti berikut

Z
ZZ
ZZZ
ZZZZ