Konversi Bilangan Menggunakan Vb.Net

Assalamualaikum. Wr.Wb...

Sahabat blogger pada kesempatan ini saya ingin berbagi Artikel tentang "Konversi Bilangan Menggunakan Vb.Net".Selain ingin berbagi ilmu, Program ini juga untuk memenuhi Tugas Mata Kuliah Metode Numerik.

Untuk Design programnya, kita butuhkan:

• 2 buah Label
• 2 buah TextBox
• 5 buah Button 

Untuk designnya bisa kalian buat sebagus mungkin, sesuai dengan kreatif anda, kalau punya saya sich maceh biasa-biasa saja, heeeeee....

Berikut adalah tampilan Program Konversi Bilangan Dengan VB.Net:

Baiklah langsung saja, untuk Listing Programnya ada di bawah ini:

Public Class Form1

    

    Private Sub Btn_hexa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hexa.Click

        output.Text = Hex(Val(input.Text))

    End Sub

    Private Sub Btn_octal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_octal.Click

        output.Text = Oct(Val(input.Text))

    End Sub

    Private Sub Btn_binear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_binear.Click

        Dim xHexa As String = Hex(Val(input.Text))

        Dim xBin As String

        Dim xbin2 As String

        Dim kata As String

        Dim i As Integer

        xbin2 = ""

        For i = 1 To Len(xHexa)

            xBin = ""

            kata = Mid(xHexa, i, 1)

            Select Case UCase(kata)

                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

        output.Text = xbin2

    End Sub

    Private Sub Btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_keluar.Click

        Me.Close()

    End Sub

    Private Sub Btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hapus.Click

        input.Text = ""

        output.Text = ""

    End Sub

End Class

Demikianlah Artikel tentang Konversi Bilangan Menggunakan Vb.NEt. Semoga dapat bermanfaat bagi sahabat-sahabat Rienie. Terima kasih

Wassalamualaikum. Wr.Wb....