msda523
پنج شنبه 21 شهریور 1387, 10:20 صبح
من با استفاده از كامپوننت XCOM يه برنامه نوشتم كه از طريق پورت سريال به يه دستگاه توزين وصل ميشه و اطلاعات اونو ميخونه. چه جوري اين اطلاعات رو تفسير كنم و عدد وزن را بدست بيارم ؟
داده هاي دريافتي به اين شكل هستند :
0 80 0 80 0 80 0 80 0 80 0 80 0 78 0
اين هم كد برنامه :
procedure TFmMain.XComData(Sender: TObject; const Received: Cardinal);
var
Buf : array [0..1024] of Byte;
i : Integer;
begin
XCom.ReadData(Buf, Received);
for i := 0 to Received-1 do
begin
Listbox1.Items.Add(Format('%x',[Buf[i]]));
end;
داده هاي دريافتي به اين شكل هستند :
0 80 0 80 0 80 0 80 0 80 0 80 0 78 0
اين هم كد برنامه :
procedure TFmMain.XComData(Sender: TObject; const Received: Cardinal);
var
Buf : array [0..1024] of Byte;
i : Integer;
begin
XCom.ReadData(Buf, Received);
for i := 0 to Received-1 do
begin
Listbox1.Items.Add(Format('%x',[Buf[i]]));
end;