membuat program konversi bilangan ke hexa, octal dan biner dengan VB . Net

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

Bilangan desimal adalah bilangan yang menggunakan basis 10 angka mulai 0,1,2,3,4,5,6,7,8,dan 9. Setelah angka 9, maka angka berikutnya adalah 10, 11, 12, 13, 14 dan seterusnya. Bilangan desimal disebut juga bilangan berbasis 10. Contoh penulisan bilangan desimal : 14(10). Ingat, desimal berbasis 10, maka angka 10-lah yang menjadi subscript pada penulisan bilangan desimal.
Bilangan biner adalah bilangan yang hanya menggunakan basis 2 angka, yaitu 0 dan 1. Bilangan biner juga disebut bilangan berbasis 2. Contoh penulisan : 1001(2). Biner berbasis 2, maka angka 2-lah yang menjadi subscript pada penulisan bilangan desimal.
Bilangan oktal adalah bilangan berbasis 8, yang menggunakan angka 0,1,2,3,4,5,6,dan 7. Contoh penulisan : 27(8). Oktal berbasis 8, maka angka 8-lah yang menjadi subscript pada penulisan bilangan desimal.
Bilangan heksadesimal, atau bilangan heksa, atau bilangan basis 16 adalah bilangan yang menggunakan 16  buah simbol, mulai dari angka 0,1,2,3,4,5,6,7,8, dan 9, kemudian dilanjut huruf  A,B,C,D,E, dan F. Jadi, huruf A sampai F merupakan simbol untuk mengganti angka 10 sampai 15. Contoh penulisan : E316. Hexadesimal berbasis 16, maka angka 16-lah yang menjadi subscript pada penulisan bilangan desimal.
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 membuat program konversi bilangan ke hexa, octal dan biner dengan VB . Net, semoga bisa dipelajari.


Tag : Program VB Net Konversi Bilangan, program vb net, konversi bilangan


Bila berita ini bermanfaat silahkan share membuat program konversi bilangan ke hexa, octal dan biner dengan VB . Net ini dengan teman anda, Terima kasih sebelumnya

0 Response to "membuat program konversi bilangan ke hexa, octal dan biner dengan VB . Net"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel