vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Re: Stoppuhr programmieren (Laptimer) 
Autor: devnull
Datum: 02.07.02 15:47
Zunächst mal möchtest Du also per "menschlichem Tastendruck" Hundertstel erfassen ... nun ja .... den Menschen möchte ich mal sehen

Ein Hundertstel sind natürlich 10 Millisekunden. Soweit ich weiß, kann auch VB nur ca. 50 Millisekunden differenzieren.

Davon mal abgesehen, hatte derheld81 recht. Nimm GetTickCount, indem Du die folgende Deklaration in ein Modul setzt: 
Declare Function GetTickCount Lib "kernel32.dll" Alias "GetTickCount" () As Long
Zusätzlich deklarierst Du die Startzeit und die acht Endzeiten in diesem Modul Global: 
Global StartZeit As Long
Global EndZeit(1 To 8) As Double
Das KeyDown-Event Deiner Form könnte dann so aussehen, falls F9 (Code 120) zum Starten der Uhr genommen werden soll. Die F-Tasten haben die Keycodes 112-119: 
<code><font color=#000099>Private</font> <font color=#000099>Sub</font> _
  Form_KeyDown(KeyCode <font color=#000099>As</font> <font _
  color=#000099>Integer</font>, Shift <font color=#000099>As</font> <font _
  color=#000099>Integer</font>)
 
    <font color=#000099>Dim</font> GestoppteZeit <font color=#000099>As</font> _
      <font color=#000099>Long</font>
 
    <font color=green>' Möglichst "schnell" die Zeit merken</font>
    GestoppteZeit = GetTickCount()
 
    <font color=#000099>Select</font> <font color=#000099>Case</font> KeyCode
        <font color=#000099>Case</font> 120
            StartZeit = GestoppteZeit
        <font color=#000099>Case</font> 112 <font color=#000099>To</font> 119
            EndZeit(KeyCode - 111) = Int((GestoppteZeit - StartZeit) / 10 + _
              0.5) / 100
    <font color=#000099>End</font> <font color=#000099>Select</font>
 
<font color=#000099>End</font> <font color=#000099>Sub</font></code>
Gruß,
Thomas
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Stoppuhr programmieren (Laptimer)56Oli Spiess02.07.02 11:47
Re: Stoppuhr programmieren (Laptimer)49derheld8102.07.02 11:51
Re: Stoppuhr programmieren (Laptimer)41Oli Spiess02.07.02 12:06
Re: Stoppuhr programmieren (Laptimer)43derheld8102.07.02 15:30
Re: Stoppuhr programmieren (Laptimer)164devnull02.07.02 15:47

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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel