电子秤和PC之间的数据通讯(应答)

2016-01-29 12:31 6 1 收藏

电子秤和PC之间的数据通讯(应答),电子秤和PC之间的数据通讯(应答)

【 tulaoshi.com - ASP.NET 】

'电子秤(电子天平)使用RS232C和PC串口进行通讯,本例使用应答型。'因为要使用DDE来控制此电子秤的开、关,所以加入了一个Timer来读取DDE信息,发现为开'关信息的时候直接向COM写入相应的信息。 '加入一个1000ms的定时器来定时向COM写入读取信息。'建立Form,LinkMode->1-Sourse,LinkTopic->自己定义'MSComm控件->mscommWeight,2个Timer控件->tmrOrderScan(200ms),'tmrRead(1000ms)Option ExplicitPrivate strRecBuf As StringPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub Form_Activate() Me.Hide '如果用在实时数据采集上,那么可以选择隐藏此界面End SubPrivate 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 SubPrivate 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 IfEnd SubPrivate 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 SelectEnd SubPrivate Sub tmrWeight_Timer() mscommWeight.Output = Chr(&H51) & Chr(&HD) & Chr(&HA) '发送读信息End Sub

来源:http://www.tulaoshi.com/n/20160129/1486460.html

延伸阅读
《战国无双2》pc版本攻略电子书 武器 技能名称 出招表 效果 EX特殊效果 需要购买 备注      Red Queen combo A 地面△△△△ 4连斩 - No -   Red Queen combo B 地面△.△△△ 1刀后地面连刺,最后一下挑空 - Yes -   Red Queen combo C 地面△△.△△△ 7连斩 - Yes -   Red Queen comb...
标签: 电脑入门
一说到office组件综合运用,有的朋友就想到要编程,实际是不需要的,如在实际中打印project报表,要加上页眉页脚,要对数据进行分析,这都不是project的强项,我在实际工作中是这样解决的: 1.打印报表-将project转换成Word文档 --- 经典使用 Word 文档是常用的软件,特别是word强大排版功能使我们的工作更加准确,project报表要加上页...
孕妇和朋友之间的相处 人的一生是少不了朋友的。朋友是在你需要帮助时会毫不犹豫的帮助你的人,因此在怀孕期间正确的对待朋友是很有必要的!那该怎样做呢? 维持原来的关系 怀孕后可以告诉平时关系比较亲近的朋友,让大家一起分享你的喜悦。朋友的看望也能让自己的怀孕阶段变得更加美好,更是拉近了朋友之间的进...
    今天有朋友问我关于用JAVASCRIPT来进行页面各表单之间的数据传递的问题,我以前也写过,不过从来没有注意,今天总结了一下,希望能够给大家一些帮助,也帮助我总结以前学过,用过的知识。     一,最简单的就是同一个网页里的表单的数据传递。      举个实例,一个网页上有两个...
标签: 戒烟
电子烟是什么 电子烟又名虚拟香烟、电子雾化器,主要用于戒烟和替代香烟。它有着与香烟一样的外观、与香烟近似的味道,甚至比一般香烟的口味要多出很多,也像香烟一样能吸出烟、吸出味道跟感觉来。电子烟没有香烟中的焦油、悬浮微粒等其他有害成分,生产商也认为电子烟没有弥漫或缭绕的二手烟。但一些研究认为电子烟还是有二手烟。由于...

经验教程

769

收藏

37
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部