Pozdrav!
Nije za GPS, to je za čitanje podataka sa vage..
Evo i code...
Code:
procedure TForm1.Timer1Timer(Sender: TObject);
var b : array[0..1000] of char;
k : array[0..10] of char;
x,i : integer;
primio : integer;
begin
cekamkom := cekamkom + 1;
if cekamkom >= 20 then begin
timer1.Enabled := false;
apdcomport1.open := false;
showmessage('NEMA KOMUNIKACIJE SA VAGOM');
if odaklekom=1 then brutobtn.Enabled := true
else tarabtn.Enabled := true;
exit;
end;
x := apdcomport1.inBuffused;
if x > 40 then begin
apdcomport1.GetBlock(b,x);
i := x-2;
primio := 0;
while ((i > 10) and (primio=0)) do begin
if ((b[i]='A') and (b[i-1]='B') and (b[i-2]='G')) then begin
k[0] := b[i-7];
k[1] := b[i-6];
k[2] := b[i-5];
k[3] := b[i-4];
k[4] := b[i-3];
k[5] := chr(0);
primio := 1;
end;
i := i - 1;
end;
if primio=1 then begin
timer1.Enabled := false;
apdcomport1.open := false;
if odaklekom=1 then brutoed.text := k
else taraed.text := k;
izracunajneto;
if odaklekom=1 then brutobtn.Enabled := true
else tarabtn.Enabled := true;
exit;
end;
if primio=0 then begin
timer1.Enabled := false;
apdcomport1.open := false;
showmessage('NISU DOBRI PODACI OD VAGE');
if odaklekom=1 then brutobtn.Enabled := true
else tarabtn.Enabled := true;
exit;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var k : array[0..10] of char;
begin
k[0] := ' ';
k[1] := ' ';
k[2] := '6';
k[3] := '5';
k[4] := '0';
k[5] := chr(0);
brutoed.text := k;
izracunajneto;
end;
////////////////////////////////////////////////
[Ovu poruku je menjao savkic dana 11.08.2009. u 11:48 GMT+1]