电子秤和PC之间的数据通讯（应答）

'电子秤（电子天平）使用RS232C和PC串口进行通讯，本例使用应答型。

'因为要使用DDE来控制此电子秤的开、关，所以加入了一个Timer来读取DDE信息，发现为开

'关信息的时候直接向COM写入相应的信息。 '加入一个1000ms的定时器来定时向COM写入读取信息。

'建立Form,LinkMode-1-Sourse,LinkTopic-自己定义

'MSComm控件-mscommWeight，2个Timer控件-tmrOrderScan(200ms)，

'tmrRead(1000ms)

Option Explicit

Private strRecBuf As String

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Activate()

Me.Hide '如果用在实时数据采集上，那么可以选择隐藏此界面

End Sub

Private Sub Form_Load() '设置并打开串口

If mscommWeight.PortOpen = True Then mscommWeight.PortOpen = False

mscommWeight.CommPort = 1 'COM1

If mscommWeight.PortOpen = False Then mscommWeight.PortOpen = True

mscommWeight.Settings = "2400,n,8,1"

mscommWeight.InputLen = 0

mscommWeight.RThreshold = 1

mscommWeight.InputMode = comInputModeText '接收为文本方式

End Sub

Private Sub mscommweight_OnComm()

Select Case mscommWeight.CommEvent '发生OnComm事件

Case comEvReceive '接收到信息

strRecBuf = strRecBuf & mscommWeight.Input '接收信息

Case Else

End Select

If InStr(strRecBuf, "g") Then '发现接收完毕（检测到最后一个标志）

lblWeight.Caption = Mid(strRecBuf, InStr(strRecBuf, ",") + 1, 10) '取数据位

strRecBuf = "" '清除接收变量

End If

End Sub

Private Sub tmrOrderScan_Timer()

DoEvents

Select Case lblSwitch.Caption

Case "Action" '当接收到开关信息时

tmrWeight.Enabled = False '关闭读信息定时器

mscommWeight.Output = Chr(&H50) & Chr(&HD) & Chr(&HA) '发送开关机信息

lblSwitch.Caption = "" '接收信息复位

Sleep 200 '等待200ms

tmrWeight.Enabled = True '重新打开读信息定时器

Case Else

End Select

End Sub

Private Sub tmrWeight_Timer()

mscommWeight.Output = Chr(&H51) & Chr(&HD) & Chr(&HA) '发送读信息

End Sub