网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
05月28日漏签0天
vb吧 关注:156,006贴子:1,166,253
  • 看贴

  • 图片

  • 吧主推荐

  • 游戏

  • 3回复贴,共1页
<<返回vb吧
>0< 加载中...

一个关于串口读数的问题!

  • 只看楼主
  • 收藏

  • 回复
  • 罗喉神
  • 啥也不懂
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
说明:我不是用vb写的程序,我用的是delphi。
我看到了cbm666的一遍关于 收费站秤重系统 以后,想到在这里发这个帖。 
      
问题:
公司要我写一个地磅秤重程序,地磅是 梅特勒-托利多 T800 的。

我写的程序接收数据的时候,总是接收不到完整的数据,基本上小于100的数据都读不到, 
比如:地磅上显示1234,但是接收到的数据是12。 
            地磅上显示60,接收不到数据。 

我对串口是一窍不通。希望cbm666能看到这个帖子,给我点指导




  • cbm666
  • 子类化
    13
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
'算一下你每一笔是几个bytes
'.RThreshold = 12 12就改为你的Bytes数.


Private Sub Form_Load()
 With MSComm1
 .CommPort = 1
 .Settings = "9600,n,8,1"
 .InputLen = 0
 .InBufferSize = 1
 .RThreshold = 12
 .InputMode = comInputModeBinary ' comInputModeText
 End With
 Command1.Caption = "开始接收"
End Sub

Private Sub Command1_Click()
 If Not MSComm1.PortOpen Then MSComm1.PortOpen = True
End Sub


2026-05-28 23:27:09
广告
不感兴趣
开通SVIP免广告
  • cbm666
  • 子类化
    13
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
我记得 梅特勒-托利多 T800 是以字元发送的,手册我找不到了. 

这行改为: 

.InputMode =comInputModeText 

不行的话你把你接收到的数据截图出来,我看就知道了. 
'******************************************************* 
Delphi: 

MSComm1.CommPort := 1;
MSComm1.Settings := '9600,N,8,1';
MSComm1.InBufferSize := 32;
MSComm1.InputMode := comInputModeText;
MSComm1.InputLen := 1;
MSComm1.SThreshold := 1;
MSComm1.InBufferCount := 0;
MSComm1.RThreshold := 12; //设置接收N个字节产生OnComm事件
MSComm1.PortOpen := true;


Delphi早忘光了, 你把MSComm1.RThreshold := 12; //12 改一改试看吧.


  • 罗喉神
  • 啥也不懂
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
我原来是用spcomm控件做的, 测试时取到的数据:"!0 94980 0"(这个是正确的值),但有时取到的是:“80 0”甚至有时有乱码出现。

我改用mscomm 控件取数时: 上星期5去测的时候,取到的是:
‘!0 96560 0’,今天再去试的时候,取到的始:‘ 0 0 48 !990’(这个值就很奇怪了,正确的值是‘94980’, 跟取出来的值差太远了!)

不知道这个是什么原因~


登录百度账号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 3回复贴,共1页
<<返回vb吧
分享到:
©2026 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示