Stopuhr für Vellemannboard programmieren

[basdl]

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

[Coffeecoder]

Hi und Willkommen in der
Hast du es mal mit dem Befehl sleep() versucht?

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

[DeddyH]

Hallo und Willkommen in der 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.

[basdl]

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.

[Klaus01]

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