Schleifen in Lazarus (ähnlich FPC)

[Latze]

Hallo,

ich bringe evtl. ein paar 'Unsitten' aus einem/meinem vielleicht unsauberen Stil von FPC mit. Es geht um einen GPS-Logger, der einfach die NMEA-Datensätze auswertet und diese als GPX-Datei speichert. Das ganze sieht ungefähr so aus:

Code: Alles auswählen

repeat
  repeat
 
    { Einlesen und auswerten der Datensätze. }
 
  until keypressed;
 
  { Tastatureingabe wird als byte in buf gespeichert }
  { Auswertung der Tastatureingabe (z.B. t für Trackmark) }
 
until buf=27; { Also Aufzeichnung mit [ESC] beenden. }

Ich möchte nun eine GUI Anwendung schrieben, die mir die aktuellen Daten anzeigt und bei Bedarf einen Track aufzeichnet. Das ganze sollte über Buttons gestartet bzw. gestoppt werden nur weiß ich nicht, wie ich diese Routine wo hinpacken muss, damit ich sie dann auch irgenwie starten und stoppen kann. Zur Zeit habe ich nur einen Button, mit dem ich einen Datensatz einlesen und auswerten kann, was allerdings nicht so das ideale ist.

Vielleicht kann mir ja jemand helfen.


Gruß
Latze

[monta]

Herzlich willkommen im Forum.

Mit zwei Buttons geht es wohl am einfachsten über einen Boolean, denn du mit dem Stop-Button setzt und dann wird abgebrochen, ungefähr so:

Code: Alles auswählen

var
  Form1: TForm1;
  Stop: boolean; //Zum Stoppen der Schleife
 
implementation
 
{ TForm1 }
 
//Start-Knopf:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Stop:= false;
  repeat
    //was auch immer in die Schleife soll
    Application.ProcessMessages;
  until Stop; //läuft solange, bis Stop gedrückt wird
end;
 
//Knopf zum Beenden
procedure TForm1.Button2Click(Sender: TObject);
begin
  Stop := true;
end;

[Latze]

Herzlich willkommen im Forum.

Mit zwei Buttons geht es wohl am einfachsten über einen Boolean, denn du mit dem Stop-Button setzt und dann wird abgebrochen, ungefähr so:

Code: Alles auswählen

var
  Form1: TForm1;
  Stop: boolean; //Zum Stoppen der Schleife
 
implementation
 
{ TForm1 }
 
//Start-Knopf:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Stop:= false;
  repeat
    //was auch immer in die Schleife soll
    Application.ProcessMessages;
  until Stop; //läuft solange, bis Stop gedrückt wird
end;
 
//Knopf zum Beenden
procedure TForm1.Button2Click(Sender: TObject);
begin
  Stop := true;
end;

Genial! Danke!!!!

Ich habe das Programm zwar zuerst ein paar mal in die Wüste geschickt, weil ich 'Application.ProcessMessages;' überlesen habe aber nun klappt es.

Ich hänge wohl noch zu sehr in FPC fest.

Gruß
Latze

[Jagged]

Vielleicht wäre hier auch ein Timer recht interessant

[Latze]

Ich kann Dir leider nicht so ganz folgen. Meinst Du ein sleep (oder ähnliches / besseres) um die Prozessorlast ein wenig zu reduzieren? Das habe ich mit dem bereits erwähnten sleep schon gemacht, da ich das Programm auf einem Notebook nutzen möchte.

Gruß
Latze

[Jagged]

Erstelle doch mal einen Timer:

Code: Alles auswählen

Uses ....,ExtCtrls;
...
Var ATimer : TTimer;
Begin
TTimer: ATimer := TTimer.Create(NIL);

Dann setzt Du einen Event:

Code: Alles auswählen

ATimer.OnTimer := myTimerEvent;

Den Event an sich schreibst Du so :

Code: Alles auswählen

Procedure myTimerEvent(Sender : TObject);
Begin
  ...hier kommt rein was ausgeführt werden soll...
End;

mit ATimer.intervall kannst du einstellen wie schnell der event ausgelöst werden soll


Genauere Infos gibs hier: http://lazarus-ccr.sourceforge.net/docs ... timer.html

Gruß,
Jagged.

[Euklid]

Hallo,

Ich kann Dir leider nicht so ganz folgen.

wenn du Lazarus startest, findest du im Reiter "System" die TTimer-Komponente. Die einfach auf die Form ziehen.
Wenn der Timer durch Timer.Enabled:=true aktiviert ist, wird das Ereignis OnTimer periodisch nach der in Timer.Interval festgehaltenen Zeitspanne (in Millisekunden) aufgerufen. Wenn du auf den Timer klickst, anschließend im Objektinspektor auf Ereignisse gehst und auf OnTimer doppelklickst, öffnet sich die Prozedur, die bei jedem Timer-Ereignis aufgerufen wird.

Eine genaue Anleitung gibt es hier: viewtopic.php?f=17&t=2613
Noch mehr Informationen hier: portal.php?cx=libsearch&query=TTimer

Viele Grüße, Euklid

[hendy]

Was ist der unterschied zwischen sleeptimer und dem normalem Timer?

[theo]

Was ist der unterschied zwischen sleeptimer und dem normalem Timer?

Meinst du TIdleTimer? viewtopic.php?t=677

[Latze]

Und schon wieder was gelernt.

Hab das mal kurz überflogen. Nen' Timer werde ich wohl brauchen, wenn die Auswertung inkl. Anzeige so funktioniert, wie ich mir das vorstelle. Zur Zeit bin ich noch mit den Möglichkeiten am spielen, die ich unter Windows habe. Allein die Anzeige der Signalstärke (ich hab ProcessBars genommen) ist schon was ganz anderes als in einem DOS-Fenster. Da such ich mir gerade was zusammen, damit ich die, nicht zur Positionsbestimmung genutzten, Satelliten grau machen kann.

Gruß
Latze

[shokwave]

meinst du

Code: Alles auswählen

ProcessBar.enabled:=False;

[Latze]

Ich habe einfach mal die ProgressBar (mein Schreibfehler) von einem Satelliten entsprechend disabled. Kein erkennbarer Unterschied in Farbe oder Funktion. Es gibt auch im Netz 'Erweiterungen', die es erlauben, die Farbe zu ändern. Bei diesem Programm würde mir zwar blau und grau reichen aber es kommen in Zukunft bestimmt Programme, wo ich auch andere Farben nutzen möchte. Also zum Beispiel grün gelb und rot um besser sichtbar zu machen, wie gut ein Wert ist.

[monta]

Eventuell (aber ungetestet) das LED-Meter von hier:
http://wiki.lazarus.freepascal.org/RackCtls

Das wäre ja so ziemlich das, was du haben willst, wenn ich dich richtig verstanden hab.

[theo]

Oder das da: http://wile64.perso.neuf.fr/download/do ... cat=4&id=9

Auch ungetestet.

[Latze]

RackControls ist schon genial und bleibt bei mir auch bestehen. ColorProgress trifft mein Problem aber schon eher: Bei der Positionsbestimmung werden nicht unbedingt alle Satelliten genutzt aber trotzdem wird deren Rauschabstand übertragen. Die nicht genutzten Satelliten will ich eben grau färben, um sie zu kennzeichnen.

Danke
Latze