CARA MEMBUAT KALKULATOR HEXA DESIMAL VB.NET 2008

Public Class Form1

    Dim BERGERAK As Integer
    Dim TEKS As String


    Private Sub B1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1.Click
        MASUKANILAI.Text = MASUKANILAI.Text & "1"

    End Sub


    Private Sub B2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2.Click
        MASUKANILAI.Text = MASUKANILAI.Text & "2"
    End Sub

    Private Sub B3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3.Click
        MASUKANILAI.Text = MASUKANILAI.Text & "3"
    End Sub

    Private Sub B4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4.Click
        MASUKANILAI.Text = MASUKANILAI.Text & "4"
    End Sub

    Private Sub B5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5.Click
        MASUKANILAI.Text = MASUKANILAI.Text & "5"
    End Sub

    Private Sub B6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6.Click
        MASUKANILAI.Text = MASUKANILAI.Text & "6"
    End Sub

    Private Sub B7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B7.Click
        MASUKANILAI.Text = MASUKANILAI.Text & "7"
    End Sub

    Private Sub B8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B8.Click
        MASUKANILAI.Text = MASUKANILAI.Text & "8"
    End Sub

    Private Sub B9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B9.Click
        MASUKANILAI.Text = MASUKANILAI.Text & "9"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MASUKANILAI.Text = MASUKANILAI.Text & "*"
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MASUKANILAI.Text = MASUKANILAI.Text & "-"

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MASUKANILAI.Text = MASUKANILAI.Text & "+"
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        MASUKANILAI.Text = MASUKANILAI.Text & "/"
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        MASUKANILAI.Text = MASUKANILAI.Text & "="

    End Sub

    Private Sub C_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C.Click
        MASUKANILAI.Text = MASUKANILAI.Text & "C"
    End Sub

    Private Sub D_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles D.Click
        MASUKANILAI.Text = MASUKANILAI.Text & "D"
    End Sub

    Private Sub E_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles E.Click
        MASUKANILAI.Text = MASUKANILAI.Text & "E"
    End Sub

    Private Sub F_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles F.Click
        MASUKANILAI.Text = MASUKANILAI.Text & "F"

    End Sub
    Private Sub BINER_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBINER.Click
        Dim XHEXA As String = Hex(Val(MASUKANILAI.Text))

        Dim xbin As String
        Dim xbin2 As String
        Dim i As Integer
        Dim xkata As String
        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 = ""




            End Select
            xbin2 = xbin2 + xbin
        Next i
        NILAIKELUAR.Text = xbin2


    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TEKS = Label1.Text

        NILAIKELUAR.Enabled = False
    End Sub

    Private Sub BTNOCTA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOCTA.Click
        NILAIKELUAR.Text = Oct(Val(MASUKANILAI.Text))
    End Sub

    Private Sub BTNHEXA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHEXA.Click
        NILAIKELUAR.Text = Hex(Val(MASUKANILAI.Text))
    End Sub


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = BERGERAK
        TEKS = Microsoft.VisualBasic.Right(TEKS, Len(TEKS) - 1) & Microsoft.VisualBasic.Left(TEKS, 1)
        Label1.Text = TEKS
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Close()
    End Sub

    Private Sub A_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles A.Click
        MASUKANILAI.Text = MASUKANILAI.Text & "A"
    End Sub

    Private Sub B_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B.Click
        MASUKANILAI.Text = MASUKANILAI.Text & "B"
    End Sub


    Private Sub DESIMAL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub BINER1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim XHEXA As String = Hex(Val(MASUKANILAI.Text))

        Dim xbin As String
        Dim xbin1 As String
        Dim i As Integer
        Dim xkata As String
        xbin1 = ""
        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 = ""




            End Select
            xbin1 = xbin1 + xbin
        Next i
        NILAIKELUAR.Text = xbin1
    End Sub

    Private Sub DESIMAL1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub
End Class