Membuat Konversi Bilangan dalam VB.Net

Ternyata program vb net konversi bilangan ke hexa, octal dan biner tidak terlalu sulit. 

Design form program vb net konversi bilangan seperti pada gambar cover tersebut. Pada program terdapat 2 Textbox dengan nama BilInput dan BilOutput, serta memiliki 3 Button dengan nama btnOctal, btnBinner, btnHexa.


Berikut listing program vb net konversi bilangan
Public Class frmKonversi

    Private Sub btnHexa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHexa.Click        BilOutput.Text = Hex(Val(BilInput.Text))
    End Sub


    Private Sub btnBinner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBinner.Click        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
    End Sub

    Private Sub btnOctal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOctal.Click
        BilOutput.Text = Oct(Val(BilInput.Text))
    End Sub

End Class


Ok demikianlah program vb net konversi bilangan, semoga bisa dipelajari.