串口通信，鸭梨很大。电子秤问题。。

shuaialang 2010-11-17 10:53:35

如图。

这个电子称上面就算没有重量，也在不停发送0KG的数据，我放一个10KG的上去，如果不拿掉，他就不停的发送
10KG
有时候一条，有时候一次发10来条，有时隔1秒就发10次有时候隔10秒才发1次。乱七八糟毫无规律

是我不能驾驭好他还是这个万一有问题。

如果在刚拿上或者刚放下的时候发送
会出现一列递增或者递减的数据也是很多条

求解决办法还是这个设备有毛病。毫无任何开发文档参考

大家有用过的说说自己是怎么处理的感激不尽并且开帖加分

我的结贴率可以说明一切

...全文

255 21 打赏收藏转发到动态举报

写回复

用AI写文章

21 条回复

切换为时间正序

请发表友善的回复…

发表回复

ffwin 2011-01-30

打赏
举报

电子称就是这样工作的,连续发送

zhangxuyu1118 2011-01-04

打赏
举报

当然随时发送数据啦。你把发送过来的数据显示出来即可，如果是空的不是0那么是设备发送的数据有问题----确认是否这个原因找个工具软件证实下即可。

DUDU 2010-12-13

打赏
举报

我觉得你不能只接受一次，这个重量是在变化的，这个变化有时候不是人为能控制的。

DUDU 2010-12-13

打赏
举报

电子秤串口通信，是显示屏不停的给接收端发送数据包，如果，你这种情况肯定不是你的问题。

我做的电子秤已经用了几年了。。。当时也是自己摸索的弄，只需将接收到的数据解析出来就可以了。而且随着重量的变化在变化。

goodhj 2010-11-17

打赏
举报

你的电子秤是要你发个命令它才发数据给你呢，还是它不停的主动狂发？有说明书吧？

goodhj 2010-11-17

打赏
举报

有标志就好办啊，那你就抛弃不稳定的和是0的呗

shuaialang 2010-11-17

打赏
举报

[Quote=引用 10 楼 goodhj 的回复:]
你作为上位机，只是接收，问题应该不在你这里，如果不相信你写的接收程序的话你就用示波器看看信号
再则有条件就换个电子秤看看
只要这个电子秤别把没稳定的重量发上来就行，比如你放个东西上去，重量数字不是一开始就是实际重量，有个变化过程，如果没发上来变化过程中的数字就没问题，如果有，那就惨了，你还得去实现过滤。
乱七八糟毫无规律的发送，这个是应该的，你不能保证有规律的称东西不是，所以要配合使用情况来……
[/Quote]

刚仔细看了，没稳定的数据也发送了。哪个稳定标志是有

连0数据也发送

goodhj 2010-11-17

打赏
举报

你作为上位机，只是接收，问题应该不在你这里，如果不相信你写的接收程序的话你就用示波器看看信号
再则有条件就换个电子秤看看
只要这个电子秤别把没稳定的重量发上来就行，比如你放个东西上去，重量数字不是一开始就是实际重量，有个变化过程，如果没发上来变化过程中的数字就没问题，如果有，那就惨了，你还得去实现过滤。
乱七八糟毫无规律的发送，这个是应该的，你不能保证有规律的称东西不是，所以要配合使用情况来取数

xuzhuoch 2010-11-17

打赏
举报

电子称不是可以手动控制的吗？

shuaialang 2010-11-17

打赏
举报

[Quote=引用 6 楼 ouyanghaiwa 的回复:]
把接收到的值和当前值比较啊！在一定的范围内就取当前的值啊！
[/Quote]

[Quote=引用 7 楼 vividw 的回复:]
取值做下比较再显示。可以设定个范围
变化是正常的，
问题你是要达到什么效果。。
[/Quote]

用来称布的，可能两卷布重量就一样。。。。诶

天涯倦客 2010-11-17

打赏
举报

取值做下比较再显示。可以设定个范围
变化是正常的，
问题你是要达到什么效果。。

ouyanghaiwa 2010-11-17

打赏
举报

把接收到的值和当前值比较啊！在一定的范围内就取当前的值啊！

shuaialang 2010-11-17

打赏
举报

[Quote=引用 4 楼 bdmh 的回复:]
电子城肯定是不定时发送啊，你买东西时，放上去，看那重量就是不停地变，估计每感应一下就会发送一次
[/Quote]

他这样来，也没个确认键，汗死。取了不及时拿下来又发一次，然后又检测到重量，再录入。吐血了要

bdmh 2010-11-17

打赏
举报

电子城肯定是不定时发送啊，你买东西时，放上去，看那重量就是不停地变，估计每感应一下就会发送一次

tt2com 2010-11-17

打赏
举报

可以先打电话咨询一下的吧

shuaialang 2010-11-17

打赏
举报

嗯，继续等答案。。。。
万一是我水岂不是可耻的匿了

bdmh 2010-11-17

打赏
举报

这貌似跟你没关系吧，这是电子城的问题呀，它在不定时的发送，去问问厂家把

shuaialang 2010-11-17

打赏
举报

搞定结贴收工
、





procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;

  BufferLength: Word);

 var

  Str: string;

  i:integer;

  KGlist:Tstringlist;

begin

  KGlist:=Tstringlist.Create;

  memo1.Clear;

  memo4.Clear;

  SetLength(Str, BufferLength);

  Move(buffer^, PChar(@Str[1])^, bufferlength);



  Memo1.Text := Str;



  for i:= 0 to memo1.Lines.Count-1 do

   begin

      if pos('+',memo1.Lines.Strings[i])<>0 then

       begin

          memo4.Lines.Add(Trim(Copy(memo1.Lines.Strings[i],pos('+',memo1.Lines.Strings[i])+1,Pos('kg',memo1.Lines.Strings[i])-pos('+',memo1.Lines.Strings[i])-1)));

          Break;

       end;

   end;

  //下面几句是让Memo1下拉的，让接收的数据始终在最前面

  //  Memo1.SelStart  := Length(Memo1.Text);

  // Memo1.SelLength := 0;

   memo2.Lines.Add('接收一次，序号：'+inttostr(memo2.Lines.Count+1));

   if    (memo4.Lines.Strings[0]<>'0.000') and (PD=true) then

    begin

      memo3.Lines.Add(Memo4.Lines.Strings[0]+' KG')  ;

      pd:=false;

    end ;

   if    (memo4.Lines.Strings[0]='0.000') and (PD=False) then

    begin

       pd:=true;

    end ;

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

pd:=true;

Comm1.StartComm;

end;