
CXX-UM-01850-EN-01
COMPUTEO INTEOFACE INFOOMATION
Pin Settings
OS232 OS485
9 way D
Pin 2
RX
B
Pin 3
TX
A
Pin 5
0V
0V
Code Example
Cal_dec(returned decimal value, asciihex string from input buffer 8 bytes, number of decimal places,
returned ascii string)
cal_dec(a, Left$(rx_buff, 8), 3, b)
Label27 Caption = b
Sub cal_dec(dec, result, dp_pos, result_str)
dec = 0
eb = Left$(result, 2)
If eb = "00" Then GoTo the_res_is_zero
sethex = Right$(result, 6)
e = Val("&h" + eb) - 127
bin_data = ""
For p = 1 To 6
Select Case UCase(Mid$(sethex, p, 1))
Case "0" nibble = "0000"
Case "1" nibble = "0001"
Case "2" nibble = "0010"
Case "3" nibble = "0011"
Case "4" nibble = "0100"
Case "5" nibble = "0101"
Case "6" nibble = "0110"
Case "7" nibble = "0111"
Case "8" nibble = "1000"
Case "9" nibble = "1001"
Case "A" nibble = "1010"
Case "B" nibble = "1011"
Case "C" nibble = "1100"
Case "D" nibble = "1101"
Case "E" nibble = "1110"
Case "F" nibble = "1111"
End Select
bin_data = bi nibble
Next p
If Left$(bin_data, 1) = "1" Then
sign = "-"
Computer Interface Information
Page 25
February 2018