fx2lib.bas

vb与三菱PLC的通信例子 对初学者很有用的

Attribute VB_Name = "BASELIB"
Public SXD$
Public RXD$
Public resp_length%
Function bin8_to_dec%(binary_data$)
  hex2$ = bin8_to_hex2(binary_data$)
  dec_value% = hex2_to_dec(hex2$)
  bin8_to_dec% = dec_value%
End Function

Function bin8_to_hex2$(binary_data$)
hex_byte$ = ""
binary_data$ = "00000000" + binary_data$  '