Membuat Program dengan menggunakan Visual Studio 2008

LOOPING ( PERULANGAN )

Penggunaan Looping ada 3 macam, yaitu :

 

1.    Use Do ... Until

2.    Use Do ... While

3.    Use For ... Next

Dari ketiga penggunaan tersebut yang paling sering di gunakan yaitu For ... Next,  karena penggunaannya sangat mudah.

      Contoh Program dengan menggunakan Do ... Until

Menampilkan angka pada Listbox  :

 

Bahasa Programnya :

 

Public Class Form1

    Private Sub Button1_Click( ... ) Handles Button1.Click

        ListBox1.Items.Clear()

        Dim x As Integer

        x = 1

        Do Until x = 21

            ListBox1.Items.Add(x)

            x = x + 1

        Loop

    End Sub

End Class

Menampilkan Huruf pada Listbox dan TextBox  :

  

Bahasa Programnya :

Public Class Form1

    Private Sub Button1_Click( ... ) Handles Button1.Click

        ListBox1.Items.Clear()

        TextBox1.Clear()

        Dim j As Integer

        j = 1

        Do Until j = 11

            ListBox1.Items.Add("STMIK BUDIDARMA ")

            TextBox1.Text = TextBox1.Text & ("STMIK BUDIDARMA ")

            j = j + 1

        Loop

    End Sub

End Class

      Contoh Program dengan menggunakan Do ... While

Menampilkan angka pada Listbox  :

Bahasa Programnya :

Public Class Form1

    Private Sub Button1_Click( ... ) Handles Button1.Click

        ListBox1.Items.Clear()

        Dim z As Integer

        z = 1

        Do While z <= 20

            ListBox1.Items.Add(z)

            z = z + 1

        Loop

    End Sub

End Class

      Contoh Program dengan menggunakan For ... Next  :

Menampilkan angka pada Listbox  :

Bahasa Programnya :

Public Class Form1

    Private Sub Button1_Click( ... ) Handles Button1.Click

        ListBox1.Items.Clear()

        Dim x As Integer

        For x = 1 To 20

            ListBox1.Items.Add(x)

        Next x

    End Sub

End Class

Menampilkan Huruf pada Listbox dan TextBox  :

Bahasa Programnya :

Public Class Form1

    Private Sub Button1_Click( ... ) Handles Button1.Click

        ListBox1.Items.Clear()

        TextBox1.Clear()

        Dim i As Integer

        For i = 1 To 10

            ListBox1.Items.Add("STMIK ")

            TextBox1.Text = TextBox1.Text & "STMIK "

        Next

    End Sub

End Class