Cara Mengurutkan Data Menggunakan VB 2008

Cara mengurutkan data ini bisa dilakukan dengan bahasa program apapun. Kali ini, gue ajarkan gimana caranya menggunakan visual basic 2008. Materi ini sudah pernah dipelajari dalam mata kuliah struktur data pada zaman gue kuliah dulu. Bagi yang baru mempelajari VB 2008 secara otodidak pasti akan mencari informasi ini.

Mengurutkan data dengan menggunakan visual basic ada banyak macamnya, mulai dari sequintal sort, bubble sort dan lain sebagainya karena cukup banyak jenis yang bisa dilakukan. Artikel ini akan memberikan kalian sedikit contoh untuk mengurutkan data dengan menggunakan teknik bubble sort. Silahkan dilihat script yang sudah gue buatkan untuk kalian ya.

Mengurutkan Data Menggunakan Bubble Sort

Imports System.Console

Module Module1
    Dim data(5) As Integer
    Dim nama(5) As String
    Dim jwb
    Dim mulai As Boolean = True
    Sub Main()
        Dim a, b, n As Integer
        Dim x As Integer = 1
        Do While mulai = True
            WriteLine("Masukan Data ke-" & x)
            WriteLine("============================")
            Write("Input Nama                   : ")
            nama(x) = ReadLine()
            Write("Input Nilai  " & nama(x) & "            : ")
            data(x) = ReadLine()
            Clear()

            If x = 5 Then
                mulai = False
            End If
            x += 1

        Loop
        n = data.GetUpperBound(0)
        WriteLine()
        WriteLine("Bentuk data sebelum diurutkan : ")
        WriteLine("============================================")
        WriteLine("No" & Space(5) & "Nama" & Space(5) & "Nilai")
        WriteLine("============================================")
        For a = 1 To (x - 1)
            b = a - 1
            WriteLine(a & Space(6) & nama(a) & Space(5) & data(a))
        Next
        WriteLine("============================================")
        WriteLine()
        For a = 1 To n
            For b = n To a + 1 Step -1
                If data(b - 1) > data(b) Then
                    change(data(b), data(b - 1))
                    change2(nama(b), nama(b - 1))
                End If
            Next
        Next
        WriteLine()
        WriteLine("data nilai diurutkan dari kecil ke besar")
        WriteLine("============================================")
        WriteLine("No" & Space(5) & "Nama" & Space(5) & "Nilai")
        WriteLine("============================================")
        For a = 1 To (x - 1)
            b = a - 1
            WriteLine(a & Space(6) & nama(a) & Space(5) & data(a))
        Next
        WriteLine("============================================")
        For a = 1 To n
            For b = n To a + 1 Step -1
                If nama(b - 1) > nama(b) Then
                    change(data(b), data(b - 1))
                    change2(nama(b), nama(b - 1))
                End If
            Next
        Next
        WriteLine()
        WriteLine("data diurutkan berdasarkan nama")
        WriteLine("============================================")
        WriteLine("No" & Space(5) & "Nama" & Space(5) & "Nilai")
        WriteLine("============================================")
        For a = 1 To (x - 1)
            b = a - 1
            WriteLine(a & Space(6) & nama(a) & Space(5) & data(a))
        Next
        WriteLine("============================================")
        ReadLine()
    End Sub
    Sub change(ByRef x As Integer, ByRef y As Integer)
        Dim temp = x
        x = y
        y = temp
    End Sub
    Sub change2(ByRef x As String, ByRef y As String)
        Dim temp = x
        x = y

        y = temp
    End Sub
End Module

Rumit? Sekilas untuk yang baru mempelajari visual basic 2008 akan berkata demikian, semoga apa yang gue bagikan kalian bisa mengerti ya. Sekian dulu yang bisa gue bagikan untuk kalian. Apabila kalian masih bingung dengan ini, silahkan hubungi saya di halaman contact. Kalau ada yang ingin menambahkan, silahkan berkomentar ya bagaimana cara mengurutkan data dengan menggunakan VB 2008.