k8055 als stopwatch

Hoi allemaal,

Graag zou ik een Velleman K8055 als stopwatch willen gebruiken, nu heb ik een excel bestand gevonden op de site van Velleman die opzich voldoet, maar de stopwatch word gestart en gestopt door op een Button in het programma te klikken. Graag zou ik daar de knoppen op de programeerkaart voor gebruiken.

Voor de beeldvorming: met jonggerle (een jongeren vereniging) willen wij een "fiets em d'r in" organiseren. Om de tijdmeting zo eerlijk mogelijk te laten verlopen wil ik dus een knop gebruiken om startsignaal tegeven met een toeter oid en tegelijkertijd de stopwatch te starten. Als de deelnemer aan het einde de bel raakt, die van geleidend materiaal is en klepel en bel kontact maken stopt de tijd.

Ben je bekend met VBA in Excel?

http://www.bvsystems.be/k8055excel.php
http://www.bvsystems.be/downloads/K8055excel

Of je gebruikt Profilab exper4.0 voor dat soort dingen.
Kijk hier eens naar als je wil.

http://www.circuitsonline.net/forum/view/96640/1/lambiek+profilab

Ben niet zo heel bekend in VBA heb er enkele jaren geleden wat mee gedaan maar door tijd gebrek nooit echt mee verder gegaan.

Heb van de site van Velleman het volgende:


Option Explicit
Private Declare Function Version Lib "k8055d.dll" () As Long
Private Declare Function SearchDevices Lib "k8055d.dll" () As Long
Private Declare Function SetCurrentDevice Lib "k8055d.dll" (ByVal CardAddress As Long) As Long
Private Declare Function OpenDevice Lib "k8055d.dll" (ByVal CardAddress As Long) As Long
Private Declare Sub CloseDevice Lib "k8055d.dll" ()
Private Declare Function ReadAnalogChannel Lib "k8055d.dll" (ByVal Channel As Long) As Long
Private Declare Sub ReadAllAnalog Lib "k8055d.dll" (Data1 As Long, Data2 As Long)
Private Declare Sub OutputAnalogChannel Lib "k8055d.dll" (ByVal Channel As Long, ByVal Data As Long)
Private Declare Sub OutputAllAnalog Lib "k8055d.dll" (ByVal Data1 As Long, ByVal Data2 As Long)
Private Declare Sub ClearAnalogChannel Lib "k8055d.dll" (ByVal Channel As Long)
Private Declare Sub SetAllAnalog Lib "k8055d.dll" ()
Private Declare Sub ClearAllAnalog Lib "k8055d.dll" ()
Private Declare Sub SetAnalogChannel Lib "k8055d.dll" (ByVal Channel As Long)
Private Declare Sub WriteAllDigital Lib "k8055d.dll" (ByVal Data As Long)
Private Declare Sub ClearDigitalChannel Lib "k8055d.dll" (ByVal Channel As Long)
Private Declare Sub ClearAllDigital Lib "k8055d.dll" ()
Private Declare Sub SetDigitalChannel Lib "k8055d.dll" (ByVal Channel As Long)
Private Declare Sub SetAllDigital Lib "k8055d.dll" ()
Private Declare Function ReadDigitalChannel Lib "k8055d.dll" (ByVal Channel As Long) As Boolean
Private Declare Function ReadAllDigital Lib "k8055d.dll" () As Long
Private Declare Function ReadCounter Lib "k8055d.dll" (ByVal CounterNr As Long) As Long
Private Declare Sub ResetCounter Lib "k8055d.dll" (ByVal CounterNr As Long)
Private Declare Sub SetCounterDebounceTime Lib "k8055d.dll" (ByVal CounterNr As Long, ByVal DebounceTime As Long)
Private Declare Function SetTimer Lib "user32" ( _
    ByVal HWnd As Long, ByVal nIDEvent As Long, _
    ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" ( _
    ByVal HWnd As Long, ByVal nIDEvent As Long) As Long
Dim TimerID As Long
Dim TimerSeconds As Single
Dim CardAddress As Long
Dim n As Long

Sub Button1_Click()
    Dim h As Long
    n = 0
    h = OpenDevice(0)
    If h = 0 Then
        ActiveSheet.Cells(1, 4) = "Card 0 Connected"
        TimerSeconds = 0.1 ' the timer interval is now .1 sec.
        TimerID = SetTimer(0&, 0&, TimerSeconds * 1000&, AddressOf TimerProc)
    Else
        ActiveSheet.Cells(1, 4) = "Card 0 Not Found"
    End If

End Sub

Sub TimerProc(ByVal HWnd As Long, ByVal uMsg As Long, ByVal nIDEvent As Long, ByVal dwTimer As Long)
    On Error Resume Next
    Dim Data1 As Long
    Dim Data2 As Long
    Dim i As Long
    ReadAllAnalog Data1, Data2
    ActiveSheet.Cells(2, 2) = Data1
    ActiveSheet.Cells(3, 2) = Data2
    WriteAllDigital n
    ActiveSheet.Cells(5, 2) = n
    n = n + 1
    i = ReadAllDigital
    ActiveSheet.Cells(7, 2) = i
End Sub

Sub Button3_Click()
    KillTimer 0&, TimerID
    CloseDevice
    ActiveSheet.Cells(1, 4) = "Card 0 Closed"
End Sub

Maar nu zou ik dus graag door gebruik van de digitale ingang 1 de teller te resetten en te starten en door gebruik van 2 deze weer te stoppen.

Ben al een tijd bezig geweest maar krijg het niet voor elkaar.

Alvast bedankt

[Bericht gewijzigd door Henry S. op (0%)]