tugas visual besic perulangan do while

Tugas visual besic

Nama : anggie meylanda dea

Npm:43a87067100004

D3/ka/3/m

1.Macam - Macam Bentuk Perulangan

Dalam visual basic terdapat beberapa macam struktur kondisi perulangan, diantaranya adalah Do … Loop dan For … Next. Untuk lebih jelasnya berikut adalah macam – macam bentuk perulangan dalam visual basic :



a.Do While … Loop

Kata while dalam pernyataan Do While merintahkan program untuk melakukan perulangan apabila kondisi persyaratan masih bernilai True. Apabila kondisi persyaratan bernilai False maka program akan keluar dari perulangan dan berpindah ke kode program berikutnya.
Bentuk sintaks perulangan Do While adalah

Do While Kondisi
Pernyataan
…..
Loop
Sintaks di atas adalah bentuk Do While dimana kondisi akhir perulangan terletak di awal sedangkan bentuk Do While yang letak kondisi akhirnya di akhir adalah sebagai berikut :
Do
Pernyataan
…

Loop While Kondisi

b.Do Until … Loop
Pada dasarnya perulangan Do Until sama dengan perulangan Do While yang membedakannya adalah pada perulangan Do While perulangan akan terus berjalan selama kondisi bernilai True dan akan berhenti jika kondisi bernilai False sedangkan pada perulangan Do Until perulangan akan terus berjalan apabila kondisi bernilai salah dan akan brhenti jika kondisi bernilai True. 
Sintaks dari perulangan Do Until adalah :
Do Until Kondisi
Pernyataan
…..
Loop
Seperti halnya perulangan Do While, perulangan Do Until juga memiliki dua bentuk sintaks yaitu bentuk seperti di atas dan bentuk lainnya dimana kondisi diletakkan di akhir pernyataan perulangan yaitu sebagai berikut :
Do 
Pernyataan
……
Loop Until Kondisi

c.While … Wend
Perulangan While … Wend digunakan apabila kita ingin pernyataan pada program dijalankan selama kondisi ekspresi yang di tetapkan masih bernilai True. Sintaks perulangan While Wend adalah :
While Ekspresi
Pernyataan
…..
Wend

d.For … Next
Perulangan For … Next digunakan untuk melakukan perulangan dengan jumlah tertentu yang kita kehendaki. Kita harus mendeklarasikan sebuah variabel yang akan digunakan sebagai indeks untuk perulangan. Sintaks perulangan For … Next adalah :
For Indeks = NilaiAwal To NilaiAkhir
Pernyataan
…..
Next Indeks
Secara default pada perulangan For … Next pertambahan indeks perulangan adalah 1, untuk menentukan pertambahan sesuai yang kita inginkan kita dapat menambahkan Step dari perulangan menjadi 2 atau – 1 untuk melakukan perhitungan mundur pada perulangan. Sintaksnya menjadi sebagai berikut :
For Indeks = NilaiAwal To NilaiAkhir Step -1
Pernyataan
….. 
Next Indeks

Contoh perulangan dengana menggunakan while do

Codingnya sebagai berikut!

Dim i, n As Integer

Private Sub Command1_Click()

n = Val(Text1)

i = 1

Do While i <= n

If i Mod 2 = 0 Then

List1.AddItem 1

Else

List1.AddItem -1

End If

i = i + 1

Loop

End Sub

Private Sub Command2_Click()

a = 2

n = Val(Text2)

i = 2

Do While i <= 7

If i Mod 2 = 0 Then

List2.AddItem a

Else

List2.AddItem -a

End If

a = a + 2

i = i + 1

Loop

End Sub

Private Sub Command3_Click()

a = 1

n = Val(Text3)

i = 1

Do While i <= n

List3.AddItem a

If a = 1 Then

a = 3

Else

a = a + 3

End If

i = i + 1

Loop

End Sub

Private Sub Command4_Click()

a = 2

n = Val(Text4)

i = 1

Do While i <= n

List4.AddItem a

a = a * a

i = i + 1

Loop

End Sub

Private Sub Text1_Click()

Text1.Text = 6

End Sub

Private Sub Text2_Click()

Text2.Text = 6

End Sub

Private Sub Text3_Click()

Text3.Text = 5

End Sub

Private Sub Text4_Click()

Text4.Text = 4

End Sub

Contoh tampilan form awal

contoh form setelah run...