Reply to Wie kann ich bei einer StopUhr die Millisekunden anzeigen......Help!!!!! on Sat, 24 Feb 2007 09:36:48 GMT

oligeist — Sat, 24 Feb 2007 09:36:48 GMT

Hi folk's,
ich versuche für einen Carrerarundenzähler ein Programm zu schreiben wo mir immer die Aktuellen Rundenzeiten in einer Tabelle geschrieben werden ,nur schaffe ich es nicht die Millisekunden unter Borland 6 Prof. zu erzeugen .
Hier ein kurzer ausschnitt aus den Programm was aber für den Timer zuständig ist.

_fastcall TfrmSlotcar::TfrmSlotcar(TComponent* Owner)
: TForm(Owner)
{
Timer3->Enabled =false;
Stopuhr->Caption = "00:00:00";
}
//---------------------------------------------------------------------------
void __fastcall TfrmSlotcar::Start1Click(TObject *Sender)
{
StartZeit = Time();
Timer3->Enabled =true;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSlotcar::Timer3Timer(TObject *Sender)
{
Stopuhr->Caption = Time() - StartZeit;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSlotcar::Rcksetzen1Click(TObject *Sender)
{
if(Timer3->Enabled == true)
{Timer3->Enabled = false;// Beim 1 Click wird Angehalten der Timer und erst
} // beim 2 Click wird die Anzeige zurück auf 00:00:00
// gesetzt.
else{ Stopuhr->Caption ="00:00:00";
}
}
//---------------------------------------------------------------------------

Stopuhr ist mein Labelanzeige...

Kann mir einer helfen .....
grüße olaf.

Reply to Wie kann ich bei einer StopUhr die Millisekunden anzeigen......Help!!!!! on Sat, 24 Feb 2007 10:04:04 GMT

Christian Sonder — Sat, 24 Feb 2007 10:04:04 GMT

Ich befürchte, da mußt Du statt TDateTime den TickCount benutzen:

DWORD dwStartZeit = GetTickCount();

...

DWORD dwGesamtZeit = GetTickCount() - dwStartZeit;
BYTE byMinuten = dwGesamtZeit / 60000;
BYTE bySekunden = (dwGesamtZeit / 1000) % 60;
WORD wMilliSekunden = dwGesamtZeit % 1000;

In etwa so.