Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Stopuhr
Autor: bausilein
Datum: 08.08.06 02:33
Hey, den Start eines Timers für Zeitmessungen halte ich für ungebracht. Mit der API Private Declare Function GetTickCount& Lib "kernel32" () kannst Du zu jeder Zeit und zu jeder Gelegenheit eine Zeit in msec abrufen, die nach Mitternach verstrichen ist . Windows 2000 ruft intern diese Funktion ca 50 mal auf um "Lebenszeichen der Hardware abzufragen".   Private Declare Function GetTickCount& Lib "kernel32" () Private lngDauer(1 To 2) As Long Private Sub Form_Activate() lngDauer(1) = GetTickCount End Sub Private Sub_Stopp() '** Ereignisszeit ermitteln lngDauer(2) = GetTickCount '** Ergebnis in Msgbox anzeigen MsgBox "Gratulation!" & vbNewLine & _ "Gelöst in " & CStr((lngDauer(2) - lngDauer(1)) \ 1000) & " Sekunden." _ , vbInformation Or vbOKOnly, "Super" End Sub Lade von http://www.nand.de/ kp das Projekt Sudoku herunter. Schau Dir den Quellcode an und alles wird klar. Gruss bausilein

Stopuhr	725	Herbert aschbac...	06.08.06 14:52
Re: Stopuhr	538	vbtricks	06.08.06 15:13
Re: Stopuhr	568	AndreasD	06.08.06 15:43
Re: Stopuhr	475	bausilein	08.08.06 02:33
Re: Stopuhr	485	Herbert aschbac...	08.08.06 19:26
Re: Stopuhr	533	AndreasD	08.08.06 19:36
Re: Stopuhr	591	AndreasD	06.08.06 15:50
Re: Stopuhr	465	Herbert aschbac...	06.08.06 17:42

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen