Beep nach 15 sek oder Tastatureingabe
24.05.2009 13:50:59
Lars
Ich arbeite an einem Vokabeltrainter und möchte dem Nutzer pro Vokabel 15 sek Zeit geben. Sind die 15sek um, so soll ein Beep ertönen. Danach beginnen die nächsten 15 sek usw.
Sollte man für eine Vokabel weniger als 15 sek benötigen, so sollte man durch "Enter" die Restzeit sammeln können. Sammeln heißt hier, die 15 sek pro Vokabel werden neu auf die gesamte Trainingszeit angepasst (zb. 17sek).
Meine Frage: Wie kann ich "Enter" in unten angegebenen Code abfragen?
Sub timecals()
Dim current_Time As Date
Dim i As Integer
For i = 1 To 5
current_Time = Now
Do
'Abfrage Enter
Loop Until Now >= current_Time + "00:00:15"
Beep
Next i
End Sub
Vielen Dank!
Gruß Lars