omronlib.bas

来自「超市进销存系统+源代码软件版本:1.0 应用系统:跨平台使用权限:免费软件介绍:」· BAS 代码 · 共 13 行

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$  '