[Visual Basic] Konversi Binary Ke Decimal

Konversi merupakan salah satu fungsi yang mungkin diperlukan untuk kebutuhan tertentu berikut ini adalah cara membuat salah satu konversi dari visual basic 6 yaitu konversi binnary ke Decimal

keperluan Objek code

Object                                  Property
form                                     title "Mengkonversi Bilangan Desimal Binary ke Desimal"
button                                   name cmdkonversi text = Konversi
label                                      name : lblhasil caption = Hasil
textbox                                 name : TXTBIN

Pada bagian view code

Private Function BinaryToDecimal(ByVal BinValue As String) As Long

Dim lngValue As Long

Dim x As Long

Dim k As Long

k = Len(BinValue)

For x = k To 1 Step -1

  If Mid$(BinValue, x, 1) = "1" Then

    If k - x > 30 Then ' bit 31 is the sign bit

      lngValue = lngValue Or -2147483648#

    Else

      lngValue = lngValue + 2 ^ (k - x)

    End If

  End If

Next x

BinaryToDecimal = lngValue

lblHasil.Caption = BinaryToDecimal

End Function

Fungsi untuk Mengkonversi Binary ke Decimal yang hasilnya akan di tampilkan di Label Hasil


klik ganda pada button Konversi

Private Sub cmdConversi_Click()

BinaryToDecimal (TXTBIN.Text)
End Sub

untuk menjalankan konversi dengan input dari textbox

pada textbox klik ganda juga kemudian pilih keypress pada combobox sebelah kanan 

Private Sub TXTBIN_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdConversi.SetFocus
Else
Dim strAngka As String
strAngka = "01"
    If KeyAscii > 26 Then
        If InStr(strAngka, Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
        End If
    End If
End If
End Sub

 fungsi ini untuk mengatur agar masukan pada textbox hanya boleh bilangan binary saja yaitu 1 dan 0

untuk lebih jelas silahkan download sourcode nya di sini pass = www.irvanl.blogspot.com