LOOPING
Latihan 3
Looping adalah pengurutan variable
bisa urutan dari bawah ke atas atau kebalikannya contoh urutan nomor 1 sampai
setrusnya A sampai Z dan lain-lain. Di dalam looping akan kita temukan yang
namanya “Do until”,”Do while”,”For”.Pada Visual basic kita mencoba menerapkan
looping didalamnya. Silahkan melihat langkah-langkahnya dibawah ini.
Langkah-langkah:
1. Buatlah
tampilan seperti gambar dibawah ini text disesuaikan dengan contoh
gambar,jangan lupa name pada properti masing-masing tools
2. Klik
2x pada button do until ketik programnya seperti dibawah ini
Dim z As Byte
ListBox1.Items.Clear()
z = 1
Do Until z = 11
ListBox1.Items.Add(z)
z = z + 1
Loop
3.
Klik
2x pada button do while kembali kita ketik program dibawah ini
Dim x As Byte
ListBox2.Items.Clear()
x = 1
Do While x <= 10
ListBox2.Items.Add(x)
x = x + 1
Loop
4. Klik
2x button for next ketik program dibawah ini
Dim y As Integer
ListBox3.Items.Clear()
For y = 20 To 1 Step -5
ListBox3.Items.Add(y & "b")
Next
5. Klik
2x button while F while ketik program dibawah ini
dim b As Byte
ListBox4.Items.Clear()
b = 1
While b <= 10
ListBox4.Items.Add(b)
b = b + 1
End While
66. Dan yang terakhir klik 2x for next ke 2 ketik
program dibawah ini
Dim a As Integer
ListBox5.Items.Clear()
For a = 1 To 10
ListBox5.Items.Add("STMIK")
Next
Jalankanlah
VB anda liat hasilnya,inilah contoh pengunaan looping pada proram VB dan dapat
kita simpulkan pula perbedaan for dengan while yaitu pada for perintah akan
dikerjakan apa bila statemen salah dan kebalikannya pa while perintah akan
dikerjakan bila statemen benar
Demikian
pembahasan kita mengenai looping mudah-mudahan dapat bermanfaat buat diri saya
pribadi dan anda sekalian
