fbplclib.bas

来自「vb与三菱PLC的通信例子 对初学者很有用的」· BAS 代码 · 共 15 行

Attribute VB_Name = "Module1"
Public SXD As String
Public RXD As String
Public resp_length%
Public plc_station_no$

Public Function bin16_to_dec&(bin_data$)
  hex4$ = bin16_to_hex4(bin_data$)
  dec_value& = hex4_to_dec(hex4$)
  bin16_to_dec& = dec_value&
End Function

Public Function bin16_to_hex4$(bin_data$)
hex_byte$ = ""
bin_data$ = "0000000000000000" + bin_data$  '