?? unit2.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -