Membuat Program Konversi Bilangan Desimal Ke Biner, Hexadesimal, dan Octal Dengan VB Net

Program konversi bilangan pada VB Net - Pada artikel tigaribu.net kali ini saya berbagi tutorial untuk membuat sebuah program di VB Net yang dapat berfungsi untuk melakukan proses konversi bilangan desimal ke bilangan biner, bilangan hexadesimal, dan bilangan octal.

Berikut tahap – tahap yang perlu anda lakukan untuk membuat program konversi bilangan desimal ke bilangan biner, hexadesimal, dan bilangan octal dengan VB Net :

1. Pastikan VB Net telah terinstal di komputer atau laptop anda

2. Buka VB Net

3. Tambahkan sebuah project baru

4. Beri nama project (Konversi Bilangan atau nama lain)

5. Desain tampilan program konversi bilangan desimal ke bilangan biner, bilangan hexadesimal, dan bilangan octal seperti gambar berikut :

Program Konversi Bilangan Pada VB Net

Keterangan :

• Dua buah label (label desimal dan label hasil konversi)
• Dua buah textbox (textbox desimal dengan name Bilangan_Desimal dan textbox hasil konversi dengan name Hasil_Konversi)
• Lima buah button (button hexadesimal, button octal, button biner, button hapus, dan button keluar)

6. Tambahkan koding berikut ini tepat pada button Hexadesimal

Hasil_Konversi .Text = Hex (Val (Bilangan_Desimal .Text))

7. Tambahkan koding berikut ini tepat pada buttonl Octal

Hasil_Konversi .Text =  Oct (Val (Bilangan_Desimal .Text))

8. Tambahkan koding berikut ini tepat pada button Binar

Dim Variabel_Hexadesimal As String = Hex(Val(Bilangan_Desimal.Text))

        Dim Variabel_Biner As String

        Dim Variabel_Biner2 As String

        Dim Variabel_Kata As String

        Dim i As Integer

        Variabel_Biner2 = ""

        For i = 1 To Len(Variabel_Hexadesimal)

            Variabel_Biner = ""

            Variabel_Kata = Mid(Variabel_Hexadesimal, i, 1)

            Select Case UCase(Variabel_Kata)

                Case "0"

                    Variabel_Biner = "0000"

                Case "1"

                    Variabel_Biner = "0001"

                Case "2"

                    Variabel_Biner = "0010"

                Case "3"

                    Variabel_Biner = "0011"

                Case "4"

                    Variabel_Biner = "0100"

                Case "5"

                    Variabel_Biner = "0101"

                Case "6"

                    Variabel_Biner = "0110"

                Case "7"

                    Variabel_Biner = "0111"

                Case "8"

                    Variabel_Biner = "1000"

                Case "9"

                    Variabel_Biner = "1001"

                Case "A"

                    Variabel_Biner = "1010"

                Case "B"

                    Variabel_Biner = "1011"

                Case "C"

                    Variabel_Biner = "1100"

                Case "D"

                    Variabel_Biner = "1101"

                Case "E"

                    Variabel_Biner = "1110"

                Case "F"

                    Variabel_Biner = "1111"

                Case "h", "H"

                    Variabel_Biner = ""

                Case Else

                    Variabel_Biner = ""

            End Select

            Variabel_Biner2 = Variabel_Biner2 + Variabel_Biner

        Next i

Hasil_Konversi.Text = Variabel_Biner2

9. Tambahkan koding berikut ini tepat pada button Hapus

Hasil_Konversi.Text = ""

Bilangan_Desimal.Text = ""

10. Tambahkan koding berikut ini tepat pada button Keluar

Me.Close()

 

Pada saat Membuat Program Konversi Bilangan Desimal Ke Biner, Hexadesimal, dan Octal Dengan VB Net hal perlu diperhatian juga adalah penulisan name pada item textbox maupun button, karena name dapat bersifat sensitif karena apabila salah akan terjadi eror. Demikian artikel tentang Program Konversi Bilangan Pada VB Net kali, semoga dapat membantu anda.

Bagikan Artikel ini

Berlangganan update artikel terbaru via email: