Velleman K8055 USB I/O Board Extension plugin

[307SW_NLD]

A new version is released. See first post. Major changes on the menu functionality. Added some features requested by users.
I'm open for any suggestion/comments.

[Volsfan]

Have to ask a couple questions about this board before I order.... Finally found a place that has them in stock.

I have ordered some momentary push button switches that I would like to use in my car.

What I would like to do is press once, and relay/board closes circuit and holds until press again and relay/board opens circuit.

Also, I would like to be able to do the above, but create a delay for controlling several servo's. I am making my rear monitors flip down from the headliner but don't want to use micro or limit switches.

And one last question, the link here> http://www.simmetry.com/image.asp?sr...board,+display

is a touch screen that I want to install in the rear of my SUV to control the board too. Can anyone tell me it these two are compatable?

[307SW_NLD]

Quote: Originally Posted by Volsfan

Have to ask a couple questions about this board before I order.... Finally found a place that has them in stock.

I have ordered some momentary push button switches that I would like to use in my car.

What I would like to do is press once, and relay/board closes circuit and holds until press again and relay/board opens circuit.

Also, I would like to be able to do the above, but create a delay for controlling several servo's. I am making my rear monitors flip down from the headliner but don't want to use micro or limit switches.

And one last question, the link here> http://www.simmetry.com/image.asp?sr...board,+display

is a touch screen that I want to install in the rear of my SUV to control the board too. Can anyone tell me it these two are compatable?

1. You can use the command k8055_do_switch_bit_x to switch the state of bit x of the digital output. You can use the menu functionality of the digital inputs to execute this command. So a button press will execute the k8055_do_switch_bit_x command which will change the state of bit x (which is driving your relay). The state of the output bit can be shown on your monitor by using the k8055_do_bit_x indicator. This indicator is also clickable to change the state of the output.

2. Nice looking LCD. From what I can read from the documentation, this device is controlled by a serial RS232 port. You will probably need to write your own RR plugin to make the touchscreen execute Road Runner commands. What does the device cost. If I had one I would write a plugin for it.

[Volsfan]

Quote:

Nice looking LCD. From what I can read from the documentation, this device is controlled by a serial RS232 port. You will probably need to write your own RR plugin to make the touchscreen execute Road Runner commands. What does the device cost. If I had one I would write a plugin for it.

It's $89.00 US and 69.4040 EUR

Here is their main page: http://www.simmetry.com/default.htm

I really want the touch screen to run several Linear Actuator so it would not necessarily need to be in RR. That screen is for my amp rack and motherboard rack to slide out of the sub encloser in the back of my car

Thank you for the relpy. I have gone ahead and orderd the board and as soon as it arrives, I'm sure that I will be asking many more questions

[Ruffy]

so question.... what is everyone using this unit for?

[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]

Quote: Originally Posted by 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

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]

Quote: Originally Posted by 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

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.