高分买技术,100分，说道做道

Question

有谁做过电子天平的管理程序，能否把里面的通讯参数设置告诉小弟。

Answer 1

你可以在网上找一下COMDRV32控件，横好用，特别简单

Answer 2

串口通信需要先将pc的com1或com2与仪器连接起来，连接线如下：               2---------3
      
pc端（9针）    3-----------2    仪器端（9针）               5-----------5
                2-----------3
      
pc端（25针）    3-----------2    仪器端（25针）                7-----------7                2-----------2
      
pc端（25针）    3-----------3    仪器端（9针）                7-----------5                2-----------2
      
pc端（9针）     3-----------3    仪器端（25针）                5-----------7

Answer 3

TO xiufengy(石破惊)你好！你硬件也挺熟的，是弄单片机的吗？

Answer 4

如果pc连接的串口仪器多于2台，就需要加串口扩张卡，常用的主要是
moxa和瑞旺的。在控制面板中安装好后这些串口扩张口的串口号就是
com3,com4,com5,com6.......，
在编写程序的时侯，只要拉一个comdrv32控件在from上就建立了一个
串口连接，可以和一个仪器进行通讯了（一个控件连接一台仪器），然后
设置comport(端口号),comportspeed(拨特率)，comportdatabits（数据位），comportstopbits（停止位）。建立com1ReceiveData事件接收数据，
建立Button1Click发送数据。
procedure TForm1.Button1Click(Sender: TObject);
begin
 com1.SendByte($4C);//$4C是仪器左行的命令
 ListBox1.Items.Add('左行@'+TimeToStr(Now));
end;procedure TForm1.Button12Click(Sender: TObject);
begin
  com12.sendbyte($4B);//$4B是仪器测量的命令
  ListBox1.Items.Add('测量@'+TimeToStr(Now));
end;procedure TForm1.com1ReceiveData(Sender: TObject; DataPtr: Pointer;
  DataSize: Integer);
var P:pchar;
    pp:byte;
    //垂直偏差:水平偏差: 灯光强度:车灯高度:
    czpc,sppc,dgqd,cdgd:string;
    //ss:string;
    s:string;
begin
  P:=DataPtr;
  pp:=ord(P^);
  //ss:=inttohex(pp,2);
  if pp=$45 then
    D.sendbyte(ToTransData);
  if PP=$01 then
  begin
    s:=Stringofchar(' ',DataSize);
    Move(DataPtr^,PChar(S)^,DataSize);
    sppc:=Copy(s,3,4);
    czpc:=copy(s,7,4);
    dgqd:=copy(s,11,3);
    cdgd:=copy(s,14,4);
    ListBox1.Items.Add('已经接收到数据@'+TimeToStr(Now));
    ListBox1.Items.Add ('           水平偏差：'+ sppc);
    ListBox1.Items.Add ('           垂直偏差：'+ czpc);
    ListBox1.Items.Add ('           灯光强度：'+ dgqd);
    ListBox1.Items.Add ('           车灯高度：'+ cdgd);
  end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
com1.Connect ;
end;

Answer 5

To huylanlan(兰) ：我是石破天不是石破惊，否则石清会不高兴的。呵呵