Foxtable(狐表)用户栏目专家坐堂 → [求助]Foxtable怎么开发地磅称重系统?


  共有12138人关注过本帖树形打印复制链接

主题:[求助]Foxtable怎么开发地磅称重系统?

帅哥哟,离线,有人找我吗?
baoxyang
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23146 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2012/10/24 10:10:00 [显示全部帖子]

我这边代码:参考,需要看电子称接口说明.

 

DataReceived事件在串口接收到数据的时候触发。

'电子称重代码
'With Ports("COM1")
'    Dim cnt As Integer = .BytesToRead
'    If cnt >= 17 Then '缓冲区是否有数据
'        Dim Val(cnt - 1) As Byte
'       .Read(val,0,cnt)
'      Dim ss As String = BitConverter.ToString(val)
'      ss = ss.Replace("-","")
'      ss = ss.Trim("")
'      Dim k As Integer
'      Dim s(cnt - 1) As String
'      For j As Integer = 0 To cnt - 1
'          k = j * 2
'          s(j) = ss.substring(k,2)
'      Next
'       For i As Integer = 0 To cnt -2
'           Dim st As String = s(i) & s(i+1)
'           If st = "FFAA" Then 
'              If  (12+i) <= cnt -1 Then         
'                 If  s(12+i) = "00"  Then
'                     forms("电子称重").controls("textbox13").value = HexToDec(s(i+8) & s(i+9) & s(i+10) & s(i+11))/100
'                 End If  
'              End If 
'           End If 
'       Next
'     End If
'End With


 回到顶部
帅哥哟,离线,有人找我吗?
baoxyang
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23146 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2012/10/24 10:22:00 [显示全部帖子]

因为时间长了,有点不是太清楚哦.需要看接口说明,接口读取字节有效长度进行分析,电子称重时稳定时(也就是电子显示屏的重量),会发出一个状态符,以这个来读取有效称重。读取字节数进行分析提取数据。


 回到顶部