unit2.pas

在Delphi 環境下編寫的串口調試程序 ,能與下位機(MSP430F147)實現串口485通訊.完成對下位機狀態的檢測.校準. 對於使用Delphi的串口編程有一定的作用.

               else
                       begin
                              Form1.Label7.Font.Color:=clWindowText;
                       end;


               liaoxumingtest:= aa[22] *256 +aa[21];
               Form1.Label8.Caption:= IntToStr(liaoxumingtest);
               if (liaoxumingtest>1738)or (liaoxumingtest<1538)  then
                       begin
                              Form1.Label8.Font.Color:=clRed;
                              Application.MessageBox('不得了 不得了'+#13+
                             ' 出轨了,快找一下原因','警告',MB_ICONWARNING or MB_OK);
                       end
               else
                       begin
                              Form1.Label8.Font.Color:=clWindowText;
                       end;


               liaoxumingtest:= aa[24] *256 +aa[23];
               Form1.Label9.Caption:= IntToStr(liaoxumingtest);
               if (liaoxumingtest>3376)or (liaoxumingtest<3176)  then
                       begin
                              Form1.Label9.Font.Color:=clRed;
                              Application.MessageBox('不得了 不得了'+#13+
                             ' 出轨了,快找一下原因','警告',MB_ICONWARNING or MB_OK);
                       end
               else
                       begin
                              Form1.Label9.Font.Color:=clWindowText;
                       end;
           end;


       if  (DianChiZhanTaiChaXun=55 )and ((Form3.RadioButton8.Checked)or(Form3.RadioButton9.Checked)or(Form3.RadioButton10.Checked))then
           begin
                DianChiZhanTaiChaXun:=0;
                 if Form3.RadioButton8.Checked then
                     begin
                      CoefficientV :=COEFFICIENT_2V;
                     end;
                 if Form3.RadioButton9.Checked then
                     begin
                      CoefficientV :=COEFFICIENT_6V;
                     end;
                 if Form3.RadioButton10.Checked then
                     begin
                      CoefficientV :=COEFFICIENT_12V;
                     end;

                liaoxumingtest:= aa[11] *256 +aa[10];  //1
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[3,1]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[14] *256 +aa[13]; //2
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[3,2]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[17] *256 +aa[16]; //3
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[3,3]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[20] *256 +aa[19];  //4
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[3,4]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[23] *256 +aa[22];  //5
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[3,5]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[26] *256 +aa[25]; //6
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[3,6]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[29] *256 +aa[28]; //7
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[3,7]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[32] *256 +aa[31]; //8
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[3,8]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[35] *256 +aa[34];//9
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[3,9]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[38] *256 +aa[37]; //10
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[3,10]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[41] *256 +aa[40]; //11
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[3,11]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[44] *256 +aa[43]; //12
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[5,1]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[47] *256 +aa[46]; //13
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[5,2]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[50] *256 +aa[49]; //14
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[5,3]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[53] *256 +aa[52]; //15
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[5,4]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[56] *256 +aa[55]; //16
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[5,5]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[59] *256 +aa[58];//17
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[5,6]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[62] *256 +aa[61];//18
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[5,7]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[65] *256 +aa[64]; //19
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[5,8]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[68] *256 +aa[67];//20
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[5,9]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[71] *256 +aa[70];//21
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[5,10]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[74] *256 +aa[73];//22
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[5,11]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[77] *256 +aa[76]; //23
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[7,1]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[80] *256 +aa[79];  //24
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[7,2]:='   '+FloatToStr(DianChiDataXiao)+'V';


                  liaoxumingtest:= aa[83] *256 +aa[82];//25
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[7,3]:='   '+FloatToStr(DianChiDataXiao)+'V';

                 liaoxumingtest:= aa[86] *256 +aa[85]; //26
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[7,4]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[89] *256 +aa[88];//27
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[7,5]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[92] *256 +aa[91];//28
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[7,6]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[95] *256 +aa[94]; //29
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[7,7]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[98] *256 +aa[97]; //30
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[7,8]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[101] *256 +aa[100]; //31
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*CoefficientV;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[7,9]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[104] *256 +aa[103]; //32T1
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*COEFFICIENT_T;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[1,1]:='   '+FloatToStr(DianChiDataXiao)+'V';

                  liaoxumingtest:= aa[107] *256 +aa[106]; //33T2
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*COEFFICIENT_T;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[1,2]:='   '+FloatToStr(DianChiDataXiao)+'V';

                liaoxumingtest:= aa[107] *256 +aa[106];  //34T3
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*COEFFICIENT_T;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[1,3]:='   '+FloatToStr(DianChiDataXiao)+'V';

                liaoxumingtest:= aa[107] *256 +aa[106]; //35T4
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*COEFFICIENT_T;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[1,4]:='   '+FloatToStr(DianChiDataXiao)+'V';

                liaoxumingtest:= aa[107] *256 +aa[106];  //36T5
                  //liaoxumingtest:=5;
                DianChiData:= liaoxumingtest*COEFFICIENT_T;
                DianChiDataXiao:=RoundTo(DianChiData, -3);
                Form3.StringGrid1.Cells[1,5]:='   '+FloatToStr(DianChiDataXiao)+'V';

           end;
    Form1.Memo1.Lines.Add(viewString);
    Form1.Memo1.Lines.Append('');
  except
  end;
end;

//var Str :string;
//begin

    // TxRxd:=00;
 // SetLength(Str,BufferLength);     //动态数组申请
 // move(buffer^,pchar(@Str[1])^,bufferlength);
//  if FShowText then
 // begin
  //  if cbRecHex.Checked then
   //   Form1.Memo1.Text:=Form1.Memo1.Text+'接收:  '+StrToHexStr(Str)+' ';
   //   Form1.Memo1.Lines.Append('');
 //     Form1.Memo1.Lines.Append('');
 //   else
 //     Memo1.Text := Memo1.Text + Str;
//  Memo1.SelStart := Length(Memo1.Text);
 // Memo1.SelLength:= 0;
 // Memo1.Perform(EM_SCROLLCARET,0,0);


 // end;
 // FRXNum:=FRXNum+bufferlength;
//  ShowRX;
//end;

end.