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

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

防火墙与安全工具

开发平台：

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.     Button29: TButton;
  136.     procedure Button22Click(Sender: TObject);
  137.     procedure Button3Click(Sender: TObject);
  138.     procedure Button6Click(Sender: TObject);
  139.     procedure Button9Click(Sender: TObject);
  140.     procedure Button12Click(Sender: TObject);
  141.     procedure Button15Click(Sender: TObject);
  142.     procedure Button18Click(Sender: TObject);
  143.     procedure Button2Click(Sender: TObject);
  144.     procedure Timer1Timer(Sender: TObject);
  145.     procedure FormCreate(Sender: TObject);
  146.     procedure Button26Click(Sender: TObject);
  147.     procedure Button27Click(Sender: TObject);
  148.     procedure Button5Click(Sender: TObject);
  149.     procedure Button8Click(Sender: TObject);
  150.     procedure Button11Click(Sender: TObject);
  151.     procedure Button14Click(Sender: TObject);
  152.     procedure Button17Click(Sender: TObject);
  153.     procedure Timer2Timer(Sender: TObject);
  154.     procedure Timer3Timer(Sender: TObject);
  155.     procedure Timer4Timer(Sender: TObject);
  156.     procedure Timer5Timer(Sender: TObject);
  157.     procedure Timer6Timer(Sender: TObject);
  158.     procedure Button21Click(Sender: TObject);
  159.     procedure Button1Click(Sender: TObject);
  160.     procedure Timer7Timer(Sender: TObject);
  161.     procedure Button4Click(Sender: TObject);
  162.     procedure Button7Click(Sender: TObject);
  163.     procedure Button10Click(Sender: TObject);
  164.     procedure Button13Click(Sender: TObject);
  165.     procedure Button16Click(Sender: TObject);
  166.     procedure Timer8Timer(Sender: TObject);
  167.     procedure Timer9Timer(Sender: TObject);
  168.     procedure Timer10Timer(Sender: TObject);
  169.     procedure Timer11Timer(Sender: TObject);
  170.     procedure Timer12Timer(Sender: TObject);
  171.     procedure Button24Click(Sender: TObject);
  172.     procedure Timer13Timer(Sender: TObject);
  173.     procedure Button25Click(Sender: TObject);
  174.     procedure Timer14Timer(Sender: TObject);
  175.     procedure Button28Click(Sender: TObject);
  176.     procedure Button19Click(Sender: TObject);
  177.     procedure Timer15Timer(Sender: TObject);
  178.     procedure Button20Click(Sender: TObject);
  179.     procedure Timer16Timer(Sender: TObject);
  180.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  181.     procedure ComboBox1Change(Sender: TObject);
  182.     procedure ComboBox2Change(Sender: TObject);
  183.     procedure Button23Click(Sender: TObject);
  184.    // procedure Edit1Enter(Sender: TObject);
  185.    
  186.    // function setvar(tag:boolean;btn:tbutton):integer;
  187.   private
  188.     { Private declarations }
  189.     function   TsInputVal(staStr:string):boolean;
  190.   public
  191.     { Public declarations }
  192.    timesum,tag,success,p,tagc,pc:integer;
  193.    flag:boolean;
  194.    zuhao:integer;
  195.    tindexnum:integer;
  196.   end;
  198. var
  199.   Form1: TForm1;
  201. implementation
  202.   //uses sysutils;
  203. {$R *.dfm}
  204. {function setvar(tag:boolean;btn:tbutton):integer;
  205. var
  206. i:integer;
  207.   begin
  208.   i:=-1;
  209.   while tag<>true do begin
  210.     if (edit2.)or()or()or()or()or()
  211.                        btn.Click;
  212.                      end;
  213.   i:=1  ;
  214.    tag:=false;
  215.    result:= i;
  217.  end;  }
  218.  //function  senddata(cid:integer) :boolean;
  219. //hao add
  220. function TForm1.TsInputVal(staStr:string):boolean;
  221.   var
  222.     flag1,flag2:boolean ;
  223.     f:real;
  224.   begin
  225.     f:=strToFloat(staStr);
  226.     if f>=0.000 then
  227.        flag1:=true
  228.     else
  229.        flag1:=false;
  230.     if  f<=9.999 then
  231.         flag2:=true
  232.     else
  233.        flag2:=false;
  234.     if flag1 and flag2 then
  235.        begin
  236.         result:=true;
  237.         exit;
  238.        end
  239.      else
  240.        begin
  241.          showmessage('输入或所得的设定值非法！！--范围在：0.000~9.999 之间。');
  242.          result:=false;
  243.        end;
  244. 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  {if (strtofloat(edit3.Text) >25.00) or(strtofloat(edit3.Text)<-45.00) then
  369.  begin
  370.  showmessage('数值超出合理范围(-45.00～+25.00)'); /////////////////////////////////
  371.  edit3.Text:='';
  372.   end else begin }
  373.        str1:=label17.Caption;
  374.   if str1='dBm' then  begin
  375.       a:=strtofloat(edit4.Text);
  376.       n:=a;
  377.       a:=power(10,n/10.0);              //dbm to mw
  378.       a:=a*1000.0;                       //mw to uw
  379.       b:=strtofloat(edit3.Text);
  380.       ll:=combobox3.ItemIndex;
  381.       case ll of
  382.         0:begin if (b<=-70) or (b>=10) then
  383.         begin
  384.         showmessage('输入的数值超出范围!') ;
  385.          edit3.Text:='';
  386.          end
  387.         else begin
  388.          b:=power(10,b/10.0);
  389.           b:=b*1000.0;
  390.           c:= b/ a;
  391.            edit2.Text:=formatfloat('0.000',c);
  392.           end;
  393.           end;
  394.          1:begin if (b>10) or (b<1/10000000) then begin
  395.           showmessage('输入数值超出范围!');
  396.             edit3.Text:='';
  397.             end
  398.          else begin b:= b*1000.0;
  399.          c:= b/ a;
  400.   edit2.Text:=formatfloat('0.000',c);
  401.   end;
  402.    end;
  403.          2:begin if (b>1000)or (b<1/10000) then begin
  404.           showmessage('输入数值超出范围!');
  405.           edit3.Text:='';
  406.           end
  407.          else begin  b:= b;
  408.          c:= b/ a;
  409.   edit2.Text:=formatfloat('0.000',c);
  410.   end;
  411.   end;
  412.          3:begin if (b>1000000)or (b<1/10) then begin
  413.           showmessage('输入数值超出范围!');
  414.              edit3.Text:='';
  415.           end
  416.          else begin  b:= b/1000.0;
  417.          c:= b/ a;
  418.   edit2.Text:=formatfloat('0.000',c);;
  419.          end;
  420.          end;
  421.               // c:= m/ n;
  422.   //edit2.Text:=formatfloat('0.000',c);
  423.   end;
  424.   end;
  425.   if str1='uw' then begin
  426.       a:=strtofloat(edit4.Text);
  427.       n:=a;
  428.      // m:=m;
  429.       b:=strtofloat(edit3.Text);
  430.      ll:=combobox3.ItemIndex;
  431.       case ll of
  432.        { 0:begin m:=power(10,b/10.0); m:=m*1000.0; end;
  433.          1:m:= b*1000.0;
  434.          2:m:= b;
  435.          3:m:= b/1000.0; }
  436.       0:begin if (b<=-70) or (b>=10) then
  437.         begin
  438.         showmessage('输入的数值超出范围!') ;
  439.          edit3.Text:='';
  440.          end
  441.         else begin
  442.          b:=power(10,b/10.0);
  443.           b:=b*1000.0;
  444.           c:= b/a;
  445.            edit2.Text:=formatfloat('0.000',c);
  446.           end;
  447.           end;
  448.          1:begin if (b>10) or (b<1/10000000) then begin
  449.           showmessage('输入数值超出范围!');
  450.             edit3.Text:='';
  451.             end
  452.          else begin b:= b*1000.0;
  453.          c:= b/ a;
  454.   edit2.Text:=formatfloat('0.000',c);
  455.   end;
  456.    end;
  457.          2:begin if (b>1000)or (b<1/10000) then begin
  458.           showmessage('输入数值超出范围!');
  459.           edit3.Text:='';
  460.           end
  461.          else begin  b:= b;
  462.          c:= b/ a;
  463.   edit2.Text:=formatfloat('0.000',c);
  464.   end;
  465.   end;
  466.          3:begin if (b>1000000)or (b<1/10) then begin
  467.           showmessage('输入数值超出范围!');
  468.              edit3.Text:='';
  469.           end
  470.          else begin  b:= b/1000.0;
  471.          c:= b/a;
  472.   edit2.Text:=formatfloat('0.000',c);;
  473.          end;
  474.          end;
  475.     //  c:= m/ n;
  476.     end;
  477.  // edit2.Text:=formatfloat('0.000',c);
  478.  end;
  479.       if str1='nw' then begin
  481.        a:=strtofloat(edit4.Text);
  482.       n:=a;
  483.       a:=a/1000.0;
  484.       b:=strtofloat(edit3.Text);
  485.       ll:=combobox3.ItemIndex;
  486.       case ll of
  487.        { 0:begin m:=power(10,b/10.0); m:=m/1000.0; end;
  488.          1:m:= b*1000.0;
  489.          2:m:= b;
  490.          3:m:= b/1000.0;
  491.          end;  }
  492.        0:begin if (b<=-70) or (b>=10) then
  493.         begin
  494.         showmessage('输入的数值超出范围!') ;
  495.          edit3.Text:='';
  496.          end
  497.         else begin
  498.          b:=power(10,b/10.0);
  499.           b:=b*1000.0;
  500.           c:= b/ a;
  501.            edit2.Text:=formatfloat('0.000',c);
  502.           end;
  503.           end;
  504.          1:begin if (b>10) or (b<1/10000000) then begin
  505.           showmessage('输入数值超出范围!');
  506.             edit3.Text:='';
  507.             end
  508.          else begin b:= b*1000.0;
  509.          c:= b/ a;
  510.   edit2.Text:=formatfloat('0.000',c);
  511.   end;
  512.    end;
  513.          2:begin if (b>1000)or (b<1/10000) then begin
  514.           showmessage('输入数值超出范围!');
  515.           edit3.Text:='';
  516.           end
  517.          else begin  b:= b;
  518.          c:= b/ a;
  519.   edit2.Text:=formatfloat('0.000',c);
  520.   end;
  521.   end;
  522.          3:begin if (b>1000000)or (b<1/10) then begin
  523.           showmessage('输入数值超出范围!');
  524.              edit3.Text:='';
  525.           end
  526.          else begin  b:= b/1000.0;
  527.          c:= b/ a;
  528.   edit2.Text:=formatfloat('0.000',c);;
  529.          end;
  530.     //  c:= m/ n;
  531.          end;
  532.   //edit2.Text:=formatfloat('0.000',c);
  534.       end;
  535.       end;
  536.       if str1='mw' then begin
  537.         a:=strtofloat(edit4.Text);
  538.       n:=a;
  539.       a:=a*1000.0;
  540.       b:=strtofloat(edit3.Text);
  541.       ll:=combobox3.ItemIndex;
  542.       case ll of
  543.        { 0:begin m:=power(10,b/10.0); m:=m*1000.0; end;
  544.          1:m:= b*1000.0;
  545.          2:m:= b;
  546.          3:m:= b/1000.0;  }
  547.    0:begin if (b<=-70) or (b>=10) then
  548.         begin
  549.         showmessage('输入的数值超出范围!') ;
  550.          edit3.Text:='';
  551.          end
  552.         else begin
  553.          b:=power(10,b/10.0);
  554.           b:=b*1000.0;
  555.           c:= b/ a;
  556.            edit2.Text:=formatfloat('0.000',c);
  557.           end;
  558.           end;
  559.          1:begin if (b>10) or (b<1/10000000) then begin
  560.           showmessage('输入数值超出范围!');
  561.             edit3.Text:='';
  562.             end
  563.          else begin b:= b*1000.0;
  564.          c:= b/ a;
  565.   edit2.Text:=formatfloat('0.000',c);
  566.   end;
  567.    end;
  568.          2:begin if (b>1000)or (b<1/10000) then begin
  569.           showmessage('输入数值超出范围!');
  570.           edit3.Text:='';
  571.           end
  572.          else begin  b:= b;
  573.          c:= b/ a;
  574.   edit2.Text:=formatfloat('0.000',c);
  575.   end;
  576.   end;
  577.          3:begin if (b>1000000)or (b<1/10) then begin
  578.           showmessage('输入数值超出范围!');
  579.              edit3.Text:='';
  580.           end
  581.          else begin  b:= b/1000.0;
  582.          c:= b/ a;
  583.   edit2.Text:=formatfloat('0.000',c);;
  584.          end;
  585.          end;
  586.   //edit2.Text:=formatfloat('0.000',c);
  587. end;
  588.  end;
  589.   end
  590.   else
  591.   begin
  592.       showmessage('请先输入正确的值！');
  593.   end;
  594. end;
  595. //end;
  596. //end;
  597. //end;
  598. procedure TForm1.Button9Click(Sender: TObject);
  599. var
  600.   a,b:real;
  601.   c: real;
  602.  m,n:variant;
  603.  str1:string;
  604.  ll:integer;
  605. begin
  606. c:=0.00;
  607.   if (edit9.Text<>'') and (edit10.Text<>'') then
  608.   begin  {if (strtofloat(edit3.Text) >25.00) or(strtofloat(edit3.Text)<-45.00) then
  609.  begin
  610.  showmessage('数值超出合理范围(-45.00～+25.00)');     /////////////////////////////////
  611.  edit3.Text:='';
  612.   end else begin }
  613.        str1:=label19.Caption;
  614.   if str1='dBm' then  begin
  615.       a:=strtofloat(edit10.Text);
  616.       n:=a;
  617.       a:=power(10,a/10.0);              //dbm to mw
  618.       a:=a*1000.0;                       //mw to uw
  619.       b:=strtofloat(edit9.Text);
  620.       ll:=combobox5.ItemIndex;
  621.       case ll of
  622.        { 0:begin m:=power(10,b/10.0); m:=m*1000.0; end;
  623.          1:m:= b*1000.0;
  624.          2:m:= b;
  625.          3:m:= b/1000.0
  626.          end;  }
  627.          0:begin if (b<=-70) or (b>=10) then
  628.         begin
  629.         showmessage('输入的数值超出范围!') ;
  630.          edit9.Text:='';
  631.          end
  632.         else begin
  633.          b:=power(10,b/10.0);
  634.           b:=b*1000.0;
  635.           c:= b/a;
  636.            edit8.Text:=formatfloat('0.000',c);
  637.           end;
  638.           end;
  639.          1:begin if (b>10) or (b<1/10000000) then begin
  640.           showmessage('输入数值超出范围!');
  641.             edit9.Text:='';
  642.             end
  643.          else begin b:= b*1000.0;
  644.          c:= b/ a;
  645.   edit8.Text:=formatfloat('0.000',c);
  646.   end;
  647.    end;
  648.          2:begin if (b>1000)or (b<1/10000) then begin
  649.           showmessage('输入数值超出范围!');
  650.           edit9.Text:='';
  651.           end
  652.          else begin  b:= b;
  653.          c:= b/ a;
  654.   edit8.Text:=formatfloat('0.000',c);
  655.   end;
  656.   end;
  657.          3:begin if (b>1000000)or (b<1/10) then begin
  658.           showmessage('输入数值超出范围!');
  659.              edit9.Text:='';
  660.           end
  661.          else begin  b:= b/1000.0;
  662.          c:= b/ a;
  663.   edit8.Text:=formatfloat('0.000',c);;
  664.          end;
  665.          end;
  666.      // c:= m/ n;
  667.        end;
  668.   //edit8.Text:=formatfloat('0.000',c);
  669.   end;
  670.   if str1='uw' then begin
  671.       a:=strtofloat(edit10.Text);
  672.       n:=a;
  673.      // m:=m;
  674.       b:=strtofloat(edit9.Text);
  675.      ll:=combobox5.ItemIndex;
  676.       case ll of
  677.        { 0:begin m:=power(10,b/10.0); m:=m*1000.0; end;
  678.          1:m:= b*1000.0;
  679.          2:m:= b;
  680.          3:m:= b/1000.0   }
  681.           0:begin if (b<=-70) or (b>=10) then
  682.         begin
  683.         showmessage('输入的数值超出范围!') ;
  684.          edit9.Text:='';
  685.          end
  686.         else begin
  687.          b:=power(10,b/10.0);
  688.           b:=b*1000.0;
  689.           c:= b/ a;
  690.            edit8.Text:=formatfloat('0.000',c);
  691.           end;
  692.           end;
  693.          1:begin if (b>10) or (b<1/10000000) then begin
  694.           showmessage('输入数值超出范围!');
  695.             edit9.Text:='';
  696.             end
  697.          else begin b:= b*1000.0;
  698.          c:= b/ a;
  699.   edit8.Text:=formatfloat('0.000',c);
  700.   end;
  701.    end;
  702.          2:begin if (b>1000)or (b<1/10000) then begin
  703.           showmessage('输入数值超出范围!');
  704.           edit9.Text:='';
  705.           end
  706.          else begin  b:= b;
  707.          c:=b/a;
  708.   edit8.Text:=formatfloat('0.000',c);
  709.   end;
  710.   end;
  711.          3:begin if (b>1000000)or (b<1/10) then begin
  712.           showmessage('输入数值超出范围!');
  713.              edit9.Text:='';
  714.           end
  715.          else begin  b:= b/1000.0;
  716.          c:= b/ a;
  717.   edit8.Text:=formatfloat('0.000',c);;
  718.          end;
  719.          end;
  720.          end;
  721.       //c:= m/ n;
  723.  // edit8.Text:=formatfloat('0.000',c);
  724.       end;
  725.       if str1='nw' then begin
  727.        a:=strtofloat(edit10.Text);
  728.       n:=a;
  729.       a:=a/1000.0;
  730.       b:=strtofloat(edit9.Text);
  731.       ll:=combobox5.ItemIndex;
  732.       case ll of
  733.         {0:begin m:=power(10,b/10.0); m:=m/1000.0; end;
  734.          1:m:= b*1000.0;
  735.          2:m:= b;
  736.          3:m:= b/1000.0   }
  737.           0:begin if (b<=-70) or (b>=10) then
  738.         begin
  739.         showmessage('输入的数值超出范围!') ;
  740.          edit9.Text:='';
  741.          end
  742.         else begin
  743.          b:=power(10,b/10.0);
  744.           b:=b*1000.0;
  745.           c:= b/ a;
  746.            edit8.Text:=formatfloat('0.000',c);
  747.           end;
  748.           end;
  749.          1:begin if (b>10) or (b<1/10000000) then begin
  750.           showmessage('输入数值超出范围!');
  751.             edit9.Text:='';
  752.             end
  753.          else begin b:= b*1000.0;
  754.          c:= b/a;
  755.   edit8.Text:=formatfloat('0.000',c);
  756.   end;
  757.    end;
  758.          2:begin if (b>1000)or (b<1/10000) then begin
  759.           showmessage('输入数值超出范围!');
  760.           edit9.Text:='';
  761.           end
  762.          else begin  b:= b;
  763.          c:= b/ a;
  764.   edit8.Text:=formatfloat('0.000',c);
  765.   end;
  766.   end;
  767.          3:begin if (b>1000000)or (b<1/10) then begin
  768.           showmessage('输入数值超出范围!');
  769.              edit9.Text:='';
  770.           end
  771.          else begin  b:= b/1000.0;
  772.          c:= b/ a;
  773.   edit8.Text:=formatfloat('0.000',c);;
  774.          end;
  775.          end;
  776.          end;
  777.      // c:= m/ n;
  779.   //edit8.Text:=formatfloat('0.000',c);
  781.       end;
  782.       if str1='mw' then begin
  783.         a:=strtofloat(edit10.Text);
  784.       n:=a;
  785.       a:=a*1000.0;
  786.       b:=strtofloat(edit9.Text);
  787.       ll:=combobox5.ItemIndex;
  788.       case ll of
  789.        { 0:begin m:=power(10,b/10.0); m:=m*1000.0; end;
  790.          1:m:= b*1000.0;
  791.          2:m:= b;
  792.          3:m:= b/1000.0   }
  793.  0:begin if (b<=-70) or (b>=10) then
  794.         begin
  795.         showmessage('输入的数值超出范围!') ;
  796.          edit9.Text:='';
  797.          end
  798.         else begin
  799.          b:=power(10,b/10.0);
  800.           b:=b*1000.0;
  801.           c:= b/a;
  802.            edit8.Text:=formatfloat('0.000',c);
  803.           end;
  804.           end;
  805.          1:begin if (b>10) or (b<1/10000000) then begin
  806.           showmessage('输入数值超出范围!');
  807.             edit9.Text:='';
  808.             end
  809.          else begin b:= b*1000.0;
  810.          c:= b/ a;
  811.   edit8.Text:=formatfloat('0.000',c);
  812.   end;
  813.    end;
  814.          2:begin if (b>1000)or (b<1/10000) then begin
  815.           showmessage('输入数值超出范围!');
  816.           edit9.Text:='';
  817.           end
  818.          else begin  b:= b;
  819.          c:= b/ a;
  820.   edit8.Text:=formatfloat('0.000',c);
  821.   end;
  822.   end;
  823.          3:begin if (b>1000000)or (b<1/10) then begin
  824.           showmessage('输入数值超出范围!');
  825.              edit9.Text:='';
  826.           end
  827.          else begin  b:= b/1000.0;
  828.          c:= b/a;
  829.   edit8.Text:=formatfloat('0.000',c);;
  830.          end;
  831.          end;
  833.          end;
  834.  // edit8.Text:=formatfloat('0.000',c);
  835. end;
  836.  // end;
  837.   end
  838.   else
  839.   begin
  840.       showmessage('请先输入正确的值！');
  841.   end;
  842. end;
  843.  // end;
  844.  // end;
  845. procedure TForm1.Button6Click(Sender: TObject);
  846. var
  847.   a,b:real;
  848.   c: real;
  849.  m,n:variant;
  850.  str1:string;
  851.  ll:integer;
  852. begin
  853.   c:=0.00;
  854.   if (edit6.Text<>'') and (edit7.Text<>'') then
  855.   begin  {if (strtofloat(edit3.Text) >25.00) or(strtofloat(edit3.Text)<-45.00) then
  856.  begin
  857.  showmessage('数值超出合理范围(-45.00～+25.00)');     /////////////////////////////////
  858.  edit3.Text:='';
  859.   end else begin }
  860.        str1:=label18.Caption;
  861.   if str1='dBm' then  begin
  862.       a:=strtofloat(edit7.Text);
  863.       n:=a;
  864.       a:=power(10,a/10.0);              //dbm to mw
  865.       a:=a*1000.0;                       //mw to uw
  866.       b:=strtofloat(edit6.Text);
  867.       ll:=combobox4.ItemIndex;
  868.       case ll of
  869.        { 0:begin m:=power(10,b/10.0); m:=m*1000.0; end;
  870.          1:m:= b*1000.0;
  871.          2:m:= b;
  872.          3:m:= b/1000.0
  873.          end; }
  874.            0:begin if (b<=-70) or (b>=10) then
  875.         begin
  876.         showmessage('输入的数值超出范围!') ;
  877.          edit6.Text:='';
  878.          end
  879.         else begin
  880.          b:=power(10,b/10.0);
  881.           b:=b*1000.0;
  882.           c:= b/ a;
  883.            edit5.Text:=formatfloat('0.000',c);
  884.           end;
  885.           end;
  886.          1:begin if (b>10) or (b<1/10000000) then begin
  887.           showmessage('输入数值超出范围!');
  888.             edit6.Text:='';
  889.             end
  890.          else begin b:= b*1000.0;
  891.          c:= b/ a;
  892.   edit5.Text:=formatfloat('0.000',c);
  893.   end;
  894.    end;
  895.          2:begin if (b>1000)or (b<1/10000) then begin
  896.           showmessage('输入数值超出范围!');
  897.           edit6.Text:='';
  898.           end
  899.          else begin  b:= b;
  900.          c:= b/ a;
  901.   edit5.Text:=formatfloat('0.000',c);
  902.   end;
  903.   end;
  904.          3:begin if (b>1000000)or (b<1/10) then begin
  905.           showmessage('输入数值超出范围!');
  906.              edit6.Text:='';
  907.           end
  908.          else begin  b:= b/1000.0;
  909.          c:= b/ a;
  910.   edit5.Text:=formatfloat('0.000',c);;
  911.          end;
  912.          end;
  913.      // c:= m/ n;
  915.   //edit5.Text:=formatfloat('0.000',c);
  916.   end;
  917.   end;
  918.   if str1='uw' then begin
  919.       a:=strtofloat(edit7.Text);
  920.       n:=a;
  921.      // m:=m;
  922.       b:=strtofloat(edit6.Text);
  923.      ll:=combobox4.ItemIndex;
  924.       case ll of
  925.        { 0:begin m:=power(10,b/10.0); m:=m*1000.0; end;
  926.          1:m:= b*1000.0;
  927.          2:m:= b;
  928.          3:m:= b/1000.0
  929.          end;
  930.       c:= m/ n;
  932.   edit5.Text:=formatfloat('0.000',c);}
  933.    0:begin if (b<=-70) or (b>=10) then
  934.         begin
  935.         showmessage('输入的数值超出范围!') ;
  936.          edit6.Text:='';
  937.          end
  938.         else begin
  939.          b:=power(10,b/10.0);
  940.           b:=b*1000.0;
  941.           c:= b/a;
  942.            edit5.Text:=formatfloat('0.000',c);
  943.           end;
  944.           end;
  945.          1:begin if (b>10) or (b<1/10000000) then begin
  946.           showmessage('输入数值超出范围!');
  947.             edit6.Text:='';
  948.             end
  949.          else begin b:= b*1000.0;
  950.          c:= b/a;
  951.   edit5.Text:=formatfloat('0.000',c);
  952.   end;
  953.    end;
  954.          2:begin if (b>1000)or (b<1/10000) then begin
  955.           showmessage('输入数值超出范围!');
  956.           edit6.Text:='';
  957.           end
  958.          else begin  b:= b;
  959.          c:= b/ a;
  960.   edit5.Text:=formatfloat('0.000',c);
  961.   end;
  962.   end;
  963.          3:begin if (b>1000000)or (b<1/10) then begin
  964.           showmessage('输入数值超出范围!');
  965.              edit6.Text:='';
  966.           end
  967.          else begin  b:= b/1000.0;
  968.          c:= b/ a;
  969.   edit5.Text:=formatfloat('0.000',c);;
  970.          end;
  971.          end;
  972.       end;
  973.       end;
  974.       if str1='nw' then begin
  976.        a:=strtofloat(edit7.Text);
  977.       n:=a;
  978.       a:=a/1000.0;
  979.       b:=strtofloat(edit6.Text);
  980.       ll:=combobox4.ItemIndex;
  981.       case ll of
  982.       {  0:begin m:=power(10,b/10.0); m:=m/1000.0; end;
  983.          1:m:= b*1000.0;
  984.          2:m:= b;
  985.          3:m:= b/1000.0
  986.          end;
  987.       c:= m/ n;
  989.   edit5.Text:=formatfloat('0.000',c);  }
  990.    0:begin if (b<=-70) or (b>=10) then
  991.         begin
  992.         showmessage('输入的数值超出范围!') ;
  993.          edit6.Text:='';
  994.          end
  995.         else begin
  996.          b:=power(10,b/10.0);
  997.           b:=b*1000.0;
  998.           c:= b/ a;
  999.            edit5.Text:=formatfloat('0.000',c);
  1000.           end;
  1001.           end;
  1002.          1:begin if (b>10) or (b<1/10000000) then begin
  1003.           showmessage('输入数值超出范围!');
  1004.             edit6.Text:='';
  1005.             end
  1006.          else begin b:= b*1000.0;
  1007.          c:= b/a ;
  1008.   edit5.Text:=formatfloat('0.000',c);
  1009.   end;
  1010.    end;
  1011.          2:begin if (b>1000)or (b<1/10000) then begin
  1012.           showmessage('输入数值超出范围!');
  1013.           edit6.Text:='';
  1014.           end
  1015.          else begin  b:= b;
  1016.          c:= b/ a;
  1017.   edit5.Text:=formatfloat('0.000',c);
  1018.   end;
  1019.   end;
  1020.          3:begin if (b>1000000)or (b<1/10) then begin
  1021.           showmessage('输入数值超出范围!');
  1022.              edit6.Text:='';
  1023.           end
  1024.          else begin  b:= b/1000.0;
  1025.          c:= b/ a;
  1026.   edit5.Text:=formatfloat('0.000',c);;
  1027.          end;
  1028.          end;
  1029.         end;
  1030.       end;
  1031.       if str1='mw' then begin
  1032.         a:=strtofloat(edit7.Text);
  1033.       n:=a;
  1034.       a:=a*1000.0;
  1035.       b:=strtofloat(edit6.Text);
  1036.       ll:=combobox4.ItemIndex;
  1037.       case ll of
  1038.        { 0:begin m:=power(10,b/10.0); m:=m*1000.0; end;
  1039.          1:m:= b*1000.0;
  1040.          2:m:= b;
  1041.          3:m:= b/1000.0
  1042.          end;
  1043.   edit5.Text:=formatfloat('0.000',c); }
  1044.    0:begin if (b<=-70) or (b>=10) then
  1045.         begin
  1046.         showmessage('输入的数值超出范围!') ;
  1047.          edit6.Text:='';
  1048.          end
  1049.         else begin
  1050.          b:=power(10,b/10.0);
  1051.           b:=b*1000.0;
  1052.           c:= b/ a;
  1053.            edit5.Text:=formatfloat('0.000',c);
  1054.           end;
  1055.           end;
  1056.          1:begin if (b>10) or (b<1/10000000) then begin
  1057.           showmessage('输入数值超出范围!');
  1058.             edit6.Text:='';
  1059.             end
  1060.          else begin b:= b*1000.0;
  1061.          c:= b/ a;
  1062.   edit5.Text:=formatfloat('0.000',c);
  1063.   end;
  1064.    end;
  1065.          2:begin if (b>1000)or (b<1/10000) then begin
  1066.           showmessage('输入数值超出范围!');
  1067.           edit6.Text:='';
  1068.           end
  1069.          else begin  b:= b;
  1070.          c:= b/ a;
  1071.   edit5.Text:=formatfloat('0.000',c);
  1072.   end;
  1073.   end;
  1074.          3:begin if (b>1000000)or (b<1/10) then begin
  1075.           showmessage('输入数值超出范围!');
  1076.              edit6.Text:='';
  1077.           end
  1078.          else begin  b:= b/1000.0;
  1079.          c:= b/a;
  1080.   edit5.Text:=formatfloat('0.000',c);;
  1081.          end;
  1082.          end;
  1083. end;
  1084. end;
  1085.   end
  1086.   else
  1087.   begin
  1088.       showmessage('请先输入正确的值！');
  1089.   end;
  1090. end;
  1092.  procedure TForm1.Button12Click(Sender: TObject);
  1093. var
  1094.   a,b:real;
  1095.   c: real;
  1096.  m,n:variant;
  1097.  str1:string;
  1098.  ll:integer;
  1099. begin
  1100. c:=0.00;
  1101.   if (edit12.Text<>'') and (edit13.Text<>'') then
  1102.   begin  {if (strtofloat(edit3.Text) >25.00) or(strtofloat(edit3.Text)<-45.00) then
  1103.  begin
  1104.  showmessage('数值超出合理范围(-45.00～+25.00)');     /////////////////////////////////
  1105.  edit3.Text:='';
  1106.   end else begin }
  1107.        str1:=label20.Caption;
  1108.   if str1='dBm' then  begin
  1109.       a:=strtofloat(edit13.Text);
  1110.       n:=a;
  1111.       a:=power(10,a/10.0);              //dbm to mw
  1112.       a:=a*1000.0;                       //mw to uw
  1113.       b:=strtofloat(edit12.Text);
  1114.       ll:=combobox6.ItemIndex;
  1115.       case ll of
  1116.         {0:begin m:=power(10,b/10.0); m:=m*1000.0; end;
  1117.          1:m:= b*1000.0;
  1118.          2:m:= b;
  1119.          3:m:= b/1000.0 } 0:begin if (b<=-70) or (b>=10) then
  1120.         begin
  1121.         showmessage('输入的数值超出范围!') ;
  1122.          edit12.Text:='';
  1123.          end
  1124.         else begin
  1125.          b:=power(10,b/10.0);
  1126.           b:=b*1000.0;
  1127.           c:= b/ a;
  1128.            edit11.Text:=formatfloat('0.000',c);
  1129.           end;
  1130.           end;
  1131.          1:begin if (b>10) or (b<1/10000000) then begin
  1132.           showmessage('输入数值超出范围!');
  1133.             edit12.Text:='';
  1134.             end
  1135.          else begin b:= b*1000.0;
  1136.          c:= b/ a;
  1137.   edit11.Text:=formatfloat('0.000',c);
  1138.   end;
  1139.    end;
  1140.          2:begin if (b>1000)or (b<1/10000) then begin
  1141.           showmessage('输入数值超出范围!');
  1142.           edit12.Text:='';
  1143.           end
  1144.          else begin  b:= b;
  1145.          c:= b/ a;
  1146.   edit11.Text:=formatfloat('0.000',c);
  1147.   end;
  1148.   end;
  1149.          3:begin if (b>1000000)or (b<1/10) then begin
  1150.           showmessage('输入数值超出范围!');
  1151.              edit12.Text:='';
  1152.           end
  1153.          else begin  b:= b/1000.0;
  1154.          c:= b/ a;
  1155.   edit11.Text:=formatfloat('0.000',c);;
  1156.          end;
  1157.          end;
  1158.          end;
  1159.     //  c:= m/ n;
  1161.  // edit11.Text:=formatfloat('0.000',c);
  1162.   end;
  1163.   if str1='uw' then begin
  1164.       a:=strtofloat(edit13.Text);
  1165.       n:=a;
  1166.      // m:=m;
  1167.       b:=strtofloat(edit12.Text);
  1168.      ll:=combobox6.ItemIndex;
  1169.       case ll of
  1170.        { 0:begin m:=power(10,b/10.0); m:=m*1000.0; end;
  1171.          1:m:= b*1000.0;
  1172.          2:m:= b;
  1173.          3:m:= b/1000.0 }
  1174.           0:begin if (b<=-70) or (b>=10) then
  1175.         begin
  1176.         showmessage('输入的数值超出范围!') ;
  1177.          edit12.Text:='';
  1178.          end
  1179.         else begin
  1180.          b:=power(10,b/10.0);
  1181.           b:=b*1000.0;
  1182.           c:= b/ a;
  1183.            edit11.Text:=formatfloat('0.000',c);
  1184.           end;
  1185.           end;
  1186.          1:begin if (b>10) or (b<1/10000000) then begin
  1187.           showmessage('输入数值超出范围!');
  1188.             edit12.Text:='';
  1189.             end
  1190.          else begin b:= b*1000.0;
  1191.          c:= b/ a;
  1192.   edit11.Text:=formatfloat('0.000',c);
  1193.   end;
  1194.    end;
  1195.          2:begin if (b>1000)or (b<1/10000) then begin
  1196.           showmessage('输入数值超出范围!');
  1197.           edit12.Text:='';
  1198.           end
  1199.          else begin  b:= b;
  1200.          c:= b/ a;
  1201.   edit11.Text:=formatfloat('0.000',c);
  1202.   end;
  1203.   end;
  1204.          3:begin if (b>1000000)or (b<1/10) then begin
  1205.           showmessage('输入数值超出范围!');
  1206.              edit12.Text:='';
  1207.           end
  1208.          else begin  b:= b/1000.0;
  1209.          c:= b/ a;
  1210.   edit11.Text:=formatfloat('0.000',c);;
  1211.          end;
  1212.          end;
  1213.          end;
  1214.     //  c:= m/ n;
  1216.   //edit11.Text:=formatfloat('0.000',c);
  1217.       end;
  1218.       if str1='nw' then begin
  1220.        a:=strtofloat(edit13.Text);
  1221.       n:=a;
  1222.       a:=a/1000.0;
  1223.       b:=strtofloat(edit12.Text);
  1224.       ll:=combobox6.ItemIndex;
  1225.       case ll of
  1226.         {0:begin m:=power(10,b/10.0); m:=m/1000.0; end;
  1227.          1:m:= b*1000.0;
  1228.          2:m:= b;
  1229.          3:m:= b/1000.0  }
  1230.           0:begin if (b<=-70) or (b>=10) then
  1231.         begin
  1232.         showmessage('输入的数值超出范围!') ;
  1233.          edit12.Text:='';
  1234.          end
  1235.         else begin
  1236.          b:=power(10,b/10.0);
  1237.           b:=b*1000.0;
  1238.           c:= b/ a;
  1239.            edit11.Text:=formatfloat('0.000',c);
  1240.           end;
  1241.           end;
  1242.          1:begin if (b>10) or (b<1/10000000) then begin
  1243.           showmessage('输入数值超出范围!');
  1244.             edit12.Text:='';
  1245.             end
  1246.          else begin a:= b*1000.0;
  1247.          c:= b/ a;
  1248.   edit11.Text:=formatfloat('0.000',c);
  1249.   end;
  1250.    end;
  1251.          2:begin if (b>1000)or (b<1/10000) then begin
  1252.           showmessage('输入数值超出范围!');
  1253.           edit12.Text:='';
  1254.           end
  1255.          else begin  b:= b;
  1256.          c:= b/ a;
  1257.   edit11.Text:=formatfloat('0.000',c);
  1258.   end;
  1259.   end;
  1260.          3:begin if (b>1000000)or (b<1/10) then begin
  1261.           showmessage('输入数值超出范围!');
  1262.              edit12.Text:='';
  1263.           end
  1264.          else begin  b:= b/1000.0;
  1265.          c:= b/ a;
  1266.   edit11.Text:=formatfloat('0.000',c);;
  1267.          end;
  1268.          end;
  1269.          end;
  1270.      // c:= m/ n;
  1272.  // edit11.Text:=formatfloat('0.000',c);
  1274.       end;
  1275.       if str1='mw' then begin
  1276.         a:=strtofloat(edit13.Text);
  1277.       n:=a;
  1278.       a:=a*1000.0;
  1279.       b:=strtofloat(edit12.Text);
  1280.       ll:=combobox6.ItemIndex;
  1281.       case ll of
  1282.      {   0:begin m:=power(10,b/10.0); m:=m*1000.0; end;
  1283.          1:m:= b*1000.0;
  1284.          2:m:= b;
  1285.          3:m:= b/1000.0    }
  1286.           0:begin if (b<=-70) or (b>=10) then
  1287.         begin
  1288.         showmessage('输入的数值超出范围!') ;
  1289.          edit12.Text:='';
  1290.          end
  1291.         else begin
  1292.          b:=power(10,b/10.0);
  1293.           b:=b*1000.0;
  1294.           c:= b/ a;
  1295.            edit11.Text:=formatfloat('0.000',c);
  1296.           end;
  1297.           end;
  1298.          1:begin if (b>10) or (b<1/10000000) then begin
  1299.           showmessage('输入数值超出范围!');
  1300.             edit12.Text:='';
  1301.             end
  1302.          else begin b:= b*1000.0;
  1303.          c:= b/ a;
  1304.   edit11.Text:=formatfloat('0.000',c);
  1305.   end;
  1306.    end;
  1307.          2:begin if (b>1000)or (b<1/10000) then begin
  1308.           showmessage('输入数值超出范围!');
  1309.           edit12.Text:='';
  1310.           end
  1311.          else begin  b:= b;
  1312.          c:= b/ a;
  1313.   edit11.Text:=formatfloat('0.000',c);
  1314.   end;
  1315.   end;
  1316.          3:begin if (b>1000000)or (b<1/10) then begin
  1317.           showmessage('输入数值超出范围!');
  1318.              edit12.Text:='';
  1319.           end
  1320.          else begin  b:= b/1000.0;
  1321.          c:= b/ a;
  1322.   edit11.Text:=formatfloat('0.000',c);;
  1323.          end;
  1324.          end;
  1325.          end;
  1326.   //edit11.Text:=formatfloat('0.000',c);
  1327. end;
  1328.  // end;
  1329.   end
  1330.   else
  1331.   begin
  1332.       showmessage('请先输入正确的值！');
  1333.   end;
  1334. end;
  1335. procedure TForm1.Button15Click(Sender: TObject);
  1336. var
  1337.   a,b:real;
  1338.   c: real;
  1339.  m,n:variant;
  1340.  str1:string;
  1341.  ll:integer;
  1342. begin
  1343. c:=0.00;
  1344.   if (edit15.Text<>'') and (edit16.Text<>'') then
  1345.   begin  {if (strtofloat(edit3.Text) >25.00) or(strtofloat(edit3.Text)<-45.00) then
  1346.  begin
  1347.  showmessage('数值超出合理范围(-45.00～+25.00)');     /////////////////////////////////
  1348.  edit3.Text:='';
  1349.   end else begin }
  1350.        str1:=label21.Caption;
  1351.   if str1='dBm' then  begin
  1352.       a:=strtofloat(edit16.Text);
  1353.       n:=a;
  1354.       a:=power(10,a/10.0);              //dbm to mw
  1355.       a:=a*1000.0;                       //mw to uw
  1356.       b:=strtofloat(edit15.Text);
  1357.       ll:=combobox7.ItemIndex;
  1358.       case ll of
  1359.         {0:begin m:=power(10,b/10.0); m:=m*1000.0; end;
  1360.          1:m:= b*1000.0;
  1361.          2:m:= b;
  1362.          3:m:= b/1000.0   }
  1363.           0:begin if (b<=-70) or (b>=10) then
  1364.         begin
  1365.         showmessage('输入的数值超出范围!') ;
  1366.          edit15.Text:='';
  1367.          end
  1368.         else begin
  1369.          b:=power(10,b/10.0);
  1370.           b:=b*1000.0;
  1371.           c:= b/ a;
  1372.            edit14.Text:=formatfloat('0.000',c);
  1373.           end;
  1374.           end;
  1375.          1:begin if (b>10) or (b<1/10000000) then begin
  1376.           showmessage('输入的数值超出范围!');
  1377.             edit15.Text:='';
  1378.             end
  1379.          else begin b:= b*1000.0;
  1380.          c:= b/ a;
  1381.   edit14.Text:=formatfloat('0.000',c);
  1382.   end;
  1383.    end;
  1384.          2:begin if (b>1000)or (b<1/10000) then begin
  1385.           showmessage('输入的数值超出范围!');
  1386.           edit15.Text:='';
  1387.           end
  1388.          else begin  b:= b;
  1389.          c:= b/ a;
  1390.   edit14.Text:=formatfloat('0.000',c);
  1391.   end;
  1392.   end;
  1393.          3:begin if (b>1000000)or (b<1/10) then begin
  1394.           showmessage('输入的数值超出范围!');
  1395.              edit15.Text:='';
  1396.           end
  1397.          else begin  b:= b/1000.0;
  1398.          c:= b/ a;
  1399.   edit14.Text:=formatfloat('0.000',c);;
  1400.          end;
  1401.          end;
  1402.          end;
  1403.      // c:= m/ n;
  1405.  // edit14.Text:=formatfloat('0.000',c);
  1406.   end;
  1407.   if str1='uw' then begin
  1408.       a:=strtofloat(edit16.Text);
  1409.       n:=a;
  1410.      // m:=m;
  1411.       b:=strtofloat(edit15.Text);
  1412.      ll:=combobox7.ItemIndex;
  1413.       case ll of
  1414.        { 0:begin m:=power(10,b/10.0); m:=m*1000.0; end;
  1415.          1:m:= b*1000.0;
  1416.          2:m:= b;
  1417.          3:m:= b/1000.0   }
  1418.           0:begin if (b<=-70) or (b>=10) then
  1419.         begin
  1420.         showmessage('输入的数值超出范围!') ;
  1421.          edit15.Text:='';
  1422.          end
  1423.         else begin
  1424.          b:=power(10,b/10.0);
  1425.           b:=b*1000.0;
  1426.           c:= b/ a;
  1427.            edit14.Text:=formatfloat('0.000',c);
  1428.           end;
  1429.           end;
  1430.          1:begin if (b>10) or (b<1/10000000) then begin
  1431.           showmessage('输入的数值超出范围!');
  1432.             edit15.Text:='';
  1433.             end
  1434.          else begin b:= b*1000.0;
  1435.          c:= b/ a;
  1436.   edit14.Text:=formatfloat('0.000',c);
  1437.   end;
  1438.    end;
  1439.          2:begin if (b>1000)or (b<1/10000) then begin
  1440.           showmessage('输入的数值超出范围!');
  1441.           edit15.Text:='';
  1442.           end
  1443.          else begin  b:= b;
  1444.          c:= b/ a;
  1445.   edit14.Text:=formatfloat('0.000',c);
  1446.   end;
  1447.   end;
  1448.          3:begin if (b>1000000)or (b<1/10) then begin
  1449.           showmessage('输入的数值超出范围!');
  1450.              edit15.Text:='';
  1451.           end
  1452.          else begin  b:= b/1000.0;
  1453.          c:= b/a;
  1454.   edit14.Text:=formatfloat('0.000',c);;
  1455.          end;
  1456.          end;
  1457.          end;
  1458.       //c:= m/ n;
  1460.   //edit14.Text:=formatfloat('0.000',c);
  1461.       end;
  1462.       if str1='nw' then begin
  1464.        a:=strtofloat(edit16.Text);
  1465.       n:=a;
  1466.       a:=a/1000.0;
  1467.       b:=strtofloat(edit15.Text);
  1468.       ll:=combobox7.ItemIndex;
  1469.       case ll of
  1470.       {  0:begin m:=power(10,b/10.0); m:=m/1000.0; end;
  1471.          1:m:= b*1000.0;
  1472.          2:m:= b;
  1473.          3:m:= b/1000.0    }
  1474.           0:begin if (b<=-70) or (b>=10) then
  1475.         begin
  1476.         showmessage('输入的数值超出范围!') ;
  1477.          edit15.Text:='';
  1478.          end
  1479.         else begin
  1480.          b:=power(10,b/10.0);
  1481.           b:=b*1000.0;
  1482.           c:= b/a;
  1483.            edit14.Text:=formatfloat('0.000',c);
  1484.           end;
  1485.           end;
  1486.          1:begin if (b>10) or (b<1/10000000) then begin
  1487.           showmessage('输入的数值超出范围!');
  1488.             edit15.Text:='';
  1489.             end
  1490.          else begin b:= b*1000.0;
  1491.          c:= b/ a;
  1492.   edit14.Text:=formatfloat('0.000',c);
  1493.   end;
  1494.    end;
  1495.          2:begin if (b>1000)or (b<1/10000) then begin
  1496.           showmessage('输入的数值超出范围!');
  1497.           edit15.Text:='';
  1498.           end
  1499.          else begin  b:= b;
  1500.          c:= b/a;
  1501.   edit14.Text:=formatfloat('0.000',c);
  1502.   end;
  1503.   end;
  1504.          3:begin if (b>1000000)or (b<1/10) then begin
  1505.           showmessage('输入的数值超出范围!');
  1506.              edit15.Text:='';
  1507.           end
  1508.          else begin  b:= b/1000.0;
  1509.          c:= b/ a;
  1510.   edit14.Text:=formatfloat('0.000',c);;
  1511.          end;
  1512.          end;
  1513.          end;
  1514.      // c:= m/ n;
  1516.   //edit14.Text:=formatfloat('0.000',c);
  1518.       end;
  1519.       if str1='mw' then begin
  1520.         a:=strtofloat(edit16.Text);
  1521.       n:=a;
  1522.       a:=a*1000.0;
  1523.       b:=strtofloat(edit15.Text);
  1524.       ll:=combobox7.ItemIndex;
  1525.       case ll of
  1526.         {0:begin m:=power(10,b/10.0); m:=m*1000.0; end;
  1527.          1:m:= b*1000.0;
  1528.          2:m:= b;
  1529.          3:m:= b/1000.0   }
  1530.           0:begin if (b<=-70) or (b>=10) then
  1531.         begin
  1532.         showmessage('输入的数值超出范围!') ;
  1533.          edit15.Text:='';
  1534.          end
  1535.         else begin
  1536.          b:=power(10,b/10.0);
  1537.           b:=b*1000.0;
  1538.           c:= b/ a;
  1539.            edit14.Text:=formatfloat('0.000',c);
  1540.           end;
  1541.           end;
  1542.          1:begin if (b>10) or (b<1/10000000) then begin
  1543.           showmessage('输入的数值超出范围!');
  1544.             edit15.Text:='';
  1545.             end
  1546.          else begin b:= b*1000.0;
  1547.          c:= b/ a;
  1548.   edit14.Text:=formatfloat('0.000',c);
  1549.   end;
  1550.    end;
  1551.          2:begin if (b>1000)or (b<1/10000) then begin
  1552.           showmessage('输入的数值超出范围!');
  1553.           edit15.Text:='';
  1554.           end
  1555.          else begin  b:= b;
  1556.          c:= b/a;
  1557.   edit14.Text:=formatfloat('0.000',c);
  1558.   end;
  1559.   end;
  1560.          3:begin if (b>1000000)or (b<1/10) then begin
  1561.           showmessage('输入的数值超出范围!');
  1562.              edit15.Text:='';
  1563.           end
  1564.          else begin  b:= b/1000.0;
  1565.          c:= b/a;
  1566.   edit14.Text:=formatfloat('0.000',c);;
  1567.          end;
  1568.          end;
  1569.          end;
  1570.   //edit14.Text:=formatfloat('0.000',c);
  1571. end;
  1572.  // end;
  1573.   end
  1574.   else
  1575.   begin
  1576.       showmessage('请先输入正确的值！');
  1577.   end;
  1578. end;
  1579. procedure TForm1.Button18Click(Sender: TObject);
  1580. var
  1581.   a,b:real;
  1582.   c: real;
  1583.  m,n:variant;
  1584.  str1:string;
  1585.  ll:integer;
  1586. begin
  1587. c:=0.00;
  1588.   if (edit18.Text<>'') and (edit19.Text<>'') then
  1589.   begin  {if (strtofloat(edit3.Text) >40.00) or(strtofloat(edit3.Text)<-45.00) then
  1590.  begin
  1591.  showmessage('数值超出合理范围');     /////////////////////////////////
  1592.  edit3.Text:='';
  1593.   end else begin }
  1594.        str1:=label22.Caption;
  1595.   if str1='dBm' then  begin
  1596.       a:=strtofloat(edit19.Text);
  1597.       n:=a;
  1598.       a:=power(10,n/10.0);              //dbm to mw
  1599.       a:=a*1000.0;                       //mw to uw
  1600.       b:=strtofloat(edit18.Text);
  1601.       ll:=combobox8.ItemIndex;
  1602.       case ll of
  1603.        { 0:begin m:=power(10,b/10.0); m:=m*1000.0; end;
  1604.          1:m:= b*1000.0;
  1605.          2:m:= b;
  1606.          3:m:= b/1000.0 }
  1607.           0:begin if (b<=-70) or (b>=10) then
  1608.         begin
  1609.         showmessage('输入的数值超出范围!') ;
  1610.          edit18.Text:='';
  1611.          end
  1612.         else begin
  1613.          b:=power(10,b/10.0);
  1614.           b:=b*1000.0;
  1615.           c:= b/ a;
  1616.            edit17.Text:=formatfloat('0.000',c);
  1617.           end;
  1618.           end;
  1619.          1:begin if (b>10) or (b<1/10000000) then begin
  1620.           showmessage('输入的数值超出范围!');
  1621.             edit18.Text:='';
  1622.             end
  1623.          else begin b:= b*1000.0;
  1624.          c:= b/ a;
  1625.   edit17.Text:=formatfloat('0.000',c);
  1626.   end;
  1627.    end;
  1628.          2:begin if (b>1000)or (b<1/10000) then begin
  1629.           showmessage('输入的数值超出范围!');
  1630.           edit18.Text:='';
  1631.           end
  1632.          else begin  b:= b;
  1633.          c:= b/a;
  1634.   edit17.Text:=formatfloat('0.000',c);
  1635.   end;
  1636.   end;
  1637.          3:begin if (b>1000000)or (b<1/10) then begin
  1638.           showmessage('输入的数值超出范围!');
  1639.              edit18.Text:='';
  1640.           end
  1641.          else begin  b:= b/1000.0;
  1642.          c:= b/a;
  1643.   edit17.Text:=formatfloat('0.000',c);;
  1644.          end;
  1645.          end;
  1646.          end;
  1647.      // c:= m/ n;
  1649.   //edit17.Text:=formatfloat('0.000',c);
  1650.   end;
  1651.   if str1='uw' then begin
  1652.       a:=strtofloat(edit19.Text);
  1653.       n:=a;
  1654.      // m:=m;
  1655.       b:=strtofloat(edit18.Text);
  1656.      ll:=combobox8.ItemIndex;
  1657.       case ll of
  1658.        { 0:begin m:=power(10,b/10.0); m:=m*1000.0; end;
  1659.          1:m:= b*1000.0;
  1660.          2:m:= b;
  1661.          3:m:= b/1000.0  }
  1662.           0:begin if (b<=-70) or (b>=10) then
  1663.         begin
  1664.         showmessage('输入的数值超出范围!') ;
  1665.          edit18.Text:='';
  1666.          end
  1667.         else begin
  1668.          b:=power(10,b/10.0);
  1669.           b:=b*1000.0;
  1670.           c:= b/a;
  1671.            edit17.Text:=formatfloat('0.000',c);
  1672.           end;
  1673.           end;
  1674.          1:begin if (b>10) or (b<1/10000000) then begin
  1675.           showmessage('输入的数值超出范围!');
  1676.             edit18.Text:='';
  1677.             end
  1678.          else begin b:= b*1000.0;
  1679.          c:= b/ a;
  1680.   edit17.Text:=formatfloat('0.000',c);
  1681.   end;
  1682.    end;
  1683.          2:begin if (b>1000)or (b<1/10000) then begin
  1684.           showmessage('输入的数值超出范围!');
  1685.           edit18.Text:='';
  1686.           end
  1687.          else begin  b:= b;
  1688.          c:= b/ a;
  1689.   edit17.Text:=formatfloat('0.000',c);
  1690.   end;
  1691.   end;
  1692.          3:begin if (b>1000000)or (b<1/10) then begin
  1693.           showmessage('输入的数值超出范围!');
  1694.              edit18.Text:='';
  1695.           end
  1696.          else begin  b:= b/1000.0;
  1697.          c:= b/a;
  1698.   edit17.Text:=formatfloat('0.000',c);;
  1699.          end;
  1700.          end;
  1701.          end;
  1702.     //  c:= m/ n;
  1704.   //edit17.Text:=formatfloat('0.000',c);
  1705.       end;
  1706.       if str1='nw' then begin
  1708.        a:=strtofloat(edit19.Text);
  1709.       n:=a;
  1710.       a:=a/1000.0;
  1711.       b:=strtofloat(edit18.Text);
  1712.       ll:=combobox8.ItemIndex;
  1713.       case ll of
  1714.       {  0:begin m:=power(10,b/10.0); m:=m/1000.0; end;
  1715.          1:m:= b*1000.0;
  1716.          2:m:= b;
  1717.          3:m:= b/1000.0   }
  1718.           0:begin if (b<=-70) or (b>=10) then
  1719.         begin
  1720.         showmessage('输入的数值超出范围!') ;
  1721.          edit18.Text:='';
  1722.          end
  1723.         else begin
  1724.          b:=power(10,b/10.0);
  1725.           b:=b*1000.0;
  1726.           c:= b/ a;
  1727.            edit17.Text:=formatfloat('0.000',c);
  1728.           end;
  1729.           end;
  1730.          1:begin if (b>10) or (b<1/10000000) then begin
  1731.           showmessage('输入的数值超出范围!');
  1732.             edit18.Text:='';
  1733.             end
  1734.          else begin b:= b*1000.0;
  1735.          c:= b/ a;
  1736.   edit17.Text:=formatfloat('0.000',c);
  1737.   end;
  1738.    end;
  1739.          2:begin if (b>1000)or (b<1/10000) then begin
  1740.           showmessage('输入的数值超出范围!');
  1741.           edit18.Text:='';
  1742.           end
  1743.          else begin  b:= b;
  1744.          c:=b/a;
  1745.   edit17.Text:=formatfloat('0.000',c);
  1746.   end;
  1747.   end;
  1748.          3:begin if (b>1000000)or (b<1/10) then begin
  1749.           showmessage('输入的数值超出范围!');
  1750.              edit18.Text:='';
  1751.           end
  1752.          else begin  b:= b/1000.0;
  1753.          c:= b/a;
  1754.   edit17.Text:=formatfloat('0.000',c);;
  1755.          end;
  1756.          end;
  1757.          end;
  1758.     //  c:= m/ n;
  1760.   //edit17.Text:=formatfloat('0.000',c);
  1762.       end;
  1763.       if str1='mw' then begin
  1764.         a:=strtofloat(edit19.Text);
  1765.       n:=a;
  1766.       a:=a*1000.0;
  1767.       b:=strtofloat(edit18.Text);
  1768.       ll:=combobox8.ItemIndex;
  1769.       case ll of
  1770.         {0:begin m:=power(10,b/10.0); m:=m*1000.0; end;
  1771.          1:m:= b*1000.0;
  1772.          2:m:= b;
  1773.          3:m:= b/1000.0   }
  1774.           0:begin if (b<=-70) or (b>=10) then
  1775.         begin
  1776.         showmessage('输入的数值超出范围!') ;
  1777.          edit18.Text:='';
  1778.          end
  1779.         else begin
  1780.          b:=power(10,b/10.0);
  1781.           b:=b*1000.0;
  1782.           c:= b/ a;
  1783.            edit17.Text:=formatfloat('0.000',c);
  1784.           end;
  1785.           end;
  1786.          1:begin if (b>10) or (b<1/10000000) then begin
  1787.           showmessage('输入的数值超出范围!');
  1788.             edit18.Text:='';
  1789.             end
  1790.          else begin b:= b*1000.0;
  1791.          c:= b/ a;
  1792.   edit17.Text:=formatfloat('0.000',c);
  1793.   end;
  1794.    end;
  1795.          2:begin if (b>1000)or (b<1/10000) then begin
  1796.           showmessage('输入的数值超出范围!');
  1797.           edit18.Text:='';
  1798.           end
  1799.          else begin  b:= b;
  1800.          c:= b/a;
  1801.   edit17.Text:=formatfloat('0.000',c);
  1802.   end;
  1803.   end;
  1804.          3:begin if (b>1000000)or (b<1/10) then begin
  1805.           showmessage('输入的数值超出范围!');
  1806.              edit18.Text:='';
  1807.           end
  1808.          else begin  b:= b/1000.0;
  1809.          c:= b/ a;
  1810.   edit17.Text:=formatfloat('0.000',c);;
  1811.          end;
  1812.          end;
  1813.          end;
  1814.   edit17.Text:=formatfloat('0.000',c);
  1815. end;
  1816.  // end;
  1817.   end
  1818.   else
  1819.   begin
  1820.       showmessage('请先输入正确的值！');
  1821.   end;
  1822. end;
  1823. procedure TForm1.Button2Click(Sender: TObject);
  1824. var
  1825.  v,len,i,count:integer;
  1827.    tmpstr:string;
  1828.    tmpvar:variant;
  1829.    xornum:byte;
  1830.    arr:array of byte;
  1831.     f:real;
  1832. begin
  1834.   arr:=nil;
  1835.  if (edit2.Text='') then
  1836.   begin
  1837.   showmessage('无设定值！');
  1838.   end
  1839.  else begin if not mscomm1.PortOpen then begin
  1840.     showmessage('串口没有打开！');
  1841.      end else begin
  1842.       //hao add
  1843.   if not TsInputVal(edit2.Text) then
  1844.     begin
  1845.      edit2.SetFocus;
  1846.      exit
  1847.     end;
  1848.   //hao add end
  1849.      setlength(arr,9);
  1850.         f:=strtofloat(edit2.text)*1000.0;
  1851.         tmpstr:=floattostr(f);
  1853.          v:=strtoint(tmpstr);
  1854.             arr[0]:=$7e;   //soi
  1855.            arr[1]:=$10;   //ver
  1856.             arr[2]:= $04;    //length
  1857.             arr[3]:=$a1;     //cid
  1858.            arr[4]:=$00;      //datainfo
  1859.            arr[5]:=v div 256;
  1860.             arr[6]:= v mod 256   ;
  1861.             xornum:= arr[2] xor arr[3] xor arr[4] xor arr[5]xor arr[6];
  1862.             arr[7]:=xornum;
  1863.             arr[8]:=$0d;
  1864.   // send data
  1865.               len:=length(arr);
  1866.            i:=0;
  1867.             count:=0;
  1868.             tmpvar:=vararraycreate([0,0],varbyte);
  1869.             //tmpvar[count]:=arr[i];
  1870.             //inc(count);
  1871.             //inc(i);
  1872.              while(count<=len-1)do begin
  1873.                         tmpvar[count]:=arr[i];
  1874.                         inc(count);
  1875.                         inc(i);
  1876.                         vararrayredim(tmpvar,count);
  1877.                     end;
  1879.       MSComm1.Output:=tmpvar;
  1880.       timer1.Enabled:=true;
  1881.  end;
  1883.      //while mscomm1.InBufferCount
  1884.     end;
  1885. end;
  1889. procedure TForm1.Timer1Timer(Sender: TObject);
  1890. var
  1891. i,n,m,chksum:integer;  //,timesum
  1892. arr:array of byte;
  1893. tmpvar:variant;
  1894. begin
  1896.      arr:=nil;
  1897.      chksum:=$00;
  1898.     timesum:=timesum+integer(timer1.Interval)+10;
  1899.      if timesum<900 then
  1900.       begin
  1901.         if mscomm1.InBufferCount>0 then begin
  1902.         timer1.Enabled:=false;
  1903.         timesum:=100;
  1904.           n:=mscomm1.InBufferCount;
  1905.           setlength(arr,n);
  1906.           tmpvar:=mscomm1.input;
  1907.        for i:=0 to n-1 do arr[i]:=tmpvar[i];
  1908.         if (arr[0]=$7e)and(arr[1]=$10)and(arr[n-1]=$0d) then
  1909.         begin
  1910.            for m:=2 to (n-3) do chksum:=chksum xor arr[m];
  1911.            if (arr[n-2]=chksum)and(arr[3]=$a1) then begin
  1912.                //edit4.Text:=inttostr(arr[4]*256+arr[5]);
  1913.                if arr[n-3]=$0cc  then begin
  1914.                 showmessage('设置成功！') ;
  1915.                 //tag:=true;
  1916.                 end
  1917.                 else  if arr[n-3]=$66 then begin  //success:=true;
  1918.                 timer1.Enabled:=false;
  1919.                     showmessage('设置失败!');
  1920.                     end else begin timer1.Enabled:=false;
  1921.                     showmessage('数据包错误!');
  1922.                       end;
  1923.              end else
  1924.              begin
  1925.              timer1.Enabled:=false;
  1927.              showmessage('帧校验错误!'); //帧校验错误
  1928.               //success:=true;
  1929.               end;
  1930.        end else begin
  1931.        timer1.Enabled:=false;
  1932.       showmessage('响应数据错误！');
  1933.            //success:=true;
  1934.            end;
  1935.     end else begin
  1936.         sleep(10);
  1937.       timer1.Enabled:=true;
  1938.              end;
  1939.              end else begin
  1940.              //success:=true;
  1941.              timer1.Enabled:=false;
  1942.              timesum:=100;
  1943.              showmessage('通道0参数设定时响应超时!');
  1946.              end;
  1947. end;
  1949. procedure TForm1.FormCreate(Sender: TObject);
  1950. begin
  1951. tindexnum:=-1;
  1952. timesum:=100;
  1953. flag:=false;
  1954. success:=0;
  1955. zuhao:=-1;
  1956. tag:=0;
  1957. tagc:=0;
  1958. pc:=0;
  1959. p:=0;
  1960. {edit4.Enabled:=false;
  1961. edit7.Enabled:=false;
  1962. edit10.Enabled:=false;
  1963. edit13.Enabled:=false;
  1964. edit16.Enabled:=false;
  1965. edit19.Enabled:=false; }
  1966. edit20.Enabled:=false;
  1967. edit21.Enabled:=false;
  1968. edit22.Enabled:=false;
  1969. edit23.Enabled:=false;
  1970. edit24.Enabled:=false;
  1971. edit25.Enabled:=false;
  1972. edit26.Enabled:=false;
  1973. edit27.Enabled:=false;
  1974. edit28.Enabled:=false;
  1975. edit29.Enabled:=false;
  1976. edit30.Enabled:=false;
  1978. edit31.Visible:=false;
  1979. label8.Visible:=false;
  1980. label9.Visible:=false;
  1981. label10.Visible:=false;
  1982. label11.Visible:=false;
  1983. label12.Visible:=false;
  1984. label13.Visible:=false;
  1985. label14.Visible:=false;
  1986. label15.Visible:=false;
  1987. label16.Visible:=false;
  1988. edit29.Visible:=false;
  1989. edit30.Visible:=false;
  1991. edit27.Visible:=false;
  1992. edit28.Visible:=false;
  1993. button23.Visible:=false;
  1994. end;
  1996. procedure TForm1.Button26Click(Sender: TObject);
  1997. begin
  1999.  if messagedlg('你确定要退出吗？',mtConfirmation,[mbyes,mbno],0)=mryes then
  2000.     begin
  2001.     if mscomm1.PortOpen then begin
  2002.     mscomm1.PortOpen:=false;
  2003.     shape1.Brush.Color:=clred;
  2005.      end;
  2006.      application.Terminate;
  2007.     end;
  2009. end ;
  2013. procedure TForm1.Button27Click(Sender: TObject);
  2014.   var
  2015.   pt:boolean;
  2016.     filename,s,ed:string;
  2017.   i:integer;
  2018.    text:textfile;
  2019.    dataarr:array[1..6] of string;
  2020.   begin
  2021.       pt:=false;
  2022.     if opendialog1.Execute then
  2023.     begin  filename:=opendialog1.FileName;
  2024.        filename:=extractfilename(filename);
  2025.              if fileexists(filename)  then begin
  2026.         if edit1.Text='' then ed:='""' else ed:=edit1.Text;
  2027.          assignfile(text,filename);
  2028.          reset(text);
  2029.          try
  2030.             while not eof(text)  do
  2031.              begin
  2032.                readln(text,s);
  2033.                if s=ed  then  begin
  2034.                pt:=true;
  2035.                for i:=1 to 6 do begin
  2036.                   readln(text,s) ;
  2037.                 dataarr[i]:=s ;
  2038.                   end;
  2039.           edit20.Text:=dataarr[1];
  2040.           edit21.Text:=dataarr[2];
  2041.           edit22.Text:=dataarr[3];
  2042.           edit23.Text:=dataarr[4];
  2043.           edit24.Text:=dataarr[5];
  2044.           edit25.Text:=dataarr[6];
  2045.          if edit20.Text= edit2.Text then
  2046.             checkbox1.Checked:=true  else  checkbox1.Checked:=false;
  2047.          if edit21.Text= edit5.Text then
  2048.             checkbox2.Checked:=true  else  checkbox2.Checked:=false;
  2049.             if edit22.Text= edit8.Text then
  2050.             checkbox3.Checked:=true  else  checkbox3.Checked:=false;
  2051.             if edit23.Text= edit11.Text then
  2052.             checkbox4.Checked:=true  else  checkbox4.Checked:=false;
  2053.             if edit24.Text= edit14.Text then
  2054.             checkbox5.Checked:=true  else  checkbox5.Checked:=false;
  2055.             if edit25.Text= edit17.Text then
  2056.             checkbox6.Checked:=true  else  checkbox6.Checked:=false;
  2057.          
  2058.                 end ;
  2059.                end;
  2060.          finally
  2061.                closefile(text);
  2062.                end;
  2063.                 if pt=false then begin
  2064.                   edit20.Text:='';
  2065.                 edit21.Text:='';
  2066.                 edit22.Text:='';
  2067.                 edit23.Text:='';
  2068.                 edit24.Text:='';
  2069.                 edit25.Text:='';
  2070.                  showmessage('文件中无合适的记录!');
  2071.                  end;
  2072.             end else
  2073.             begin
  2074.                 edit20.Text:='';
  2075.                 edit21.Text:='';
  2076.                 edit22.Text:='';
  2077.                 edit23.Text:='';
  2078.                 edit24.Text:='';
  2079.                 edit25.Text:='';
  2080.                  showmessage('没有找到指定文件!');
  2081.             end;
  2082.      end;
  2083.      end;
  2085. procedure TForm1.Button5Click(Sender: TObject);
  2086. var
  2087.  v,len,i,count:integer;
  2089.    tmpstr:string;
  2090.    tmpvar:variant;
  2091.    xornum:byte;
  2092.    arr:array of byte;
  2093.     f:real;
  2094. begin
  2096. arr:=nil;
  2097.  if (edit5.Text='') then
  2098.   begin
  2099.   showmessage('无设定值！');
  2100.   end
  2101.  else begin if not mscomm1.PortOpen then begin
  2102.     showmessage('串口没有打开！');
  2103.      end else begin
  2104.       //hao add
  2105.   if not TsInputVal(edit5.Text) then
  2106.      begin
  2107.      edit5.SetFocus;
  2108.      exit
  2109.     end;
  2110.   //hao add end
  2111.      setlength(arr,9);
  2112.         f:=strtofloat(edit5.text)*1000.0;
  2113.         tmpstr:=floattostr(f);
  2115.          v:=strtoint(tmpstr);
  2116.             arr[0]:=$7e;   //soi
  2117.            arr[1]:=$10;   //ver
  2118.             arr[2]:= $04;    //length
  2119.             arr[3]:=$a1;     //cid
  2120.            arr[4]:=$01;      //datainfo
  2121.            arr[5]:=v div 256;
  2122.             arr[6]:= v mod 256   ;
  2123.             xornum:= arr[2] xor arr[3] xor arr[4] xor arr[5]xor arr[6];
  2124.             arr[7]:=xornum;
  2125.             arr[8]:=$0d;
  2126.   // send data
  2127.               len:=length(arr);
  2128.            i:=0;
  2129.             count:=0;
  2130.             tmpvar:=vararraycreate([0,0],varbyte);
  2131.             //tmpvar[count]:=arr[i];
  2132.             //inc(count);
  2133.             //inc(i);
  2134.              while(count<=len-1)do begin
  2135.                         tmpvar[count]:=arr[i];
  2136.                         inc(count);
  2137.                         inc(i);
  2138.                         vararrayredim(tmpvar,count);
  2139.                     end;
  2141.       MSComm1.Output:=tmpvar;
  2142.       timer2.Enabled:=true;
  2143.  end;
  2145.      //while mscomm1.InBufferCount
  2146.     end;
  2147. end;
  2149. procedure TForm1.Button8Click(Sender: TObject);
  2150. var
  2151.  v,len,i,count:integer;
  2153.    tmpstr:string;
  2154.    tmpvar:variant;
  2155.    xornum:byte;
  2156.    arr:array of byte;
  2157.     f:real;
  2158. begin
  2160. arr:=nil;
  2161.  if (edit8.Text='') then
  2162.   begin
  2163.   showmessage('无设定值！');
  2164.   end
  2165.  else begin if not mscomm1.PortOpen then begin
  2166.     showmessage('串口没有打开！');
  2167.      end else begin
  2168.       //hao add
  2169.   if not TsInputVal(edit8.Text) then
  2170.      edit8.SetFocus;
  2171.   //hao add end
  2172.      setlength(arr,9);
  2173.         f:=strtofloat(edit8.text)*1000.0;
  2174.         tmpstr:=floattostr(f);
  2176.          v:=strtoint(tmpstr);
  2177.             arr[0]:=$7e;   //soi
  2178.            arr[1]:=$10;   //ver
  2179.             arr[2]:= $04;    //length
  2180.             arr[3]:=$a1;     //cid
  2181.            arr[4]:=$02;      //datainfo
  2182.            arr[5]:=v div 256;
  2183.             arr[6]:= v mod 256   ;
  2184.             xornum:= arr[2] xor arr[3] xor arr[4] xor arr[5]xor arr[6];
  2185.             arr[7]:=xornum;
  2186.             arr[8]:=$0d;
  2187.   // send data
  2188.               len:=length(arr);
  2189.            i:=0;
  2190.             count:=0;
  2191.             tmpvar:=vararraycreate([0,0],varbyte);
  2192.             //tmpvar[count]:=arr[i];
  2193.             //inc(count);
  2194.             //inc(i);
  2195.              while(count<=len-1)do begin
  2196.                         tmpvar[count]:=arr[i];
  2197.                         inc(count);
  2198.                         inc(i);
  2199.                         vararrayredim(tmpvar,count);
  2200.                     end;
  2202.       MSComm1.Output:=tmpvar;
  2203.       timer3.Enabled:=true;
  2204.  end;
  2206.      //while mscomm1.InBufferCount
  2207.     end;
  2208. end;
  2212. procedure TForm1.Button11Click(Sender: TObject);
  2213. var
  2214.  v,len,i,count:integer;
  2216.    tmpstr:string;
  2217.    tmpvar:variant;
  2218.    xornum:byte;
  2219.    arr:array of byte;
  2220.     f:real;
  2221. begin
  2223. arr:=nil;
  2224.  if (edit11.Text='') then
  2225.   begin
  2226.   showmessage('无设定值！');
  2227.   end
  2228.  else begin if not mscomm1.PortOpen then begin
  2229.     showmessage('串口没有打开！');
  2230.      end else begin
  2231.       //hao add
  2232.   if not TsInputVal(edit11.Text) then
  2233.     begin
  2234.      edit11.SetFocus;
  2235.      exit
  2236.     end;
  2237.   //hao add end
  2238.      setlength(arr,9);
  2239.         f:=strtofloat(edit11.text)*1000.0;
  2240.         tmpstr:=floattostr(f);
  2242.          v:=strtoint(tmpstr);
  2243.             arr[0]:=$7e;   //soi
  2244.            arr[1]:=$10;   //ver
  2245.             arr[2]:= $04;    //length
  2246.             arr[3]:=$a1;     //cid
  2247.            arr[4]:=$03;      //datainfo
  2248.            arr[5]:=v div 256;
  2249.             arr[6]:= v mod 256   ;
  2250.             xornum:= arr[2] xor arr[3] xor arr[4] xor arr[5]xor arr[6];
  2251.             arr[7]:=xornum;
  2252.             arr[8]:=$0d;
  2253.   // send data
  2254.               len:=length(arr);
  2255.            i:=0;
  2256.             count:=0;
  2257.             tmpvar:=vararraycreate([0,0],varbyte);
  2258.             //tmpvar[count]:=arr[i];
  2259.             //inc(count);
  2260.             //inc(i);
  2261.              while(count<=len-1)do begin
  2262.                         tmpvar[count]:=arr[i];
  2263.                         inc(count);
  2264.                         inc(i);
  2265.                         vararrayredim(tmpvar,count);
  2266.                     end;
  2268.       MSComm1.Output:=tmpvar;
  2269.       timer4.Enabled:=true;
  2270.  end;
  2272.      //while mscomm1.InBufferCount
  2273.     end;
  2274. end;
  2277. procedure TForm1.Button14Click(Sender: TObject);
  2278. var
  2279.  v,len,i,count:integer;
  2281.    tmpstr:string;
  2282.    tmpvar:variant;
  2283.    xornum:byte;
  2284.    arr:array of byte;
  2285.     f:real;
  2286. begin
  2288. arr:=nil;
  2289.  if (edit14.Text='') then
  2290.   begin
  2291.   showmessage('无设定值！');
  2292.   end
  2293.  else begin if not mscomm1.PortOpen then begin
  2294.     showmessage('串口没有打开！');
  2295.      end else begin
  2296.       //hao add
  2297.   if not TsInputVal(edit14.Text) then
  2298.      begin
  2299.      edit14.SetFocus;
  2300.      exit
  2301.     end;
  2302.   //hao add end
  2303.      setlength(arr,9);
  2304.         f:=strtofloat(edit14.text)*1000.0;
  2305.         tmpstr:=floattostr(f);
  2307.          v:=strtoint(tmpstr);
  2308.             arr[0]:=$7e;   //soi
  2309.            arr[1]:=$10;   //ver
  2310.             arr[2]:= $04;    //length
  2311.             arr[3]:=$a1;     //cid
  2312.            arr[4]:=$04;      //datainfo
  2313.            arr[5]:=v div 256;
  2314.             arr[6]:= v mod 256   ;
  2315.             xornum:= arr[2] xor arr[3] xor arr[4] xor arr[5]xor arr[6];
  2316.             arr[7]:=xornum;
  2317.             arr[8]:=$0d;
  2318.   // send data
  2319.               len:=length(arr);
  2320.            i:=0;
  2321.             count:=0;
  2322.             tmpvar:=vararraycreate([0,0],varbyte);
  2323.             //tmpvar[count]:=arr[i];
  2324.             //inc(count);
  2325.             //inc(i);
  2326.              while(count<=len-1)do begin
  2327.                         tmpvar[count]:=arr[i];
  2328.                         inc(count);
  2329.                         inc(i);
  2330.                         vararrayredim(tmpvar,count);
  2331.                     end;
  2333.       MSComm1.Output:=tmpvar;
  2334.       timer5.Enabled:=true;
  2335.  end;
  2337.      //while mscomm1.InBufferCount
  2338.     end;
  2339. end;
  2342. procedure TForm1.Button17Click(Sender: TObject);
  2343. var
  2344.  v,len,i,count:integer;
  2346.    tmpstr:string;
  2347.    tmpvar:variant;
  2348.    xornum:byte;
  2349.    arr:array of byte;
  2350.     f:real;
  2351. begin
  2353. arr:=nil;
  2354.  if (edit17.Text='') then
  2355.   begin
  2356.   showmessage('无设定值！');
  2357.   end
  2358.  else begin if not mscomm1.PortOpen then begin
  2359.     showmessage('串口没有打开！');
  2360.      end else begin
  2361.       //hao add
  2362.      if not TsInputVal(edit17.Text) then
  2363.        begin
  2364.          edit17.SetFocus;
  2365.          exit
  2366.        end;
  2367.   //hao add end
  2368.        setlength(arr,9);
  2369.         f:=strtofloat(edit17.text)*1000.0;
  2370.         tmpstr:=floattostr(f);
  2372.          v:=strtoint(tmpstr);
  2373.             arr[0]:=$7e;   //soi
  2374.            arr[1]:=$10;   //ver
  2375.             arr[2]:= $04;    //length
  2376.             arr[3]:=$a1;     //cid
  2377.            arr[4]:=$05;      //datainfo
  2378.            arr[5]:=v div 256;
  2379.             arr[6]:= v mod 256   ;
  2380.             xornum:= arr[2] xor arr[3] xor arr[4] xor arr[5]xor arr[6];
  2381.             arr[7]:=xornum;
  2382.             arr[8]:=$0d;
  2383.   // send data
  2384.               len:=length(arr);
  2385.            i:=0;
  2386.             count:=0;
  2387.             tmpvar:=vararraycreate([0,0],varbyte);
  2388.             //tmpvar[count]:=arr[i];
  2389.             //inc(count);
  2390.             //inc(i);
  2391.              while(count<=len-1)do begin
  2392.                         tmpvar[count]:=arr[i];
  2393.                         inc(count);
  2394.                         inc(i);
  2395.                         vararrayredim(tmpvar,count);
  2396.                     end;
  2398.       MSComm1.Output:=tmpvar;
  2399.       timer6.Enabled:=true;
  2400.  end;
  2402.      //while mscomm1.InBufferCount
  2403.     end;
  2404. end;
  2408. procedure TForm1.Timer2Timer(Sender: TObject);
  2409. var
  2410. i,n,m,chksum:integer;  //,timesum
  2411. arr:array of byte;
  2412. tmpvar:variant;
  2413. begin
  2415.      arr:=nil;
  2416.      chksum:=$00;
  2417.     timesum:=timesum+integer(timer2.Interval)+10;
  2418.      if timesum<900 then
  2419.       begin
  2420.         if mscomm1.InBufferCount>0 then begin
  2421.         timer2.Enabled:=false;
  2422.         timesum:=100;
  2423.           n:=mscomm1.InBufferCount;
  2424.           setlength(arr,n);
  2425.           tmpvar:=mscomm1.input;
  2426.        for i:=0 to n-1 do arr[i]:=tmpvar[i];
  2427.         if (arr[0]=$7e)and(arr[1]=$10)and(arr[n-1]=$0d) then
  2428.         begin
  2429.            for m:=2 to (n-3) do chksum:=chksum xor arr[m];
  2430.            if (arr[n-2]=chksum)and(arr[3]=$a1) then begin
  2431.                //edit4.Text:=inttostr(arr[4]*256+arr[5]);
  2432.                  if arr[n-3]=$0cc  then begin
  2433.                 showmessage('设置成功！') ;
  2434.                 //tag:=true;
  2435.                 end
  2436.                 else if arr[n-3]=$66 then begin  //success:=true;
  2437.                 timer2.Enabled:=false;
  2438.                     showmessage('设置失败!');
  2439.                     end else begin  timer1.Enabled:=false;
  2440.                       showmessage('数据包错误!');
  2441.                       end;
  2442.              end else  begin
  2443.              timer2.Enabled:=false;
  2444.              showmessage('数据错误!'); //帧校验错误
  2445.              end;
  2446.        end else  begin
  2447.        timer2.Enabled:=false;
  2448.       showmessage('响应数据错误！');
  2449.          end;
  2450.     end else begin
  2451.         sleep(10);
  2452.       timer2.Enabled:=true;
  2453.              end;
  2454.              end else begin
  2455.               timesum:=100;
  2456.              timer2.Enabled:=false;
  2457.              showmessage('通道5参数设定响应超时!');
  2459.              end;
  2460. end;
  2462. procedure TForm1.Timer3Timer(Sender: TObject);
  2463. var
  2464. i,n,m,chksum:integer;  //,timesum
  2465. arr:array of byte;
  2466. tmpvar:variant;
  2467. begin
  2468.      timer3.Enabled:=false;
  2469.      arr:=nil;
  2470.      chksum:=$00;
  2471.     timesum:=timesum+integer(timer3.Interval)+10;
  2472.      if timesum<900 then
  2473.       begin
  2474.         if mscomm1.InBufferCount>0 then begin
  2475.          timer3.Enabled:=false;
  2476.          timesum:=100;
  2477.           n:=mscomm1.InBufferCount;
  2478.           setlength(arr,n);
  2479.           tmpvar:=mscomm1.input;
  2480.        for i:=0 to n-1 do arr[i]:=tmpvar[i];
  2481.         if (arr[0]=$7e)and(arr[1]=$10)and(arr[n-1]=$0d) then
  2482.         begin
  2483.            for m:=2 to (n-3) do chksum:=chksum xor arr[m];