DoEvents während 1KHz-Beep möglich?
05.04.2005 21:46:55
Springer
ich habe einige Makros zur Zeitnahme von Sportlern während einer Laufveranstaltung geschrieben! Während ein Sportler ins Ziel rennt, wird durch Tastendruck von einer Excel-Stoppuhr die Zeit übernommen!
Nun meine Frage: Ich möchte, dass die Zeitnahme auch akustisch wiedergegeben wird! Mit meiner 1KHz-Beep-Funktion unterbricht jedoch die Excel-Stoppuhr das Zählen und es sind während des Beeps keine Eingaben möglich! Auch mit "DoEvents" kann ich nichts dagegen machen! Hat vielleicht jemand eine Idee, wie ich es trotzdem lösen könnte?
Meine 1KHz-Beep Funktion:
Option Explicit
Declare
Function Ton& Lib "kernel32" _
Alias "Beep" _
(ByVal dwFrequenz As Long, _
ByVal dwDauer As Long)
Sub piepsen()
DoEvents
Ton 1000, 1000
End Sub