Wie unterbreche ich in Lazarus einen Timer?

Hallo,

Ich habe in Lazarus einen Timer, der seine Aufgaben macht, dabei liegt der Intervall auf 18,6 Sekunden (Ja, der brauch so lange um alle Aufgaben abzuarbeiten).

Ich habe auch eine Tastenabfrage programmiert, damit der Timer deaktiviert wird (Timer1.Enabled:= False;).

Das Problem ist, dass der Timer auch direkt abbrechen soll und seine Aufgaben nicht bis zum Ende des Intervalls machen soll soll.

1 Antwort

iQa1x

28.07.2023, 22:33

Nicht so einfach. Ein Timer ist kein eigener Thread, sondern läuft im MainThread der Anwendung. Während die Timerfunktion läuft passiert nix Anderes, wenn du nicht dafür sorgst.

Du kannst in der Funktion, die der Timer ausführt, an passenden Stellen eine Abbruchbehandlung einfügen, also z.b.

Application.ProcessMessages;
if (not Timer1.enabled) then begin
   // Aufräumen
   exit;
end;

Das Application.ProcessMessages sorgt dafür, dass erstmal ausstehende andere Ereignisse, wie z.B. ein Klick auf einen Abbrechen-Button, überhaupt verarbeitet werden. Wenn dann der den Timer deaktiviert, sorgt der Code danach für den Abbruch der Timerfunktion. Aber das musst du eben selbst einbauen.

Wenn wirklich etwas parallel passieren soll, schaue dir TThread an...

Woher ich das weiß:Berufserfahrung – Softwareentwickler & Admin

Hi ,

und zwar habe ich die folgender Aufgabe zumachen jedoch verstehe ich nicht wie die verschachtelte Schleife funktionieren soll . Kann mir jemand bitte helfen und mir die musterlösung dazu schicken ?

mit freundlichen Grüßen

...zur Frage

Wieso funktioniert der Code in Lazarus nicht?

Hallo, ich lerne gerade ein wenig mit Lazarus zu programmieren.

Ich möchte dabei Hotkeys programmieren, die man außerhalb von der TForm nutzen kann. Leider funktioniert das bei meinem Programm nicht, aber ich weiß nicht, was das Problem ist.

Code:

unit unit1;
{$mode objfpc}{$H+}
interface
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, LCLType, Windows;
type
  { TForm1 }
  TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
end;

var
  Form1: TForm1;
  HotkeyRegistered: Boolean;

implementation
{$R *.lfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  HotkeyRegistered := False;
  RegisterHotKey(Handle, 1, MOD_CONTROL or MOD_SHIFT, VK_NUMPAD1);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if HotkeyRegistered then
    UnRegisterHotKey(Handle, 1);
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
  if (ssCtrl in Shift) and (ssShift in Shift) and (Key = VK_NUMPAD1) then
  begin
    ShowMessage('Hotkey wurde gedrückt!');
  end;
end;

end.

Weiß jemand, woran das liegt?

...zur Frage

Daten Speichern in Free Pascal (Lazarus)?

Hey Leute,

Ich möchte in der IDE Lazarus ein Code programmieren, dass ich Daten abspeichern und auch wieder laden kann.

Ich hab nur keine Ahnung, warum nichts gespeichert wird (die Datei ist und bleibt leer) und natürlich besteht dadurch das Problem, dass nichts geladen werden kann.

Weiß jemand, wo mein Fehler liegt und wie ich diesen beheben kann?

...zur Frage

In Lazarus Objekte mit Timer bewegen?

Hallo, ich programmiere gerade bisschen mit Lazarus.
Ich bin gerade dabei ein Fahrstuhl zu programmieren und bisher sieht das auch alles gut aus, ABER:

Folgendes Problem:
Ich würde gerne versuchen, dass der Fahrstuhl sich auch wirklich nach oben bewegt und nicht einfach in die Stockwerke springt (so wie ich es momentan habe).
Dafür brauche ich ein Timer, das weiß ich.
Aber wie sag ich dem Timer, wenn ich auf den Button für die 1.Etage drücke, dass er erstmal erst dann anfangen soll sich zu bewegen (Fahrstuhl ist ein Bild) und vorallem mein größstes Problem, wie sag ich ihm, dass er wieder anhalten soll? :D

Denn momentan fängt er zwar an wenn ich den Knopf drücke, aber dann geht er komplett aus dem Bild und ist weg...

Und genauso wie sag ich ihm wann er nach oben und wann nach unten soll?
Muss ich das jeweil bei jedem Button und bei jeder Etage neu eingeben?

Ich hoffe man kann meine Frage verstehen :)

...zur Frage

Button mit Mauszeiger entfernen Lazarus?

hey ich programmiere seit kurzem mit Lazarus und würde gerne einen Button erstellen bei dem ich nur meinen Mauszeiger darüberhalten muss um diesen Button zu entfernen oder eine Aktion auszulösen .

ich danke schonmal im Vorraus für hilfreiche Antworten.

...zur Frage

Welche Sortieralgorythmen gibt es?

Hallo, welche Sortieralgorythemen gibt es, die man in Pascal oder speziel Lazarus (sinnvoll) benutzen kann?

...zur Frage

Wie programmiere ich ein Primzahlenüberprüfer mit Lazarus?

Hallo,

wie erstelle ich auf Lazarus ein Programm, welches deine eingegebene Zahl überprüft, ob es eine Primzahl ist oder nicht - mit der Verwendung von dem Modulo (mod)?

Habt ihr Lösungsansätze/Lösungen?

...zur Frage

Was bedeuten die Zahlen im Timer?

Was bedeuten die Zahlen im Timer? Wo ist der Minus- und Pluspol beim Timer? Wie funktioniert diese Schaltung? Welche Aufgaben haben die Zahlen im Timer? Und wie kann ich die Zeit mit dem Timer einstellen?

...zur Frage

Wurzeln in Pascal?

Hallo, ich würde gern Wurzel ziehen, aber wenn ich sqrt(x); eingebe funktioniert das nicht :c

...zur Frage

Lazarus/Delphi: Dateien aus dem Netz herunterladen?

Hey Gutefragecommunity, Für ein Vokabeltrainerprojekt ,welches wir in der Klasse verfolgen, möchten wir eine Synchroniesierung mit dem Internet einbauen. Gibt es eine Möglichkeit z.B. Textdateien, jpgs, pngs etc.von OneDrive, Dropbox oder sonst was durch eine URL herunterzuladen. Also mit einem Button soll die .Txt von Dropbox heruntergeladen und irgendwo auf dem PC gespeichert werden. Hoffe jemand kann mir helfen, alle Websuche war leider bisher Erfolglos ich kann nur Bilder von HTTP Webseiten herunterladen, bei HTTPS gibt es aber Probleme.

Danke im Voraus

TheMaker

...zur Frage

Pascal Lazarus Cookie Clicker?

Guten Abend,

meine Frage ist wie Programmiere ich einen Cookie Clicker auf Lazarus mit Pascal ? Ich besitze schon eine Vorlage. Ich würde ja gerne selber es lösen nur gibt es halt so gefühlt für diese Programmiersprache so wenig zu finden im Internet und außerdem blicke ich da einfach nicht durch. Wenn mir jemand dabei helfen kann wäre ich sehr dankbar.

Hier ist die Aufgabenstellung:

Erweitern Sie den Cookie-Clicker um die folgende Funktion: Die Cookie-Hexe multipliziert die Anzahl der bei einem Klick generierten Cookies.  Dafür wird zunächst eine Zufallszahl generiert aus dem Intervall: 1 <= X <= (1 + Anzahl der gekauften Cookie-Hexen).  Die Anzahl der generierten Cookies (die sich ja bisher durch die Anzahl der Cookie-Farmen ergeben hat) wird mit dieser Zufallszahl multipliziert und dann zum gesamten Cookievorrat hinzuaddiert.  Der Preis der Cookie-Hexe startet bei 16 Cookies und verdoppelt sich mit jeder gekauften Cookie-Hexe.

...zur Frage

Wann StrToFloat oder FloatToStr (oder StrToInt,…) benutzen?

Beim programmieren mit Delphi in Lazarus stelle ich mir (als absoluter Beginner beim Thema programmieren) die Frage, was String und Float genau bedeutet und wann ich StrToFloat und FloatToStr benutzen muss. Ich habe gegoogelt und da stand, String sei eine Zeichenfolge. Was ist eine Zeichenfolge?

Außerdem, was ist Integer und wann brauche ich das (StrToInt, und gibt es auch IntToStr?)? Mache grade einen Programmier Kurs in dem wir mit Delphi bei Lazarus beginnen. Leider wird in dem Kurs vorausgesetzt das ich mir solche Dinge schon merken kann, aber ich bin da nicht so flott.

Ich brauch Antworten in möglichst einfacher Sprache, die Fachsprache kenne ich noch nicht und kann deshalb mit sämtlichen Foren in denen sich Programmierer darüber unterhalten nichts anfangen.

...zur Frage

Lazarus Insertion Sort?

Hi, ich habe als Hausaufgabe auf, dass ich einen Quelltext zusammenstelle der mit dem Insertion Sort funktioniert. Das ganze soll im Programm Lazarus funktionieren. Hab mal nh bisschen im Internet gegoogelt aber keinen Quellcode für Lazarus dafür gefunden.

Würde mich über Hilfe freuen :)

...zur Frage

C#: Ping Pong Programm startet nicht?

Mein Programm ist zwar vollständig, aber beim Start fängt es sich nicht an zu bewegen, sondern bleibt gefreezed.

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

namespace Pong_the_Game
{
  public partial class Form1 : Form
  {
    public int speed_left = 4; // ball speed
    public int speed_top = 4;
    public int Point = 0;

    public Form1()
    {
      InitializeComponent();

      timer1.Enabled = true;
      Cursor.Hide();
      this.FormBorderStyle = FormBorderStyle.None; // wegmachen der Border
      this.TopMost = true; //form im vordergrund
      this.Bounds = Screen.PrimaryScreen.Bounds; // Fullscreen
      
      Brett.Top = Playground.Bottom - (Playground.Bottom / 10); // Position vom Brett
    }

    private void timer1_Tick(object sender, EventArgs e)
    {
      Brett.Left = Cursor.Position.X - (Brett.Width / 2); // macht das Brett als Cursor
      Ball.Left += speed_left;   // bewegt den Ball
      Ball.Top += speed_top;

      if (Ball.Bottom >= Brett.Top && Ball.Bottom <= Brett.Bottom && Ball.Left >= Brett.Left && Ball.Right <= Brett.Right) // Kollision
      {
        speed_top += 2;
        speed_left += 2;
        speed_top = -speed_top; // tauscht Beschreibeung
        Point += 1;
      }

      if (Ball.Left <= Playground.Left)
      {
        speed_left = -speed_left;
      }

      if (Ball.Right <= Playground.Right)
      {
        speed_left = -speed_left;
      }

      if (Ball.Left <= Playground.Top)
      {
        speed_top = -speed_top;
      }

      if (Ball.Bottom <= Playground.Bottom)
      {
        timer1.Enabled = false; // wenn der Ball ins unten raus ist, stoppt das Spiel
      }
    }

    private void Form1_KeyDown(object sender, KeyEventArgs e)
    {
      if (e.KeyCode == Keys.Escape) // Esc drücken für Verlassen
      {
        this.Close();
      }
    }

    private void pbr_Click(object sender, EventArgs e)
    {
    }

    private void pbb_Click(object sender, EventArgs e)
    {
    }
  }
}

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen