Program VB Net Konversi Bilangan

Rabu, 20 Maret 2013 | 20:03 WIB | Dibaca : 3775 kali | Kategori : Prog VB.NET
Program VB Net Konversi Bilangan

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.


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


Bila berita ini bermanfaat silahkan share Program VB Net Konversi Bilangan ini dengan teman anda, Terima kasih sebelumnya

Berikan Komentar Anda Pada Berita Program VB Net Konversi Bilangan

Anda berada di halaman Program VB Net Konversi Bilangan, dan telah membaca artikel Program VB Net Konversi Bilangan. Artikel Program VB Net Konversi Bilangan bisa anda peroleh pada halaman http://www.mesran.web.id/berita-601-program-vb-net-konversi-bilangan.html . Anda bisa meng-COPY/PASTE artikel ini dengan meletakkan link Program VB Net Konversi Bilangan sebagai sumbernya.
Web Rekomendasi
Publikasi Ilmiah
 Copyright (c) 2011 - 2018 mesran.web.id