Cara Konversi Binary ke Desimal VB6

Berikut ini adalah cara mengkonversi bilangan Binary ke Desimal di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form.
2. Copy-kan coding berikut ke dalam editor form Anda.

          Private Function BinaryToDecimal(ByVal BinValue As String) As Long
          Dim lngValue As Long

          Dim x As Long
          Dim k As Long
          k = Len(BinValue) ' will only work with 32 or fewer "bits"
          For x = k To 1 Step -1 ' work backwards down string

            If Mid$(BinValue, x, 1) = "1" Then
              If k - x > 30 Then ' bit 31 is the sign bit
                lngValue = lngValue Or -2147483648# ' avoid overflow error
              Else

                lngValue = lngValue + 2 ^ (k - x)
              End If
            End If
          Next x
          BinaryToDecimal = lngValue

          End Function

          Private Sub Form_Load()
          'Ganti "11001" di bawah dengan bilangan binary yang Anda inginkan untuk

          'dikonversi ke bilangan desimal.
            MsgBox BinaryToDecimal("11001")  'contoh ini menghasilkan 25
          End Sub  

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module