Discussion :

[bilal.sdi]

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;

[bilal.sdi]

Je pense que c'est bon ainsi

je testerai pour ceux qui ont besoin, çà doit être 1 des 2 codes ci-dessous

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
29
30
31
32
33
34
35
36
       Dim bytes(6) As Byte
        bytes(0) = 1
        bytes(1) = 22
        bytes(2) = 0
        bytes(3) = 0
        bytes(4) = 0
        bytes(5) = 0
        bytes(6) = 0 '23
 
        Dim result As Int32 = 0
        For i = 0 To bytes.Length - 1
            result = result Xor bytes(i)
        Next
 
        bytes(6) = result
 
        '01 22 00 00 00 00 23
        'SerialPort1.Write(bytes, 0, bytes.Length)
 
        'ou
 
        bytes(0) = &H1
        bytes(1) = &H22
        bytes(2) = &H0
        bytes(3) = &H0
        bytes(4) = &H0
        bytes(5) = &H0
        bytes(6) = &H0 '23
 
        result = 0
        For i = 0 To bytes.Length - 1
            result = result Xor bytes(i)
        Next
        bytes(6) = result
 
        ''SerialPort1.Write(bytes, 0, bytes.Length)