Velleman K8055 USB I/O Board Extension plugin

[Enforcer]

gathering dust on my shelf at the moment.


Will probably use to control lights or something and pssibly read temperatures.

[Jarrod]

Mine is installed in my car not connected to anything, not even USB. I've got to get myself a USB repeater cable to connect my USB hub too. For some reason my cheapo powered USB hub doesnt work on a standard 5m USB extension cable.

[mscar]

HI, Is it possivel to use push button (skin command) in the relay skin?

Ex: On Click -> open relay1 : On Release -> close relay1 (in the same botton)


I want to use this command to open or close my electric car windows.

Ex: Push botton -> open window : Release botton -> stop window.

[mscar]

If not possivel: please reconsider to make a new command like:

"k8055_do_switch_bit_1"
"k8055_do_set_bit_1"
"k8055_do_reset_bit_1"

"k8055_do_push_bit_1" Set on and off relay

Thanks

[307SW_NLD]

If not possivel: please reconsider to make a new command like:

"k8055_do_switch_bit_1"
"k8055_do_set_bit_1"
"k8055_do_reset_bit_1"

"k8055_do_push_bit_1" Set on and off relay

Thanks

Well, it depends if there is a "button up" event in RR that is getting passed to the extension plugin. As far as I know it isn't there. So for now you're stuck with the k8055_do_switch_bitx which means 1 push start window going down, next push stop window going down.

k8055_do_push_bit_1 is an idea but how long do the bit need to be set?

[mscar]

It may be less that a second.

[guino]

Commands are only executed in RR when you let go of the button. This basically simulates the same functionality of any windows button (on purpose): If you click down a button, move the mouse out of it and let go of the mouse, the button will NOT execute giving you a chance to visually inspect if you pressed the right button in first place.

However, if you make a clickable area or indicator, you should receive the event as soon as you click down on it, then you could easily monitor the mouse button via windows api: (GetAsyncKeyState(vbKeyLButton) and &h8000) which returns true/false if the mouse left button is down/up respectively. You'd probably have to make a timer on a reasonably short interval to control it though.

[mscar]

Thanks Guino, i made a change in RR CODE

modK8055.bas

' changed by mscar
Public Sub relays(Index As Integer)
Dim i As Long
Dim n As Long
Dim valor As Integer
n = 0
If relays_State(Index) = False Then
relays_State(Index) = True
Else
relays_State(Index) = False
End If
For i = 0 To 7
If relays_State(i) = True Then valor = 1 Else valor = 0
n = n + valor * (2 ^ i)
Next
WriteAllDigital n

End Sub

' add by mscar
Public Sub relaysPush(Index As Integer)
Dim i As Long
Dim n As Long
Dim valor As Integer
n = 0
If relays_State(Index) = False Then
relays_State(Index) = True
Else
relays_State(Index) = False
End If
For i = 0 To 7
If relays_State(i) = True Then valor = 1 Else valor = 0
n = n + valor * (2 ^ i)
Next
WriteAllDigital n

Sleep (50)

n = 0
If relays_State(Index) = False Then
relays_State(Index) = True
Else
relays_State(Index) = False
End If
For i = 0 To 7
If relays_State(i) = True Then valor = 1 Else valor = 0
n = n + valor * (2 ^ i)
Next
WriteAllDigital n

End Sub
----

and i add some code in exec

Case "relaypush1"
relaysPush 0
Case "relaypush2"
relaysPush 1
Case "relaypush3"
relaysPush 2
Case "relaypush4"
relaysPush 3
Case "relaypush5"
relaysPush 4
Case "relaypush6"
relaysPush 5
Case "relaypush7"
relaysPush 6
Case "relaypush8"
relaysPush 7


Work Fine now

[307SW_NLD]

Thanks Guino, i made a change in RR CODE

modK8055.bas

' changed by mscar
Public Sub relays(Index As Integer)
Dim i As Long
Dim n As Long
Dim valor As Integer
n = 0
If relays_State(Index) = False Then
relays_State(Index) = True
Else
relays_State(Index) = False
End If
For i = 0 To 7
If relays_State(i) = True Then valor = 1 Else valor = 0
n = n + valor * (2 ^ i)
Next
WriteAllDigital n

End Sub

' add by mscar
Public Sub relaysPush(Index As Integer)
Dim i As Long
Dim n As Long
Dim valor As Integer
n = 0
If relays_State(Index) = False Then
relays_State(Index) = True
Else
relays_State(Index) = False
End If
For i = 0 To 7
If relays_State(i) = True Then valor = 1 Else valor = 0
n = n + valor * (2 ^ i)
Next
WriteAllDigital n

Sleep (50)

n = 0
If relays_State(Index) = False Then
relays_State(Index) = True
Else
relays_State(Index) = False
End If
For i = 0 To 7
If relays_State(i) = True Then valor = 1 Else valor = 0
n = n + valor * (2 ^ i)
Next
WriteAllDigital n

End Sub
----

and i add some code in exec

Case "relaypush1"
relaysPush 0
Case "relaypush2"
relaysPush 1
Case "relaypush3"
relaysPush 2
Case "relaypush4"
relaysPush 3
Case "relaypush5"
relaysPush 4
Case "relaypush6"
relaysPush 5
Case "relaypush7"
relaysPush 6
Case "relaypush8"
relaysPush 7


Work Fine now

That must be an old version of RR. The newest version of RR does not have a modK8055.bas and the K8055 code was removed. This is now replaced by the RRK8055 Extension plugin

[mscar]

I have the new version...It works with RR and your plugin, in the same time.

Thanks.