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.

Read More

Sekilas tentang Visual Basic

Seperti juga PHP, Visual Basic adalah sebuah bahasa pemrograman yang mudah dipelajari dan tutorial ini akan mengantarkan anda untuk memasuki dunia VB dengan enjoy.

Dengan Visual Basic, kamu bisa mengembangkan aplikasi dan game-game berbasis Windows. Visual Basic jauh lebih mudah dipelajari dibandingkan bahasa pemrograman lainnya (seperti Visual C++) namun tetap merupakan bahasa pemrograman yang sangat powerful.

Visual Basic lebih cocok untuk pengembangan aplikasi dibandingkan pengembangan game. Kamu bisa saja membuat game yang menakjubkan menggunakan Visual Basic, tetapi jika kamu ingin membuat game profesional yang lebih canggih seperti Quake 2, maka kamu mungkin lebih baik memilih untuk menggunakan bahasa lain (seperti C++), yang tentunya akan jauh lebih sulit untuk digunakan.

Namun demikian, Visual basic sebenarnya sudah sangat memadai untuk memenuhi hampir semua kebutuhan pemrograman aplikasi dangame yang kamu inginkan.

Keuntungan Visual Basic:
- Bahasa yang sederhana. Banyak hal yang mungkin sulit dilakukan jika kita menggunakan bahasa pemrograman lainnya, akan dapat dilakukan dengan mudah dengan menggunakan Visual Basic.

- Karena Visual Basic sangat populer, maka sangat banyak sumber-sumber yang dapat kamu gunakan untuk belajar dan mengembangkan kemampuan kamu baik berupa buku, web site dll. Dengan banyaknya sumber-sumber tersebut, maka tentu saja kamu akan sangat mudah menemukan jawaban atas persoalan yang kamu hadapi kan?

- Kamu bisa memperoleh banyak tools baik gratis maupun tidak di Internet yang akan sangat membantu menghemat waktu kamu dalam pemrograman. Contoh, jika kamu ingin membuat program untuk melakukan ping ke salah satu komputer di jaringan kamu, alih-alih membuat program ping tersebut sendiri, kamu bisa download sebuah kontrol yang melakukan hal tersebut dan menempelkannya di program kamu. Jika dibandingkan dengan bahasa lain, Visual basic memiliki variasi tools yang paling luas.

Kekurangan Visual Basic:
- Visual Basic adalah bahasa pemrograman yang powerful, tetapi sebenarnya tidak terlalu bagus untuk membuat game-game yang benar-benar memuaskan.

- Lebih lambat dibandingkan bahasa pemrograman lain.

Untuk dapat mempelajarinya lebih lanjut, silahkan download e-booknya disini

Jangan lupa kasih komentarnya..

Read More