module1.bas

来自「单片机与PC机的通信,下位机用汇编写的,上位机用VB实现.」· BAS 代码 · 共 27 行

Attribute VB_Name = "Module1"
Function bin2dec(inputdata As String) As Double
    Dim decout As Double
    Dim i As Integer
    Dim lenbin As Double
    Dim jone As String
    lenbin = Len(inputdata)
    
    For i = 1 To lenbin
     jone = Mid(inputdata, i, 1)
       If jone <> "0" And jone <> "1" Then
         MsgBox "not a binary number", vbCritical
         Exit Function
       End If
    Next i
    
    decout = 0
    For i = Len(inputdata) To 1 Step -1
      If Mid(inputdata, i, 1) = "1" Then
        decout = decout + 2 ^ (Len(inputdata) - i)
      End If
    Next i
    
    bin2dec = decout

End Function