[VB] Winamp besturen d.m.v. phidgets

[gizmo9003]

Ik heb een programmatje geschreven waarmee ik winamp kan besturen door middel van phidgetsensoren. Het werkt al voor een gedeelte, volume aanpassen etc, maar ik loop tegen een probleempje.

Het volgende werkt perfect:

code:

    If (Index = 2) Then
        Dim track2play As Integer
        track2play = SensorValue / 10
        SendMessage hwndwinamp, W
        M_USER , track2play - 1, 121
        SendMessage hwndwinamp, 273, 40048, 0
    End If

Dus als de waarde van de 2e sensor verandert, gaat hij door de playlist heenstappen. Werkt perfect.

Nu een andere slider, als daar iets verandert gebeurt er in het programma helemaal niets. Code:

code:

    If (Index = 4) Then
        If SensorValue > 400 Then
            SendMessage hwndwinamp, 273, 40001, 0
        End If

Oftewel, als de waarde van sensor 4 boven de 400 komt, moet winamp afgesloten worden. Maar er gebeurt dus niets, wat ik ook met die sensor doe. Iemand enig idee hoe dit komt? Ook bij andere commando's gebeurt er niets. (een label die de Sensorvalue weergeeft verandert wel netjes, en de sensorvalue komt ook daadwerkelijk boven de 400 uit als ik schuif).


Dezelfde code achter een button hangen geeft wel het gewenste resultaat. Dus waarom sluit hij winamp wel als ik de code achter een button hang, en niet als ik hem achter een bepaalde sensorwaarde hang?

[ Voor 14% gewijzigd door gizmo9003 op 30-08-2007 13:17 ]

[sopsop]

En als je dit doet:

Visual Basic:

        If CInt(SensorValue) > 400 Then
            SendMessage hwndwinamp, 273, 40001, 0
        End If

En anders debuggen:

Visual Basic:

        MsgBox "De huidige sensorvalue is: " & SensorValue

[ Voor 25% gewijzigd door sopsop op 30-08-2007 13:25 ]

[? ?]

Breakpoint zetten en debuggen?