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

最新推荐文章于 2025-05-04 14:12:30 发布

Winters_lee

最新推荐文章于 2025-05-04 14:12:30 发布

阅读量4.6k

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/Winters_lee/article/details/417612

该博客介绍了如何通过RS232C接口使电子秤与PC进行通讯。使用了应答型通讯方式，通过DDE控制电子秤的开、关，并利用Timer控件定时读取信息。当接收到特定信息时，向串口发送相应的控制命令，如开关机操作。同时，设置了1000ms的定时器来定期读取电子秤的数据。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'电子秤（电子天平）使用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