如何在VB中实现采集电子秤数据，重量精确到克（还有如何采集条形码扫描数据），急，高分

Question

如何在VB中实现采集电子秤数据，是否需要使用特殊的控件,数据重量精确到克（还有如何采集条形码扫描数据），急，高分

Answer 1

电子称有接口吗？有接口通过COM口调用就行，关于条形码的采集，需要条形码转换软件的支持

Answer 2

通过COM口可以实现！在电子秤和电脑的串口之间应加一个中间数字量转换模块（此模块负责接收电子秤的数据并把它转换成一种串口可以接收的数据格式，该数据模式由模块确定），当接收数据时按照模块提供的数据格式来接收就行！这样绝对可行，我以前做过类似的采集系统！

Answer 3

条形码扫描器一般是键盘口的，用TextBox就可以。
电子称要看是什么接口。

Answer 4

这是一个“金钟”电子秤的接口
Public Declare Function commchinit Lib "commdch.dll" (ByVal i_com As Long) As Boolean
Public Declare Sub commchend Lib "commdch.dll" (ByVal i_com As Long)
Public Declare Function commchread Lib "commdch.dll" (ByVal i_com As Long) As Double
Public comch As Long然后设置一个定时器
Private Sub Timer1_Timer()
    weight = commchread(comch)
    wstr = Str(weight)
    lblGross.Caption = wstr
End Sub