Bonjour
j'aimerais traduire ce code ci-dessous en vb.net

en faite , je dois envoyer cette commande "01 22 00 00 00 00 23" sur le port com 

STX 1 BYTE
CMD 1 BYTE
PARAM 4
CHECK SUM 1
DONC : 
stx                      01 
cmd                    22 
                          00
                          00
                          00
CHECKSUM          23
EST CE QUE LA FONCTION CalcCheckSum RENVOI BIEN 23 ? Si oui comment envoyer ceci 01 22 00 00 00 00 23

Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure TfrmMain.btnStudyZeroClick(Sender: TObject);
var
  Buffer : Array[0..7] of Byte;
begin
  Buffer[0] := $01;
  Buffer[1] := $26;
  Buffer[2] := 0;
  Buffer[3] := 0;
  Buffer[4] := 0;
  Buffer[5] := 0;
  Buffer[6] := CalcCheckSum(@Buffer, 6);
  ShowSendBuffer(PAnsiChar(@buffer), 7);
  MyCommThread.WriteCommData(PAnsiChar(@Buffer), 7);
  DisableAllButton;
  if not WaitResult(5000) then
    ShowMessage('ERROR!');
end;
 
function  TFrmMain.CalcCheckSum(buf : PByte; len: Integer): Byte;
var
  i : Integer;
begin
  Result := 0;
  for i := 0 to len-1 do
  begin
    Result := Result xor buf[i];
  end;
end;