VB: Program Sederhana Untuk Mengurutkan Data

Berikut ini merupakan sebuah program sederhana yang dibuat menggunakan Visual Basic 2008. Program ini merupakan soal Pekan Ulangan (UTS) yang harus kami (siswa-siswi RPL 2008/2009) buat. Berikut langkah-langkahnya pembuatannya.

- Buka Program Microsoft Visual Basic 2008 (Bisa juga menggunakan Visual Basic versi lama maupun versi terbaru).
- Klik New Project.
- Pilih Console Apllication.
- Masukkan code-code berikut :

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

- Kemudian Klik Start Debugging.
- Nanti Anda akan disuruh mengisi Nama dan Nilai Sebanyak 5 kali.
- Berikut tampilan akhirnya setelah saya mengisi Nama dan Nilai :



Program tersebut hanya program sederhana, jadi Anda masih bisa mengembangkannya. Semoga bermanfaat.