[es] - Pomoć oko rsr232

xenox
ex Memodata sysadmin
Beograd

Član broj: 6903
Poruke: 168
212.200.65.*

ICQ: 7682925

+3 Profil

^{11.08.2009. u 09:42 - pre 179 meseci}

http://www.programmersheaven.com/download/48584/29/ZipView.aspx

Ako ti je to ovo za GPS
function GetBlock(Block : PChar; Len : Cardinal) : Integer; cita u string Len i verovatno vraca koliko je zaista procitao.

inBuffused ti je verovatno kolicina u bufferu.

P.S. to nije vezano za delphi - mozes ti tako nazvati i u vb-u funkcije. Ko ce ga znati sta je kad nisi rekao odakle prepisujes - tj iz kog unita ili bar deo koda...

Uostalom buff used je prilicno poznato sta je a in i out isto. GetBlock ...

Ehm...

Odgovor na temu

patak_daca

Član broj: 72199
Poruke: 418
93.86.191.*

+1 Profil

Re: Pomoć oko rsr232

^{11.08.2009. u 09:50 - pre 179 meseci}

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]}

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Pomoć oko rsr232

^{11.08.2009. u 10:56 - pre 179 meseci}

Te nazive imaju TurboPower AsyncPro komponente, najbolje je da downloaduješ help za njih sa neta i pogledaš šta je šta.

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu