Sunday 28 October 2012

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.

0 komentar:

Post a Comment