Membuat Program Konversi Bilangan Dengan VB Net

Program konversi bilangan ini awalnya saya buat karena berkenaan dengan mata kuliah numerik. Ya, dengan adanya conversion tool ini akan memudahkan kita untuk melakukan konversi kedalam bilangan desimal, octal, hexa, dan binner.

Sebelum masuk lebih dalam mengenai konversi bilangan, setidaknya kita sudah mengetahui apa itu bilangan desimal, octal, hexa, binner, dan terdiri dari angka berapa sajakah bilangan-bilangan tsb?

Bilangan desimal adalah bilangan yang mempunyai sepuluh simbol angka yaitu 0,1,2,3,4,5,6,7,8,9.

Bilangan octal adalah bilangan yang mempunyai delapan simbol angka yaitu 0,1,2,3,4,5,6,7.

Bilangan hexa adalah bilangan yang mempunyai enam belas simbol angka yaitu 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F.

Dan Bilangan Biner adalah bilangan yang mempunyai dua simbol 0 dan 1.

Sekarang kita masuk ke inti dari judul postingan ini. Untuk membuat program konversi bilangan ini seperti biasa kamu buat dulu project baru di VB.net kemudian tambahkan beberapa atribut kedalam form di antaranya:

• 3 buah Label
• 2 buah TextBox
• 1 buah ComboBox
• 2 buah Button

Setelah itu, design tata letaknya di form sesuai selera kamu, dan untuk program yang saya buat contohnya seperti gambar berikut!

Untuk TextBox nya beri nama "BilInput" dan "BilOutput".

Untuk ComboBox beri nama "Rubah".

Untuk kedua Button beri nama "BtnHapus" dan "BtnKeluar".

Dan berikut Coding programnya!

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Rubah.Items.Add("Hexa")
        Rubah.Items.Add("Binner")
        Rubah.Items.Add("Octal")
    End Sub

    Private Sub Rubah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rubah.SelectedIndexChanged
        If Rubah.Text = "Hexa" Then
            BilOutput.Text = Hex(Val(BilInput.Text))
        ElseIf Rubah.Text = "Binner" Then
            Dim xHexa As String = Hex(Val(BilInput.Text))
            Dim xBin As String
            Dim xbin2 As String
            Dim xKata As String
            Dim i As Integer
            xbin2 = ""
            For i = 1 To Len(xHexa)
                xBin = ""
                xKata = Mid(xHexa, i, 1)
                Select Case UCase(xKata)
                    Case "0"
                        xBin = "0000"
                    Case "1"
                        xBin = "0001"
                    Case "2"
                        xBin = "0010"
                    Case "3"
                        xBin = "0011"
                    Case "4"
                        xBin = "0100"
                    Case "5"
                        xBin = "0101"
                    Case "6"
                        xBin = "0110"
                    Case "7"
                        xBin = "0111"
                    Case "8"
                        xBin = "1000"
                    Case "9"
                        xBin = "1001"
                    Case "A"
                        xBin = "1010"
                    Case "B"
                        xBin = "1011"
                    Case "C"
                        xBin = "1100"
                    Case "D"
                        xBin = "1101"
                    Case "E"
                        xBin = "1110"
                    Case "F"
                        xBin = "1111"
                    Case "h", "H"
                        xBin = ""
                    Case Else
                        xBin = ""
                End Select
                xbin2 = xbin2 + xBin
            Next i

            BilOutput.Text = xbin2
        ElseIf Rubah.Text = "Octal" Then
            BilOutput.Text = Oct(Val(BilInput.Text))
        End If
    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        BilInput.Text = ""
        Rubah.Text = "Pilih Bilangan"
        BilOutput.Text = ""
    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        Me.Close()
    End Sub
End Class

Dan jika kamu memerlukannya dalam bentuk program jadi atau software, kamu bisa mendownload software konversi bilangannya dibawah ini.

Download Conversion Tool

• Tweet
• Share
• Share
• Share
• Share

Seru2 Banget

Terimakasih telah membaca artikel Membuat Program Konversi Bilangan Dengan VB Net. Jika artikel ini bermanfaat untuk kamu dan teman-temanmu, silahkan bagikan ke sosial media. Baca juga tutorial menarik lainnya.

Related Post