Konversi Bilangan Menggunakan VB.2008

Hay sobat blogger, ternyata kita masih diberi kesempatan oleh Allah SWT. untuk berbagi ilmu dan pengetahuan. seperti biasa, admin akan share tentang programing lagi nih, yaitu tentang konversi bilangan menggunakan VB.2008. tapi kali ini, memang bersahubungan dengan tugas kampus juga sich sobat blogger. jadi admin harap, Buat Mahasiswa STMIK Budidarma
jangan sungkan-sungkan dech buat ambil ilmu yang tak seberapa ini.

Sebenarnya, program konversi bilangan menggunakan VB.2008 ini saya post kemarin, Senin 11-03-2014,  tapi masih banyak sekali kecacatan dari program yang admin buat tersebut, ya berhubung admin juga terburu-buru ngampus, jd admin post se adanya saja.

tapi sesuain dengan janji admin kemarin, bahwa saya akan meng-upgrade terus program konversi bilangan menggunakan VB.2008 ini sampai sempurna tingkat maximal yg admin bisa, maka hari ini juga admin perbaikin dech, yang kemarin kelihatannya pakai kotak-kotak, Nah... kali ini tampilannya mungkin agak lebih menawan, Anda penasaran apa saja komposisinya sekarang, yuk kita ke TKP... Cikidot>>>

Ok... dalam program kali ini, rempah-rempah yang kita butuhkan adalah :

2 buah label

2 buah Textbox
2 buah Group box
2 buah Button, dan

8 Radiobutton

2 buah label dan text box, masing-masing kita jadikan Nilai Input dan Nilai Output, sedangkan ke 2 Group box kita jadikan group Input dan Output fungsinya sebagai penampung Radiobutton Agar kelihatan Rapih gitu, masing-masing Groupbox di isi oleh 4 buah Radiobutton yaitu, Decimal, Binear, Octal, dan Hexa. sedangkan kedua tombol button kita jadikan sebagai tombol keluar dan tombol penghapus, jadi di desain aja sesuai keinginan sobat blogger, dan pastikan Properties Name dan Text anda terisi yaaa....

Nah... Jika sobat blogger sudah Selesai Mendesain Program konversi bilangan menggunakan VB.2008  nya, Maka langsung Ketikkan Listing dibawah ini :

Public Class Form1

    Sub rubahbutton(ByVal f1 As Boolean, ByVal f2 As Boolean, ByVal f3 As Boolean, ByVal f4 As Boolean, ByVal f5 As Boolean, ByVal f6 As Boolean, ByVal f7 As Boolean, ByVal f8 As Boolean)

        btndecimali.Enabled = f1

        btnbineari.Enabled = f2

        btnoktali.Enabled = f3

        btnhexai.Enabled = f4

        btndesimal.Enabled = f5

        btnnbinear.Enabled = f6

        btnnoktal.Enabled = f7

        btnhexa.Enabled = f8

    End Sub

    Sub aktfobject(ByVal a As Boolean, ByVal b As Boolean)

        Input.Enabled = a

        Output.Enabled = b

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        Input.Text = ""

        Output.Text = ""

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Me.Close()

    End Sub

    Private Sub Input_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Input.KeyPress

        If btnbineari.Checked Then

            If Not ((e.KeyChar >= "0" And e.KeyChar <= "1") Or e.KeyChar = vbBack) Then

                e.Handled = True

            End If

        ElseIf btnhexai.Checked Then

            If Not ((e.Handled >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then

                e.Handled = True

            Else

                Dim x As Integer = Asc(e.KeyChar)

                If Not (((x >= 65) And (x <= 70)) Or (x = 8)) Then

                    e.Handled = True

                End If

            End If

        Else

            If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then

                e.Handled = True

            End If

        End If

    End Sub

    Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhexa.CheckedChanged

        Output.Text = Hex(Val(Input.Text))

    End Sub

    Private Sub btnnoktal_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnoktal.CheckedChanged

        Output.Text = Oct(Val(Input.Text))

    End Sub

    Private Sub btnnbinear_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnbinear.CheckedChanged

        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 btndecimali_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndecimali.CheckedChanged

        rubahbutton(True, True, True, True, False, True, True, True)

        aktfobject(True, False) : Input.Focus() : Input.Clear() : Output.Clear()

    End Sub

    Private Sub btnbineari_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbineari.CheckedChanged

        rubahbutton(True, True, True, True, True, False, True, True)

        aktfobject(True, False) : Input.Focus() : Input.Clear() : Output.Clear()

    End Sub

    Private Sub btnoktali_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnoktali.CheckedChanged

        rubahbutton(True, True, True, True, True, True, False, True)

        aktfobject(True, False) : Input.Focus() : Input.Clear() : Output.Clear()

    End Sub

    Private Sub btnhexai_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhexai.CheckedChanged

        rubahbutton(True, True, True, True, True, True, True, False)

        aktfobject(True, False) : Input.Focus() : Input.Clear() : Output.Clear()

    End Sub

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

        aktfobject(False, False)

    End Sub

End Class

Jika Listing Diatas sudah sesuai dengan program yang anda buat, maka langsu di Debug aja dan lihat hasilnya, jika masih ada yang Error, kata dosen saya "Brarti Programnya Masih Sayang Sama Kamu" krna Anda Akan di perintahkan untuk cek ulang kesalahan dari program anda. jika sudah Benar semua, maka Program Anda sudah Selesai... hehehe... blajar program buat mumet eah... :D :D :D

Download Programnya Disini.>>>

sekalian juga sobat blogger, mungkin ada yang kepingin Data-data pribadinya aman dari gangguan siapapun yuk Baca Disini.>>>  Dijamin dech, data Sobat blogger gak Bisa dibuka oleh siapapun.

Diperbaharui: Kamis, 13 maret 2014
Program ini masih kurang sempurna sob, tapi saya akan berusaha sempurnakan, jadi Pantau  terus eah kelanjutan program ini hingga sempurna, hanya di raflyzea-agara.blogspot.com