AW: Zeit zwischen Mausklicks anders
27.08.2005 16:16:59
Lars
Hallo,
danke dir! Du hast natürlich Recht, ich habe das jetzt so modifiziert:
Option Explicit
Const intLIMIT As Integer = 21
Private sngArray(1 To intLIMIT) As Single
Private intCount As Integer
Private Sub CommandButton1_Click()
If intCount < intLIMIT Then
intCount = intCount + 1
sngArray(intCount) = Timer
End If
End Sub
Private Sub UserForm_Terminate()
Dim intFilenumber As Integer, intIndex As Integer
If intCount = intLIMIT Then
intFilenumber = FreeFile
Open "C:\Klicks" & Format(Time, "hhmmss") & ".txt" For Output As #intFilenumber
For intIndex = 1 To 19
Print #intFilenumber, sngArray(intIndex + 1) - sngArray(intIndex)
Next
Close #intFilenumber
End If
End Sub
Ist das so ok?
Das Ganze dient übrigens nicht der Überwachung von Bedienern, sondern um die
Ergomie zu optimieren. Vereinfacht, je kürzer die Zeit zwischen den Klicks,
desto ergonomischer ist die Bedienung.
Grüße Achim