Delphi-PRAXiS - Delphi Stopuhr für Vellemannboard programmieren

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi Stopuhr für Vellemannboard programmieren (https://www.delphipraxis.net/167493-stopuhr-fuer-vellemannboard-programmieren.html)

Stopuhr für Vellemannboard programmieren

Moin Jungs,
hab da ein kleines Problem unser Lehrer möchte, dass wir ein mini-Projekt mit Delphi programmieren. Für dieses Projekt habe ich ein Vellemann Board K8055 welches mit Delphi Programmiert werden soll.

Ich hab mir überlegt eine Carrerabahn an zu steuern jetzt soll ein Spiel realisiert werden d.h. ich klicke button1 und ein impuls geht auf die bahn über Digital ausgang 1(also je schneller ich klicke desto schneller fährt mein auto...) am ende der Bahn habe ich eine Lichtschranke, diese geht auf den Digitaleingang 1. Das funktioniert auch schon jetzt ist mein Problem, dass ich keine Zeitmessung hin bekomme. Mit Timern habe ich es schon geschafft nur leider ist 1 Timerinterval nicht gleich 1 ms :(

Hab schon in älteren Beiträgen gelesen und einen Timer gefunden nur hier ist mein Problem, dass erst alles funktioniert nur dadurch, dass ich Button1 zum starten der Stoppuhr verwende und gleichzeitig für das auto hängt sich die stoppuhr irgendwann auf weil sie zu oft dass startsignal bekommt...

Hoffe jemand hat eine lösung für mich.

PS:
Vielleicht hier noch mein Quellcode kompliziert ist das ganze ja nicht nur wie gesagt mit der Stoppuhr hab ich schon 2 Tage verbraten:

Delphi-Quellcode:

			unit Unit2;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, StdCtrls;

type

  TForm2 = class(TForm)

    Button1: TButton;

    Timer1: TTimer;

    Label1: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

implementation

{$R *.dfm}

function OpenDevice(CardAddress: Longint): Longint; stdcall; external 'K8055d.dll';

procedure CloseDevice; stdcall; external 'K8055d.dll';

function ReadAnalogChannel(Channel: Longint):Longint; stdcall; external 'K8055d.dll';

procedure ReadAllAnalog(var Data1, Data2: Longint); stdcall; external 'K8055d.dll';

procedure OutputAnalogChannel(Channel: Longint; Data: Longint); stdcall; external 'K8055d.dll';

procedure OutputAllAnalog(Data1: Longint; Data2: Longint); stdcall; external 'K8055d.dll';

procedure ClearAnalogChannel(Channel: Longint); stdcall; external 'K8055d.dll';

procedure ClearAllAnalog; stdcall; external 'K8055d.dll';

procedure SetAnalogChannel(Channel: Longint); stdcall; external 'K8055d.dll';

procedure SetAllAnalog; stdcall; external 'K8055d.dll';

procedure WriteAllDigital(Data: Longint);stdcall;  external 'K8055d.dll';

procedure ClearDigitalChannel(Channel: Longint); stdcall; external 'K8055d.dll';

procedure ClearAllDigital; stdcall; external 'K8055d.dll';

procedure SetDigitalChannel(Channel: Longint); stdcall; external 'K8055d.dll';

procedure SetAllDigital; stdcall; external 'K8055d.dll';

function ReadDigitalChannel(Channel: Longint): Boolean; stdcall; external 'K8055d.dll';

function ReadAllDigital: Longint; stdcall; external 'K8055d.dll';

function ReadCounter(CounterNr: Longint): Longint; stdcall; external 'K8055d.dll';

procedure ResetCounter(CounterNr: Longint); stdcall; external 'K8055d.dll';

procedure SetCounterDebounceTime(CounterNr, DebounceTime:Longint); stdcall; external 'K8055d.dll';

// Auto ansteuern

procedure TForm2.Button1Click(Sender: TObject);

begin

      SetDigitalChannel(1);

      Timer1.Enabled := True;

end;

procedure TForm2.Timer1Timer(Sender: TObject);

begin

      ClearDigitalChannel(1);

end;

end.

Zum Stoppen der Uhr wäre dann: function ReadDigitalChannel(1); Dieser ist 0 wenn die Zeit angehalten werden soll und dann soll auch noch Button1 False gesetzt werden...
In Form1 wird nur auf die einzelnen Spiele verwiesen und die verbindung zur karte hergestellt. Will 3 Spiele machen einmal mit OnMouseMove so dass mann über den Button wischen muss und einmal mit nem unsichtbaren Button. Das bekomm ich aber denk ich hin.

Danke schonmal

AW: Stopuhr für Vellemannboard programmieren

Hi und Willkommen in der :dp:
Hast du es mal mit dem Befehl

Delphi-Quellcode:

sleep()

versucht?

P.S.: Benutze bitte für deinen Code, die Delphi Tags, einfach auf den Helm klicken ;)

AW: Stopuhr für Vellemannboard programmieren

Hallo und Willkommen in der DP :dp:,

wenn ich das Problem richtig verstanden habe, geht es um Zeitmessung. Dafür ist der Timer eigentlich nicht die richtige Wahl, da der dafür gedacht ist, in vorgegebenen Intervallen wiederholt etwas auszuführen. Eine einfache Variante der Problemlösung wäre hier GetTickCount, soll es sehr genau werden, kann die Kombination von QueryPerformanceCounter und QueryPerformanceFrequency zum Ziel führen.

AW: Stopuhr für Vellemannboard programmieren

Also bin mal n schritt weiter soweit funktioniert es nurnoch mein kleines problem, dass die uhr bei jedem klick neu gestartet wird... und die lichtschranke fehlt noch da hab ich mir aber auch noch keine gedanken gemacht :)

dass mit dem sleep hört sich gut an nur wo muss ich dass rein schreiben? will ja nur die stoppuhr "sleepen" und nicht mein ausgang nicht mehr schalten können.

hier mein neuer quellcode

Delphi-Quellcode:

			unit Unit2;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, StdCtrls;

type

  TForm2 = class(TForm)

    Button1: TButton;

    Timer1: TTimer;

    Label1: TLabel;

    Button2: TButton;

    Label2: TLabel;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

  private

    ClockStarted: Boolean;

    TimeElapsed: cardinal; // in Millisekunden

    TimeStarted: cardinal; //

    TimeStopped: cardinal; //

    procedure StartClock;

    procedure StoppClock;

    procedure ResetClock;

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

implementation

{$R *.dfm}

function OpenDevice(CardAddress: Longint): Longint; stdcall; external 'K8055d.dll';

procedure CloseDevice; stdcall; external 'K8055d.dll';

function ReadAnalogChannel(Channel: Longint):Longint; stdcall; external 'K8055d.dll';

procedure ReadAllAnalog(var Data1, Data2: Longint); stdcall; external 'K8055d.dll';

procedure OutputAnalogChannel(Channel: Longint; Data: Longint); stdcall; external 'K8055d.dll';

procedure OutputAllAnalog(Data1: Longint; Data2: Longint); stdcall; external 'K8055d.dll';

procedure ClearAnalogChannel(Channel: Longint); stdcall; external 'K8055d.dll';

procedure ClearAllAnalog; stdcall; external 'K8055d.dll';

procedure SetAnalogChannel(Channel: Longint); stdcall; external 'K8055d.dll';

procedure SetAllAnalog; stdcall; external 'K8055d.dll';

procedure WriteAllDigital(Data: Longint);stdcall;  external 'K8055d.dll';

procedure ClearDigitalChannel(Channel: Longint); stdcall; external 'K8055d.dll';

procedure ClearAllDigital; stdcall; external 'K8055d.dll';

procedure SetDigitalChannel(Channel: Longint); stdcall; external 'K8055d.dll';

procedure SetAllDigital; stdcall; external 'K8055d.dll';

function ReadDigitalChannel(Channel: Longint): Boolean; stdcall; external 'K8055d.dll';

function ReadAllDigital: Longint; stdcall; external 'K8055d.dll';

function ReadCounter(CounterNr: Longint): Longint; stdcall; external 'K8055d.dll';

procedure ResetCounter(CounterNr: Longint); stdcall; external 'K8055d.dll';

procedure SetCounterDebounceTime(CounterNr, DebounceTime:Longint); stdcall; external 'K8055d.dll';

// Auto ansteuern

procedure TForm2.Button1Click(Sender: TObject);

begin

      SetDigitalChannel(1);

      Timer1.Enabled := True;

      StartClock;

end;

procedure TForm2.Timer1Timer(Sender: TObject);

begin

      ClearDigitalChannel(1);

end;

// Stoppuhr

function TicksToTime(TickCount: cardinal): string;

begin

  result := Format('%.2d:%.2d:%.2d',

    [TickCount div 1000 div 60,   // Minuten

     TickCount div 1000 mod 60,   // Sekunden

     TickCount mod 1000 div 10]); // Hundertstel

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

  ResetClock;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

  ClockStarted := False;

  TimeStarted := 0;

  TimeStopped := 0;

end;

procedure TForm2.ResetClock;

begin

  StoppClock;

  TimeStopped := 0;

  Label2.Caption := TicksToTime(0); // = '00:00:00'

end;

procedure TForm2.StartClock;

begin

  ClockStarted := True;

  TimeStarted := GetTickCount;

  repeat

    TimeElapsed := GetTickCount-TimeStarted;

    Label2.Caption := TicksToTime(TimeStopped+TimeElapsed);

    application.ProcessMessages; // damit sich das Programm nicht "aufhängt"

    if application.Terminated then // Falls die Anwendung inzwischen beendet wurde

      exit;

    sleep(1); // 100% CPU-Auslastung vermeiden

  until not ClockStarted;

end;

procedure TForm2.StoppClock;

begin

  ClockStarted := False;

  TimeStopped := getTickcount-TimeStarted + TimeStopped;

  Label2.Caption := TicksToTime(TimeStopped);

end;

end.

AW: Stopuhr für Vellemannboard programmieren

Hallo,

hat die CPU des Vellemann-Board keinen Timer den Du nutzen könntest?
Dann brauchst Du ihn nur per Delphi starten und wenn ich das richtig verstanden habe
soll die Lichtschranke den Timer stoppen.
Beim Beenden müsste dann eine Nachricht an das DelphiProgramm geschickt werden.

Ist wohl "nur" ein Interface-Board ohne eigene CPU.

Grüße
Klaus