De VB to Delphi

Private Sub cmdTP_Click() MyStrg = "" MSComm1.Output = "0111" & vbCr MyStrg = MSComm1.Input Text1.Text = MyStrg Temp = Mid(MyStrg, 12, 3) If InStr(1, Temp, ">") <> 0 Then 'If Mid(MyStrg, 12, 1) = ">" Then B1 = Mid(MyStrg, 7, 2) 'Convert slection into decimal B2 = ("&H" & B1) 'calulate it TP = (B2 / 256) * 100 TP = Format(TP, "0") 'output lblTP.Caption = TP & " %" Else 'Do Nothing End If End Sub

Salut

Cela donne quelquechose de ce genre.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure TForm1.cmdTPClick(Sender: TObject);
var
  MyStrg, Temp, B1: string;
  B2, TP: Integer;
begin
  MSComm1.Output := '0111' + #13#10;
  MyStrg := MSComm1.Input;
  Text1.Text := MyStrg;
  Temp := Copy(MyStrg, 12, 3);
  if Pos(Temp, '>') <> 0 then
  begin
    B1 := Copy(MyStrg, 7, 2);
    B2 := StrToInt('$' + B1);
    TP := Trunc((B2 / 256) * 100);
    lblTP.Caption := IntToStr(TP) + '%';
  end;
end;

Nota: dans mon exemple TP est de type Integer. A toi d'adapter si tu veux des décimales.

@+ Claudius