以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]Foxtable怎么开发地磅称重系统？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=24802)
--  作者：ahbzczy
--  发布时间：2012/10/23 16:24:00
--  [求助]Foxtable怎么开发地磅称重系统？

Foxtable怎么开发地磅称重系统？

例如上海耀华称重系统，需要哪些资料？
--  作者：狐狸爸爸
--  发布时间：2012/10/23 16:26:00
--  
问问论坛的baoxyang，他开发过类似的系统。
--  作者：ahbzczy
--  发布时间：2012/10/23 21:22:00
--  
谢谢狐爸，也希望baoxyang兄看到此贴能帮兄弟！
--  作者：lin_hailun
--  发布时间：2012/10/24 9:15:00
--  
以下是引用ahbzczy在2012-10-23 21:22:00的发言：
谢谢狐爸，也希望baoxyang兄看到此贴能帮兄弟！

用论坛的搜索功能搜索作者，然后给baoxyang发私信。
[此贴子已经被作者于2012-10-24 9:14:41编辑过]
--  作者：baoxyang
--  发布时间：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
--  发布时间：2012/10/24 10:22:00
--  

因为时间长了,有点不是太清楚哦.需要看接口说明，接口读取字节有效长度进行分析，电子称重时稳定时（也就是电子显示屏的重量），会发出一个状态符，以这个来读取有效称重。读取字节数进行分析提取数据。
--  作者：ahbzczy
--  发布时间：2012/11/1 23:06:00
--  
谢谢啦！·
--  作者：感觉9
--  发布时间：2012/11/24 14:23:00
--  

我也在关注这个事，有什么参照的吗？
--  作者：54kang
--  发布时间：2012/11/25 9:22:00
--  
收藏