Ikuti sesuai dengan tabel berikut:
No
|
Object
|
Property
|
Nilai
|
1
|
Form
|
Name
Text
|
Frmperulanganke2
Perulangan ke-2
|
2
|
ListBox
|
Text
Name
|
(dikosongkan)
ListBox1
|
3
|
Button
|
Text
Name
|
For Next
Button1
|
4
|
Button
|
Text
Name
|
Do While
Button2
|
5
|
Button
|
Text
Name
|
Do Until
Button3
|
a.
Buatlah Form baru dengan nama Perulangan ke-2.
b. Buatlah sebuah Program Perulangan ke-2 yang bisa
melakukan operasi perulangan dengan mengklik button yang dilakukan oleh user.
c.
Hasil Program Perulangan ke-2 ini kurang lebih
sebagai berikut:
a.
Properties Name adalah:
ListBox1, Button1, Button2, Button3.
b.
Kode Program
Public Class Form1
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
For i = 1 To 10
ListBox1.Items.Add("For Next :
"
& i)
Next
End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Clear()
Dim i As Integer = 0
Do While i <= 10
ListBox1.Items.Add("Do while :
"
& i)
i = i + 1
Loop
End Sub
Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
ListBox1.Items.Clear()
Dim i As Integer = 0
Do Until i > 10
ListBox1.Items.Add("Do until :
"
& i)
i = i + 1
Loop
End Sub
End Class
c.
Jalankan program dengan menekan tombol F5 atau
klik ikon Start pada toolbar.
d.
Hasil tampilan dari program.
For Next:
Do While:
Do Until:
Semoga berhasil dan bermanfaat ya:)
Tidak ada komentar:
Posting Komentar