VM110 programming help needed

Modules PC Related Projects
1

I am a Fine Art student working on a project with the VM110 but have no programming knowledge. I am looking for someone to supply a simple program.

I want to select one of the 8 LEDs at random and hold for a random time (3 to 15 secs), then repeat this forever.

Program to run on Windows 98SE, language is not important. The interface board will be connected to a relay board which controls video cameras. This will be for my degree show and will greatly enhance my art project, hopefully gaining a 1st.

2

Because you are studying fine arts I may help you a little.
Maybe you start now studying some programming language too…
I added to the K8055 demo software the following procedure:

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick Timer3.Enabled = False ' Generate random value between 3000 and 15000. Dim value1 As Integer = CInt(Int((15000 * Rnd()) + 3000)) Timer3.Interval = value1 ClearDigitalChannel(n) cbo(n).Checked = False ' Generate random value between 1 and 8. Dim value As Integer = CInt(Int((8 * Rnd()) + 1)) n = value SetDigitalChannel(n) cbo(n).Checked = True Timer3.Enabled = True End Sub
Now you get what you wanted by clicking the Random button (click first the Connect button).

You can download the source code from: vel255.diinoweb.com/files/K8055_VB_2005_rnd.zip

Extract the zip package. You’ll find the exe file (K8055_VB_NET.exe) from the folder \K8055_VB_2005\bin

3

Thank you very much, that does exactly what I want. I have started using Microsoft Visual Basic Express and can fine tune this from here.

Thanks again

4

It was a nice coincidence that I also used Microsoft Visual Basic Express for this example code.
Good luck!

5

There was other modification left in the code: The state of the test buttons is sent to the LEDs and to the digital outputs.
Controlling the digital outputs from the software is not possible.

To enable it, please change in the subroutine Timer1_Tick:

i = ReadAllDigital WriteAllDigital(i)
to

i = ReadAllDigital 'WriteAllDigital(i)

6

I had not noticed that, but will be useful for setting up the cameras.
Thanks
I will post a link here to a recording of the video output when its complete.

7

OK- interesting … waiting for the link to see the recording…

One minor correction to my code:

' Generate random value between 3000 and 15000. Dim value1 As Integer = CInt(Int((15000 * Rnd()) + 3000))
should be changed to:

' Generate random value between 3000 and 15000. Dim value1 As Integer = CInt(Int((12000 * Rnd()) + 3000))

The original code generates random value between 3000 and 18000.

8

Those are the values I have been fine tuning, taking into account that a random number may be repeated, so my max is 10000 at the monent. When all my cameras are setup I can visually assess.