pengurutan data sangatlah penting, apalagi untuk data yang sangat banyak , contohnya untuk data nomor telepon. Kita tahu dalam buku telepon yang setebal itu ada banyak nama. Dengan pengurutan data kita akan lebih mudah melakukan pencarian data.
Nah di bawah ini adalah kode program sederhana pengurutan data , temen² semuanya bisa kembangkan lagi sendiri.
Module Module1
Sub Main()
Dim x As Integer
Dim nama(3) As String
nama(0) = "Maman"
nama(1) = "Aldi"
nama(2) = "Alfa"
nama(3) = "Ujang"
Console.WriteLine("====Sebelum di Urutkan====")
For x = 0 To (nama.Length - 1)
Console.WriteLine(CStr(x) + ". " + nama(x).ToString())
Next x
Console.WriteLine()
Console.WriteLine()
Array.Sort(nama)
Console.WriteLine("====Sesudah di Urutkan====")
For x = 0 To (nama.Length - 1)
Console.WriteLine(CStr(x) + ". " + nama(x).ToString())
Next x
Console.ReadKey()
End Sub
End Module
Tidak ada komentar:
Posting Komentar