VB.Net Intro Buble

Baik kali ini saya akan membagikan tutorial membuat Buble . . .. . .

script dan contoh lay out nya bisa anda lihat dibawah ini . ..

Tutorial kali ini akan membuat semacam inputan angka yang kemudian akan di tuliskan

melalui list box . .. . .

Scripnya dibawah ini :

//listing Program

Public Class Form1
    Dim A() As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Count As Integer
        Count = InputBox("enter the number of values:")
        ReDim A(0 To Count - 1)
        Dim I As Integer
        For I = 0 To Count - 1
            A(I) = InputBox("Enter the value " & I.ToString)
        Next
        ViewArray(A, ListBox1)
    End Sub

    Public Sub ViewArray(ByVal Ar() As Integer, ByVal L As ListBox)
        L.Items.Clear()
        Dim I As Integer
        For I = 0 To Ar.Length - 1
            L.Items.Add(Ar(I))
        Next
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ' sort
        Dim I As Integer
        Dim J As Integer
        Dim Flag As Boolean
        Do
            Flag = False
            For I = 0 To A.Length - 2
                If A(I) > A(I + 1) Then
                    Flag = True
                    J = A(I)
                    A(I) = A(I + 1)
                    A(I + 1) = J
                End If
            Next
        Loop Until Flag = False
        ViewArray(A, ListBox1)
    End Sub
End Class

http://notsend.blogspot.com