Pengulangan Visual Basic

C
PENGULANGANOleh : Emanueli Mendrofa, S.PdMata Kuliah : Program Komputer

PengulangandalamVisualBasicseringdisebutdenganpengulanganloop.Pengulanganloopdapatdilakukandengan:
1.For...Next
2.While...Wend
3.DoLoopUntil

Pengulangan dengan For...Next
PengulanganprosesmenggunakanFor...Nextadalahbentukpengulanganterkendalidenganvariabelkendaliyangterusberjalanmajuataumundur.Formatpenulisanpengulanganiniadalahsebagaiberikut:
For variabel= nilai_awal To nilai_akhir [Step langkah]
<Proses dalam pengulangan>
Next variabel
Variabel merupakan nama dari variabel kontrol dalam pengulangan For...Next

Contoh 1:
Untukmenentukanbarisanbilangan1,2,3,...,10makabilanganmempunyainilaiawal=1,nilaiakhir=10danstepantarbilangan=1,sehinggabisaditulisdengan:
For bilangan = 1 To 10 Step 1
<Proses untuk barisan bilangan>
Next bilangan
Karenastep=1,makasecaradefaulttidakperludituliskansehinggaperintahnyabisaditulisdengan:
For bilangan = 1 To 10
<Proses untuk barisan bilangan>
Next bilangan

Contoh Aplikasi:
Untukmenampilkanbarisanbilangan1sampaidenganN, denganNdimasukkan.HasilbarisanditampilkanpadaListBox.
(1)Buatprojectbaru.Padaform,isiproperty[Caption]denganBarisanBilangan.
(2)Tambahkankomponen-komponen:1label,1textbox,1listboxdan1commandbutton.

(3)Untuklabel1,isiproperty[Caption]dengan“N=“, [Alignment:2–Center].Untuktext1,kosongkanproperty[Text]. Untukcommand1,isiproperty[Caption]denganTampilkanBarisandanuntukList1, kosongkanpropertyList.Aturhuruf[size:12]danposisimasing- masingkomponensepertigambarberikut:

(4)Klikpadacommand1,tambahkanprogramuntukmembuatbarisanbilangandari1sampaidenganNsebagaiberikut:
PrivateSubCommand1_Click()
N=Val(Text1)
List1.Clear
Fori=1ToN
List1.AddItemi
Nexti
EndSub
FungsiValdigunakanuntukmengubahtipedatatextmenjadidatanumerik.PropertyClearpadaList1digunakanuntukmembersihkanisiList1,danpropertyAddItempadaList1digunakanuntukmenambahkanisiList1.Dengandemikiansebelumnyadibersihkan, kemudianditambahisinyadenganbarisanbilanganyangdibuat.

(5)Simpanprojectkemudianjalankan.IsilahnilaiNdenganbilanganyangberbeda-beda,perhatikanhasilnya.

Contoh 2:
Menampilkanbarisanbilangan20,19,18,...,3,2,1dapatdilakukandengan:
For bilangan = 20 To 1 Step -1
List1.AddItem bilangan
Next bilangan
Untukmenampilkanbarisanbilangan1,4,7,10,13,16,...,3N+1dapatdilakukandengan:
N=Val(Text1)
List1.Clear
For bilangan = 0 To N
List1.AddItem 3 * bilangan + 1
Next bilangan

Contoh Aplikasi:
UntukmenampilkanhurufAsampaidenganZmenggunakanpengulanganFor...Next,dapatdilakukandenganlangkah- langkahsebagaiberikut:
(1)Buatprojectbaru.
(2)Tambahkankomponen-komponen:1listboxdan
1commandbutton.

(3)Untukcommand1,isiproperty[Caption]denganTampilkanHurufdanuntukList1, kosongkanpropertyList.Aturhuruf[size:12]dantampilannyasepertigambarberikut:

(4)Klikpadacommand1,tambahkanprogramuntukmenampilkanbarisanalfabet.TeknikyangdigunakanadalahmenggunakankodeASCIIuntukmasing-masingkarakter, dimanakodeASCIIuntuk“A”adalah65,dandemikianseterusnyakodeASCIIditambahsatu-persatusampai26kali.
List1.Clear
Fori=1To26
kodeASCII=64+i
List1.AddItemChr(kodeASCII)
Nexti
EndSub
FungsiCHRadalahfungsiuntukmengambilkarakterdarikodeASCII

(5)Simpanprojectkemudianjalankanaplikasiuntukmengetahuiapakahhasilnyasudahbenaratautidak.

Contoh 3:
MenampilkanbarisanfibonaccisampaiNkali(Nbilanganbulatpositif)dimananilaisaatiniadalahjumlahdarinilaiduasukusebelumnya.Contohbarisanfibonacci:1,1,2,3,5,8,13,21,34,...
N = Val(Text1)
List1.Clear
Suku1 = 1
Suku2 = 1
List1.AddItem Suku1
List1.AddItem Suku2
For i = 3 To N
bil = Suku1 + Suku2
List1.AddItem bil
Suku1 = Suku2
Suku2 = bil
Next i

Contoh 4:
Menampilkanbarisanbilangankelipatan3yanglebihkecildari100danberhentisaatbilangantersebutkelipatan7.untukmenghentikanpengulanganFor...NextsebelummencapainilaiakhirdapatdilakukandenganperintahExitFor.
For i = 3 To 100 Step 3
If i Mod 7 = 0 Then Exit For
list1.additem i
Next i

Contoh 5:
MenampilkanbarisanNbilanganyangberganti-ganti1dan-1seperti:
1–11–11–11–1....
adalahsebagaiberikut:
N=Val(Text1)
bilangan=-1
List1.Clear
Fori=1ToN
bilangan=-1*bilangan
List1.AddItembilangan
Nexti

Ataudengancara:
N=Val(Text1)
List1.Clear
Fori=1ToN
IfiMod2=0Thenbilangan=-1Elsebilangan=1
List1.AddItembilangan
Nexti

Contoh 6:
MenampilkanbarisanNbilanganyangberganti-gantipositifdannegatifseperti:
1–23–45–67–N....
Dapatdilakukandengancara:
N=Val(Text1)
List1.Clear
Fori=1ToN
IfiMod2=0Thenbilangan=-1Elsebilangan=1
List1.AddItemi*bilangan
Nexti

Aplikasiuntukmembuatfaktorialsuatubilangan.
(1)Buatprojectbaru
(2)Tambahkankomponen-komponen:3label,1textboxdan3commandbutton.
(3)Isilahpropertisesuainilaiberikut:
Object
Property
Nilai
Form1
StartUpPosition
Caption
2 –CenterScreen
Bilangan Faktorial
Label1
Caption
Alignment
Program Penghitung Bilangan Faktorial (N!)
2 -Center
Label2
Caption
Alignment
Masukan Bilangan:
1 –Right Justify
Label3
Caption
Alignment
(kosongkan)
2 -Center
Text1
Name
Text
Faktor
(kosongkan)
Command1
Caption
Hapus
Command2
Caption
Hitung
Command3
Caption
Keluar
Contoh Aplikasi:

(3)Pilihsemuaobjekdenganmenekantombolctrl+Akemudianubahlahukuranhurufmenjadi12
(4)Setelahproperty-nyadiatur,tampilannyaakansepertigambarberikut:

(5)Klikpadacommand1,kemudiantambahkankodeprogramberikut:
Faktor.text=“”
Labe3.Caption=“”
DimdescAsString
DimvalAsDouble
DimxAsInteger
val=1
Forx=Faktor.TextTo1Step-1
val=val*x
desc=desc&x&“x”
Nextx
Label3.Caption=Faktor.Text&"!"&"="&Left$(desc,(Len(desc)-3))&"="&val

Berikutpenjelasantentangkodeprogramnya:
DimdescAsString
DimvalAsDouble
DimxAsInteger
val=1
Dilakukanpendeklarasianuntukbeberapavariabelyaitudescsebagaistring, valsebagaidouble,danxsebagaiinteger.Kemudiannilaivariabelvaldiisinilainyadengan1.

Forx=Faktor.TextTo1Step-1
val=val*x
desc=desc&x&“x“
Nextx
Blokkodeinimerupakanintidarisebuahperulangandalammelakukanpencarianbilanganfaktorial.Perulanganinidilakukansecaramundursesuaikonsepbilanganfaktorial.Totaldaribilanganfaktorialakanditampungkedalamvariabelvalsehinggasetiapperulangannilaidarivalkembalidiupdatedenganpenghitunganyangbaru.
desc=desc&x&“x“berfungsisebagaitampilanyangdiperlihatkankepadauserdiakhirprogramatauketikaprogrammemunculkanhasildariperhitungan.

Label3.Caption=Faktor.Text&"!"&"="&Left$(desc,(Len(desc)-3))&"="&val
Bagianinidilakukanuntukmenyusunsetiapangkapadaperulangantertentuuntukmembentukpolaperulangansecaramundurdanhasilnyaditampilkanpadalabel3.Left$(desc,(Len(desc)-3))digunakanuntukmenghilangkankarakter“x”disebelahujungvariabeldesc.Fungsileftadalahuntukmemotongsebuahstringdihitungdarikiri.Lendigunakanuntukmenghitungjumlahkarakter,dan–3yaitujumlahkarakter“x”(2spasidan1karakterx).

End
(8)Jalankanprogramkemudianketikbeberapabilangandanlihatlahapakahhasilsudahbenar.

Pengulangan dengan While...Wend
PengulangandenganWhile...Wendadalahbentukpengulanganterkendalidenganprosesakandiulangselamakondisiyangdiberikanmasihdipenuhi.Formatpenulisanpengulanganiniadalah:
While <Kondisi>
<Proses selama kondisi dipenuhi>
Wend

Variabelkontrolpadajenisloopingtidakotomatisbertambah/berkurangsepertipadaloopingdenganFor...Next, sehinggapenambahanataupengurangannilaidilakukandenganmenggunakanakumulatoryangdituliskandengan:
var = var + step
Meskipunhalinibukansuatukeharusan.Karenatidaksetiaploopingmembutuhkanakumulator,variabelyangterus-menerusbertambahatauberkurang.

Contoh 1:
Menampilkanbilanganbulatganjildarisatusampaidengan11,inimerupakanloopingdenganakumulatoryangdapatdituliskansebagaiberikut:
bilangan = 1
While bilangan <= 11
bilangan = bilangan + 2
Wend

Pengulangan dengan Do Loop Until
PengulangandenganDoLoopUntiladalahbentukpengulanganterkendalidenganprosesakandiulangsampaikondisiyangdiberikandipenuhi.Formatpenulisanpengulanganiniadalah:
Do
<Proses selama kondisi belum dipenuhi>
Loop Until <Kondisi>

Contoh 1:
Menampilkanbilanganbulatganjildarisatusampaidengan11,inimerupakanloopingdenganakumulatoryangdapatdituliskansebagaiberikut:
bilangan = 1
Do
bilangan = bilangan + 2
Loop Until bilangan > 11

Pengulangan Bertingkat
Kebanyakanaplikasipemrogramanmenggunakanpengulanganyanglebihdarisatumisalnyapadapengolahanmatrik,diperlukanpengulanganuntukbarisdanpengulanganuntukkolompadasetiapbaris.Pengulanganyangberbentuksepertiinidinamakandenganpengulanganbertingkat.

Pengulanganbertingkatsecaraumumdapatdituliskandenganbentukpenulisansebagaiberikut:
Pengulangan 1
..................................................................................
Proses di dalam pengulangan 1
Pengulangan 2
...........................................................
Proses di dalam pengulangan 2
...........................................................
Akhir pengulangan 2
..................................................................................
Akhir pengulangan 1

Contoh 1:
Menampilkannbarisdaribarisanbilangan12345sebagaiberikut:
12345
12345
12345
..............
Dapatditulisdengan
For baris = 1 To N
Kal = “”
For i= 1 To 5
Kal = kal & str(i)
Next i
List1.AddItem kal
Next baris

Contoh 2:
Menampilkan5barisdarikombinasibarisanbilangan12345sebagaiberikut:
1
12
123
1234
12345
Perhatikanbahwapadabariske1hasilnyaadalahdari1sampaidengan1, padabaris2hasilnyaadalahdari1sampai2,padabariske3hasilnyaadalahdari1sampaidengan3.Sehinggadapatdikatakanuntukbariskeihasilnyaadalahdari1sampaidengani.Dandapatdituliskansebagaiberikut:

For i = 1 To 5
Kal = “”
For j = 1 To i
Kal = kal & str(j)
Next j
List1.AddItem kal
Next i

Contoh 3:
Menampilkannbarisdaribarisanbilangan12345sebagaiberikut:
12345
54321
12345
54321
..............
Perhatikanbahwapadabarisganjilhasilnya12345danpadabarisyanggenaphasilnyaadalah54321,makaperluuntukmengetahuiapakahbarisitubarisgenap/ganjiluntukmenentukannilaiawal,nilaiakhirdanstep.Dapatditulisdengan:

For baris = 1 To N
If baris mod 2 = 0 Then
Awal = 5: Akhir = 1
Langkah = -1
Else
Awal = 1 : Akhir = 5
Langkah = 1
End If
Kal = “”
For i = awal To akhir Step Langkah
Kal = kal & str(i)
Next i
List1.AddItem kal
Next baris

Contoh Aplikasi:
MembuatprogramuntukmenghitungNbilanganprimapertama. (bilanganprimaadalahbilanganyanghabisdibagioleh1danbilanganitusendiri)
(1)BuatprojectbarudenganStandardEXE
(2)Tambahkankomponen-komponen:1label,1texbox,1listboxdan1commandbutton.

(3)Isipropertymasing-masingkomponensepertitabeldibawahini:
Object
Property
Nilai
Form1
StartUpPosition
Caption
2 –CenterScreen
Bilangan Prima
Label1
Caption
N =
Text1
Text
(kosongkan)
Command1
Caption
Bilangan Prima
List1
List
(kosongkan)

(4)Aturukuranhurufmenjadi12dansesuaikantampilannyasepertigambardisamping:

(5)Klikpadacommand1,tambahkanprogramuntukmembangkitkanNbilanganprimapertama.
N=Val(Text1)
List1.Clear
k=0
bil=2
Whilek<n
prima=True
Forpembagi=2Tobil–1
IfbilModpembagi=0Thenprima=False
NextPembagi

IfprimaThen
List1.AddItembil
k=k+1
EndIf
bil=bil+1
Wend
EndSub

(6)Simpanprojectkemudianjalankanprogram.

Contoh 4:
Menampilkanhasilpenjumlahandarideretberikut:
1+2+3+4+...+N
Dapatdilakukandengan:
S = 0
For i = 1 To N
S = S + i
Label1.Caption = S
Next i
PenulisanS=S+idinamakandenganakumulator,yaitusuatuvariabelyangterusmenerusbertambahsesuaidata.Akumulatorinibanyakdigunakandalampenulisankodeprogramdarirumus-rumusyangmenggunakanjumlah(sigma) sebagaiberikut:
푥 푓(푥)

Contoh 5:
Menampilkanhasilpenjumlahandarirumusderetyangdituliskandengan:
푆= 푥=1 푛 푥−12
Dapatdilakukandengan:
S = 0
For x = 1 To N
S = S + (x –1) ^ 2
Label1.Caption = S
Next x

Pengulangan Visual Basic

More Related Content

What's hot (20)

Similar to Pengulangan Visual Basic (20)

More from Eman Mendrofa (20)

Recently uploaded (20)

Pengulangan Visual Basic