berikut ini cara mengubah bilangan biner ke desimal

 

Private Sub Command1_Click()
'didalam variabel awal digunakan long, karena kita akan mencari bilangan desimal
Dim Decimal1 As Long

'didalam variabel awal digunakan string, karena kita akan mencari binary
Dim Binary1 As String
'didalam variabel awal digunakan long, karena kita akan mencari bilangan desimal
Dim Binary2 As String
'jika terjadi kesalahan dalam penulisan, maka akan menstabilkannya dengan kode berikut
On Error GoTo ErrEnd
Binary1 = ""
Binary2 = ""
'dimaksudkan diatas jangan sampai ada yang kosong
Decimal1 = Text1.Text
'Ini Rumusnya
Do Until Decimal1 = 0
If Deelbaar2(Decimal1) = False Then
Binary2 = Binary2 & 1
ElseIf Deelbaar2(Decimal1) = True Then
Binary2 = Binary2 & 0
End If
Decimal1 = Int(Decimal1 / 2)
Loop
For a = Len(Binary2) To 1 Step -1
Binary1 = Binary1 & Mid(Binary2, a, 1)
Next a
Text2.Text = Binary1
Exit Sub
'kenapa ada dua end sub
'ini dikarenakan kita akan memanggil sub didalam suatu fungsi / wadah
'maka berikutnya langsung di tuliskan seperti dibawah ini
ErrEnd:
Alert = MsgBox("Error " & Err.Number & ": " & Err.Description, vbCritical)
End Sub

Private Sub Command2_Click()
On Error GoTo ErrEnd
For a = 1 To Len(Text2.Text)
If Mid(Text2.Text, a, 1) <> "0" And Mid(Text2.Text, a, 1) <> "1" Then
MsgBox "Wrong binary number!"
Exit Sub
End If
Next a
Dim Binary1 As String
Dim Decimal1 As Long
Decimal1 = 0
Binary1 = Text2.Text
For a = 1 To Len(Binary1)
Decimal1 = Decimal1 * 2 + Mid(Binary1, a, 1)
Next a
Text1.Text = Decimal1
Exit Sub
ErrEnd:
Alert = MsgBox("Error " & Err.Number & ": " & Err.Description, vbCritical)
End Sub
Private Function Deelbaar2(Getal As Long) As Boolean
If Getal = Int(Getal / 2) * 2 Then
Deelbaar2 = True
ElseIf Getal <> Int(Getal / 2) * 2 Then
Deelbaar2 = False
End If
End Function