Senin, 02 April 2012

Membuat Program Looping dengan VB.NET 2005

Pada project ini saya menggunkan 2 statment perulangan yaitu For Next dan juga Do While.
Dimana codingnya sebagai berikut :

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        Dim j As Integer
        ListBox1.Items.Clear()
        i = 1
        j = i + 1
        For j = 1 To 5
            ListBox1.Items.Add(j)
        Next j
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Angka As Integer
        ListBox1.Items.Clear()
        Angka = 1
        ListBox1.Items.Add(Int(Angka))
        Do While Angka <= 4
            Angka = Angka + 1
            ListBox1.Items.Add(1 & Int(Angka))
            Angka = Angka + 1
            ListBox1.Items.Add(1 & 2 & Int(Angka))
            Angka = Angka + 1
            ListBox1.Items.Add(1 & 2 & 3 & Int(Angka))
            Angka = Angka + 1
            ListBox1.Items.Add(1 & 2 & 3 & 4 & Int(Angka))
        Loop
    End Sub
End Class

Outputnya :

Untuk Looping menggunakan For Next

 Untuk Looping dengan menggunakan Do While


Semoga bermanfaat
~Selamat Mencoba~

Tidak ada komentar:

Posting Komentar