Table of Contents
Advertisement
Dim NewBin As String
Dim i As Integer
Dim j As Integer
'-- First convert to Hex
For i = 1 To Len(BinASC)
TempHex = Hex(Asc(Mid(BinASC, i, 1)))
If Len(TempHex) < 2 Then TempHex = "0" & TempHex
For j = 1 To 2
Select Case Mid(TempHex, j, 1)
Case "0"
NewBin = "0000"
Case "1"
NewBin = "0001"
Case "2"
NewBin = "0010"
Case "3"
NewBin = "0011"
Case "4"
NewBin = "0100"
Case "5"
NewBin = "0101"
Case "6"
NewBin = "0110"
Case "7"
NewBin = "0111"
Case "8"
NewBin = "1000"
Case "9"
NewBin = "1001"
Case "A"
NewBin = "1010"
Case "B"
NewBin = "1011"
Case "C"
NewBin = "1100"
Case "D"
NewBin = "1101"
Case "E"
NewBin = "1110"
Case "F"
NewBin = "1111"
End Select
TempBin = TempBin & NewBin
Next j
Next i
prvtBinASCToBinStr = TempBin
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com
Remote Operation
Example Programs
5-73
Advertisement
Table of Contents
