yes
no
10/Promotion/slider
no

Teknik Mengurutkan angka dengan VB.Net

Tidak ada komentar
Pada artikel ini penulis akan membahas materi tentang cara mengurutkan/menyusun angka dengan menggunakan Visual Basic.Net. Software yang digunakan penulis adalah Visual Basic 2005. Teknik mengurutkan/menyusun angka tersebut dikenal dengan teknik Bubble Sort. Teknik ini dipelajari di tempat Kursus Komputer atau di IT Training Center. Computer First adalah tempat Kursus Komputer yang membuka program kursus Visual Basic.Net. Untuk mengurutkan angka, langkah pertama adalah user menginput sembarang angka sebanyak yang diinginkan ke dalam aplikasi.  Setelah selesai menginput angka, maka program/aplikasi akan memproses angka yang sudah user input tersebut dan akan menampilkan output berupa kumpulan/deretan angka yang sudah terurut. Angka-angka tersebut bisa diurutkan dari angka terkecil ke angka terbesar atau sebaliknya. Pada kasus ini, angka akan diurutkan dari angka yang terkecil ke angka yang terbesar. Untuk membuat aplikasi tersebut, penulis menggunakan Console Application dengan kode program sebagai berikut :

Module BubbleSort
    Dim i, j, y As Integer
    Dim bil() As Integer
    Dim jumlah As Integer
    Sub Main()
        Console.Write("Masukkan banyaknya angka yang akan diinput :")
        jumlah = Console.ReadLine
        ReDim bil(jumlah)
        Console.WriteLine()
        For i = 0 To jumlah.ToString - 1
            Console.Write("Masukkan angka ke-" & CStr(i + 1) & ":")
            bil(i) = Console.ReadLine
        Next i
        For i = 0 To jumlah.ToString - 1
            For j = i + 1 To jumlah.ToString - 1
                If bil(i) > bil(j) Then
                    y = bil(i)
                    bil(i) = bil(j)
                    bil(j) = y
                End If
            Next j
        Next i
        Console.WriteLine()
        Console.WriteLine("Daftar Bilangan dari kecil ke besar:")

        For i = 0 To jumlah.ToString - 1
            Console.Write(bil(i) & " ")
        Next
        Console.ReadLine()
    End Sub
End Module

Keterangan :
Dim i, j,y AS Integer    : Deklarasi variabel i, j dan y dengan tipe data integer
Dim bil() As integer     : Deklarasi array bil() dengan tipe data integer
Dim jumlah As integer  : Deklarasi variabel jumlah dengan tipe data integer
ReDim bil(jumlah)       : Set kapasitas array bil() derdasarkan nilai variabel jumlah
y= bil(i)                        : Menginisialisasi nilai bil(i) ke dalam variabel y
bil(i)=bil(j)                   : Menginisialisasi nilai bil(j) ke dalam array bil(i)
bil(j)=y                         : Menginisalisasi nilai y ke dalam array bil(j)

Jika program/aplikasi di running, maka program akan meminta user untuk menginput banyaknya angka yang akan diurutkan. Setelah itu program meminta user untuk menginput angka-angka yang akan diurutkan dari angka pertama sampai angka terakhir sebanyak angka yang akan diurutkan. Angka yang diinput oleh user bersifat random, artinya angka diinput secara acak semau user (tidak harus berurut dari kecil ke besar atau sebaliknya). Misalnya, angka yang diinput adalah : 34, 5, 18, 29, 4 dan seterusnya. Setelah selesai menginput angka tersebut, maka program akan menampilkan output berupa angka yang sudah terurut dari angka terkecil ke angka terbesar. Silakan dicoba ya....., jangan lupa ditunggu komentarnya....


author profile image
Abdelghafour

Lorem Ipsum is simply dummy text of the printing and typesetting industry. Lorem Ipsum has been the industry's standard dummy text ever since the 1500s, when an unknown printer took a galley of type and scrambled it to make a type specimen book.

Tidak ada komentar

Posting Komentar

no
Computer First - First Choice in IT Training Center - menyediakan jasa pelatihan Kursus Komputer di Jakarta sejak dari usia dini yaitu sejak anak-anak sampai dengan dewasa. Computer First berdiri pada tahun 2001, Visi Computer First ingin menjadi First Choice in IT Training Center melalui pendidikan dan pelatihan komputer yang berkualitas terbaik [Computer First Indonesia] (http://computerfirst.co.id/images/logo/logo1.png)