Selasa, 13 November 2012

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


0 komentar:

Posting Komentar

 

DIRA OLSHOP Template by Ipietoon Cute Blog Design and Waterpark Gambang