Membuat Software Konversi dengan VB

Pada posting kali ini saya akan mencoba berbagi sedikit tips cara membuat software konversi.

Software konversi / Converter bisa dimanfaatkan untuk merubah sebuah nilai menjadi nilai yang lebih relefan dan mudah difahami.

Untuk membuat software konfersi terlebih dahulu agan-agan and agan wati masuk ke VB ( Visual Basic ). 
Selanjutnya pilih New Project.

setelah itu copas saja sorce kode dibawah ini :

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
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

Agan juga bisa Download file di bawah ini sebagai referensi :
-  Konversi Biner ke Desimal
-  Konversi Desimal ke Biner
-  Konversi Decimal ke Hexadecimal
-  Konversi Hexadecimal ke Decimal
-  Konversi Nama Panjang ke Nama Pendek

Semoga bermanfaat.