omronlib.bas

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

Attribute VB_Name = "Module1"
Public SXD$
Public RXD$
Public plc_station_head$
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$  '