Cara Membuat Konversi Bilangan Hexa, Binner, Oktal, Ke Desimal dengan VB Net

konversi bilangan dengan visual basic konversi bilangan menggunakan visual basic konversi bilangan visual basic konversi bilangan dengan visual basic konversi bilangan menggunakan visual basic konversi bilangan visual basic konversi bilangan menggunakan visual basic

Cara Membuat Konversi Bilangan dengan VB Net - Kali ini saya akan membahas tentang Cara Membuat Konversi Bilangan Hexa, Binner, Oktal, Ke Desimal dengan VB Net. Program ini berfungsi untuk mengkonversi suatu bilangan menjadi bilangan saja. bilangan Hexa adalah bilangan yang terdiri dari bilangan 1-9, A, B, C, D. sedangkan bilangan oktal 0,1,2,3,4,5,6,7. sedangkan bilangan biner hanya bilangan yang terdiri dari 0 dan 1. nah tentu kita mengalami kesulita ketika kita mengkonversi bilangan tadi ke bilangan biasa. dengan tujuan membuat program ini seseorang dapat menghitung atau dapat mudah mengkonversi bilangan tadi ke bilangan biasa. nah utnuk membuat program itu langkah yang harus anda lakukan adalah.

1. Buka VB.net anda

2. Setelah buka silahkan buat project baru.

3. Jika sudah silahkan desai form baru tersebut kurang lebih seperti ini :

Keterangan :

• 2 Buah Text Box yang diberi nama (Masukkannilai, NilaiKeluar)
• 3 Buah Button yang masing-masing diberi nama (btnHex, btnOktal, btnBiner)

Setelah itu sisipkan scricpt dibawah ini :

Public Class Form1
    Private Sub btnHexa_Click(sender As Object, e As EventArgs) Handles btnHexa.Click
        Nilaikeluar.Text = Hex(Val(Masukannilai.Text))
    End Sub
    Private Sub btnOktal_Click(sender As Object, e As EventArgs) Handles btnOktal.Click
        Nilaikeluar.Text = Oct(Val(Masukannilai.Text))
    End Sub
    Private Sub btnBiner_Click(sender As Object, e As EventArgs) Handles btnBiner.Click
        Dim xhexa As String = Hex(Val(Masukannilai.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
        Nilaikeluar.Text = xbin2
    End Sub
End Class

4. Jika Sudah silahkan jalankan programnya maka akan seperti ini

Demikian tips dan trik yang dapat saya bagikan semoga bermanfaat bagi anda semua.