Newbie Lagi Belajar VB.Net....:D

Tugas UTS VB.Net Semester 5.

Source Code..

Public Class Form1

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

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
        txtOutput.Enabled = False
    End Sub

    Private Sub Nilaikeluar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtOutput.TextChanged

    End Sub

    Private Sub btnhexa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHexa.Click

        txtInput.Text = Hex(Val(txtInput.Text))
    End Sub

    Private Sub btnoktal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOkta.Click
        txtInput.Text = Oct(Val(txtInput.Text))
    End Sub

    Private Sub btnbiner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBiner.Click
        Dim xhexa As String = Hex(Val(txtInput.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
        txtOutput.Text = xbin2
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        End

    End Sub

    Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
        txtInput.Text = ""

        txtOutput.Text = ""
    End Sub
End Class



Note :  - Idenya ada sedikit  kesamaan dengan teman saya.
            - Sedikit terburu-buru dalam pengerjaannya.



NIM  : 004121121041
Nama : Muhamad Bambang Herdiansyah