开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 防火墙与安全工具 > 查看源码
mainform.pas
资源名称：st800.rar　[点击查看]
上传用户：jitai139
上传日期：2013-04-11
资源大小：1244k
文件大小：122k
源码类别：

防火墙与安全工具

开发平台：

Delphi

mainform.pas：源码内容
  1. unit mainform;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, OleCtrls, MSCommLib_TLB, StdCtrls, ExtCtrls, ComCtrls,math;
  9. type
  10.   TForm1 = class(TForm)
  11.     Panel1: TPanel;
  12.     GroupBox1: TGroupBox;
  13.     Edit1: TEdit;
  14.     GroupBox2: TGroupBox;
  15.     Label1: TLabel;
  16.     Label2: TLabel;
  17.     Label3: TLabel;
  18.     Label4: TLabel;
  19.     Label5: TLabel;
  20.     Label6: TLabel;
  21.     Edit2: TEdit;
  22.     Edit3: TEdit;
  23.     Edit4: TEdit;
  24.     Edit5: TEdit;
  25.     Edit6: TEdit;
  26.     Edit7: TEdit;
  27.     Edit8: TEdit;
  28.     Edit9: TEdit;
  29.     Edit10: TEdit;
  30.     Edit11: TEdit;
  31.     Edit12: TEdit;
  32.     Edit13: TEdit;
  33.     Edit14: TEdit;
  34.     Edit15: TEdit;
  35.     Edit16: TEdit;
  36.     Edit17: TEdit;
  37.     Edit18: TEdit;
  38.     Edit19: TEdit;
  39.     Button1: TButton;
  40.     Button2: TButton;
  41.     Button3: TButton;
  42.     Button4: TButton;
  43.     Button5: TButton;
  44.     Button6: TButton;
  45.     Button7: TButton;
  46.     Button8: TButton;
  47.     Button9: TButton;
  48.     Button10: TButton;
  49.     Button11: TButton;
  50.     Button12: TButton;
  51.     Button13: TButton;
  52.     Button14: TButton;
  53.     Button15: TButton;
  54.     Button16: TButton;
  55.     Button17: TButton;
  56.     Button18: TButton;
  57.     Edit20: TEdit;
  58.     Edit21: TEdit;
  59.     Edit22: TEdit;
  60.     Edit23: TEdit;
  61.     Edit24: TEdit;
  62.     Edit25: TEdit;
  63.     Button19: TButton;
  64.     Button20: TButton;
  65.     Button21: TButton;
  66.     GroupBox3: TGroupBox;
  67.     ComboBox1: TComboBox;
  68.     Button22: TButton;
  69.     GroupBox4: TGroupBox;
  70.     Edit26: TEdit;
  71.     Label7: TLabel;
  72.     Button24: TButton;
  73.     GroupBox5: TGroupBox;
  74.     ComboBox2: TComboBox;
  75.     Edit27: TEdit;
  76.     Edit28: TEdit;
  77.     Button25: TButton;
  78.     MSComm1: TMSComm;
  79.     StatusBar1: TStatusBar;
  80.     Timer1: TTimer;
  81.     Button26: TButton;
  82.     OpenDialog1: TOpenDialog;
  83.     SaveDialog1: TSaveDialog;
  84.     Button27: TButton;
  85.     Timer2: TTimer;
  86.     Timer3: TTimer;
  87.     Timer4: TTimer;
  88.     Timer5: TTimer;
  89.     Timer6: TTimer;
  90.     Timer7: TTimer;
  91.     Timer8: TTimer;
  92.     Timer9: TTimer;
  93.     Timer10: TTimer;
  94.     Timer11: TTimer;
  95.     Timer12: TTimer;
  96.     Timer13: TTimer;
  97.     Timer14: TTimer;
  98.     Button28: TButton;
  99.     SaveDialog2: TSaveDialog;
  100.     Shape1: TShape;
  101.     Timer15: TTimer;
  102.     Timer16: TTimer;
  103.     Label8: TLabel;
  104.     Label9: TLabel;
  105.     Label10: TLabel;
  106.     Memo1: TMemo;
  107.     CheckBox1: TCheckBox;
  108.     CheckBox2: TCheckBox;
  109.     CheckBox3: TCheckBox;
  110.     CheckBox4: TCheckBox;
  111.     CheckBox5: TCheckBox;
  112.     CheckBox6: TCheckBox;
  113.     Label12: TLabel;
  114.     Edit29: TEdit;
  115.     Label13: TLabel;
  116.     Label14: TLabel;
  117.     Edit30: TEdit;
  118.     Label15: TLabel;
  119.     Edit31: TEdit;
  120.     Label16: TLabel;
  121.     ComboBox3: TComboBox;
  122.     ComboBox4: TComboBox;
  123.     ComboBox5: TComboBox;
  124.     ComboBox6: TComboBox;
  125.     ComboBox7: TComboBox;
  126.     ComboBox8: TComboBox;
  127.     Label17: TLabel;
  128.     Label18: TLabel;
  129.     Label19: TLabel;
  130.     Label20: TLabel;
  131.     Label21: TLabel;
  132.     Label22: TLabel;
  133.     Button23: TButton;
  134.     Label11: TLabel;
  135.     procedure Button22Click(Sender: TObject);
  136.     procedure Button3Click(Sender: TObject);
  137.     procedure Button6Click(Sender: TObject);
  138.     procedure Button9Click(Sender: TObject);
  139.     procedure Button12Click(Sender: TObject);
  140.     procedure Button15Click(Sender: TObject);
  141.     procedure Button18Click(Sender: TObject);
  142.     procedure Button2Click(Sender: TObject);
  143.     procedure Timer1Timer(Sender: TObject);
  144.     procedure FormCreate(Sender: TObject);
  145.     procedure Button26Click(Sender: TObject);
  146.     procedure Button27Click(Sender: TObject);
  147.     procedure Button5Click(Sender: TObject);
  148.     procedure Button8Click(Sender: TObject);
  149.     procedure Button11Click(Sender: TObject);
  150.     procedure Button14Click(Sender: TObject);
  151.     procedure Button17Click(Sender: TObject);
  152.     procedure Timer2Timer(Sender: TObject);
  153.     procedure Timer3Timer(Sender: TObject);
  154.     procedure Timer4Timer(Sender: TObject);
  155.     procedure Timer5Timer(Sender: TObject);
  156.     procedure Timer6Timer(Sender: TObject);
  157.     procedure Button21Click(Sender: TObject);
  158.     procedure Button1Click(Sender: TObject);
  159.     procedure Timer7Timer(Sender: TObject);
  160.     procedure Button4Click(Sender: TObject);
  161.     procedure Button7Click(Sender: TObject);
  162.     procedure Button10Click(Sender: TObject);
  163.     procedure Button13Click(Sender: TObject);
  164.     procedure Button16Click(Sender: TObject);
  165.     procedure Timer8Timer(Sender: TObject);
  166.     procedure Timer9Timer(Sender: TObject);
  167.     procedure Timer10Timer(Sender: TObject);
  168.     procedure Timer11Timer(Sender: TObject);
  169.     procedure Timer12Timer(Sender: TObject);
  170.     procedure Button24Click(Sender: TObject);
  171.     procedure Timer13Timer(Sender: TObject);
  172.     procedure Button25Click(Sender: TObject);
  173.     procedure Timer14Timer(Sender: TObject);
  174.     procedure Button28Click(Sender: TObject);
  175.     procedure Button19Click(Sender: TObject);
  176.     procedure Timer15Timer(Sender: TObject);
  177.     procedure Button20Click(Sender: TObject);
  178.     procedure Timer16Timer(Sender: TObject);
  179.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  180.     procedure ComboBox1Change(Sender: TObject);
  181.     procedure ComboBox2Change(Sender: TObject);
  182.     procedure Button23Click(Sender: TObject);
  183.    
  184.    // function setvar(tag:boolean;btn:tbutton):integer;
  185.   private
  186.     { Private declarations }
  187.       function TsInputVal(staStr:string):boolean;
  188.   public
  189.     { Public declarations }
  190.    timesum,tag,success,p,tagc,pc:integer;
  191.    flag:boolean;
  192.    zuhao:integer;
  193.    tindexnum:integer;
  194.   end;
  196. var
  197.   Form1: TForm1;
  199. implementation
  200.   //uses sysutils;
  201. {$R *.dfm}
  202. {function setvar(tag:boolean;btn:tbutton):integer;
  203. var
  204. i:integer;
  205.   begin
  206.   i:=-1;
  207.   while tag<>true do begin
  208.     if (edit2.)or()or()or()or()or()
  209.                        btn.Click;
  210.                      end;
  211.   i:=1  ;
  212.    tag:=false;
  213.    result:= i;
  215.  end;  }
  216.  //function  senddata(cid:integer) :boolean;
  218.  function TForm1.TsInputVal(staStr:string):boolean;
  219.   var
  220.     flag1,flag2:boolean ;
  221.     f:real;
  222.   begin
  223.     f:=strToFloat(staStr);
  225.     if f>=0.0000 then
  226.        flag1:=true
  227.     else
  228.        flag1:=false;
  229.     if  f>9.999001 then
  230.         flag2:=false
  231.     else
  232.        flag2:=true;
  233.     if flag1 and flag2 then
  234.        begin
  235.         result:=true;
  236.         exit;
  237.        end
  238.      else
  239.        begin
  240.          showmessage('输入或所得的设定值非法！！--范围在：0.000~9.999 之间。');
  241.          result:=false;
  242.        end;
  243. end;
  245.  PROCEDURE TIMEDELAY(DT:DWORD);                  //延时程序 timedelay(sencond)
  246.   VAR
  247.     TT:DWORD;
  248.   begin
  249.     //取得现在的TICK值
  250.     TT:=GetTickCount();
  251.     //计算TICK差值是否超过设置之
  252.   while GetTickCount()-TT<DT do
  253.    APPLICATION.ProcessMessages;//释放控制权
  254.   end;
  256.   function hex(c:char):integer;                  //16进制转换
  257. var
  258. x:integer;
  259. begin
  260.     if c='' then
  261.       x:=0
  262.       else if (ord(c)>=ord('0'))and(ord(c)<=ord('9')) then
  263.       x:=ord(c)-ord('0')
  264.       else if (ord(c)>=ord('a'))and(ord(c)<=ord('f')) then
  265.       x:=ord(c)-ord('a')+10
  266.       else if (ord(c)>=ord('A'))and(ord(c)<=ord('F')) then
  267.       x:=ord(c)-ord('A')+10
  268.       else
  269.       x:=-1;
  271.      result:=x;
  272. end;
  273. function hextoint(s:string):integer ;                  //16进制toINT
  274. var
  275.   tmpstr1,tmpstr2:integer;
  276. begin
  277.  if length(s)=1 then
  278.   begin
  279.      result:=hex(s[1]);
  280.   end
  281.   else if length(s)=2 then
  282.   begin
  283.   tmpstr1:=hex(s[1]) ;
  284.   tmpstr2:=hex(s[2]);
  286.     if(tmpstr1=-1)and(tmpstr2=-1) then
  287.     result:=-1
  288.     else
  289.     result:=tmpstr1*16+tmpstr2;
  290.    end
  291.    else
  292.     result:=-1;
  293. end;
  296. procedure TForm1.Button22Click(Sender: TObject);       //open the serial port
  297. begin
  298.    if  not mscomm1.PortOpen then
  299.     begin
  300.           mscomm1.CommPort:=combobox1.ItemIndex+1;
  301.          tindexnum:= combobox1.ItemIndex;
  302.       mscomm1.Settings:='2400,n,8,1';
  303.            mscomm1.PortOpen:=true;
  304.            statusbar1.Panels[0].Text:='串口com'+inttostr(combobox1.ItemIndex+1)+'已打开';
  305.            shape1.Brush.Color:=clgreen;
  306.            button22.Caption:='断开';
  308.     end else
  309.     begin
  310.        mscomm1.PortOpen:=false;
  311.            shape1.Brush.Color:=clred;
  312.             tindexnum:= combobox1.ItemIndex;
  313.            statusbar1.Panels[0].Text:='串口com'+inttostr(combobox1.ItemIndex+1)+'已关闭';
  314.            button22.Caption:='连接';
  315.              edit4.Text:='';
  316.    edit7.Text:='';
  317.    edit10.Text:='';
  318.    edit13.Text:='';
  319.    edit16.Text:='';
  320.    edit19.Text:='';
  321.    combobox2.ItemIndex:=0;
  322.    label8.Visible:=false;
  323.  label9.Visible:=false;
  324.  label10.Visible:=false;
  325. label11.Visible:=false;
  326.  label12.Visible:=false;
  327.  label13.Visible:=false;
  328.  label14.Visible:=false;
  329.  label15.Visible:=false;
  330.  label16.Visible:=false;
  331.  edit27.Visible:=false;
  332.  edit28.Visible:=false;
  333.  edit29.Visible:=false;
  334.  edit30.Visible:=false;
  335.   edit31.Visible:=false;
  337.     end;
  338.     // mscomm1.CommPort:=combobox1.ItemIndex+1;
  340.       //mscomm1.Settings:='2400,n,8,1';
  341.      // mscomm1.PortOpen:=true;
  342.       //statusbar1.Panels[0].Text:='serial was open';
  343.       //shape1.Brush.Color:=clgreen;
  344.       //edit3.Text:='';
  345.   edit4.Text:='';
  346.  // edit6.Text:='';
  347.    edit7.Text:='';
  348.   // edit9.Text:='';
  349.    edit10.Text:='';
  350.   // edit12.Text:='';
  351.    edit13.Text:='';
  352.    //edit15.Text:='';
  353.    edit16.Text:='';
  354.   // edit18.Text:='';
  355.    edit19.Text:='';
  356. end;
  358. procedure TForm1.Button3Click(Sender: TObject);
  359. var
  360.   a,b:real;
  361.   c: real;
  362.  m,n:variant;
  363.  str1:string;
  364.  ll:integer;
  365. begin
  366. c:=0.00;
  367.   if (edit3.Text<>'') and (edit4.Text<>'') then
  368.   begin
  369.    {if (strtofloat(edit3.Text) >25.00) or(strtofloat(edit3.Text)<-45.00) then
  370.  begin
  371.  showmessage('数值超出合理范围(-45.00～+25.00)');     /////////////////////////////////
  372.  edit3.Text:='';
  373.   end else begin }
  374.        str1:=label17.Caption;
  375.   if str1='dBm' then  begin
  376.       a:=strtofloat(edit4.Text);
  377.       n:=a;
  378.       a:=power(10,a/10.0);              //dbm to mw
  379.       a:=a*1000.0;                       //mw to uw
  380.       b:=strtofloat(edit3.Text);
  381.       ll:=combobox3.ItemIndex;
  382.       case ll of
  383.         0:begin b:=power(10,b/10.0); b:=b*1000.0; end;
  384.          1:b:= b*1000.0;
  385.          2:b:= b;
  386.          3:b:= b/1000.0 ;
  387.          end;
  388.                c:= b/ a;
  389.   edit2.Text:=formatfloat('0.000',c);
  390.   end;
  391.   if str1='uw' then begin
  392.       a:=strtofloat(edit4.Text);
  393.       n:=a;
  394.      // m:=m;
  395.       b:=strtofloat(edit3.Text);
  396.      ll:=combobox3.ItemIndex;
  397.       case ll of
  398.         0:begin b:=power(10,b/10.0); b:=b*1000.0; end;
  399.          1:b:= b*1000.0;
  400.          2:b:= b;
  401.          3:b:= b/1000.0;
  402.          end;
  403.       c:= b/ a;
  405.   edit2.Text:=formatfloat('0.000',c);
  406.       end;
  407.       if str1='nw' then begin
  409.        a:=strtofloat(edit4.Text);
  410.       n:=a;
  411.       a:=a/1000.0;
  412.       b:=strtofloat(edit3.Text);
  413.       ll:=combobox3.ItemIndex;
  414.       case ll of
  415.         0:begin b:=power(10,b/10.0); b:=b/1000.0; end;
  416.          1:b:= b*1000.0;
  417.          2:b:= b;
  418.          3:b:= b/1000.0;
  419.          end;
  420.       c:= b/ a;
  422.   edit2.Text:=formatfloat('0.000',c);
  424.       end;
  425.       if str1='mw' then begin
  426.         a:=strtofloat(edit4.Text);
  427.       n:=a;
  428.       a:=a*1000.0;
  429.       b:=strtofloat(edit3.Text);
  430.       ll:=combobox3.ItemIndex;
  431.       case ll of
  432.         0:begin b:=power(10,b/10.0); b:=b*1000.0; end;
  433.          1:b:= b*1000.0;
  434.          2:b:= b;
  435.          3:b:= b/1000.0;
  436.          end;
  437.          c:=b/a;
  438.   edit2.Text:=formatfloat('0.000',c);
  439. end;
  440.  // end;
  441.   end
  442.   else
  443.   begin
  444.       showmessage('请先输入正确的值！');
  445.       edit2.SetFocus;
  446.   end;
  447. end;
  448. procedure TForm1.Button9Click(Sender: TObject);
  449. var
  450.   a,b:real;
  451.   c: real;
  452.  m,n:variant;
  453.  str1:string;
  454.  ll:integer;
  455. begin
  456. c:=0.00;
  457.   if (edit9.Text<>'') and (edit10.Text<>'') then
  458.   begin  {if (strtofloat(edit3.Text) >25.00) or(strtofloat(edit3.Text)<-45.00) then
  459.  begin
  460.  showmessage('数值超出合理范围(-45.00～+25.00)');     /////////////////////////////////
  461.  edit3.Text:='';
  462.   end else begin }
  463.        str1:=label19.Caption;
  464.   if str1='dBm' then  begin
  465.       a:=strtofloat(edit10.Text);
  466.       n:=a;
  467.       a:=power(10,a/10.0);              //dbm to mw
  468.       a:=a*1000.0;                       //mw to uw
  469.       b:=strtofloat(edit9.Text);
  470.       ll:=combobox5.ItemIndex;
  471.       case ll of
  472.         0:begin b:=power(10,b/10.0); b:=b*1000.0; end;
  473.          1:b:= b*1000.0;
  474.          2:b:= b;
  475.          3:b:= b/1000.0
  476.          end;
  477.       c:= b/ a;
  479.   edit8.Text:=formatfloat('0.000',c);
  480.   end;
  481.   if str1='uw' then begin
  482.       a:=strtofloat(edit10.Text);
  483.       n:=a;
  484.      // m:=m;
  485.       b:=strtofloat(edit9.Text);
  486.      ll:=combobox5.ItemIndex;
  487.       case ll of
  488.         0:begin b:=power(10,b/10.0); b:=b*1000.0; end;
  489.          1:b:= b*1000.0;
  490.          2:b:= b;
  491.          3:b:= b/1000.0
  492.          end;
  493.       c:= b/ a;
  495.   edit8.Text:=formatfloat('0.000',c);
  496.       end;
  497.       if str1='nw' then begin
  499.        a:=strtofloat(edit10.Text);
  500.       n:=a;
  501.       a:=a/1000.0;
  502.       b:=strtofloat(edit9.Text);
  503.       ll:=combobox5.ItemIndex;
  504.       case ll of
  505.         0:begin b:=power(10,b/10.0); b:=b/1000.0; end;
  506.          1:b:= b*1000.0;
  507.          2:b:= b;
  508.          3:b:= b/1000.0
  509.          end;
  510.       c:= b/ a;
  512.   edit8.Text:=formatfloat('0.000',c);
  514.       end;
  515.       if str1='mw' then begin
  516.         a:=strtofloat(edit10.Text);
  517.       n:=a;
  518.       a:=a*1000;
  519.       b:=strtofloat(edit9.Text);
  520.       ll:=combobox5.ItemIndex;
  521.       case ll of
  522.         0:begin b:=power(10,b/10.0); b:=b*1000.0; end;
  523.          1:b:= b*1000.0;
  524.          2:b:= b;
  525.          3:b:= b/1000.0
  526.          end;
  527.          c:=b/a;
  528.   edit8.Text:=formatfloat('0.000',c);
  529. end;
  530.  // end;
  531.   end
  532.   else
  533.   begin
  534.       showmessage('请先输入正确的值！');
  535.       edit8.setfocus;
  536.   end;
  537. end;
  539. procedure TForm1.Button6Click(Sender: TObject);
  540. var
  541.   a,b:real;
  542.   c: real;
  543.  m,n:variant;
  544.  str1:string;
  545.  ll:integer;
  546. begin
  547. c:=0.00;
  548.   if (edit6.Text<>'') and (edit7.Text<>'') then
  549.   begin  {if (strtofloat(edit3.Text) >25.00) or(strtofloat(edit3.Text)<-45.00) then
  550.  begin
  551.  showmessage('数值超出合理范围(-45.00～+25.00');     /////////////////////////////////
  552.  edit3.Text:='';
  553.   end else begin }
  554.        str1:=label18.Caption;
  555.   if str1='dBm' then  begin
  556.       a:=strtofloat(edit7.Text);
  557.      n:=a;
  558.       a:=power(10,a/10.0);              //dbm to mw
  559.       a:=a*1000.0;                       //mw to uw
  560.       b:=strtofloat(edit6.Text);
  561.       ll:=combobox4.ItemIndex;
  562.       case ll of
  563.         0:begin b:=power(10,b/10.0); b:=b*1000.0; end;
  564.          1:b:= b*1000.0;
  565.          2:b:= b;
  566.          3:b:= b/1000.0
  567.          end;
  568.       c:= b/ a;
  570.   edit5.Text:=formatfloat('0.000',c);
  571.   end;
  572.   if str1='uw' then begin
  573.       a:=strtofloat(edit7.Text);
  574.       n:=a;
  575.      // m:=m;
  576.       b:=strtofloat(edit6.Text);
  577.      ll:=combobox4.ItemIndex;
  578.       case ll of
  579.         0:begin b:=power(10,b/10.0); b:=b*1000.0; end;
  580.          1:b:= b*1000.0;
  581.          2:b:= b;
  582.          3:b:= b/1000.0
  583.          end;
  584.       c:= b/ a;
  586.   edit5.Text:=formatfloat('0.000',c);
  587.       end;
  588.       if str1='nw' then begin
  590.        a:=strtofloat(edit7.Text);
  591.       n:=a;
  592.       a:=a/1000.0;
  593.       b:=strtofloat(edit6.Text);
  594.       ll:=combobox4.ItemIndex;
  595.       case ll of
  596.         0:begin b:=power(10,b/10.0); b:=b/1000.0; end;
  597.          1:b:= b*1000.0;
  598.          2:b:= b;
  599.          3:b:= b/1000.0
  600.          end;
  601.       c:= b/a;
  603.   edit5.Text:=formatfloat('0.000',c);
  605.       end;
  606.       if str1='mw' then begin
  607.         a:=strtofloat(edit7.Text);
  608.       n:=a;
  609.       a:=a*1000;
  610.       b:=strtofloat(edit6.Text);
  611.       ll:=combobox4.ItemIndex;
  612.       case ll of
  613.         0:begin b:=power(10,b/10.0); b:=b*1000.0; end;
  614.          1:b:= b*1000.0;
  615.          2:b:= b;
  616.          3:b:= b/1000.0
  617.          end;
  618.          c:=b/a;
  619.   edit5.Text:=formatfloat('0.000',c);
  620. end;
  621.  // end;
  622.   end
  623.   else
  624.   begin
  625.       showmessage('请先输入正确的值！');
  626.       edit5.SetFocus;
  627.   end;
  628. end;
  629.  procedure TForm1.Button12Click(Sender: TObject);
  630. var
  631.   a,b:real;
  632.   c: real;
  633.  m,n:variant;
  634.  str1:string;
  635.  ll:integer;
  636. begin
  637. c:=0.00;
  638.   if (edit12.Text<>'') and (edit13.Text<>'') then
  639.   begin  {if (strtofloat(edit3.Text) >25.00) or(strtofloat(edit3.Text)<-45.00) then
  640.  begin
  641.  showmessage('数值超出合理范围(-45.00～+25.00');     /////////////////////////////////
  642.  edit3.Text:='';
  643.   end else begin }
  644.        str1:=label20.Caption;
  645.   if str1='dBm' then  begin
  646.       a:=strtofloat(edit13.Text);
  647.       n:=a;
  648.       a:=power(10,a/10.0);              //dbm to mw
  649.       a:=a*1000.0;                       //mw to uw
  650.       b:=strtofloat(edit12.Text);
  651.       ll:=combobox6.ItemIndex;
  652.       case ll of
  653.         0:begin b:=power(10,b/10.0); b:=b*1000.0; end;
  654.          1:b:= b*1000.0;
  655.          2:b:= b;
  656.          3:b:= b/1000.0
  657.          end;
  658.       c:= b/ a;
  660.   edit11.Text:=formatfloat('0.000',c);
  661.   end;
  662.   if str1='uw' then begin
  663.       a:=strtofloat(edit13.Text);
  664.       n:=a;
  665.      // m:=m;
  666.       b:=strtofloat(edit12.Text);
  667.      ll:=combobox6.ItemIndex;
  668.       case ll of
  669.         0:begin b:=power(10,b/10.0); b:=b*1000.0; end;
  670.          1:b:= b*1000.0;
  671.          2:b:= b;
  672.          3:b:= b/1000.0
  673.          end;
  674.       c:= b/ a;
  676.   edit11.Text:=formatfloat('0.000',c);
  677.       end;
  678.       if str1='nw' then begin
  680.        a:=strtofloat(edit13.Text);
  681.       n:=a;
  682.       a:=a/1000.0;
  683.       b:=strtofloat(edit12.Text);
  684.       ll:=combobox6.ItemIndex;
  685.       case ll of
  686.         0:begin b:=power(10,b/10.0); b:=b/1000.0; end;
  687.          1:b:= b*1000.0;
  688.          2:b:= b;
  689.          3:b:= b/1000.0
  690.          end;
  691.       c:= b/ a;
  693.   edit11.Text:=formatfloat('0.000',c);
  695.       end;
  696.       if str1='mw' then begin
  697.         a:=strtofloat(edit13.Text);
  698.       n:=a;
  699.       a:=a*1000;
  700.       b:=strtofloat(edit12.Text);
  701.       ll:=combobox6.ItemIndex;
  702.       case ll of
  703.         0:begin b:=power(10,b/10.0); b:=b*1000.0; end;
  704.          1:b:= b*1000.0;
  705.          2:b:= b;
  706.          3:b:= b/1000.0
  707.          end;
  708.          c:=b/a;
  709.   edit11.Text:=formatfloat('0.000',c);
  710. end;
  711.  // end;
  712.   end
  713.   else
  714.   begin
  715.       showmessage('请先输入正确的值！');
  716.       edit11.SetFocus;
  717.   end;
  718. end;
  719. procedure TForm1.Button15Click(Sender: TObject);
  720. var
  721.   a,b:real;
  722.   c: real;
  723.  m,n:variant;
  724.  str1:string;
  725.  ll:integer;
  726. begin
  727. c:=0.00;
  728.   if (edit15.Text<>'') and (edit16.Text<>'') then
  729.   begin  {if (strtofloat(edit3.Text) >25.00) or(strtofloat(edit3.Text)<-45.00) then
  730.  begin
  731.  showmessage('数值超出合理范围(-45.00～+25.00');
  732.  edit3.Text:='';
  733.   end else begin }
  734.        str1:=label21.Caption;
  735.   if str1='dBm' then  begin
  736.       a:=strtofloat(edit16.Text);
  737.       n:=a;
  738.       a:=power(10,n/10.0);              //dbm to mw
  739.       a:=a*1000.0;                       //mw to uw
  740.       b:=strtofloat(edit15.Text);
  741.       ll:=combobox7.ItemIndex;
  742.       case ll of
  743.         0:begin b:=power(10,b/10.0); b:=b*1000.0; end;
  744.          1:b:= b*1000.0;
  745.          2:b:= b;
  746.          3:b:= b/1000.0
  747.          end;
  748.       c:= b/ a;
  750.   edit14.Text:=formatfloat('0.000',c);
  751.   end;
  752.   if str1='uw' then begin
  753.       a:=strtofloat(edit16.Text);
  754.       n:=a;
  755.      // m:=m;
  756.       b:=strtofloat(edit15.Text);
  757.      ll:=combobox7.ItemIndex;
  758.       case ll of
  759.         0:begin b:=power(10,b/10.0); b:=b*1000.0; end;
  760.          1:b:= b*1000.0;
  761.          2:b:= b;
  762.          3:b:= b/1000.0
  763.          end;
  764.       c:= b/ a;
  766.   edit14.Text:=formatfloat('0.000',c);
  767.       end;
  768.       if str1='nw' then begin
  770.        a:=strtofloat(edit16.Text);
  771.       n:=a;
  772.       a:=a/1000.0;
  773.       b:=strtofloat(edit15.Text);
  774.       ll:=combobox7.ItemIndex;
  775.       case ll of
  776.         0:begin b:=power(10,b/10.0); b:=b/1000.0; end;
  777.          1:b:= b*1000.0;
  778.          2:b:= b;
  779.          3:b:= b/1000.0
  780.          end;
  781.       c:= b/a;
  783.   edit14.Text:=formatfloat('0.000',c);
  785.       end;
  786.       if str1='mw' then begin
  787.         a:=strtofloat(edit16.Text);
  788.       n:=a;
  789.       a:=a*1000;
  790.       b:=strtofloat(edit15.Text);
  791.       ll:=combobox7.ItemIndex;
  792.       case ll of
  793.         0:begin b:=power(10,b/10.0); b:=b*1000.0; end;
  794.          1:b:= b*1000.0;
  795.          2:b:= b;
  796.          3:b:= b/1000.0
  797.          end;
  798.          c:=b/a;
  799.   edit14.Text:=formatfloat('0.000',c);
  800. end;
  801.  // end;
  802.   end
  803.   else
  804.   begin
  805.       showmessage('请先输入正确的值！');
  806.       edit14.SetFocus;
  807.   end;
  808. end;
  809. procedure TForm1.Button18Click(Sender: TObject);
  810. var
  811.   a,b:real;
  812.   c: real;
  813.  m,n:variant;
  814.  str1:string;
  815.  ll:integer;
  816. begin
  817. c:=0.00;
  818.   if (edit3.Text<>'') and (edit4.Text<>'') then
  819.  begin  {if (strtofloat(edit3.Text) >25.00) or(strtofloat(edit3.Text)<-45.00) then
  820.  begin
  821.  showmessage('数值超出合理范围(-45.00～+25.00');
  822.  edit3.Text:='';
  823.   end else begin }
  824.        str1:=label22.Caption;
  825.   if str1='dBm' then  begin
  826.       a:=strtofloat(edit19.Text);
  827.       n:=a;
  828.       a:=power(10,a/10.0);              //dbm to mw
  829.       a:=a*1000.0;                       //mw to uw
  830.       b:=strtofloat(edit18.Text);
  831.       ll:=combobox8.ItemIndex;
  832.       case ll of
  833.         0:begin b:=power(10,b/10.0); b:=b*1000.0; end;
  834.          1:b:= b*1000.0;
  835.          2:b:= b;
  836.          3:b:= b/1000.0
  837.          end;
  838.       c:= b/a;
  840.   edit17.Text:=formatfloat('0.000',c);
  841.   end;
  842.   if str1='uw' then begin
  843.       a:=strtofloat(edit19.Text);
  844.       n:=a;
  845.      // m:=m;
  846.       b:=strtofloat(edit18.Text);
  847.      ll:=combobox8.ItemIndex;
  848.       case ll of
  849.         0:begin b:=power(10,b/10.0); b:=b*1000.0; end;
  850.          1:b:= b*1000.0;
  851.          2:b:= b;
  852.          3:b:= b/1000.0
  853.          end;
  854.       c:= b/ a;
  856.   edit17.Text:=formatfloat('0.000',c);
  857.       end;
  858.       if str1='nw' then begin
  860.        a:=strtofloat(edit19.Text);
  861.       n:=a;
  862.       a:=a/1000.0;
  863.       b:=strtofloat(edit18.Text);
  864.       ll:=combobox8.ItemIndex;
  865.       case ll of
  866.         0:begin b:=power(10,b/10.0); b:=b/1000.0; end;
  867.          1:b:= b*1000.0;
  868.          2:b:= b;
  869.          3:b:= b/1000.0
  870.          end;
  871.       c:= b/a;
  873.   edit17.Text:=formatfloat('0.000',c);
  875.       end;
  876.       if str1='mw' then begin
  877.         a:=strtofloat(edit19.Text);
  878.       n:=a;
  879.       a:=a*1000;
  880.       b:=strtofloat(edit18.Text);
  881.       ll:=combobox8.ItemIndex;
  882.       case ll of
  883.         0:begin b:=power(10,b/10.0); b:=b*1000.0; end;
  884.          1:b:= b*1000.0;
  885.          2:b:= b;
  886.          3:b:= b/1000.0
  887.          end;
  888.          c:=b/a;
  889.   edit17.Text:=formatfloat('0.000',c);
  890. end;
  891.  // end;
  892.   end
  893.   else
  894.   begin
  895.       showmessage('请先输入正确的值！');
  896.   end;
  897. end;
  898. procedure TForm1.Button2Click(Sender: TObject);
  899. var
  900.  v,len,i,count:integer;
  902.    tmpstr:string;
  903.    tmpvar:variant;
  904.    xornum:byte;
  905.    arr:array of byte;
  906.     f:real;
  907. begin
  909. arr:=nil;
  910.  if (edit2.Text='') then
  911.   begin
  912.   showmessage('无设定值！');
  913.   end
  914.  else begin if not mscomm1.PortOpen then begin
  915.     showmessage('串口没有打开！');
  916.      end else begin
  918.            //hao add
  919.   if not TsInputVal(edit2.Text) then
  920.     begin
  921.      edit2.SetFocus;
  922.      exit
  923.     end;
  924.   //hao add end
  925.   
  926.      setlength(arr,9);
  927.         f:=strtofloat(edit2.text)*1000.0;
  928.         tmpstr:=floattostr(f);
  930.          v:=strtoint(tmpstr);
  931.             arr[0]:=$7e;   //soi
  932.            arr[1]:=$10;   //ver
  933.             arr[2]:= $04;    //length
  934.             arr[3]:=$a1;     //cid
  935.            arr[4]:=$00;      //datainfo
  936.            arr[5]:=v div 256;
  937.             arr[6]:= v mod 256   ;
  938.             xornum:= arr[2] xor arr[3] xor arr[4] xor arr[5]xor arr[6];
  939.             arr[7]:=xornum;
  940.             arr[8]:=$0d;
  941.   // send data
  942.               len:=length(arr);
  943.            i:=0;
  944.             count:=0;
  945.             tmpvar:=vararraycreate([0,0],varbyte);
  946.             //tmpvar[count]:=arr[i];
  947.             //inc(count);
  948.             //inc(i);
  949.              while(count<=len-1)do begin
  950.                         tmpvar[count]:=arr[i];
  951.                         inc(count);
  952.                         inc(i);
  953.                         vararrayredim(tmpvar,count);
  954.                     end;
  956.       MSComm1.Output:=tmpvar;
  957.       timer1.Enabled:=true;
  958.  end;
  960.      //while mscomm1.InBufferCount
  961.     end;
  962. end;
  966. procedure TForm1.Timer1Timer(Sender: TObject);
  967. var
  968. i,n,m,chksum:integer;  //,timesum
  969. arr:array of byte;
  970. tmpvar:variant;
  971. begin
  973.      arr:=nil;
  974.      chksum:=$00;
  975.     timesum:=timesum+integer(timer1.Interval)+10;
  976.      if timesum<900 then
  977.       begin
  978.         if mscomm1.InBufferCount>0 then begin
  979.         timer1.Enabled:=false;
  980.         timesum:=100;
  981.           n:=mscomm1.InBufferCount;
  982.           setlength(arr,n);
  983.           tmpvar:=mscomm1.input;
  984.        for i:=0 to n-1 do arr[i]:=tmpvar[i];
  985.         if (arr[0]=$7e)and(arr[1]=$10)and(arr[n-1]=$0d) then
  986.         begin
  987.            for m:=2 to (n-3) do chksum:=chksum xor arr[m];
  988.            if (arr[n-2]=chksum)and(arr[3]=$a1) then begin
  989.                //edit4.Text:=inttostr(arr[4]*256+arr[5]);
  990.                if arr[n-3]=$0cc  then begin
  991.                 showmessage('设置成功！') ;
  992.                 //tag:=true;
  993.                 end
  994.                 else  if arr[n-3]=$66 then begin  //success:=true;
  995.                 timer1.Enabled:=false;
  996.                     showmessage('设置失败！');
  997.                     end else begin timer1.Enabled:=false;
  998.                     showmessage('数据包错误！');
  999.                       end;
  1000.              end else
  1001.              begin
  1002.              timer1.Enabled:=false;
  1004.              showmessage('帧校验错误！'); //帧校验错误
  1005.               //success:=true;
  1006.               end;
  1007.        end else begin
  1008.        timer1.Enabled:=false;
  1009.       showmessage('响应数据错误！');
  1010.            //success:=true;
  1011.            end;
  1012.     end else begin
  1013.         sleep(10);
  1014.       timer1.Enabled:=true;
  1015.              end;
  1016.              end else begin
  1017.              //success:=true;
  1018.              timer1.Enabled:=false;
  1019.              timesum:=100;
  1020.              showmessage('通道0参数设定时响应超时！');
  1023.              end;
  1024. end;
  1026. procedure TForm1.FormCreate(Sender: TObject);
  1027. begin
  1028. tindexnum:=-1;
  1029. timesum:=100;
  1030. flag:=false;
  1031. success:=0;
  1032. zuhao:=-1;
  1033. tag:=0;
  1034. tagc:=0;
  1035. pc:=0;
  1036. p:=0;
  1037. //edit4.Enabled:=false;
  1038. //edit7.Enabled:=false;
  1039. //edit10.Enabled:=false;
  1040. //edit13.Enabled:=false;
  1041. //edit16.Enabled:=false;
  1042. //edit19.Enabled:=false;
  1043. edit20.Enabled:=false;
  1044. edit21.Enabled:=false;
  1045. edit22.Enabled:=false;
  1046. edit23.Enabled:=false;
  1047. edit24.Enabled:=false;
  1048. edit25.Enabled:=false;
  1049. edit26.Enabled:=false;
  1050. edit27.Enabled:=false;
  1051. edit28.Enabled:=false;
  1052. edit29.Enabled:=false;
  1053. edit30.Enabled:=false;
  1055. edit31.Visible:=false;
  1056. label8.Visible:=false;
  1057. label9.Visible:=false;
  1058. label10.Visible:=false;
  1059. label11.Visible:=false;
  1060. label12.Visible:=false;
  1061. label13.Visible:=false;
  1062. label14.Visible:=false;
  1063. label15.Visible:=false;
  1064. label16.Visible:=false;
  1065. edit29.Visible:=false;
  1066. edit30.Visible:=false;
  1068. edit27.Visible:=false;
  1069. edit28.Visible:=false;
  1070. button23.Visible:=false;
  1071. end;
  1073. procedure TForm1.Button26Click(Sender: TObject);
  1074. begin
  1076.  if messagedlg('你确定要退出吗？',mtConfirmation,[mbyes,mbno],0)=mryes then
  1077.     begin
  1078.     if mscomm1.PortOpen then begin
  1079.     mscomm1.PortOpen:=false;
  1080.     shape1.Brush.Color:=clred;
  1082.      end;
  1083.      application.Terminate;
  1084.     end;
  1086. end ;
  1090. procedure TForm1.Button27Click(Sender: TObject);
  1091.   var
  1092.   pt:boolean;
  1093.     filename,s,ed:string;
  1094.   i:integer;
  1095.    text:textfile;
  1096.    dataarr:array[1..6] of string;
  1097.   begin
  1098.       pt:=false;
  1099.     if opendialog1.Execute then
  1100.     begin  filename:=opendialog1.FileName;
  1101.        filename:=extractfilename(filename);
  1102.              if fileexists(filename)  then begin
  1103.         if edit1.Text='' then ed:='""' else ed:=edit1.Text;
  1104.          assignfile(text,filename);
  1105.          reset(text);
  1106.          try
  1107.             while not eof(text)  do
  1108.              begin
  1109.                readln(text,s);
  1110.                if s=ed  then  begin
  1111.                pt:=true;
  1112.                for i:=1 to 6 do begin
  1113.                   readln(text,s) ;
  1114.                 dataarr[i]:=s ;
  1115.                   end;
  1116.           edit20.Text:=dataarr[1];
  1117.           edit21.Text:=dataarr[2];
  1118.           edit22.Text:=dataarr[3];
  1119.           edit23.Text:=dataarr[4];
  1120.           edit24.Text:=dataarr[5];
  1121.           edit25.Text:=dataarr[6];
  1122.          if edit20.Text= edit2.Text then
  1123.             checkbox1.Checked:=true  else  checkbox1.Checked:=false;
  1124.          if edit21.Text= edit5.Text then
  1125.             checkbox2.Checked:=true  else  checkbox2.Checked:=false;
  1126.             if edit22.Text= edit8.Text then
  1127.             checkbox3.Checked:=true  else  checkbox3.Checked:=false;
  1128.             if edit23.Text= edit11.Text then
  1129.             checkbox4.Checked:=true  else  checkbox4.Checked:=false;
  1130.             if edit24.Text= edit14.Text then
  1131.             checkbox5.Checked:=true  else  checkbox5.Checked:=false;
  1132.             if edit25.Text= edit17.Text then
  1133.             checkbox6.Checked:=true  else  checkbox6.Checked:=false;
  1134.          
  1135.                 end ;
  1136.                end;
  1137.          finally
  1138.                closefile(text);
  1139.                end;
  1140.                 if pt=false then begin
  1141.                   edit20.Text:='';
  1142.                 edit21.Text:='';
  1143.                 edit22.Text:='';
  1144.                 edit23.Text:='';
  1145.                 edit24.Text:='';
  1146.                 edit25.Text:='';
  1147.                  showmessage('文件中无匹配记录！');
  1148.                  end;
  1149.             end else
  1150.             begin
  1151.                 edit20.Text:='';
  1152.                 edit21.Text:='';
  1153.                 edit22.Text:='';
  1154.                 edit23.Text:='';
  1155.                 edit24.Text:='';
  1156.                 edit25.Text:='';
  1157.                  showmessage('没有找到指定文件！');
  1158.             end;
  1159.      end;
  1160.      end;
  1162. procedure TForm1.Button5Click(Sender: TObject);
  1163. var
  1164.  v,len,i,count:integer;
  1166.    tmpstr:string;
  1167.    tmpvar:variant;
  1168.    xornum:byte;
  1169.    arr:array of byte;
  1170.     f:real;
  1171. begin
  1173. arr:=nil;
  1174.  if (edit5.Text='') then
  1175.   begin
  1176.   showmessage('无设定值！');
  1177.   end
  1178.  else begin if not mscomm1.PortOpen then begin
  1179.     showmessage('串口没有打开！');
  1180.      end else begin
  1181.            //hao add
  1182.   if not TsInputVal(edit5.Text) then
  1183.     begin
  1184.      edit5.SetFocus;
  1185.      exit
  1186.     end;
  1187.   //hao add end
  1188.      setlength(arr,9);
  1189.         f:=strtofloat(edit5.text)*1000.0;
  1190.         tmpstr:=floattostr(f);
  1192.          v:=strtoint(tmpstr);
  1193.             arr[0]:=$7e;   //soi
  1194.            arr[1]:=$10;   //ver
  1195.             arr[2]:= $04;    //length
  1196.             arr[3]:=$a1;     //cid
  1197.            arr[4]:=$01;      //datainfo
  1198.            arr[5]:=v div 256;
  1199.             arr[6]:= v mod 256   ;
  1200.             xornum:= arr[2] xor arr[3] xor arr[4] xor arr[5]xor arr[6];
  1201.             arr[7]:=xornum;
  1202.             arr[8]:=$0d;
  1203.   // send data
  1204.               len:=length(arr);
  1205.            i:=0;
  1206.             count:=0;
  1207.             tmpvar:=vararraycreate([0,0],varbyte);
  1208.             //tmpvar[count]:=arr[i];
  1209.             //inc(count);
  1210.             //inc(i);
  1211.              while(count<=len-1)do begin
  1212.                         tmpvar[count]:=arr[i];
  1213.                         inc(count);
  1214.                         inc(i);
  1215.                         vararrayredim(tmpvar,count);
  1216.                     end;
  1218.       MSComm1.Output:=tmpvar;
  1219.       timer2.Enabled:=true;
  1220.  end;
  1222.      //while mscomm1.InBufferCount
  1223.     end;
  1224. end;
  1226. procedure TForm1.Button8Click(Sender: TObject);
  1227. var
  1228.  v,len,i,count:integer;
  1230.    tmpstr:string;
  1231.    tmpvar:variant;
  1232.    xornum:byte;
  1233.    arr:array of byte;
  1234.     f:real;
  1235. begin
  1237. arr:=nil;
  1238.  if (edit8.Text='') then
  1239.   begin
  1240.   showmessage('无设定值！');
  1241.   end
  1242.  else begin if not mscomm1.PortOpen then begin
  1243.     showmessage('串口没有打开！');
  1244.      end else begin
  1245.            //hao add
  1246.   if not TsInputVal(edit8.Text) then
  1247.     begin
  1248.      edit8.SetFocus;
  1249.      exit
  1250.     end;
  1251.   //hao add end
  1252.      setlength(arr,9);
  1253.         f:=strtofloat(edit8.text)*1000.0;
  1254.         tmpstr:=floattostr(f);
  1256.          v:=strtoint(tmpstr);
  1257.             arr[0]:=$7e;   //soi
  1258.            arr[1]:=$10;   //ver
  1259.             arr[2]:= $04;    //length
  1260.             arr[3]:=$a1;     //cid
  1261.            arr[4]:=$02;      //datainfo
  1262.            arr[5]:=v div 256;
  1263.             arr[6]:= v mod 256   ;
  1264.             xornum:= arr[2] xor arr[3] xor arr[4] xor arr[5]xor arr[6];
  1265.             arr[7]:=xornum;
  1266.             arr[8]:=$0d;
  1267.   // send data
  1268.               len:=length(arr);
  1269.            i:=0;
  1270.             count:=0;
  1271.             tmpvar:=vararraycreate([0,0],varbyte);
  1272.             //tmpvar[count]:=arr[i];
  1273.             //inc(count);
  1274.             //inc(i);
  1275.              while(count<=len-1)do begin
  1276.                         tmpvar[count]:=arr[i];
  1277.                         inc(count);
  1278.                         inc(i);
  1279.                         vararrayredim(tmpvar,count);
  1280.                     end;
  1282.       MSComm1.Output:=tmpvar;
  1283.       timer3.Enabled:=true;
  1284.  end;
  1286.      //while mscomm1.InBufferCount
  1287.     end;
  1288. end;
  1292. procedure TForm1.Button11Click(Sender: TObject);
  1293. var
  1294.  v,len,i,count:integer;
  1296.    tmpstr:string;
  1297.    tmpvar:variant;
  1298.    xornum:byte;
  1299.    arr:array of byte;
  1300.     f:real;
  1301. begin
  1303. arr:=nil;
  1304.  if (edit11.Text='') then
  1305.   begin
  1306.   showmessage('无设定值！');
  1307.   end
  1308.  else begin if not mscomm1.PortOpen then begin
  1309.     showmessage('串口没有打开！');
  1310.      end else begin
  1311.            //hao add
  1312.   if not TsInputVal(edit11.Text) then
  1313.     begin
  1314.      edit11.SetFocus;
  1315.      exit
  1316.     end;
  1317.   //hao add end
  1318.      setlength(arr,9);
  1319.         f:=strtofloat(edit11.text)*1000.0;
  1320.         tmpstr:=floattostr(f);
  1322.          v:=strtoint(tmpstr);
  1323.             arr[0]:=$7e;   //soi
  1324.            arr[1]:=$10;   //ver
  1325.             arr[2]:= $04;    //length
  1326.             arr[3]:=$a1;     //cid
  1327.            arr[4]:=$03;      //datainfo
  1328.            arr[5]:=v div 256;
  1329.             arr[6]:= v mod 256   ;
  1330.             xornum:= arr[2] xor arr[3] xor arr[4] xor arr[5]xor arr[6];
  1331.             arr[7]:=xornum;
  1332.             arr[8]:=$0d;
  1333.   // send data
  1334.               len:=length(arr);
  1335.            i:=0;
  1336.             count:=0;
  1337.             tmpvar:=vararraycreate([0,0],varbyte);
  1338.             //tmpvar[count]:=arr[i];
  1339.             //inc(count);
  1340.             //inc(i);
  1341.              while(count<=len-1)do begin
  1342.                         tmpvar[count]:=arr[i];
  1343.                         inc(count);
  1344.                         inc(i);
  1345.                         vararrayredim(tmpvar,count);
  1346.                     end;
  1348.       MSComm1.Output:=tmpvar;
  1349.       timer4.Enabled:=true;
  1350.  end;
  1352.      //while mscomm1.InBufferCount
  1353.     end;
  1354. end;
  1357. procedure TForm1.Button14Click(Sender: TObject);
  1358. var
  1359.  v,len,i,count:integer;
  1361.    tmpstr:string;
  1362.    tmpvar:variant;
  1363.    xornum:byte;
  1364.    arr:array of byte;
  1365.     f:real;
  1366. begin
  1368. arr:=nil;
  1369.  if (edit14.Text='') then
  1370.   begin
  1371.   showmessage('无设定值！');
  1372.   end
  1373.  else begin if not mscomm1.PortOpen then begin
  1374.     showmessage('串口没有打开！');
  1375.      end else begin
  1376.            //hao add
  1377.   if not TsInputVal(edit14.Text) then
  1378.     begin
  1379.      edit14.SetFocus;
  1380.      exit
  1381.     end;
  1382.   //hao add end
  1383.      setlength(arr,9);
  1384.         f:=strtofloat(edit14.text)*1000.0;
  1385.         tmpstr:=floattostr(f);
  1387.          v:=strtoint(tmpstr);
  1388.             arr[0]:=$7e;   //soi
  1389.            arr[1]:=$10;   //ver
  1390.             arr[2]:= $04;    //length
  1391.             arr[3]:=$a1;     //cid
  1392.            arr[4]:=$04;      //datainfo
  1393.            arr[5]:=v div 256;
  1394.             arr[6]:= v mod 256   ;
  1395.             xornum:= arr[2] xor arr[3] xor arr[4] xor arr[5]xor arr[6];
  1396.             arr[7]:=xornum;
  1397.             arr[8]:=$0d;
  1398.   // send data
  1399.               len:=length(arr);
  1400.            i:=0;
  1401.             count:=0;
  1402.             tmpvar:=vararraycreate([0,0],varbyte);
  1403.             //tmpvar[count]:=arr[i];
  1404.             //inc(count);
  1405.             //inc(i);
  1406.              while(count<=len-1)do begin
  1407.                         tmpvar[count]:=arr[i];
  1408.                         inc(count);
  1409.                         inc(i);
  1410.                         vararrayredim(tmpvar,count);
  1411.                     end;
  1413.       MSComm1.Output:=tmpvar;
  1414.       timer5.Enabled:=true;
  1415.  end;
  1417.      //while mscomm1.InBufferCount
  1418.     end;
  1419. end;
  1422. procedure TForm1.Button17Click(Sender: TObject);
  1423. var
  1424.  v,len,i,count:integer;
  1426.    tmpstr:string;
  1427.    tmpvar:variant;
  1428.    xornum:byte;
  1429.    arr:array of byte;
  1430.     f:real;
  1431. begin
  1433. arr:=nil;
  1434.  if (edit17.Text='') then
  1435.   begin
  1436.   showmessage('无设定值！');
  1437.   end
  1438.  else begin if not mscomm1.PortOpen then begin
  1439.     showmessage('串口没有打开！');
  1440.      end else begin
  1441.            //hao add
  1442.   if not TsInputVal(edit17.Text) then
  1443.     begin
  1444.      edit17.SetFocus;
  1445.      exit
  1446.     end;
  1447.   //hao add end
  1448.      setlength(arr,9);
  1449.         f:=strtofloat(edit17.text)*1000.0;
  1450.         tmpstr:=floattostr(f);
  1452.          v:=strtoint(tmpstr);
  1453.             arr[0]:=$7e;   //soi
  1454.            arr[1]:=$10;   //ver
  1455.             arr[2]:= $04;    //length
  1456.             arr[3]:=$a1;     //cid
  1457.            arr[4]:=$05;      //datainfo
  1458.            arr[5]:=v div 256;
  1459.             arr[6]:= v mod 256   ;
  1460.             xornum:= arr[2] xor arr[3] xor arr[4] xor arr[5]xor arr[6];
  1461.             arr[7]:=xornum;
  1462.             arr[8]:=$0d;
  1463.   // send data
  1464.               len:=length(arr);
  1465.            i:=0;
  1466.             count:=0;
  1467.             tmpvar:=vararraycreate([0,0],varbyte);
  1468.             //tmpvar[count]:=arr[i];
  1469.             //inc(count);
  1470.             //inc(i);
  1471.              while(count<=len-1)do begin
  1472.                         tmpvar[count]:=arr[i];
  1473.                         inc(count);
  1474.                         inc(i);
  1475.                         vararrayredim(tmpvar,count);
  1476.                     end;
  1478.       MSComm1.Output:=tmpvar;
  1479.       timer6.Enabled:=true;
  1480.  end;
  1482.      //while mscomm1.InBufferCount
  1483.     end;
  1484. end;
  1488. procedure TForm1.Timer2Timer(Sender: TObject);
  1489. var
  1490. i,n,m,chksum:integer;  //,timesum
  1491. arr:array of byte;
  1492. tmpvar:variant;
  1493. begin
  1495.      arr:=nil;
  1496.      chksum:=$00;
  1497.     timesum:=timesum+integer(timer2.Interval)+10;
  1498.      if timesum<900 then
  1499.       begin
  1500.         if mscomm1.InBufferCount>0 then begin
  1501.         timer2.Enabled:=false;
  1502.         timesum:=100;
  1503.           n:=mscomm1.InBufferCount;
  1504.           setlength(arr,n);
  1505.           tmpvar:=mscomm1.input;
  1506.        for i:=0 to n-1 do arr[i]:=tmpvar[i];
  1507.         if (arr[0]=$7e)and(arr[1]=$10)and(arr[n-1]=$0d) then
  1508.         begin
  1509.            for m:=2 to (n-3) do chksum:=chksum xor arr[m];
  1510.            if (arr[n-2]=chksum)and(arr[3]=$a1) then begin
  1511.                //edit4.Text:=inttostr(arr[4]*256+arr[5]);
  1512.                  if arr[n-3]=$0cc  then begin
  1513.                 showmessage('设置成功！') ;
  1514.                 //tag:=true;
  1515.                 end
  1516.                 else if arr[n-3]=$66 then begin  //success:=true;
  1517.                 timer2.Enabled:=false;
  1518.                     showmessage('设置失败！');
  1519.                     end else begin  timer1.Enabled:=false;
  1520.                       showmessage('数据包错误！');
  1521.                       end;
  1522.              end else  begin
  1523.              timer2.Enabled:=false;
  1524.              showmessage('数据错误！'); //帧校验错误
  1525.              end;
  1526.        end else  begin
  1527.        timer2.Enabled:=false;
  1528.       showmessage('响应数据错误！');
  1529.          end;
  1530.     end else begin
  1531.         sleep(10);
  1532.       timer2.Enabled:=true;
  1533.              end;
  1534.              end else begin
  1535.               timesum:=100;
  1536.              timer2.Enabled:=false;
  1537.              showmessage('通道5参数设定响应超时！');
  1539.              end;
  1540. end;
  1542. procedure TForm1.Timer3Timer(Sender: TObject);
  1543. var
  1544. i,n,m,chksum:integer;  //,timesum
  1545. arr:array of byte;
  1546. tmpvar:variant;
  1547. begin
  1548.      timer3.Enabled:=false;
  1549.      arr:=nil;
  1550.      chksum:=$00;
  1551.     timesum:=timesum+integer(timer3.Interval)+10;
  1552.      if timesum<900 then
  1553.       begin
  1554.         if mscomm1.InBufferCount>0 then begin
  1555.          timer3.Enabled:=false;
  1556.          timesum:=100;
  1557.           n:=mscomm1.InBufferCount;
  1558.           setlength(arr,n);
  1559.           tmpvar:=mscomm1.input;
  1560.        for i:=0 to n-1 do arr[i]:=tmpvar[i];
  1561.         if (arr[0]=$7e)and(arr[1]=$10)and(arr[n-1]=$0d) then
  1562.         begin
  1563.            for m:=2 to (n-3) do chksum:=chksum xor arr[m];
  1564.            if (arr[n-2]=chksum)and(arr[3]=$a1) then begin
  1565.                //edit4.Text:=inttostr(arr[4]*256+arr[5]);
  1566.                  if arr[n-3]=$0cc  then begin
  1567.                 showmessage('设置成功！') ;
  1568.                 //tag:=true;
  1569.                 end
  1570.                 else if arr[n-3]=$66 then begin  //success:=true;
  1571.                 timer3.Enabled:=false;
  1572.                     showmessage('设置失败！');
  1573.                     end else begin timer1.Enabled:=false;
  1574.                         showmessage('数据包错误！');
  1575.                         end;
  1576.              end else   begin
  1577.              timer3.Enabled:=false;
  1578.              showmessage('数据错误！'); //帧校验错误
  1579.              end;
  1580.        end else begin
  1581.        timer3.Enabled:=false;
  1582.       showmessage('响应数据错误！');
  1583.            end;
  1584.     end else begin
  1585.         sleep(10);
  1586.       timer3.Enabled:=true;
  1587.              end;
  1588.              end else begin
  1589.              timesum:=100;
  1590.              timer3.Enabled:=false;
  1591.              showmessage('1310nm校正参数设定响应超时！');
  1593.              end;
  1594. end;
  1596. procedure TForm1.Timer4Timer(Sender: TObject);
  1597. var
  1598. i,n,m,chksum:integer;  //,timesum
  1599. arr:array of byte;
  1600. tmpvar:variant;
  1601. begin
  1602.      timer4.Enabled:=false;
  1603.      arr:=nil;
  1604.      chksum:=$00;
  1605.     timesum:=timesum+integer(timer4.Interval)+10;
  1606.      if timesum<900 then
  1607.       begin
  1608.         if mscomm1.InBufferCount>0 then begin
  1609.          timer4.Enabled:=false;
  1610.          timesum:=100;
  1611.           n:=mscomm1.InBufferCount;
  1612.           setlength(arr,n);
  1613.           tmpvar:=mscomm1.input;
  1614.        for i:=0 to n-1 do arr[i]:=tmpvar[i];
  1615.         if (arr[0]=$7e)and(arr[1]=$10)and(arr[n-1]=$0d) then
  1616.         begin
  1617.            for m:=2 to (n-3) do chksum:=chksum xor arr[m];
  1618.            if (arr[n-2]=chksum)and(arr[3]=$a1) then begin
  1619.                //edit4.Text:=inttostr(arr[4]*256+arr[5]);
  1620.                       if arr[n-3]=$0cc  then begin
  1621.                 showmessage('设置成功！') ;
  1622.                 //tag:=true;
  1623.                 end
  1624.                 else if arr[n-3]=$66 then begin  //success:=true;
  1625.                 timer4.Enabled:=false;
  1626.                     showmessage('设置失败！');
  1627.                     end else   begin
  1628.                     timer4.Enabled:=false;
  1629.                     showmessage('数据包错误！');
  1630.                     end;
  1631.              end else  begin
  1632.              timer4.Enabled:=false;
  1633.              showmessage('数据错误！'); //帧校验错误
  1634.              end;
  1635.        end else  begin
  1636.        timer4.Enabled:=false;
  1637.       showmessage('响应数据错误！');
  1638.           end;
  1639.     end else begin
  1640.         sleep(10);
  1641.       timer4.Enabled:=true;
  1642.              end;
  1643.              end else begin
  1644.              timesum:=100;
  1645.              timer4.Enabled:=false;
  1646.              showmessage('1550nm校正参数设定响应超时！');
  1648.              end;
  1649. end;
  1651. procedure TForm1.Timer5Timer(Sender: TObject);
  1652. var
  1653. i,n,m,chksum:integer;  //,timesum
  1654. arr:array of byte;
  1655. tmpvar:variant;
  1656. begin
  1658.      arr:=nil;
  1659.      chksum:=$00;
  1660.     timesum:=timesum+integer(timer5.Interval)+10;
  1661.      if timesum<900 then
  1662.       begin
  1663.         if mscomm1.InBufferCount>0 then begin
  1664.          timer5.Enabled:=false;
  1665.          timesum:=100;
  1666.           n:=mscomm1.InBufferCount;
  1667.           setlength(arr,n);
  1668.           tmpvar:=mscomm1.input;
  1669.        for i:=0 to n-1 do arr[i]:=tmpvar[i];
  1670.         if (arr[0]=$7e)and(arr[1]=$10)and(arr[n-1]=$0d) then
  1671.         begin
  1672.            for m:=2 to (n-3) do chksum:=chksum xor arr[m];
  1673.            if (arr[n-2]=chksum)and(arr[3]=$a1) then begin
  1674.                //edit4.Text:=inttostr(arr[4]*256+arr[5]);
  1675.                       if arr[n-3]=$0cc  then begin
  1676.                 showmessage('设置成功！') ;
  1677.                 //tag:=true;
  1678.                 end
  1679.                 else if arr[n-3]=$66 then begin  //success:=true;
  1680.                 timer5.Enabled:=false;
  1681.                     showmessage('设置失败！');
  1682.                     end else
  1683.                     begin
  1684.                     timer5.Enabled:=false;
  1685.                     showmessage('数据包错误！');
  1686.                     end;
  1687.              end else   begin
  1688.              timer5.Enabled:=false;
  1689.              showmessage('数据错误！'); //帧校验错误
  1690.              end;
  1691.        end else  begin
  1692.        timer5.Enabled:=false;
  1693.       showmessage('响应数据错误！');
  1694.            end;
  1695.     end else begin
  1696.         sleep(10);
  1697.       timer5.Enabled:=true;
  1698.              end;
  1699.              end else begin
  1700.              timesum:=100;
  1701.              timer5.Enabled:=false;
  1702.              showmessage('850nm校正参数设定响应超时！');
  1704.              end;
  1705. end;
  1708. procedure TForm1.Timer6Timer(Sender: TObject);
  1709. var
  1710. i,n,m,chksum:integer;  //,timesum
  1711. arr:array of byte;
  1712. tmpvar:variant;
  1713. begin
  1715.      arr:=nil;
  1716.      chksum:=$00;
  1717.     timesum:=timesum+integer(timer6.Interval)+10;
  1718.      if timesum<900 then
  1719.       begin
  1720.         if mscomm1.InBufferCount>0 then begin
  1721.         timer6.Enabled:=false;
  1722.         timesum:=100;
  1723.           n:=mscomm1.InBufferCount;
  1724.           setlength(arr,n);
  1725.           tmpvar:=mscomm1.input;
  1726.        for i:=0 to n-1 do arr[i]:=tmpvar[i];
  1727.         if (arr[0]=$7e)and(arr[1]=$10)and(arr[n-1]=$0d) then
  1728.         begin
  1729.            for m:=2 to (n-3) do chksum:=chksum xor arr[m];
  1730.            if (arr[n-2]=chksum)and(arr[3]=$a1) then begin
  1731.                //edit4.Text:=inttostr(arr[4]*256+arr[5]);
  1732.                       if arr[n-3]=$0cc  then begin
  1733.                 showmessage('设置成功！') ;
  1734.                 //tag:=true;
  1735.                 end
  1736.                 else if arr[n-3]=$66 then begin  //success:=true;
  1737.                 timer6.Enabled:=false;
  1738.                     showmessage('设置失败！');
  1739.                     end else begin
  1740.                     timer6.Enabled:=false;
  1741.                      showmessage('数据包错误');
  1742.                      end;
  1743.              end else begin
  1744.              timer6.Enabled:=false;
  1745.              showmessage('数据错误'); //帧校验错误
  1746.              end;
  1747.        end else    begin
  1748.        timer6.Enabled:=false;
  1749.       showmessage('响应数据错误！');
  1750.         end;
  1751.     end else begin
  1752.         sleep(10);
  1753.       timer6.Enabled:=true;
  1754.              end;
  1755.              end else begin
  1756.              timesum:=100;
  1757.              timer6.Enabled:=false;
  1758.              showmessage('980nm校正参数设定响应超时！');
  1760.              end;
  1761. end;
  1763. procedure TForm1.Button21Click(Sender: TObject);
  1764. var
  1765. fl:boolean;
  1766. text:textfile;
  1767.  s,pa,filename:string;
  1768.  i,countlin,c :integer;
  1769. begin
  1770. fl:=false;
  1771.     if(edit2.Text='')or(edit5.Text='')or(edit8.Text='')or(edit11.Text='')or(edit14.Text='')or(edit17.Text='') then
  1772.      showmessage('计算未完成！')
  1773.     else if savedialog1.Execute then begin
  1774.            filename:=opendialog1.FileName;
  1775.            if fileexists(savedialog1.FileName) then
  1776.            begin
  1777.            memo1.Lines.LoadFromFile(savedialog1.FileName);
  1778.          countlin:= memo1.lines.Count ;
  1779.          if edit1.Text='' then s:='""'
  1780.          else s:=edit1.Text;
  1781.           for i:=0  to countlin-1 do    begin
  1782.           if memo1.Lines[i]=s then
  1783.           begin
  1784.               for  c:=0 to 6 do begin
  1785.           memo1.Lines.Delete(i);
  1786.           memo1.Refresh;
  1787.           end;
  1788.               memo1.Lines.Add(s);
  1789.               memo1.Lines.add(edit2.text);
  1790.           memo1.Lines.Add(edit5.Text);
  1791.           memo1.Lines.Add(edit8.Text) ;
  1792.           memo1.Lines.Add(edit11.Text) ;
  1793.           memo1.Lines.Add(edit14.Text);
  1794.           memo1.Lines.Add(edit17.Text);
  1795.               memo1.Lines.SaveToFile(savedialog1.FileName);
  1797.               flag:=true;
  1798.               fl:=true;
  1799.           end;
  1800.             end;
  1801.             if fl=false then   begin
  1802.             memo1.Lines.add(s);
  1803.           memo1.Lines.add(edit2.text);
  1804.           memo1.Lines.Add(edit5.Text);
  1805.           memo1.Lines.Add(edit8.Text) ;
  1806.           memo1.Lines.Add(edit11.Text) ;
  1807.           memo1.Lines.Add(edit14.Text);
  1808.           memo1.Lines.Add(edit17.Text);
  1809.               memo1.Lines.SaveToFile(savedialog1.FileName);
  1810.               end;
  1811.            end else begin   //file is not exist
  1812.                assignfile(text,savedialog1.FileName);
  1813.                rewrite(text);
  1814.                  if edit1.Text='' then pa:='""' else pa:=edit1.Text ;
  1815.                try
  1816.                writeln(text,pa);
  1817.                 writeln(text,edit2.text);
  1818.                 writeln(text,edit5.text);
  1819.                 writeln(text,edit8.text);
  1820.                 writeln(text,edit11.text);
  1821.                 writeln(text,edit14.text);
  1822.                 writeln(text,edit17.text);
  1824.                finally
  1825.                  closefile(text);
  1827.                end;
  1828.                flag:=true;
  1829.            end;
  1830.            end ;
  1831.    end;
  1833. procedure TForm1.Button1Click(Sender: TObject);
  1834. var
  1835.  len,i,count:integer;
  1836.    //tmpstr:string;
  1837.    tmpvar:variant;
  1838.    xornum:byte;
  1839.    arr:array of byte;
  1840. begin
  1842. arr:=nil;
  1843.  if not mscomm1.PortOpen then begin
  1844.     showmessage('串口没有打开！');
  1845.      end else begin
  1846.      setlength(arr,7);
  1847.         // f:=strtoint(edit2.text);
  1848.             arr[0]:=$7e;   //soi
  1849.            arr[1]:=$10;   //ver
  1850.             arr[2]:= $02;    //length
  1851.             arr[3]:=$a3;     //cid
  1852.            arr[4]:=$00;      //datainfo
  1853.           // arr[5]:=f div 255;
  1854.            // arr[6]:= f mod 255   ;
  1855.             xornum:= arr[2] xor arr[3] xor arr[4];// xor arr[5]xor arr[6];
  1856.             arr[5]:=xornum;
  1857.             arr[6]:=$0d;
  1858.   // send data
  1859.               len:=length(arr);
  1860.            i:=0;
  1861.             count:=0;
  1862.             tmpvar:=vararraycreate([0,0],varbyte);
  1863.              while(count<=len-1)do begin
  1864.                         tmpvar[count]:=arr[i];
  1865.                         inc(count);
  1866.                         inc(i);
  1867.                         vararrayredim(tmpvar,count);
  1868.                     end;
  1870.       MSComm1.Output:=tmpvar;
  1871.       timer7.Enabled:=true;
  1872.      // button23.Click;
  1873.  end;
  1874.     end;
  1877. procedure TForm1.Timer7Timer(Sender: TObject);
  1878. var
  1879. i,n,m,chksum,tp,tph,tpl:integer;  //,timesum
  1880. arr:array of byte;
  1881. tmpvar:variant;
  1882. xy:real;
  1883. str:string;
  1884. begin
  1885. str:='';
  1886.      arr:=nil;
  1887.      chksum:=$00;
  1888.     timesum:=timesum+integer(timer7.Interval)+10;
  1889.      if timesum<900 then
  1890.       begin
  1891.         if mscomm1.InBufferCount>0 then begin
  1892.              timer7.Enabled:=false;
  1893.              timesum:=100;
  1894.           n:=mscomm1.InBufferCount;
  1895.           setlength(arr,n);
  1896.           tmpvar:=mscomm1.input;
  1898.        for i:=0 to n-1 do begin
  1899.        arr[i]:=tmpvar[i];
  1900.        str:=str+inttostr(arr[i]);
  1901.        end;
  1902.        // showmessage(inttostr(arr[i]));
  1903.         if (arr[0]=$7e)and(arr[1]=$10)and(arr[n-1]=$0d) then     //头校验
  1904.         begin if arr[2]<>n-5 then showmessage('长度错误！') else     //长度校验
  1905.          begin
  1906.            for m:=2 to (n-3) do chksum:=chksum xor arr[m];
  1907.            if (arr[n-2]=chksum)and(arr[3]=$a3) then begin           //帧校验
  1908.                tp:=arr[4] and $f0 ;
  1909.                tph:=strtoint(floattostr(tp/16));
  1910.                tpl:=arr[4] and $0f;
  1911.                case tph of
  1912.                0:begin label17.Caption:='mw';
  1913.                if arr[6]<127 then begin
  1914.                            xy := (arr[6]*256+arr[7]) ;
  1915.                  case tpl of
  1916.                  0: edit4.Text:=formatfloat('0.000',xy/1000.0);
  1917.                  1: edit4.Text:=formatfloat('0.000',xy/100.0);
  1918.                  2: edit4.Text:=formatfloat('0.000',xy/10.0);
  1919.                  3: edit4.Text:=formatfloat('0.000',xy);
  1920.                  end;
  1921.                  end else begin
  1922.                          xy := -((arr[6]-128)*256+arr[7]) ;
  1923.                    case tpl of
  1924.                  0: edit4.Text:=formatfloat('0.000',xy/1000.0);
  1925.                  1: edit4.Text:=formatfloat('0.000',xy/100.0);
  1926.                  2: edit4.Text:=formatfloat('0.000',xy/10.0);
  1927.                  3: edit4.Text:=formatfloat('0.000',xy);
  1928.                  end;
  1929.                  end;
  1930.                  end;
  1931.                1: begin label17.Caption:='uw';if arr[6]<127 then begin
  1932.                            xy := (arr[6]*256+arr[7]) ;
  1933.                  case tpl of
  1934.                  0: edit4.Text:=formatfloat('0.000',xy/1000.0);
  1935.                  1: edit4.Text:=formatfloat('0.000',xy/100.0);
  1936.                  2: edit4.Text:=formatfloat('0.000',xy/10.0);
  1937.                  3: edit4.Text:=formatfloat('0.000',xy);
  1938.                  end;
  1939.                  end else begin
  1940.                          xy := -((arr[6]-128)*256+arr[7]) ;
  1941.                    case tpl of
  1942.                  0: edit4.Text:=formatfloat('0.000',xy/1000.0);
  1943.                  1: edit4.Text:=formatfloat('0.000',xy/100.0);
  1944.                  2: edit4.Text:=formatfloat('0.000',xy/10.0);
  1945.                  3: edit4.Text:=formatfloat('0.000',xy);
  1946.                  end;
  1947.                  end;
  1948.                  end;
  1949.                2: begin label17.Caption:='nw';if arr[6]<127 then begin
  1950.                            xy := (arr[6]*256+arr[7]) ;
  1951.                  case tpl of
  1952.                  0: edit4.Text:=formatfloat('0.000',xy/1000.0);
  1953.                  1: edit4.Text:=formatfloat('0.000',xy/100.0);
  1954.                  2: edit4.Text:=formatfloat('0.000',xy/10.0);
  1955.                  3: edit4.Text:=formatfloat('0.000',xy);
  1956.                  end;
  1957.                  end else begin
  1958.                          xy := -((arr[6]-128)*256+arr[7]) ;
  1959.                    case tpl of
  1960.                  0: edit4.Text:=formatfloat('0.000',xy/1000.0);
  1961.                  1: edit4.Text:=formatfloat('0.000',xy/100.0);
  1962.                  2: edit4.Text:=formatfloat('0.000',xy/10.0);
  1963.                  3: edit4.Text:=formatfloat('0.000',xy);
  1964.                  end;
  1965.                  end;
  1966.                  end;
  1967.                4: begin label17.Caption:='dBm'; if arr[6]<127 then begin
  1968.                            xy := (arr[6]*256+arr[7]) ;
  1969.                  case tpl of
  1970.                  0: edit4.Text:=formatfloat('0.000',xy/1000.0);
  1971.                  1: edit4.Text:=formatfloat('0.000',xy/100.0);
  1972.                  2: edit4.Text:=formatfloat('0.000',xy/10.0);
  1973.                  3: edit4.Text:=formatfloat('0.000',xy);
  1974.                  end;
  1975.                  end else begin
  1976.                          xy := -((arr[6]-128)*256+arr[7]) ;
  1977.                    case tpl of
  1978.                  0: edit4.Text:=formatfloat('0.000',xy/1000.0);
  1979.                  1: edit4.Text:=formatfloat('0.000',xy/100.0);
  1980.                  2: edit4.Text:=formatfloat('0.000',xy/10.0);
  1981.                  3: edit4.Text:=formatfloat('0.000',xy);
  1982.                  end;
  1983.                  end;
  1984.                  end;
  1985.                8:  showmessage('测量单位不能是dB。');
  1986.                9:   showmessage('超范围！');
  1987.                end;
  1988.               { if arr[6]<127 then begin
  1989.                            xy := (arr[6]*256+arr[7]) ;
  1990.                  case tpl of
  1991.                  0: edit4.Text:=formatfloat('0.000',xy/1000.0);
  1992.                  1: edit4.Text:=formatfloat('0.000',xy/100.0);
  1993.                  2: edit4.Text:=formatfloat('0.000',xy/10.0);
  1994.                  3: edit4.Text:=formatfloat('0.000',xy);
  1995.                  end;
  1996.                  end else begin
  1997.                          xy := -((arr[6]-128)*256+arr[7]) ;
  1998.                    case tpl of
  1999.                  0: edit4.Text:=formatfloat('0.000',xy/1000.0);
  2000.                  1: edit4.Text:=formatfloat('0.000',xy/100.0);
  2001.                  2: edit4.Text:=formatfloat('0.000',xy/10.0);
  2002.                  3: edit4.Text:=formatfloat('0.000',xy);
  2003.                  end;
  2004.                  end; }
  2005.              end else   begin
  2006.              timer7.Enabled:=false;
  2007.              showmessage('帧校验错误！'); //帧校验错误
  2008.              end;
  2009.              end;
  2010.        end else  begin
  2011.        timer7.Enabled:=false;
  2012.       showmessage('响应数据错误！');
  2013.         end;
  2014.     end else begin
  2015.         sleep(10);
  2016.       timer7.Enabled:=true;
  2017.              end;
  2018.              end else begin
  2019.               timesum:=100;
  2020.               timer7.Enabled:=false;
  2021.              showmessage('响应超时！');
  2023.              end;
  2024. end;
  2026. procedure TForm1.Button4Click(Sender: TObject);
  2027. var
  2028.  len,i,count:integer;
  2029.    //tmpstr:string;
  2030.    tmpvar:variant;
  2031.    xornum:byte;
  2032.    arr:array of byte;
  2033. begin
  2035. arr:=nil;
  2036.  if not mscomm1.PortOpen then begin
  2037.     showmessage('串口没有打开！');
  2038.      end else begin
  2039.      setlength(arr,7);
  2040.         // f:=strtoint(edit2.text);
  2041.             arr[0]:=$7e;   //soi
  2042.            arr[1]:=$10;   //ver
  2043.             arr[2]:= $02;    //length
  2044.             arr[3]:=$a3;     //cid
  2045.            arr[4]:=$00;      //datainfo
  2046.           // arr[5]:=f div 255;
  2047.            // arr[6]:= f mod 255   ;
  2048.             xornum:= arr[2] xor arr[3] xor arr[4];// xor arr[5]xor arr[6];
  2049.             arr[5]:=xornum;
  2050.             arr[6]:=$0d;
  2051.   // send data
  2052.               len:=length(arr);
  2053.            i:=0;
  2054.             count:=0;
  2055.             tmpvar:=vararraycreate([0,0],varbyte);
  2056.             //tmpvar[count]:=arr[i];
  2057.             //inc(count);
  2058.             //inc(i);
  2059.              while(count<=len-1)do begin
  2060.                         tmpvar[count]:=arr[i];
  2061.                         inc(count);
  2062.                         inc(i);
  2063.                         vararrayredim(tmpvar,count);
  2064.                     end;
  2066.       MSComm1.Output:=tmpvar;
  2067.       timer8.Enabled:=true;
  2068.  end;
  2070.      //while mscomm1.InBufferCount
  2071.     end;
  2075. procedure TForm1.Button7Click(Sender: TObject);
  2076. var
  2077.  len,i,count:integer;
  2078.    //tmpstr:string;
  2079.    tmpvar:variant;
  2080.    xornum:byte;
  2081.    arr:array of byte;
  2082. begin
  2084. arr:=nil;
  2085.  if not mscomm1.PortOpen then begin
  2086.     showmessage('串口没有打开！');
  2087.      end else begin
  2088.      setlength(arr,7);
  2089.         // f:=strtoint(edit2.text);
  2090.             arr[0]:=$7e;   //soi
  2091.            arr[1]:=$10;   //ver
  2092.             arr[2]:= $02;    //length
  2093.             arr[3]:=$a3;     //cid
  2094.            arr[4]:=$00;      //datainfo
  2095.           // arr[5]:=f div 255;
  2096.            // arr[6]:= f mod 255   ;
  2097.             xornum:= arr[2] xor arr[3] xor arr[4];// xor arr[5]xor arr[6];
  2098.             arr[5]:=xornum;
  2099.             arr[6]:=$0d;
  2100.   // send data
  2101.               len:=length(arr);
  2102.            i:=0;
  2103.             count:=0;
  2104.             tmpvar:=vararraycreate([0,0],varbyte);
  2105.             //tmpvar[count]:=arr[i];
  2106.             //inc(count);
  2107.             //inc(i);
  2108.              while(count<=len-1)do begin
  2109.                         tmpvar[count]:=arr[i];
  2110.                         inc(count);
  2111.                         inc(i);
  2112.                         vararrayredim(tmpvar,count);
  2113.                     end;
  2115.       MSComm1.Output:=tmpvar;
  2116.       timer9.Enabled:=true;
  2117.  end;
  2119.      //while mscomm1.InBufferCount
  2120.     end;
  2122. procedure TForm1.Button10Click(Sender: TObject);
  2123. var
  2124.  len,i,count:integer;
  2125.    //tmpstr:string;
  2126.    tmpvar:variant;
  2127.    xornum:byte;
  2128.    arr:array of byte;
  2129. begin
  2131. arr:=nil;
  2132.  if not mscomm1.PortOpen then begin
  2133.     showmessage('串口没有打开！');
  2134.      end else begin
  2135.      setlength(arr,7);
  2136.         // f:=strtoint(edit2.text);
  2137.             arr[0]:=$7e;   //soi
  2138.            arr[1]:=$10;   //ver
  2139.             arr[2]:= $02;    //length
  2140.             arr[3]:=$a3;     //cid
  2141.            arr[4]:=$00;      //datainfo
  2142.           // arr[5]:=f div 255;
  2143.            // arr[6]:= f mod 255   ;
  2144.             xornum:= arr[2] xor arr[3] xor arr[4];// xor arr[5]xor arr[6];
  2145.             arr[5]:=xornum;
  2146.             arr[6]:=$0d;
  2147.   // send data
  2148.               len:=length(arr);
  2149.            i:=0;
  2150.             count:=0;
  2151.             tmpvar:=vararraycreate([0,0],varbyte);
  2152.             //tmpvar[count]:=arr[i];
  2153.             //inc(count);
  2154.             //inc(i);
  2155.              while(count<=len-1)do begin
  2156.                         tmpvar[count]:=arr[i];
  2157.                         inc(count);
  2158.                         inc(i);
  2159.                         vararrayredim(tmpvar,count);
  2160.                     end;
  2162.       MSComm1.Output:=tmpvar;
  2163.       timer10.Enabled:=true;
  2164.  end;
  2166.      //while mscomm1.InBufferCount
  2167.     end;
  2169. procedure TForm1.Button13Click(Sender: TObject);
  2170. var
  2171.  len,i,count:integer;
  2172.    //tmpstr:string;
  2173.    tmpvar:variant;
  2174.    xornum:byte;
  2175.    arr:array of byte;
  2176. begin
  2178. arr:=nil;
  2179.  if not mscomm1.PortOpen then begin
  2180.     showmessage('串口没有打开！');
  2181.      end else begin
  2182.      setlength(arr,7);
  2183.         // f:=strtoint(edit2.text);
  2184.             arr[0]:=$7e;   //soi
  2185.            arr[1]:=$10;   //ver
  2186.             arr[2]:= $02;    //length
  2187.             arr[3]:=$a3;     //cid
  2188.            arr[4]:=$00;      //datainfo
  2189.           // arr[5]:=f div 255;
  2190.            // arr[6]:= f mod 255   ;
  2191.             xornum:= arr[2] xor arr[3] xor arr[4];// xor arr[5]xor arr[6];
  2192.             arr[5]:=xornum;
  2193.             arr[6]:=$0d;
  2194.   // send data
  2195.               len:=length(arr);
  2196.            i:=0;
  2197.             count:=0;
  2198.             tmpvar:=vararraycreate([0,0],varbyte);
  2199.             //tmpvar[count]:=arr[i];
  2200.             //inc(count);
  2201.             //inc(i);
  2202.              while(count<=len-1)do begin
  2203.                         tmpvar[count]:=arr[i];
  2204.                         inc(count);
  2205.                         inc(i);
  2206.                         vararrayredim(tmpvar,count);
  2207.                     end;
  2209.       MSComm1.Output:=tmpvar;
  2210.       timer11.Enabled:=true;
  2211.  end;
  2213.      //while mscomm1.InBufferCount
  2214.     end;
  2216. procedure TForm1.Button16Click(Sender: TObject);
  2217. var
  2218.  len,i,count:integer;
  2219.    //tmpstr:string;
  2220.    tmpvar:variant;
  2221.    xornum:byte;
  2222.    arr:array of byte;
  2223. begin
  2225. arr:=nil;
  2226.  if not mscomm1.PortOpen then begin
  2227.     showmessage('串口没有打开！');
  2228.      end else begin
  2229.      setlength(arr,7);
  2230.         // f:=strtoint(edit2.text);
  2231.             arr[0]:=$7e;   //soi
  2232.            arr[1]:=$10;   //ver
  2233.             arr[2]:= $02;    //length
  2234.             arr[3]:=$a3;     //cid
  2235.            arr[4]:=$00;      //datainfo
  2236.           // arr[5]:=f div 255;
  2237.            // arr[6]:= f mod 255   ;
  2238.             xornum:= arr[2] xor arr[3] xor arr[4];// xor arr[5]xor arr[6];
  2239.             arr[5]:=xornum;
  2240.             arr[6]:=$0d;
  2241.   // send data
  2242.               len:=length(arr);
  2243.            i:=0;
  2244.             count:=0;
  2245.             tmpvar:=vararraycreate([0,0],varbyte);
  2246.             //tmpvar[count]:=arr[i];
  2247.             //inc(count);
  2248.             //inc(i);
  2249.              while(count<=len-1)do begin
  2250.                         tmpvar[count]:=arr[i];
  2251.                         inc(count);
  2252.                         inc(i);
  2253.                         vararrayredim(tmpvar,count);
  2254.                     end;
  2256.       MSComm1.Output:=tmpvar;
  2257.       timer12.Enabled:=true;
  2258.  end;
  2260.      //while mscomm1.InBufferCount
  2261.     end;
  2263. procedure TForm1.Timer8Timer(Sender: TObject);
  2264. var
  2265. i,n,m,chksum,tp,tph,tpl:integer;  //,timesum
  2266. arr:array of byte;
  2267. tmpvar:variant;
  2268. xy:real;
  2269. str:string;
  2270. begin
  2271. str:='';
  2272.      arr:=nil;
  2273.      chksum:=$00;
  2274.     timesum:=timesum+integer(timer8.Interval)+10;
  2275.      if timesum<900 then
  2276.       begin
  2277.         if mscomm1.InBufferCount>0 then begin
  2278.              timer8.Enabled:=false;
  2279.              timesum:=100;
  2280.           n:=mscomm1.InBufferCount;
  2281.           setlength(arr,n);
  2282.           tmpvar:=mscomm1.input;
  2284.        for i:=0 to n-1 do begin
  2285.        arr[i]:=tmpvar[i];
  2286.        str:=str+inttostr(arr[i]);
  2287.        end;
  2288.        // showmessage(inttostr(arr[i]));
  2289.         if (arr[0]=$7e)and(arr[1]=$10)and(arr[n-1]=$0d) then     //头校验
  2290.         begin if arr[2]<>n-5 then showmessage('长度错误！') else     //长度校验
  2291.          begin
  2292.            for m:=2 to (n-3) do chksum:=chksum xor arr[m];
  2293.            if (arr[n-2]=chksum)and(arr[3]=$a3) then begin           //帧校验
  2294.                tp:=arr[4] and $f0 ;
  2295.                tph:=strtoint(floattostr(tp/16));
  2296.                tpl:=arr[4] and $0f;
  2297.                case tph of
  2298.                0:begin label18.Caption:='mw';
  2299.                if arr[6]<127 then begin
  2300.                            xy := (arr[6]*256+arr[7]) ;
  2301.                  case tpl of
  2302.                  0: edit7.Text:=formatfloat('0.000',xy/1000.0);
  2303.                  1: edit7.Text:=formatfloat('0.000',xy/100.0);
  2304.                  2: edit7.Text:=formatfloat('0.000',xy/10.0);
  2305.                  3: edit7.Text:=formatfloat('0.000',xy);
  2306.                  end;
  2307.                  end else begin
  2308.                          xy := -((arr[6]-128)*256+arr[7]) ;
  2309.                    case tpl of
  2310.                  0: edit7.Text:=formatfloat('0.000',xy/1000.0);
  2311.                  1: edit7.Text:=formatfloat('0.000',xy/100.0);
  2312.                  2: edit7.Text:=formatfloat('0.000',xy/10.0);
  2313.                  3: edit7.Text:=formatfloat('0.000',xy);
  2314.                  end;
  2315.                  end;
  2316.                  end;
  2317.                1: begin label18.Caption:='uw';
  2318.                if arr[6]<127 then begin
  2319.                            xy := (arr[6]*256+arr[7]) ;
  2320.                  case tpl of
  2321.                  0: edit7.Text:=formatfloat('0.000',xy/1000.0);
  2322.                  1: edit7.Text:=formatfloat('0.000',xy/100.0);
  2323.                  2: edit7.Text:=formatfloat('0.000',xy/10.0);
  2324.                  3: edit7.Text:=formatfloat('0.000',xy);
  2325.                  end;
  2326.                  end else begin
  2327.                          xy := -((arr[6]-128)*256+arr[7]) ;
  2328.                    case tpl of
  2329.                  0: edit7.Text:=formatfloat('0.000',xy/1000.0);
  2330.                  1: edit7.Text:=formatfloat('0.000',xy/100.0);
  2331.                  2: edit7.Text:=formatfloat('0.000',xy/10.0);
  2332.                  3: edit7.Text:=formatfloat('0.000',xy);
  2333.                  end;
  2334.                  end;
  2335.                  end;
  2336.                2: begin label18.Caption:='nw';
  2337.                if arr[6]<127 then begin
  2338.                            xy := (arr[6]*256+arr[7]) ;
  2339.                  case tpl of
  2340.                  0: edit7.Text:=formatfloat('0.000',xy/1000.0);
  2341.                  1: edit7.Text:=formatfloat('0.000',xy/100.0);
  2342.                  2: edit7.Text:=formatfloat('0.000',xy/10.0);
  2343.                  3: edit7.Text:=formatfloat('0.000',xy);
  2344.                  end;
  2345.                  end else begin
  2346.                          xy := -((arr[6]-128)*256+arr[7]) ;
  2347.                    case tpl of
  2348.                  0: edit7.Text:=formatfloat('0.000',xy/1000.0);
  2349.                  1: edit7.Text:=formatfloat('0.000',xy/100.0);
  2350.                  2: edit7.Text:=formatfloat('0.000',xy/10.0);
  2351.                  3: edit7.Text:=formatfloat('0.000',xy);
  2352.                  end;
  2353.                  end;
  2354.                  end;
  2355.                4: begin label18.Caption:='dBm';
  2356.                 if arr[6]<127 then begin
  2357.                            xy := (arr[6]*256+arr[7]) ;
  2358.                  case tpl of
  2359.                  0: edit7.Text:=formatfloat('0.000',xy/1000.0);
  2360.                  1: edit7.Text:=formatfloat('0.000',xy/100.0);
  2361.                  2: edit7.Text:=formatfloat('0.000',xy/10.0);
  2362.                  3: edit7.Text:=formatfloat('0.000',xy);
  2363.                  end;
  2364.                  end else begin
  2365.                          xy := -((arr[6]-128)*256+arr[7]) ;
  2366.                    case tpl of
  2367.                  0: edit7.Text:=formatfloat('0.000',xy/1000.0);
  2368.                  1: edit7.Text:=formatfloat('0.000',xy/100.0);
  2369.                  2: edit7.Text:=formatfloat('0.000',xy/10.0);
  2370.                  3: edit7.Text:=formatfloat('0.000',xy);
  2371.                  end;
  2372.                  end;
  2373.                  end;
  2374.                8:  showmessage('测量单位不能是dB。');
  2375.                9:   showmessage('超范围！');
  2376.                end;
  2377.               { if arr[6]<127 then begin
  2378.                            xy := (arr[6]*256+arr[7]) ;
  2379.                  case tpl of
  2380.                  0: edit4.Text:=formatfloat('0.000',xy/1000.0);
  2381.                  1: edit4.Text:=formatfloat('0.000',xy/100.0);
  2382.                  2: edit4.Text:=formatfloat('0.000',xy/10.0);
  2383.                  3: edit4.Text:=formatfloat('0.000',xy);
  2384.                  end;
  2385.                  end else begin
  2386.                          xy := -((arr[6]-128)*256+arr[7]) ;
  2387.                    case tpl of
  2388.                  0: edit4.Text:=formatfloat('0.000',xy/1000.0);
  2389.                  1: edit4.Text:=formatfloat('0.000',xy/100.0);
  2390.                  2: edit4.Text:=formatfloat('0.000',xy/10.0);
  2391.                  3: edit4.Text:=formatfloat('0.000',xy);
  2392.                  end;
  2393.                  end; }
  2394.              end else   begin
  2395.              timer8.Enabled:=false;
  2396.              showmessage('帧校验错误！'); //帧校验错误
  2397.              end;
  2398.              end;
  2399.        end else  begin
  2400.        timer8.Enabled:=false;
  2401.       showmessage('响应数据错误！');
  2402.         end;
  2403.     end else begin
  2404.         sleep(10);
  2405.       timer8.Enabled:=true;
  2406.              end;
  2407.              end else begin
  2408.               timesum:=100;
  2409.               timer8.Enabled:=false;
  2410.              showmessage('响应超时！');
  2412.              end;
  2413. end;
  2416. procedure TForm1.Timer9Timer(Sender: TObject);
  2417. var
  2418. i,n,m,chksum,tp,tph,tpl:integer;  //,timesum
  2419. arr:array of byte;
  2420. tmpvar:variant;
  2421. xy:real;
  2422. str:string;
  2423. begin
  2424. str:='';
  2425.      arr:=nil;
  2426.      chksum:=$00;
  2427.     timesum:=timesum+integer(timer9.Interval)+10;
  2428.      if timesum<900 then
  2429.       begin
  2430.         if mscomm1.InBufferCount>0 then begin
  2431.              timer9.Enabled:=false;
  2432.              timesum:=100;
  2433.           n:=mscomm1.InBufferCount;
  2434.           setlength(arr,n);
  2435.           tmpvar:=mscomm1.input;
  2437.        for i:=0 to n-1 do begin
  2438.        arr[i]:=tmpvar[i];
  2439.        str:=str+inttostr(arr[i]);
  2440.        end;
  2441.        // showmessage(inttostr(arr[i]));
  2442.         if (arr[0]=$7e)and(arr[1]=$10)and(arr[n-1]=$0d) then     //头校验
  2443.         begin if arr[2]<>n-5 then showmessage('长度错误！') else     //长度校验
  2444.          begin
  2445.            for m:=2 to (n-3) do chksum:=chksum xor arr[m];
  2446.            if (arr[n-2]=chksum)and(arr[3]=$a3) then begin           //帧校验
  2447.                tp:=arr[4] and $f0 ;
  2448.                tph:=strtoint(floattostr(tp/16));
  2449.                tpl:=arr[4] and $0f;
  2450.                case tph of
  2451.                0:begin label19.Caption:='mw';
  2452.                if arr[6]<127 then begin
  2453.                            xy := (arr[6]*256+arr[7]) ;
  2454.                  case tpl of
  2455.                  0: edit10.Text:=formatfloat('0.000',xy/1000.0);
  2456.                  1: edit10.Text:=formatfloat('0.000',xy/100.0);
  2457.                  2: edit10.Text:=formatfloat('0.000',xy/10.0);
  2458.                  3: edit10.Text:=formatfloat('0.000',xy);
  2459.                  end;
  2460.                  end else begin
  2461.                          xy := -((arr[6]-128)*256+arr[7]) ;
  2462.                    case tpl of
  2463.                  0: edit10.Text:=formatfloat('0.000',xy/1000.0);
  2464.                  1: edit10.Text:=formatfloat('0.000',xy/100.0);
  2465.                  2: edit10.Text:=formatfloat('0.000',xy/10.0);
  2466.                  3: edit10.Text:=formatfloat('0.000',xy);
  2467.                  end;
  2468.                  end;
  2469.                  end;
  2470.                1: begin label19.Caption:='uw';if arr[6]<127 then begin
  2471.                            xy := (arr[6]*256+arr[7]) ;
  2472.                  case tpl of
  2473.                  0: edit10.Text:=formatfloat('0.000',xy/1000.0);
  2474.                  1: edit10.Text:=formatfloat('0.000',xy/100.0);
  2475.                  2: edit10.Text:=formatfloat('0.000',xy/10.0);
  2476.                  3: edit10.Text:=formatfloat('0.000',xy);
  2477.                  end;
  2478.                  end else begin
  2479.                          xy := -((arr[6]-128)*256+arr[7]) ;
  2480.                    case tpl of
  2481.                  0: edit10.Text:=formatfloat('0.000',xy/1000.0);
  2482.                  1: edit10.Text:=formatfloat('0.000',xy/100.0);
  2483.                  2: edit10.Text:=formatfloat('0.000',xy/10.0);
  2484.                  3: edit10.Text:=formatfloat('0.000',xy);
  2485.                  end;
  2486.                  end;
  2487.                  end;
  2488.                2: begin label19.Caption:='nw';if arr[6]<127 then begin
  2489.                            xy := (arr[6]*256+arr[7]) ;
  2490.                  case tpl of
  2491.                  0: edit10.Text:=formatfloat('0.000',xy/1000.0);
  2492.                  1: edit10.Text:=formatfloat('0.000',xy/100.0);
  2493.                  2: edit10.Text:=formatfloat('0.000',xy/10.0);
  2494.                  3: edit10.Text:=formatfloat('0.000',xy);
  2495.                  end;
  2496.                  end else begin
  2497.                          xy := -((arr[6]-128)*256+arr[7]) ;
  2498.                    case tpl of
  2499.                  0: edit10.Text:=formatfloat('0.000',xy/1000.0);
  2500.                  1: edit10.Text:=formatfloat('0.000',xy/100.0);
  2501.                  2: edit10.Text:=formatfloat('0.000',xy/10.0);
  2502.                  3: edit10.Text:=formatfloat('0.000',xy);
  2503.                  end;
  2504.                  end;
  2505.                  end;
  2506.                4: begin label19.Caption:='dBm'; if arr[6]<127 then begin
  2507.                            xy := (arr[6]*256+arr[7]) ;
  2508.                  case tpl of
  2509.                  0: edit10.Text:=formatfloat('0.000',xy/1000.0);
  2510.                  1: edit10.Text:=formatfloat('0.000',xy/100.0);
  2511.                  2: edit10.Text:=formatfloat('0.000',xy/10.0);
  2512.                  3: edit10.Text:=formatfloat('0.000',xy);
  2513.                  end;
  2514.                  end else begin
  2515.                          xy := -((arr[6]-128)*256+arr[7]) ;
  2516.                    case tpl of
  2517.                  0: edit10.Text:=formatfloat('0.000',xy/1000.0);
  2518.                  1: edit10.Text:=formatfloat('0.000',xy/100.0);
  2519.                  2: edit10.Text:=formatfloat('0.000',xy/10.0);
  2520.                  3: edit10.Text:=formatfloat('0.000',xy);
  2521.                  end;
  2522.                  end;
  2523.                  end;
  2524.                8:  showmessage('测量单位不能是dB。');
  2525.                9:   showmessage('超范围！');
  2526.                end;
  2527.               { if arr[6]<127 then begin
  2528.                            xy := (arr[6]*256+arr[7]) ;
  2529.                  case tpl of
  2530.                  0: edit4.Text:=formatfloat('0.000',xy/1000.0);
  2531.                  1: edit4.Text:=formatfloat('0.000',xy/100.0);
  2532.                  2: edit4.Text:=formatfloat('0.000',xy/10.0);
  2533.                  3: edit4.Text:=formatfloat('0.000',xy);
  2534.                  end;
  2535.                  end else begin
  2536.                          xy := -((arr[6]-128)*256+arr[7]) ;
  2537.                    case tpl of
  2538.                  0: edit4.Text:=formatfloat('0.000',xy/1000.0);
  2539.                  1: edit4.Text:=formatfloat('0.000',xy/100.0);
  2540.                  2: edit4.Text:=formatfloat('0.000',xy/10.0);
  2541.                  3: edit4.Text:=formatfloat('0.000',xy);
  2542.                  end;
  2543.                  end; }
  2544.              end else   begin
  2545.              timer9.Enabled:=false;
  2546.              showmessage('帧校验错误！'); //帧校验错误
  2547.              end;
  2548.              end;
  2549.        end else  begin
  2550.        timer9.Enabled:=false;
  2551.       showmessage('响应数据错误！');
  2552.         end;
  2553.     end else begin
  2554.         sleep(10);
  2555.       timer9.Enabled:=true;
  2556.              end;
  2557.              end else begin
  2558.               timesum:=100;
  2559.               timer9.Enabled:=false;
  2560.              showmessage('响应超时！');
  2562.              end;
  2563. end;
  2565. procedure TForm1.Timer10Timer(Sender: TObject);
  2566. var
  2567. i,n,m,chksum,tp,tph,tpl:integer;  //,timesum
  2568. arr:array of byte;
  2569. tmpvar:variant;
  2570. xy:real;
  2571. str:string;
  2572. begin
  2573. str:='';
  2574.      arr:=nil;
  2575.      chksum:=$00;
  2576.     timesum:=timesum+integer(timer10.Interval)+10;
  2577.      if timesum<900 then
  2578.       begin
  2579.         if mscomm1.InBufferCount>0 then begin
  2580.              timer10.Enabled:=false;
  2581.              timesum:=100;
  2582.           n:=mscomm1.InBufferCount;
  2583.           setlength(arr,n);
  2584.           tmpvar:=mscomm1.input;
  2586.        for i:=0 to n-1 do begin
  2587.        arr[i]:=tmpvar[i];
  2588.        str:=str+inttostr(arr[i]);
  2589.        end;
  2590.        // showmessage(inttostr(arr[i]));
  2591.         if (arr[0]=$7e)and(arr[1]=$10)and(arr[n-1]=$0d) then     //头校验
  2592.         begin if arr[2]<>n-5 then showmessage('长度错误！') else     //长度校验
  2593.          begin
  2594.            for m:=2 to (n-3) do chksum:=chksum xor arr[m];
  2595.            if (arr[n-2]=chksum)and(arr[3]=$a3) then begin           //帧校验
  2596.                tp:=arr[4] and $f0 ;
  2597.                tph:=strtoint(floattostr(tp/16));
  2598.                tpl:=arr[4] and $0f;
  2599.                case tph of
  2600.                0:begin label20.Caption:='mw';
  2601.                if arr[6]<127 then begin
  2602.                            xy := (arr[6]*256+arr[7]) ;
  2603.                  case tpl of
  2604.                  0: edit13.Text:=formatfloat('0.000',xy/1000.0);
  2605.                  1: edit13.Text:=formatfloat('0.000',xy/100.0);
  2606.                  2: edit13.Text:=formatfloat('0.000',xy/10.0);
  2607.                  3: edit13.Text:=formatfloat('0.000',xy);
  2608.                  end;
  2609.                  end else begin
  2610.                          xy := -((arr[6]-128)*256+arr[7]) ;
  2611.                    case tpl of
  2612.                  0: edit13.Text:=formatfloat('0.000',xy/1000.0);
  2613.                  1: edit13.Text:=formatfloat('0.000',xy/100.0);
  2614.                  2: edit13.Text:=formatfloat('0.000',xy/10.0);
  2615.                  3: edit13.Text:=formatfloat('0.000',xy);
  2616.                  end;
  2617.                  end;
  2618.                  end;
  2619.                1: begin label20.Caption:='uw';if arr[6]<127 then begin
  2620.                            xy := (arr[6]*256+arr[7]) ;
  2621.                  case tpl of
  2622.                  0: edit13.Text:=formatfloat('0.000',xy/1000.0);
  2623.                  1: edit13.Text:=formatfloat('0.000',xy/100.0);
  2624.                  2: edit13.Text:=formatfloat('0.000',xy/10.0);
  2625.                  3: edit13.Text:=formatfloat('0.000',xy);
  2626.                  end;
  2627.                  end else begin
  2628.                          xy := -((arr[6]-128)*256+arr[7]) ;
  2629.                    case tpl of
  2630.                  0: edit13.Text:=formatfloat('0.000',xy/1000.0);
  2631.                  1: edit13.Text:=formatfloat('0.000',xy/100.0);
  2632.                  2: edit13.Text:=formatfloat('0.000',xy/10.0);
  2633.                  3: edit13.Text:=formatfloat('0.000',xy);
  2634.                  end;
  2635.                  end;
  2636.                  end;
  2637.                2: begin label20.Caption:='nw';if arr[6]<127 then begin
  2638.                            xy := (arr[6]*256+arr[7]) ;
  2639.                  case tpl of
  2640.                  0: edit13.Text:=formatfloat('0.000',xy/1000.0);
  2641.                  1: edit13.Text:=formatfloat('0.000',xy/100.0);
  2642.                  2: edit13.Text:=formatfloat('0.000',xy/10.0);
  2643.                  3: edit13.Text:=formatfloat('0.000',xy);
  2644.                  end;
  2645.                  end else begin
  2646.                          xy := -((arr[6]-128)*256+arr[7]) ;
  2647.                    case tpl of
  2648.                  0: edit13.Text:=formatfloat('0.000',xy/1000.0);
  2649.                  1: edit13.Text:=formatfloat('0.000',xy/100.0);
  2650.                  2: edit13.Text:=formatfloat('0.000',xy/10.0);
  2651.                  3: edit13.Text:=formatfloat('0.000',xy);
  2652.                  end;
  2653.                  end;
  2654.                  end;
  2655.                4: begin label20.Caption:='dBm'; if arr[6]<127 then begin
  2656.                            xy := (arr[6]*256+arr[7]) ;
  2657.                  case tpl of
  2658.                  0: edit13.Text:=formatfloat('0.000',xy/1000.0);
  2659.                  1: edit13.Text:=formatfloat('0.000',xy/100.0);
  2660.                  2: edit13.Text:=formatfloat('0.000',xy/10.0);
  2661.                  3: edit13.Text:=formatfloat('0.000',xy);
  2662.                  end;
  2663.                  end else begin
  2664.                          xy := -((arr[6]-128)*256+arr[7]) ;
  2665.                    case tpl of
  2666.                  0: edit13.Text:=formatfloat('0.000',xy/1000.0);
  2667.                  1: edit13.Text:=formatfloat('0.000',xy/100.0);
  2668.                  2: edit13.Text:=formatfloat('0.000',xy/10.0);
  2669.                  3: edit13.Text:=formatfloat('0.000',xy);
  2670.                  end;
  2671.                  end;
  2672.                  end;
  2673.                8:  showmessage('测量单位不能是dB。');
  2674.                9:   showmessage('超范围！');
  2675.                end;
  2676.               { if arr[6]<127 then begin
  2677.                            xy := (arr[6]*256+arr[7]) ;
  2678.                  case tpl of
  2679.                  0: edit4.Text:=formatfloat('0.000',xy/1000.0);
  2680.                  1: edit4.Text:=formatfloat('0.000',xy/100.0);
  2681.                  2: edit4.Text:=formatfloat('0.000',xy/10.0);
  2682.                  3: edit4.Text:=formatfloat('0.000',xy);
  2683.                  end;
  2684.                  end else begin
  2685.                          xy := -((arr[6]-128)*256+arr[7]) ;
  2686.                    case tpl of
  2687.                  0: edit4.Text:=formatfloat('0.000',xy/1000.0);
  2688.                  1: edit4.Text:=formatfloat('0.000',xy/100.0);
  2689.                  2: edit4.Text:=formatfloat('0.000',xy/10.0);
  2690.                  3: edit4.Text:=formatfloat('0.000',xy);
  2691.                  end;
  2692.                  end; }
  2693.              end else   begin
  2694.              timer10.Enabled:=false;
  2695.              showmessage('帧校验错误！'); //帧校验错误
  2696.              end;
  2697.              end;
  2698.        end else  begin
  2699.        timer10.Enabled:=false;
  2700.       showmessage('响应数据错误！');
  2701.         end;
  2702.     end else begin
  2703.         sleep(10);
  2704.       timer10.Enabled:=true;
  2705.              end;
  2706.              end else begin
  2707.               timesum:=100;
  2708.               timer10.Enabled:=false;
  2709.              showmessage('响应超时！');
  2711.              end;
  2712. end;
  2714. procedure TForm1.Timer11Timer(Sender: TObject);
  2715. var
  2716. i,n,m,chksum,tp,tph,tpl:integer;  //,timesum
  2717. arr:array of byte;
  2718. tmpvar:variant;
  2719. xy:real;
  2720. str:string;
  2721. begin
  2722. str:='';
  2723.      arr:=nil;
  2724.      chksum:=$00;
  2725.     timesum:=timesum+integer(timer11.Interval)+10;
  2726.      if timesum<900 then
  2727.       begin
  2728.         if mscomm1.InBufferCount>0 then begin
  2729.              timer11.Enabled:=false;
  2730.              timesum:=100;
  2731.           n:=mscomm1.InBufferCount;
  2732.           setlength(arr,n);
  2733.           tmpvar:=mscomm1.input;
  2735.        for i:=0 to n-1 do begin
  2736.        arr[i]:=tmpvar[i];
  2737.        str:=str+inttostr(arr[i]);
  2738.        end;
  2739.        // showmessage(inttostr(arr[i]));
  2740.         if (arr[0]=$7e)and(arr[1]=$10)and(arr[n-1]=$0d) then     //头校验
  2741.         begin if arr[2]<>n-5 then showmessage('长度错误！') else     //长度校验
  2742.          begin
  2743.            for m:=2 to (n-3) do chksum:=chksum xor arr[m];
  2744.            if (arr[n-2]=chksum)and(arr[3]=$a3) then begin           //帧校验
  2745.                tp:=arr[4] and $f0 ;
  2746.                tph:=strtoint(floattostr(tp/16));
  2747.                tpl:=arr[4] and $0f;
  2748.                case tph of
  2749.                0:begin label21.Caption:='mw';
  2750.                if arr[6]<127 then begin
  2751.                            xy := (arr[6]*256+arr[7]) ;
  2752.                  case tpl of
  2753.                  0: edit16.Text:=formatfloat('0.000',xy/1000.0);
  2754.                  1: edit16.Text:=formatfloat('0.000',xy/100.0);
  2755.                  2: edit16.Text:=formatfloat('0.000',xy/10.0);
  2756.                  3: edit16.Text:=formatfloat('0.000',xy);
  2757.                  end;
  2758.                  end else begin
  2759.                          xy := -((arr[6]-128)*256+arr[7]) ;
  2760.                    case tpl of
  2761.                  0: edit16.Text:=formatfloat('0.000',xy/1000.0);
  2762.                  1: edit16.Text:=formatfloat('0.000',xy/100.0);
  2763.                  2: edit16.Text:=formatfloat('0.000',xy/10.0);
  2764.                  3: edit16.Text:=formatfloat('0.000',xy);
  2765.                  end;
  2766.                  end;
  2767.                  end;
  2768.                1: begin label21.Caption:='uw';if arr[6]<127 then begin
  2769.                            xy := (arr[6]*256+arr[7]) ;
  2770.                  case tpl of
  2771.                  0: edit16.Text:=formatfloat('0.000',xy/1000.0);
  2772.                  1: edit16.Text:=formatfloat('0.000',xy/100.0);
  2773.                  2: edit16.Text:=formatfloat('0.000',xy/10.0);
  2774.                  3: edit16.Text:=formatfloat('0.000',xy);
  2775.                  end;
  2776.                  end else begin
  2777.                          xy := -((arr[6]-128)*256+arr[7]) ;
  2778.                    case tpl of
  2779.                  0: edit16.Text:=formatfloat('0.000',xy/1000.0);
  2780.                  1: edit16.Text:=formatfloat('0.000',xy/100.0);
  2781.                  2: edit16.Text:=formatfloat('0.000',xy/10.0);
  2782.                  3: edit16.Text:=formatfloat('0.000',xy);
  2783.                  end;
  2784.                  end;
  2785.                  end;
  2786.                2: begin label21.Caption:='nw';if arr[6]<127 then begin
  2787.                            xy := (arr[6]*256+arr[7]) ;
  2788.                  case tpl of
  2789.                  0: edit16.Text:=formatfloat('0.000',xy/1000.0);
  2790.                  1: edit16.Text:=formatfloat('0.000',xy/100.0);
  2791.                  2: edit16.Text:=formatfloat('0.000',xy/10.0);
  2792.                  3: edit16.Text:=formatfloat('0.000',xy);
  2793.                  end;
  2794.                  end else begin
  2795.                          xy := -((arr[6]-128)*256+arr[7]) ;
  2796.                    case tpl of
  2797.                  0: edit16.Text:=formatfloat('0.000',xy/1000.0);
  2798.                  1: edit16.Text:=formatfloat('0.000',xy/100.0);
  2799.                  2: edit16.Text:=formatfloat('0.000',xy/10.0);
  2800.                  3: edit16.Text:=formatfloat('0.000',xy);
  2801.                  end;
  2802.                  end;
  2803.                  end;
  2804.                4: begin label21.Caption:='dBm'; if arr[6]<127 then begin
  2805.                            xy := (arr[6]*256+arr[7]) ;
  2806.                  case tpl of
  2807.                  0: edit16.Text:=formatfloat('0.000',xy/1000.0);
  2808.                  1: edit16.Text:=formatfloat('0.000',xy/100.0);
  2809.                  2: edit16.Text:=formatfloat('0.000',xy/10.0);
  2810.                  3: edit16.Text:=formatfloat('0.000',xy);
  2811.                  end;
  2812.                  end else begin
  2813.                          xy := -((arr[6]-128)*256+arr[7]) ;
  2814.                    case tpl of
  2815.                  0: edit16.Text:=formatfloat('0.000',xy/1000.0);
  2816.                  1: edit16.Text:=formatfloat('0.000',xy/100.0);
  2817.                  2: edit16.Text:=formatfloat('0.000',xy/10.0);
  2818.                  3: edit16.Text:=formatfloat('0.000',xy);
  2819.                  end;
  2820.                  end;
  2821.                  end;
  2822.                8:  showmessage('测量单位不能是dB。');
  2823.                9:   showmessage('超范围！');
  2824.                end;
  2825.               { if arr[6]<127 then begin
  2826.                            xy := (arr[6]*256+arr[7]) ;
  2827.                  case tpl of
  2828.                  0: edit4.Text:=formatfloat('0.000',xy/1000.0);
  2829.                  1: edit4.Text:=formatfloat('0.000',xy/100.0);
  2830.                  2: edit4.Text:=formatfloat('0.000',xy/10.0);
  2831.                  3: edit4.Text:=formatfloat('0.000',xy);
  2832.                  end;
  2833.                  end else begin
  2834.                          xy := -((arr[6]-128)*256+arr[7]) ;
  2835.                    case tpl of
  2836.                  0: edit4.Text:=formatfloat('0.000',xy/1000.0);
  2837.                  1: edit4.Text:=formatfloat('0.000',xy/100.0);
  2838.                  2: edit4.Text:=formatfloat('0.000',xy/10.0);
  2839.                  3: edit4.Text:=formatfloat('0.000',xy);
  2840.                  end;
  2841.                  end; }
  2842.              end else   begin
  2843.              timer11.Enabled:=false;
  2844.              showmessage('帧校验错误！'); //帧校验错误
  2845.              end;
  2846.              end;
  2847.        end else  begin
  2848.        timer11.Enabled:=false;
  2849.       showmessage('响应数据错误！');
  2850.         end;
  2851.     end else begin
  2852.         sleep(10);
  2853.       timer11.Enabled:=true;
  2854.              end;
  2855.              end else begin
  2856.               timesum:=100;
  2857.               timer11.Enabled:=false;
  2858.              showmessage('响应超时！');
  2860.              end;
  2861. end;
  2863. procedure TForm1.Timer12Timer(Sender: TObject);
  2864. var
  2865. i,n,m,chksum,tp,tph,tpl:integer;  //,timesum
  2866. arr:array of byte;
  2867. tmpvar:variant;
  2868. xy:real;
  2869. str:string;
  2870. begin
  2871. str:='';
  2872.      arr:=nil;
  2873.      chksum:=$00;
  2874.     timesum:=timesum+integer(timer12.Interval)+10;
  2875.      if timesum<900 then
  2876.       begin
  2877.         if mscomm1.InBufferCount>0 then begin
  2878.              timer12.Enabled:=false;
  2879.              timesum:=100;
  2880.           n:=mscomm1.InBufferCount;
  2881.           setlength(arr,n);
  2882.           tmpvar:=mscomm1.input;
  2884.        for i:=0 to n-1 do begin
  2885.        arr[i]:=tmpvar[i];
  2886.        str:=str+inttostr(arr[i]);
  2887.        end;
  2888.        // showmessage(inttostr(arr[i]));
  2889.         if (arr[0]=$7e)and(arr[1]=$10)and(arr[n-1]=$0d) then     //头校验
  2890.         begin if arr[2]<>n-5 then showmessage('长度错误！') else     //长度校验
  2891.          begin
  2892.            for m:=2 to (n-3) do chksum:=chksum xor arr[m];
  2893.            if (arr[n-2]=chksum)and(arr[3]=$a3) then begin           //帧校验
  2894.                tp:=arr[4] and $f0 ;
  2895.                tph:=strtoint(floattostr(tp/16));
  2896.                tpl:=arr[4] and $0f;
  2897.                case tph of
  2898.                0:begin label22.Caption:='mw';
  2899.                if arr[6]<127 then begin
  2900.                            xy := (arr[6]*256+arr[7]) ;
  2901.                  case tpl of
  2902.                  0: edit19.Text:=formatfloat('0.000',xy/1000.0);
  2903.                  1: edit19.Text:=formatfloat('0.000',xy/100.0);
  2904.                  2: edit19.Text:=formatfloat('0.000',xy/10.0);
  2905.                  3: edit19.Text:=formatfloat('0.000',xy);
  2906.                  end;
  2907.                  end else begin
  2908.                          xy := -((arr[6]-128)*256+arr[7]) ;
  2909.                    case tpl of
  2910.                  0: edit19.Text:=formatfloat('0.000',xy/1000.0);
  2911.                  1: edit19.Text:=formatfloat('0.000',xy/100.0);
  2912.                  2: edit19.Text:=formatfloat('0.000',xy/10.0);
  2913.                  3: edit19.Text:=formatfloat('0.000',xy);
  2914.                  end;
  2915.                  end;
  2916.                  end;
  2917.                1: begin label22.Caption:='uw';if arr[6]<127 then begin
  2918.                            xy := (arr[6]*256+arr[7]) ;
  2919.                  case tpl of
  2920.                  0: edit19.Text:=formatfloat('0.000',xy/1000.0);
  2921.                  1: edit19.Text:=formatfloat('0.000',xy/100.0);
  2922.                  2: edit19.Text:=formatfloat('0.000',xy/10.0);
  2923.                  3: edit19.Text:=formatfloat('0.000',xy);
  2924.                  end;
  2925.                  end else begin
  2926.                          xy := -((arr[6]-128)*256+arr[7]) ;
  2927.                    case tpl of
  2928.                  0: edit19.Text:=formatfloat('0.000',xy/1000.0);
  2929.                  1: edit19.Text:=formatfloat('0.000',xy/100.0);
  2930.                  2: edit19.Text:=formatfloat('0.000',xy/10.0);
  2931.                  3: edit19.Text:=formatfloat('0.000',xy);
  2932.                  end;
  2933.                  end;
  2934.                  end;
  2935.                2: begin label22.Caption:='nw';if arr[6]<127 then begin
  2936.                            xy := (arr[6]*256+arr[7]) ;
  2937.                  case tpl of
  2938.                  0: edit19.Text:=formatfloat('0.000',xy/1000.0);
  2939.                  1: edit19.Text:=formatfloat('0.000',xy/100.0);
  2940.                  2: edit19.Text:=formatfloat('0.000',xy/10.0);
  2941.                  3: edit19.Text:=formatfloat('0.000',xy);
  2942.                  end;
  2943.                  end else begin
  2944.                          xy := -((arr[6]-128)*256+arr[7]) ;
  2945.                    case tpl of
  2946.                  0: edit19.Text:=formatfloat('0.000',xy/1000.0);
  2947.                  1: edit19.Text:=formatfloat('0.000',xy/100.0);
  2948.                  2: edit19.Text:=formatfloat('0.000',xy/10.0);
  2949.                  3: edit19.Text:=formatfloat('0.000',xy);
  2950.                  end;
  2951.                  end;
  2952.                  end;
  2953.                4: begin label22.Caption:='dBm'; if arr[6]<127 then begin
  2954.                            xy := (arr[6]*256+arr[7]) ;
  2955.                  case tpl of
  2956.                  0: edit19.Text:=formatfloat('0.000',xy/1000.0);
  2957.                  1: edit19.Text:=formatfloat('0.000',xy/100.0);
  2958.                  2: edit19.Text:=formatfloat('0.000',xy/10.0);
  2959.                  3: edit19.Text:=formatfloat('0.000',xy);
  2960.                  end;
  2961.                  end else begin
  2962.                          xy := -((arr[6]-128)*256+arr[7]) ;
  2963.                    case tpl of
  2964.                  0: edit19.Text:=formatfloat('0.000',xy/1000.0);
  2965.                  1: edit19.Text:=formatfloat('0.000',xy/100.0);
  2966.                  2: edit19.Text:=formatfloat('0.000',xy/10.0);
  2967.                  3: edit19.Text:=formatfloat('0.000',xy);
  2968.                  end;
  2969.                  end;
  2970.                  end;
  2971.                8:  showmessage('测量单位不能是dB。');
  2972.                9:   showmessage('超范围！');
  2973.                end;
  2974.               { if arr[6]<127 then begin
  2975.                            xy := (arr[6]*256+arr[7]) ;
  2976.                  case tpl of
  2977.                  0: edit4.Text:=formatfloat('0.000',xy/1000.0);
  2978.                  1: edit4.Text:=formatfloat('0.000',xy/100.0);
  2979.                  2: edit4.Text:=formatfloat('0.000',xy/10.0);
  2980.                  3: edit4.Text:=formatfloat('0.000',xy);
  2981.                  end;
  2982.                  end else begin
  2983.                          xy := -((arr[6]-128)*256+arr[7]) ;
  2984.                    case tpl of
  2985.                  0: edit4.Text:=formatfloat('0.000',xy/1000.0);
  2986.                  1: edit4.Text:=formatfloat('0.000',xy/100.0);
  2987.                  2: edit4.Text:=formatfloat('0.000',xy/10.0);
  2988.                  3: edit4.Text:=formatfloat('0.000',xy);
  2989.                  end;
  2990.                  end; }
  2991.              end else   begin
  2992.              timer12.Enabled:=false;
  2993.              showmessage('帧校验错误！'); //帧校验错误
  2994.              end;
  2995.              end;
  2996.        end else  begin
  2997.        timer12.Enabled:=false;
  2998.       showmessage('响应数据错误！');
  2999.         end;
  3000.     end else begin
  3001.         sleep(10);
  3002.       timer12.Enabled:=true;
  3003.              end;
  3004.              end else begin
  3005.               timesum:=100;
  3006.               timer12.Enabled:=false;
  3007.              showmessage('响应超时！');
  3009.              end;
  3010. end;
  3012. procedure TForm1.Button24Click(Sender: TObject);
  3013. var
  3014.   len,i,count:integer;
  3015.    //tmpstr:string;
  3016.    tmpvar:variant;
  3017.    xornum:byte;
  3018.    arr:array of byte;
  3019. begin
  3021. arr:=nil;
  3022.   begin if not mscomm1.PortOpen then begin
  3023.     showmessage('serials is not open!');
  3024.      end else begin
  3025.      setlength(arr,7);
  3026.         // f:=strtoint(edit2.text);
  3027.             arr[0]:=$7e;   //soi
  3028.            arr[1]:=$10;   //ver
  3029.             arr[2]:= $02;    //length
  3030.             arr[3]:=$a3;     //cid
  3031.            arr[4]:=$0ff;      //datainfo
  3032.           // arr[5]:=f div 255;
  3033.           //  arr[6]:= f mod 255   ;
  3034.             xornum:= arr[2] xor arr[3] xor arr[4] ;//xor arr[5]xor arr[6];
  3035.             arr[5]:=xornum;
  3036.             arr[6]:=$0d;
  3037.   // send data
  3038.               len:=length(arr);
  3039.               //showmessage('hex:point'+inttostr(len));
  3040.            i:=0;
  3041.             count:=0;
  3042.             tmpvar:=vararraycreate([0,0],varbyte);
  3043.             //tmpvar[count]:=arr[i];
  3044.             //inc(count);
  3045.             //inc(i);
  3046.              while(count<=len-1)do begin
  3047.                         tmpvar[count]:=arr[i];
  3048.                         inc(count);
  3049.                         inc(i);
  3050.                         vararrayredim(tmpvar,count);
  3051.                     end;
  3053.       MSComm1.Output:=tmpvar;
  3054.       timer13.Enabled:=true;
  3055.  end;
  3057.    
  3058.     end;
  3059. end;
  3061. procedure TForm1.Timer13Timer(Sender: TObject);
  3062. var
  3063. i,n,m,chksum:integer;
  3064. arr:array of byte;
  3065. tmpvar:variant;
  3066. begin
  3067.      timer13.Enabled:=false;
  3068.      arr:=nil;
  3069.      chksum:=0;
  3070.     timesum:=timesum+integer(timer13.Interval)+10;
  3071.      if timesum<900 then
  3072.       begin
  3073.         if mscomm1.InBufferCount>0 then begin
  3074.           n:=mscomm1.InBufferCount;
  3075.           setlength(arr,n);
  3076.           tmpvar:=mscomm1.Input;
  3077.        for i:=0 to n-1 do arr[i]:=tmpvar[i];
  3078.         if (arr[0]=$7e)and(arr[1]=$10)and(arr[n-1]=$0d) then
  3079.         begin
  3080.            for m:=2 to (n-3) do chksum:=chksum xor arr[m];
  3081.            if (chksum=arr[n-2])and(arr[3]=$a3) then begin
  3082.                edit30.Text:=inttostr(arr[4]);
  3083.                edit29.Clear;
  3084.                  edit28.Clear;
  3085.                  edit27.Clear;
  3086.             { if  (arr[4]=$0cc)or(arr[4]=$66) then
  3087.                  showmessage('参数设定成功！')
  3088.                else   showmessage('参数设定失败！');}
  3089.              end else begin
  3090.              timer13.Enabled:=false;
  3091.              showmessage('帧校验错误！'); //帧校验错误
  3092.              end;
  3093.          end else
  3094.          begin
  3095.          timer13.Enabled:=false;
  3096.          showmessage('回应帧错误！');
  3097.        //showmessage('响应数据错误！');
  3098.        end;
  3099.          end else begin
  3100.         sleep(10);
  3101.        timer13.Enabled:=true;
  3102.          end;
  3103.       end else begin
  3104.       timesum:=100;
  3105.              timer13.Enabled:=false;
  3106.              showmessage('响应超时！');
  3108.              end;
  3109. end;
  3111. procedure TForm1.Button25Click(Sender: TObject);
  3112. var
  3113.  point,len,i,p,count:integer;
  3114.  // f:string;
  3115.    tmpvar:variant;
  3116.    xornum:byte;
  3117.    arr:array of byte;
  3118. begin
  3119. arr:=nil;
  3120. point:=0;
  3121.    if not mscomm1.PortOpen then begin
  3122.     showmessage('serials is not open!');
  3123.      end else begin
  3124.       if combobox2.ItemIndex=0 then showmessage('请选择上传类型！')
  3125.       else begin
  3126.                  if   combobox2.ItemIndex=3  then  begin
  3127.                   if edit31.Text='' then showmessage(' 输入上传数组号！')
  3128.                    else    begin
  3129.                     point:=strtoint(edit31.Text);
  3130.                    zuhao:=point;
  3131.                  button24.Click;
  3132.                 TIMEDELAY(1000);
  3133.                   if edit30.Text='' then showmessage('数组数目上传失败！')
  3134.                   else begin
  3135.                 p:=strtoint(edit30.text);
  3136.                // f:= inputbox('输入','输入数组号','0');
  3137.                 //point:=strtoint(inputbox('输入','输入数组号','0'));
  3138.                   if (zuhao<0  )and (zuhao>100) then showmessage('数组号输入非法！')
  3139.                   else begin
  3140.                   if zuhao>p then showmessage('目前有'+inttostr(p)+'组数，请重新输入！')
  3141.                   else begin //send data
  3142.         setlength(arr,7);
  3143.             arr[0]:=$7e;   //soi
  3144.            arr[1]:=$10;   //ver
  3145.             arr[2]:= $02;    //length
  3146.             arr[3]:=$a3;     //cid
  3147.            arr[4]:=point;      //datainfo
  3148.             xornum:= arr[2] xor arr[3] xor arr[4];
  3149.             arr[5]:=xornum;
  3150.             arr[6]:=$0d;
  3152.   // send data
  3153.               len:=length(arr);
  3154.            i:=0;
  3155.             count:=0;
  3156.             tmpvar:=vararraycreate([0,0],varbyte);
  3157.              while(count<=len-1)do begin
  3158.                         tmpvar[count]:=arr[i];
  3159.                         inc(count);
  3160.                         inc(i);
  3161.                         vararrayredim(tmpvar,count);
  3162.                     end;
  3163.       MSComm1.Output:=tmpvar;
  3164.       timer14.Enabled:=true;
  3165.       end ;
  3166.      // end;
  3167.      end ;
  3168.       end ;
  3169.        end;
  3171.       //showmessage('hex:point'+f);
  3172.       //end;
  3173.       end else begin
  3174.       if combobox2.ItemIndex=1 then
  3175.       begin
  3176.          point:=$00;
  3177.          edit30.Clear;
  3178.          edit29.Clear;
  3179.          end;
  3180.        if combobox2.ItemIndex=2  then point:=$0ff ;
  3181.          setlength(arr,7);
  3182.             arr[0]:=$7e;   //soi
  3183.            arr[1]:=$10;   //ver
  3184.             arr[2]:= $02;    //length
  3185.             arr[3]:=$a3;     //cid
  3186.            arr[4]:=point;      //datainfo
  3187.             xornum:= arr[2] xor arr[3] xor arr[4];
  3188.             arr[5]:=xornum;
  3189.             arr[6]:=$0d;
  3191.   // send data
  3192.               len:=length(arr);
  3193.            i:=0;
  3194.             count:=0;
  3195.             tmpvar:=vararraycreate([0,0],varbyte);
  3196.              while(count<=len-1)do begin
  3197.                         tmpvar[count]:=arr[i];
  3198.                         inc(count);
  3199.                         inc(i);
  3200.                         vararrayredim(tmpvar,count);
  3201.                     end;
  3202.       MSComm1.Output:=tmpvar;
  3203.       timer14.Enabled:=true;
  3204.       end;
  3205.  end;
  3206.  end;
  3207.   end;
  3208. //end;
  3210. procedure TForm1.Timer14Timer(Sender: TObject);
  3211. var
  3212. i,n,m,chksum:integer;  
  3213. arr:array of byte;
  3214. tmpvar:variant;
  3215. tp,tph,tpl:integer;
  3216. begin
  3217.      arr:=nil;
  3218.      chksum:=0;
  3219.     timesum:=timesum+integer(timer14.Interval)+10;
  3220.      if timesum<900 then
  3221.       begin
  3222.         if mscomm1.InBufferCount>0 then begin
  3223.         timer14.Enabled:=false;
  3224.         timesum:=100;
  3225.           n:=mscomm1.InBufferCount;
  3226.           setlength(arr,n);
  3227.           tmpvar:=mscomm1.Input;
  3228.        for i:=0 to n-1 do arr[i]:=tmpvar[i];
  3229.         if (arr[0]=$7e)and(arr[1]=$10)and(arr[n-1]=$0d) then
  3230.         begin
  3231.         if arr[2]<>n-5 then showmessage('长度错误！') else     //长度校验
  3232.          begin
  3233.            for m:=2 to (n-3) do chksum:=chksum xor arr[m];
  3234.            if (chksum=arr[n-2])and(arr[3]=$a3) then begin
  3235.           if combobox2.ItemIndex=2 then   begin
  3236.                   edit27.Clear;
  3237.                   edit28.Clear;
  3238.                   edit29.Clear;
  3239.                   edit30.Clear;
  3240.                  edit30.Text:=inttostr(arr[4]);
  3241.            end else begin
  3242.              tp:=arr[4] and $f0 ;
  3243.                tph:=strtoint(floattostr(tp/16));
  3244.                tpl:=arr[4]and $0f;
  3246.               case tph of
  3247.                    0: begin label11.Caption:='mw';
  3248.                    if arr[6]>127 then  begin
  3249.                   case tpl of
  3250.                   0: edit28.text:=formatfloat('0.000', -((arr[6]-128)*256+arr[7])/1000.0);
  3251.                   1: edit28.text:=formatfloat('0.00', -((arr[6]-128)*256+arr[7])/100.0);
  3252.                   2:edit28.text:=formatfloat('0.00', -((arr[6]-128)*256+arr[7])/10.0);
  3253.                   3: edit28.text:=formatfloat('0.00', -(arr[6]-128)*256+arr[7]);
  3254.                   end;
  3255.                  // edit28.text:=formatfloat('0.00', -((arr[6]-128)*256+arr[7])/100.0);
  3256.                    timesum:=100;
  3257.                     end
  3258.                     else begin
  3259.                      case tpl of
  3260.                   0: edit28.text:=formatfloat('0.000', (arr[6]*256+arr[7])/1000.0);
  3261.                   1: edit28.text:=formatfloat('0.00', (arr[6]*256+arr[7])/100.0);
  3262.                   2:edit28.text:=formatfloat('0.00',(arr[6]*256+arr[7])/10.0);
  3263.                   3: edit28.text:=formatfloat('0.00',arr[6]*256+arr[7]);
  3264.                      end;
  3265.                   end;
  3266.                   end;
  3267.                    1: begin label11.Caption:='uw'; if arr[6]>127 then  begin
  3268.                   case tpl of
  3269.                   0: edit28.text:=formatfloat('0.000', -((arr[6]-128)*256+arr[7])/1000.0);
  3270.                   1: edit28.text:=formatfloat('0.00', -((arr[6]-128)*256+arr[7])/100.0);
  3271.                   2:edit28.text:=formatfloat('0.00', -((arr[6]-128)*256+arr[7])/10.0);
  3272.                   3: edit28.text:=formatfloat('0.00', -(arr[6]-128)*256+arr[7]);
  3273.                   end;
  3274.                  // edit28.text:=formatfloat('0.00', -((arr[6]-128)*256+arr[7])/100.0);
  3275.                    timesum:=100;
  3276.                     end
  3277.                     else begin
  3278.                      case tpl of
  3279.                   0: edit28.text:=formatfloat('0.000', (arr[6]*256+arr[7])/1000.0);
  3280.                   1: edit28.text:=formatfloat('0.00', (arr[6]*256+arr[7])/100.0);
  3281.                   2:edit28.text:=formatfloat('0.00',(arr[6]*256+arr[7])/10.0);
  3282.                   3: edit28.text:=formatfloat('0.00',arr[6]*256+arr[7]);
  3283.                      end;
  3284.                   end;
  3285.                   end;
  3286.                    2:begin label11.Caption:='nw'; if arr[6]>127 then  begin
  3287.                   case tpl of
  3288.                   0: edit28.text:=formatfloat('0.000', -((arr[6]-128)*256+arr[7])/1000.0);
  3289.                   1: edit28.text:=formatfloat('0.00', -((arr[6]-128)*256+arr[7])/100.0);
  3290.                   2:edit28.text:=formatfloat('0.00', -((arr[6]-128)*256+arr[7])/10.0);
  3291.                   3: edit28.text:=formatfloat('0.00', -(arr[6]-128)*256+arr[7]);
  3292.                   end;
  3293.                  // edit28.text:=formatfloat('0.00', -((arr[6]-128)*256+arr[7])/100.0);
  3294.                    timesum:=100;
  3295.                     end
  3296.                     else begin
  3297.                      case tpl of
  3298.                   0: edit28.text:=formatfloat('0.000', (arr[6]*256+arr[7])/1000.0);
  3299.                   1: edit28.text:=formatfloat('0.00', (arr[6]*256+arr[7])/100.0);
  3300.                   2:edit28.text:=formatfloat('0.00',(arr[6]*256+arr[7])/10.0);
  3301.                   3: edit28.text:=formatfloat('0.00',arr[6]*256+arr[7]);
  3302.                      end;
  3303.                   end;
  3304.                   end;
  3305.                    4: begin label11.Caption:='dBm';  if arr[6]>127 then  begin
  3306.                   case tpl of
  3307.                   0: edit28.text:=formatfloat('0.000', -((arr[6]-128)*256+arr[7])/1000.0);
  3308.                   1: edit28.text:=formatfloat('0.00', -((arr[6]-128)*256+arr[7])/100.0);
  3309.                   2:edit28.text:=formatfloat('0.00', -((arr[6]-128)*256+arr[7])/10.0);
  3310.                   3: edit28.text:=formatfloat('0.00', -(arr[6]-128)*256+arr[7]);
  3311.                   end;
  3312.                  // edit28.text:=formatfloat('0.00', -((arr[6]-128)*256+arr[7])/100.0);
  3313.                    timesum:=100;
  3314.                     end
  3315.                     else begin
  3316.                      case tpl of
  3317.                   0: edit28.text:=formatfloat('0.000', (arr[6]*256+arr[7])/1000.0);
  3318.                   1: edit28.text:=formatfloat('0.00', (arr[6]*256+arr[7])/100.0);
  3319.                   2:edit28.text:=formatfloat('0.00',(arr[6]*256+arr[7])/10.0);
  3320.                   3: edit28.text:=formatfloat('0.00',arr[6]*256+arr[7]);
  3321.                      end;
  3322.                   end;
  3323.                   end;
  3324.                    8: showmessage('单位为dB，请调整单位！');
  3325.                    9: showmessage('超范围！');
  3326.                    end;
  3327.                   case arr[5] of
  3328.                  0:  edit27.text:='1310';
  3329.                  1:  edit27.Text:='1550';
  3330.            2: edit27.Text:='850';
  3331.                   3:edit27.Text:='980';
  3332.                   end;
  3333.                  { if arr[6]>127 then  begin
  3334.                   case tpl of
  3335.                   0: edit28.text:=formatfloat('0.000', -((arr[6]-128)*256+arr[7])/1000.0);
  3336.                   1: edit28.text:=formatfloat('0.00', -((arr[6]-128)*256+arr[7])/100.0);
  3337.                   2:edit28.text:=formatfloat('0.00', -((arr[6]-128)*256+arr[7])/10.0);
  3338.                   3: edit28.text:=formatfloat('0.00', -(arr[6]-128)*256+arr[7]);
  3339.                   end;
  3340.                  // edit28.text:=formatfloat('0.00', -((arr[6]-128)*256+arr[7])/100.0);
  3341.                    timesum:=100;
  3342.                     end
  3343.                     else begin
  3344.                      case tpl of
  3345.                   0: edit28.text:=formatfloat('0.000', (arr[6]*256+arr[7])/1000.0);
  3346.                   1: edit28.text:=formatfloat('0.00', (arr[6]*256+arr[7])/100.0);
  3347.                   2:edit28.text:=formatfloat('0.00',(arr[6]*256+arr[7])/10.0);
  3348.                   3: edit28.text:=formatfloat('0.00',arr[6]*256+arr[7]);
  3349.                      end;
  3350.                   end; }
  3351.                    if combobox2.ItemIndex=3 then begin
  3352.                    edit29.Clear;
  3353.                    edit29.text:=inttostr(zuhao);
  3354.                    //edit31.Visible:=false;
  3355.                    //label16.Visible:=false;
  3356.                    end;
  3357.                   end;
  3358.                   //end;
  3359.                    //end;
  3360.              end else     begin
  3361.                timer14.Enabled:=false;
  3362.              showmessage('帧校验错误！');
  3363.              end;
  3364.              end;
  3365.         end else   begin
  3366.         timer14.Enabled:=false;
  3367.        showmessage('响应数据错误！');
  3368.        end;
  3369.     end else begin
  3370.         sleep(10);
  3371.       timer14.Enabled:=true;
  3372.              end;
  3373.              end else begin
  3374.               timesum:=100;
  3375.              timer14.Enabled:=false;
  3376.              showmessage('响应超时！');
  3377.              end;
  3378. end;
  3380. procedure TForm1.Button28Click(Sender: TObject);
  3381. var
  3382. text:textfile;
  3384. begin
  3385. if edit1.Text<>'' then begin
  3386.         if zuhao<>-1 then begin
  3387.      if savedialog1.Execute then begin
  3388.           savedialog1.FileName:=edit1.Text+'上传参数存储'+'.txt';
  3389.           if fileexists(savedialog1.FileName) then
  3390.        begin
  3391.           assignfile(text,savedialog1.FileName);
  3392.           append(text);
  3393.          try
  3394.          writeln(text,'第',zuhao,'组','           ',edit27.text,'       ',edit28.text,'     ');
  3395.             flush(text);
  3396.          finally
  3397.            closefile(text);
  3398.          end;
  3399.          flag:=true;
  3400.         end
  3401.        else begin
  3402.           assignfile(text,savedialog1.FileName);
  3403.           rewrite(text);
  3404.          try
  3405.          writeln(text,'存储数据组号   '+'通道0  '+'  通道5'+'  1310nm'+'  1550nm'+'  850nm'+'  980nm');
  3406.          writeln(text,'第',zuhao,'组','           ',edit27.text,'       ',edit28.text,'     ');
  3407.          finally
  3408.            closefile(text);
  3409.          end;
  3410.          flag:=true;
  3411.          end;
  3412.     end ;
  3413.     end else begin
  3414.           showmessage('未选择数据组号！');
  3415.      end;
  3416.      end else begin
  3417.          showmessage('先输入机器编号！');
  3418.     end;
  3419.     end;
  3420. procedure TForm1.Button19Click(Sender: TObject);
  3421.   var
  3422.     v,len,i,count:integer;
  3423.    tmpvar:variant;
  3424.    xornum:byte;
  3425.    arr:array of byte;
  3426.    f:real;
  3427.    p:string;
  3428. begin
  3429. //P:=0;
  3430.     arr:=nil;
  3431.     f:=0;
  3432.    if not  mscomm1.PortOpen   then
  3433.       begin
  3434.          showmessage('串口没有打开！');
  3435.          exit;
  3436.       end;
  3437.   if (edit2.Text='')or(edit5.Text='')or(edit8.Text='')or(edit11.Text='')or(edit14.Text='')or(edit17.Text='') then
  3438.     begin
  3439.         showmessage('请先计算设定值');
  3440.         exit;
  3441.     end
  3442.     else
  3443.       begin
  3444.      ////////////////////////////////////////
  3445.      //hao add
  3446.     if not TsInputVal(edit2.Text) then
  3447.     begin
  3448.      edit2.SetFocus;
  3449.      exit
  3450.     end;
  3452.       if not TsInputVal(edit5.Text) then
  3453.     begin
  3454.      edit5.SetFocus;
  3455.      exit
  3456.     end;
  3458.       if not TsInputVal(edit8.Text) then
  3459.     begin
  3460.      edit8.SetFocus;
  3461.      exit
  3462.     end;
  3464.       if not TsInputVal(edit11.Text) then
  3465.     begin
  3466.      edit11.SetFocus;
  3467.      exit
  3468.     end;
  3470.       if not TsInputVal(edit14.Text) then
  3471.     begin
  3472.      edit14.SetFocus;
  3473.      exit
  3474.     end;
  3475.       if not TsInputVal(edit17.Text) then
  3476.     begin
  3477.      edit17.SetFocus;
  3478.      exit
  3479.     end;
  3480.   //hao add end
  3481.       setlength(arr,9);
  3482.       if tag=0 then begin
  3483.          f:=strtofloat(edit2.text);
  3484.            success:=$00;
  3485.          end;
  3486.       if tag=1 then begin
  3487.          f:=strtofloat(edit5.text);
  3488.            success:=$01;
  3489.          end;
  3490.          if tag=2 then begin
  3491.          f:=strtofloat(edit8.text);
  3492.            success:=$02;
  3493.          end;
  3494.          if tag=3 then begin
  3495.          f:=strtofloat(edit11.text);
  3496.            success:=$03;
  3497.          end;
  3498.          if tag=4 then begin
  3499.          f:=strtofloat(edit14.text);
  3500.            success:=$04;
  3501.          end;
  3502.          if tag=5 then begin
  3503.          f:=strtofloat(edit17.text);
  3504.            success:=$05;
  3505.          end;
  3506.             arr[0]:=$7e;   //soi
  3507.            arr[1]:=$10;   //ver
  3508.             arr[2]:= $04;    //length
  3509.             arr[3]:=$a1;     //cid
  3510.          
  3511.            arr[4]:=success;
  3512.            p:=floattostr(f*1000);
  3513.            v:=strtoint(p);    //datainfo
  3514.            arr[5]:=v div 256;
  3515.             arr[6]:= v mod 256   ;
  3516.             xornum:= arr[2] xor arr[3] xor arr[4] xor arr[5]xor arr[6];
  3517.             arr[7]:=xornum;
  3518.             arr[8]:=$0d;
  3519.   // send data
  3520.               len:=length(arr);
  3521.            i:=0;
  3522.             count:=0;
  3523.             tmpvar:=vararraycreate([0,0],varbyte);
  3524.              while(count<=len-1)do begin
  3525.                         tmpvar[count]:=arr[i];
  3526.                         inc(count);
  3527.                         inc(i);
  3528.                         vararrayredim(tmpvar,count);
  3529.                     end;
  3531.       MSComm1.Output:=tmpvar;
  3533.       timer15.Enabled:=true;
  3534.  end;
  3535.     ///////////////////////////////////////
  3537.  end;
  3539. procedure TForm1.Timer15Timer(Sender: TObject);
  3540. var
  3541. i,n,m,chksum:integer;
  3542. arr:array of byte;
  3543. tmpvar:variant;
  3544. begin
  3546.      arr:=nil;
  3547.      chksum:=$00;
  3548.     timesum:=timesum+integer(timer15.Interval)+10;
  3549.      if timesum<900 then
  3550.       begin
  3551.       //application.ProcessMessages;
  3552.         if mscomm1.InBufferCount>0 then begin
  3553.         timer15.Enabled:=false;
  3554.         timesum:=100;
  3555.           n:=mscomm1.InBufferCount;
  3556.           setlength(arr,n);
  3557.           tmpvar:=mscomm1.input;
  3558.        for i:=0 to n-1 do arr[i]:=tmpvar[i];
  3559.         if (arr[0]=$7e)and(arr[1]=$10)and(arr[n-1]=$0d) then
  3560.         begin
  3561.            for m:=2 to (n-3) do chksum:=chksum xor arr[m];
  3562.            if (arr[n-2]=chksum)and(arr[3]=$a1) then begin
  3563.                if arr[n-3]=$0cc  then begin
  3565.                  {if tag>6 then begin
  3566.                    tag:=0;
  3567.                    showmessage('参数设定成功！');
  3568.                    end  else begin }
  3569.                      tag:=tag+1;
  3570.                      if tag>5 then begin
  3571.                    tag:=0;
  3572.                    showmessage('参数设定成功！');
  3573.                     timer15.Enabled:=false;
  3574.                    end  else begin
  3575.                      //timer15.Enabled:=false;
  3576.                 button19.Click;
  3578.                end;
  3579.                 end
  3580.                 else if arr[n-3]=$66 then begin
  3581.                  timer15.Enabled:=false;
  3582.                  showmessage('设置失败！');
  3583.                     //p:=p+1;
  3584.                     end ;
  3585.              end else
  3586.              begin
  3587.            showmessage('帧校验错误！'); //帧校验错误
  3588.             timer15.Enabled:=false;
  3589.              //p:=p+1;
  3590.               end;
  3591.        end else begin
  3592.       showmessage('响应数据头错误！');
  3593.        timer15.Enabled:=false;
  3594.       //P:=p+1;
  3595.            end;
  3596.     end else begin
  3597.         sleep(10);
  3598.       timer15.Enabled:=true;
  3599.              end;
  3600.              end else begin
  3601.              timesum:=100;
  3602.               timer15.Enabled:=false;
  3603.             // P:=p+1;
  3604.            // button19.Click;
  3605.             // showmessage('通道0参数设定时响应超时！');
  3606.             showmessage('参数设定失败！，请重试！');
  3607.    end;
  3608.       {if tag>6 then begin
  3609.                    tag:=0;
  3610.                    /showmessage('参数设定成功！');
  3611.                    end  ;  }
  3612. end;
  3614. procedure TForm1.Button20Click(Sender: TObject);
  3615. var
  3616.     //f,
  3617.     len,i,count:integer;
  3618.    tmpvar:variant;
  3619.    xornum:byte;
  3620.    arr:array of byte;
  3621. begin
  3622.     arr:=nil;
  3623.     if not  mscomm1.PortOpen   then
  3624.     begin
  3625.          showmessage('串口没有打开！');
  3626.     end else begin
  3627.      ////////////////////////////////////////
  3628.       setlength(arr,7);
  3629.       if tagc=0 then begin
  3630.         // f:=strtoint(edit2.text);
  3631.            success:=$00;
  3632.          end;
  3633.       if tagc=1 then begin
  3634.          //f:=strtoint(edit5.text);
  3635.            success:=$01;
  3636.          end;
  3637.          if tagc=2 then begin
  3638.         // f:=strtoint(edit8.text);
  3639.            success:=$02;
  3640.          end;
  3641.          if tagc=3 then begin
  3642.         // f:=strtoint(edit11.text);
  3643.            success:=$03;
  3644.          end;
  3645.          if tagc=4 then begin
  3646.         // f:=strtoint(edit14.text);
  3647.            success:=$04;
  3648.          end;
  3649.          if tagc=5 then begin
  3650.         // f:=strtoint(edit17.text);
  3651.            success:=$05;
  3652.          end;
  3653.             arr[0]:=$7e;   //soi
  3654.            arr[1]:=$10;   //ver
  3655.             arr[2]:= $02;    //length
  3656.             arr[3]:=$a2;     //cid
  3657.          
  3658.            arr[4]:=success;      //datainfo
  3659.           // arr[5]:=f div 256;
  3660.            // arr[6]:= f mod 256   ;
  3661.             xornum:= arr[2] xor arr[3] xor arr[4];// xor arr[5]xor arr[6];
  3662.             arr[5]:=xornum;
  3663.             arr[6]:=$0d;
  3664.   // send data
  3665.               len:=length(arr);
  3666.            i:=0;
  3667.             count:=0;
  3668.             tmpvar:=vararraycreate([0,0],varbyte);
  3669.              while(count<=len-1)do begin
  3670.                         tmpvar[count]:=arr[i];
  3671.                         inc(count);
  3672.                         inc(i);
  3673.                         vararrayredim(tmpvar,count);
  3674.                     end;
  3676.       MSComm1.Output:=tmpvar;
  3678.       timer16.Enabled:=true;
  3679.  end;
  3680.     ///////////////////////////////////////
  3681.     //end else begin
  3682.         //showmessage('请先计算设定值！');
  3683.     //end;
  3684.  end;
  3686. procedure TForm1.Timer16Timer(Sender: TObject);
  3687. var
  3688. i,n,m,chksum:integer;  //,timesum
  3689. arr:array of byte;
  3690. tmpvar:variant;
  3691. a:real;
  3693. begin
  3695.      arr:=nil;
  3696.      chksum:=$00;
  3697.     timesum:=timesum+integer(timer16.Interval)+10;
  3698.      if timesum<900 then
  3699.       begin
  3700.         if mscomm1.InBufferCount>0 then begin
  3701.         timer16.Enabled:=false;
  3702.         timesum:=100;
  3703.           n:=mscomm1.InBufferCount;
  3704.           setlength(arr,n);
  3705.           tmpvar:=mscomm1.input;
  3706.        for i:=0 to n-1 do arr[i]:=tmpvar[i];
  3707.         if (arr[0]=$7e)and(arr[1]=$10)and(arr[n-1]=$0d) then
  3708.         begin
  3709.            for m:=2 to (n-3) do chksum:=chksum xor arr[m];
  3710.            if (arr[n-2]=chksum)and(arr[3]=$a2) then begin
  3711.                //edit4.Text:=inttostr(arr[4]*256+arr[5]);
  3712.                //if (arr[n-3]=$0cc)or(arr[n-3]=$66)  then begin
  3713.                 //showmessage('设置成功！') ;
  3714.                 if arr[4]>127 then begin
  3715.                   a:=-((arr[4]-128)*256+arr[5])/1000.0;
  3717.                        end else begin
  3718.                        a:=(arr[4]*256+arr[5])/1000.0;
  3719.                        end;
  3720.                 case tagc of
  3721.                   $00:edit2.Text:=formatfloat('0.000',a);
  3722.                    $01:edit5.Text:=formatfloat('0.000',a);
  3723.                     $02:edit8.Text:=formatfloat('0.000',a);
  3724.                      $03:edit11.Text:=formatfloat('0.000',a);
  3725.                       $04:edit14.Text:=formatfloat('0.000',a);
  3726.                        $05:edit17.Text:=formatfloat('0.000',a);
  3727.                   end;
  3728.                // pc:=0 ;
  3729.                //tagc:=tagc+1;
  3730.                if tagc>5 then begin
  3731.                tagc:=0;
  3732.                showmessage('参数回读完毕！');
  3733.                if edit20.Text= edit2.Text then
  3734.             checkbox1.Checked:=true  else  checkbox1.Checked:=false;
  3735.          if edit21.Text= edit5.Text then
  3736.             checkbox2.Checked:=true  else  checkbox2.Checked:=false;
  3737.             if edit22.Text= edit8.Text then
  3738.             checkbox3.Checked:=true  else  checkbox3.Checked:=false;
  3739.             if edit23.Text= edit11.Text then
  3740.             checkbox4.Checked:=true  else  checkbox4.Checked:=false;
  3741.             if edit24.Text= edit14.Text then
  3742.             checkbox5.Checked:=true  else  checkbox5.Checked:=false;
  3743.             if edit25.Text= edit17.Text then
  3744.             checkbox6.Checked:=true  else  checkbox6.Checked:=false;
  3745.          
  3746.                end else begin
  3747.                 tagc:=tagc+1;
  3748.                 button20.Click;
  3750.                 end ;
  3752.                     end;
  3753.              end else
  3754.              begin
  3756.              end;
  3758.     end else begin
  3759.         sleep(10);
  3761.       timer16.Enabled:=true;
  3762.              end;
  3763.              end else begin
  3765.              timesum:=100;
  3766.              timer16.Enabled:=false;
  3767.              showmessage('参数回读失败，请重试！');
  3769.                end;
  3773. end;
  3776. procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  3777. var
  3778. closeconfirm:integer;
  3779. begin
  3780.  closeconfirm:=messagedlg('您确定要退出吗？',mtconfirmation,[mbyes,mbno],0);
  3781.    canclose:=(closeconfirm=mryes);
  3782.  end;
  3785.  procedure TForm1.ComboBox1Change(Sender: TObject);
  3786. begin
  3787.    if mscomm1.PortOpen then
  3788.     begin
  3789.            //mscomm1.PortOpen:=false;
  3790.            //shape1.Brush.Color:=clred;
  3791.            //button22.Caption:='连接';
  3792.            //if tstr=combobox1.Items.Text then
  3793.        if tindexnum<>combobox1.ItemIndex then   begin
  3794.             mscomm1.PortOpen:=false;
  3795.            shape1.Brush.Color:=clred;
  3796.            button22.Caption:='连接';
  3797.            statusbar1.Panels[0].Text:='串口com'+inttostr(tindexnum+1)+'已断开';
  3798.            combobox2.ItemIndex:=0;
  3799.            label8.Visible:=false;
  3800. label9.Visible:=false;
  3801. label10.Visible:=false;
  3802. label11.Visible:=false;
  3803. label12.Visible:=false;
  3804. label13.Visible:=false;
  3805. label14.Visible:=false;
  3806. label15.Visible:=false;
  3807. label16.Visible:=false;
  3808. edit29.Visible:=false;
  3809. edit30.Visible:=false;
  3811. edit27.Visible:=false;
  3812. edit28.Visible:=false;
  3813.           // else  statusbar1.Panels[0].Text:='串口com'+inttostr(combobox1.ItemIndex+1)+'已断开';
  3814.    end ;
  3815.      end   else  statusbar1.Panels[0].Text:='';
  3816. end;
  3818. procedure TForm1.ComboBox2Change(Sender: TObject);
  3819. begin
  3820. if combobox2.ItemIndex=1 then begin
  3821.  label8.Visible:=true;
  3822.  label9.Visible:=true;
  3823.  label10.Visible:=true;
  3824. label11.Visible:=true;
  3825.  label12.Visible:=false;
  3826.  label13.Visible:=false;
  3827.  label14.Visible:=false;
  3828.  label15.Visible:=false;
  3829.  label16.Visible:=false;
  3830.  edit27.Visible:=true;
  3831.  edit27.Clear;
  3832.  edit28.Visible:=true;
  3833.  edit28.Clear;
  3834.  edit29.Visible:=false;
  3835.  edit29.Clear;
  3836.  edit30.Clear;
  3837.  edit30.Visible:=false;
  3838.  edit31.Clear;
  3839.   edit31.Visible:=false;
  3840.  end;
  3841. if combobox2.ItemIndex=2 then begin
  3842.    label14.Visible:=true;
  3843.    label15.Visible:=true;
  3844.      edit30.Visible:=true;
  3845.      label8.Visible:=false;
  3846.  label9.Visible:=false;
  3847.  label10.Visible:=false;
  3848. label11.Visible:=false;
  3849.  label12.Visible:=false;
  3850.  label13.Visible:=false;
  3851.  edit27.Clear;
  3852.  edit28.Clear;
  3853.  edit29.Clear;
  3854.  edit30.Clear;
  3855.   edit31.Clear;
  3856.    edit27.Visible:=false;
  3857.  edit28.Visible:=false;
  3858.  edit29.Visible:=false;
  3859.   edit31.Visible:=false;
  3860.   label16.Visible:=false;
  3861.      end;
  3862.      if combobox2.ItemIndex=3 then begin
  3863.          edit31.Visible:=true;
  3864.                   label16.Visible:=true;
  3865.                 label8.Visible:=true;
  3866.  label9.Visible:=true;
  3867.  label10.Visible:=true;
  3868.  label11.Visible:=true;
  3869.  label12.Visible:=false;
  3870.  label13.Visible:=false;
  3871.   edit27.Clear;
  3872.  edit28.Clear;
  3873.  edit29.Clear;
  3874.  edit30.Clear;
  3875.   edit31.Clear;
  3876.  edit27.Visible:=true;
  3877.  edit28.Visible:=true;
  3878.   label14.Visible:=true;
  3879.    label15.Visible:=true;
  3880.      edit30.Visible:=true;
  3881.          end;
  3882.          if combobox2.ItemIndex=0 then begin
  3883.          label8.Visible:=false;
  3884.  label9.Visible:=false;
  3885.  label10.Visible:=false;
  3886.  label11.Visible:=false;
  3887.  label12.Visible:=false;
  3888.  label13.Visible:=false;
  3889.          label14.Visible:=false;
  3890.    label15.Visible:=false;
  3891.    label16.Visible:=false;
  3893.     edit27.Clear;
  3894.  edit28.Clear;
  3895.  edit29.Clear;
  3896.  edit30.Clear;
  3897.   edit31.Clear;
  3898.    edit27.Visible:=false;
  3899.  edit28.Visible:=false;
  3900.  edit29.Visible:=false;
  3901.   edit30.Visible:=false;
  3902.   edit31.Visible:=false;
  3903.    end;
  3905. end;
  3907. procedure TForm1.Button23Click(Sender: TObject);
  3908. var
  3909.  len,i,count:integer;
  3910.    //tmpstr:string;
  3911.    tmpvar:variant;
  3912.    xornum:byte;
  3913.    arr:array of byte;
  3914. begin
  3916. arr:=nil;
  3917.  if not mscomm1.PortOpen then begin
  3918.     showmessage('串口没有打开！');
  3919.      end else begin
  3920.      setlength(arr,7);
  3921.     // f:=strtoint(edit2.text);
  3922.             arr[0]:=$7e;   //soi
  3923.            arr[1]:=$10;   //ver
  3924.             arr[2]:= $07;    //length
  3925.             arr[3]:=$a3;     //cid
  3926.            arr[4]:=$80;      //datainfo
  3927.            arr[5]:=$00;
  3928.           arr[6]:=230 ;//div 255
  3929.            arr[7]:=201 ; //f mod 255   ;
  3930.             xornum:= arr[2] xor arr[3] xor arr[4] xor arr[5] xor arr[6] xor arr[7];// xor arr[5]xor arr[6];
  3931.             arr[8]:=xornum;
  3932.             arr[9]:=$0d;
  3933.   // send data
  3934.               len:=length(arr);
  3935.            i:=0;
  3936.             count:=0;
  3937.             tmpvar:=vararraycreate([0,0],varbyte);
  3938.             //tmpvar[count]:=arr[i];
  3939.             //inc(count);
  3940.             //inc(i);
  3941.              while(count<=len-1)do begin
  3942.                         tmpvar[count]:=arr[i];
  3943.                         inc(count);
  3944.                         inc(i);
  3945.                         vararrayredim(tmpvar,count);
  3946.                     end;
  3948.       MSComm1.Output:=tmpvar;
  3949.       timer7.Enabled:=true;
  3950.  end;
  3951.        {if mscomm1.InBufferCount>0 then begin
  3952.        timer7.Enabled:=false;
  3953.           n:=mscomm1.InBufferCount;
  3954.           setlength(arr,n);
  3955.           tmpvar:=mscomm1.input;
  3956.        for i:=0 to n-1 do arr[i]:=tmpvar[i];
  3957.         if (arr[0]=$7e)and(arr[1]=$10)and(arr[n-1]=$0d) then
  3958.         begin
  3959.            for m:=2 to (n-3) do chksum:=chksum xor arr[m];
  3960.            if (arr[n-2]=chksum)and(arr[3]=$a3) then begin
  3961.                if arr[5]<127 then begin
  3962.                            xy := (arr[5]*256+arr[6])/100.0 ;
  3963.                edit4.Text:=floattostr(xy);//inttostr(arr[5]*256+arr[6]);
  3965.                showmessage('回读成功！');
  3966.                //tag:=true;
  3967.                  end else begin
  3969.                          xy := -((arr[5]-128)*256+arr[6])/100.0 ;
  3970.                  edit4.Text:=floattostr(xy);//inttostr(-((arr[5]-128)*256+arr[6]));
  3971.                   showmessage('回读成功！');
  3972.                //tag:=true;
  3973.                  end;
  3974.              end else
  3975.              showmessage('帧校验错误！'); //帧校验错误
  3976.        end else
  3977.       showmessage('响应数据错误！');
  3979.     end else begin
  3980.         sleep(10);
  3981.       timer7.Enabled:=true;
  3982.              end;
  3983.              end else begin
  3984.              showmessage('响应超时！');
  3985.              timesum:=100;
  3986.              end; }
  3987.      //while mscomm1.InBufferCount
  3988.     end;
  3991. end.