Mengurutkan Data Menggunakan VB 2008

Mengurutkan Data Menggunakan VB 2008 2008 – Kali ini saya akan memberikan mengenai cara .Banyak yang mencari informasi megenai bagaimana cara untuk Mengurutkan Data padahal materi ini sudah pernah dipelajar dalam mata kuliah Struktur Data pada masa – masa perkuliahan dahulu.Namun,bagi yang mempelajari VB 2008 secara otodidak pasti akan mencari informasi mengenai bagaimana .

Mengurutkan Data Menggunakan VB ada banyak macamnya mulai dari sequintal sort,bubble sort dan lain sebagainya karena saya sendiri lupa dengan mata kuliah tersebut.Namun kali ini saya akan memberikan cara  menggunakan teknik Bubble Sort.

Berikut ini script mengenai Mengurutkan Data Menggunakan VB 2008 yang dapat saya berikan untuk teman – teman pengunjung Blog Sederhana saya ini.

Mengurutkan Data Menggunakan VB

Berikut ini adalah script yang dapat saya berikan mengenai Mengurutkan Data Menggunakan VB 2008 ini untuk teman – teman semuanya :

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

Sekian informasi sederhana saya mengenai Mengurutkan Data Menggunakan VB ini.Semoga apa yang saya berikan untuk teman – teman semuanya dapat bermanfaat.Semoga teman – teman dapat mengerti dan membuat sebuah program setelah membaca artikel Mengurutkan Data Menggunakan VB 2008.

KASIH RATE YUK!
4 5
Oleh


2 comments on “Mengurutkan Data Menggunakan VB 2008

Leave a Reply

Your email address will not be published. Required fields are marked *