Need help trying to interface DBP with Velleman K8055 interface board

Author

Message

dark nooby

18

Years of Service

User Offline

Joined: 30th Mar 2008

Location:

Posted: 14th Dec 2010 18:48

Link

Hi guys/gurls im trying to create a program to test my Velleman K8055 experimenters USB interface board.
im using windows xp and darkbasic pro, the only way i can use the board in darkbasic is with the K8055D.dll file supplied with the board. I should also mention that i have never used a dll file before so my code probably has a lot of flaws in it.
heres me code

cls
print "loading DLL link File....."
load dll "K8055D.dll",1
if dll exist(1)=1
Print "calling DLL Function...."
if dll call exist(1, "interfacecard")=1
print "okay."
call dll 1, "interfacecard"
else
print "does not exist."
endif
print "Calling DLL Function with Return Value....";
if dll call exist(1, "interfacecard")=1
print 
else
print "Deleting DLL...."
delete dll 1
print "not loaded."
end
endif

print "Starting to initialise Interface Card.."
print "Turning on Card Address..."
call dll 1, OpenDevice(3)
print "device initialised.."
Print "Turn on all channels"
call dll 1, SetAllDigital
wait 2000
print "Turn all Channels off"
wait 2000
call dll 1, ClearAllDigital
wait 2000
print : print : print
Print "This next section is a demonstration section i added to pulse across the screen to test this board"
wait 3000
print
for x = 1 to 5
for t = 1 to 7
call dll 1, SetDigitalChannel (t)
wait 1000
next t
call dll 1, ClearAllDigital
next x
wait 1000
call dll 1, ClearAllDigital
for x = 1 to 5
for t = 1 to 7
call dll 1, SetDigitalChannel (t)
wait 500
call dll 1, ClearDigitalChannel (t)
wait 500
next t
next x
call dll 1, ClearAllDigital

call dll 1, CloseDevice (3)
delete dll 1
wait key
end

+ Code Snippet

cls
print "loading DLL link File....."
load dll "K8055D.dll",1
if dll exist(1)=1
Print "calling DLL Function...."
if dll call exist(1, "interfacecard")=1
print "okay."
call dll 1, "interfacecard"
else
print "does not exist."
endif
print "Calling DLL Function with Return Value....";
if dll call exist(1, "interfacecard")=1
print 
else
print "Deleting DLL...."
delete dll 1
print "not loaded."
end
endif

print "Starting to initialise Interface Card.."
print "Turning on Card Address..."
call dll 1, OpenDevice(3)
print "device initialised.."
Print "Turn on all channels"
call dll 1, SetAllDigital
wait 2000
print "Turn all Channels off"
wait 2000
call dll 1, ClearAllDigital
wait 2000
print : print : print
Print "This next section is a demonstration section i added to pulse across the screen to test this board"
wait 3000
print
for x = 1 to 5
for t = 1 to 7
call dll 1, SetDigitalChannel (t)
wait 1000
next t
call dll 1, ClearAllDigital
next x
wait 1000
call dll 1, ClearAllDigital
for x = 1 to 5
for t = 1 to 7
call dll 1, SetDigitalChannel (t)
wait 500
call dll 1, ClearDigitalChannel (t)
wait 500
next t
next x
call dll 1, ClearAllDigital

call dll 1, CloseDevice (3)
delete dll 1
wait key
end

Also the interface board is plugged into a usb port if that makes a difference. The compiler gets a error at the line which says "call dll 1, opendevice(3)"
The error reads "'CALL DLL'did not match the 'DLL Number,Function Name' at line 24.

Back to top

Profile PM

KISTech

18

Years of Service

User Offline

Joined: 8th Feb 2008

Location: Aloha, Oregon

Posted: 14th Dec 2010 19:17

Link

You've left the quotes off of the commands you're sending to the DLL.

That's just off the top of my head. There may be more.

Back to top

Profile PM Email Website

dark nooby

18

Years of Service

User Offline

Joined: 30th Mar 2008

Location:

Posted: 14th Dec 2010 19:40

Link

Thanks very much KISTECH, when i read about the commands in the help file it didnt say to enclose the commands in quotes, however it state they were strings which are normally put with quotes.

yay the error has moved on further down the list which is a good start

Back to top

Profile PM

dark nooby

18

Years of Service

User Offline

Joined: 30th Mar 2008

Location:

Posted: 16th Dec 2010 22:29

Link

Hi, ive got rid of all those obvious bugs and made changes as shown, but the program as shown below doesnt seem to actually connect to the interface board. The interface card has leds on all the channels that indicate the on/off state of each individual channel. As of the time of this posting the card does nothing to indicate that the program is communicating with it, other than a power led that is on.

cls
print "loading DLL link File....." : print
load dll "K8055D.dll",1
if dll exist(1)=1
Print "Yes DLL File K8055D does exist...."
endif
print : print
if dll call exist(1, "OpenDevice")=1
print "okay, OpenDevice Command does exist." : print
else
print "Sorry OpenDevice Command does not exist." : print
endif
if dll call exist(1, "SetAllDigital")=1
print "Yes, SetAllDigital Command does exist." : print
else
print "Sorry that Dll Function failed too!" : Print
print "Deleting DLL...." : print : print
delete dll 1
print "not loaded. press any key to end program"
wait key
end
endif
print "Starting to initialise Interface Card.."
print "Turning on Card Address..."
call dll 1, "OpenDevice",(2)
print "device initialised.."
Print "Turn on all channels"
rem: call dll 1, SetAllDigital
wait 2000
print "Turn all Channels off"
wait 2000
call dll 1, "ClearAllDigital"
wait 2000
print : print : print
Print "This next section is a demonstration section i added to pulse across the screen to test this board"
wait 3000
print
for x = 1 to 5
for t = 1 to 7
call dll 1, "SetDigitalChannel",(t)
wait 500
call dll 1, "ClearDigitalChannel",(t)
next t
next x
print "test 1 completed"
wait 1000
call dll 1, "ClearAllDigital"
for x = 1 to 5
for t = 1 to 7
call dll 1, "SetDigitalChannel", (t)
wait 500
call dll 1, "ClearDigitalChannel", (t)
wait 500
next t
next x
print "test 2 completed"
wait 1000
print "closing device"
call dll 1, "ClearAllDigital"
call dll 1, "CloseDevice", (2)
delete dll 1
print "press any key to end program"
wait key
end

+ Code Snippet

cls
print "loading DLL link File....." : print
load dll "K8055D.dll",1
if dll exist(1)=1
Print "Yes DLL File K8055D does exist...."
endif
print : print
if dll call exist(1, "OpenDevice")=1
print "okay, OpenDevice Command does exist." : print
else
print "Sorry OpenDevice Command does not exist." : print
endif
if dll call exist(1, "SetAllDigital")=1
print "Yes, SetAllDigital Command does exist." : print
else
print "Sorry that Dll Function failed too!" : Print
print "Deleting DLL...." : print : print
delete dll 1
print "not loaded. press any key to end program"
wait key
end
endif
print "Starting to initialise Interface Card.."
print "Turning on Card Address..."
call dll 1, "OpenDevice",(2)
print "device initialised.."
Print "Turn on all channels"
rem: call dll 1, SetAllDigital
wait 2000
print "Turn all Channels off"
wait 2000
call dll 1, "ClearAllDigital"
wait 2000
print : print : print
Print "This next section is a demonstration section i added to pulse across the screen to test this board"
wait 3000
print
for x = 1 to 5
for t = 1 to 7
call dll 1, "SetDigitalChannel",(t)
wait 500
call dll 1, "ClearDigitalChannel",(t)
next t
next x
print "test 1 completed"
wait 1000
call dll 1, "ClearAllDigital"
for x = 1 to 5
for t = 1 to 7
call dll 1, "SetDigitalChannel", (t)
wait 500
call dll 1, "ClearDigitalChannel", (t)
wait 500
next t
next x
print "test 2 completed"
wait 1000
print "closing device"
call dll 1, "ClearAllDigital"
call dll 1, "CloseDevice", (2)
delete dll 1
print "press any key to end program"
wait key
end

im guessing maybe i need turn on the USB port or something and maybe i am missing some command parameters.

Back to top

Profile PM

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 16th Dec 2010 22:56

Link

1) Does the setup.exe demo software work, you can download it from their web site, it will let you play with the board after setting up the DIP switches correctly.
2) Do you get all the yes they exist messages from your software?
3) PLEASE indent your code as a courtesy to others, it also makes good programming style

Back to top

Profile PM Email

dark nooby

18

Years of Service

User Offline

Joined: 30th Mar 2008

Location:

Posted: 18th Dec 2010 03:56

Link

hi Billr,

1.yes the setup.exe works fine and everything lights up like it should but its very limited in any user control.

2.The answer to that question is yes, Those commands are only opening the K8055.dll library file and looking inside it to see if those commands exist. If the command exists inside the dll file it prompts me with a yes.

3.yes i really need to make indenting the code a habit, sorry

i've indented the code.

cls
print "loading DLL link File....." : print
load dll "K8055D.dll",1
if dll exist(1)=1
    Print "Yes DLL File K8055D does exist...."
endif
print : print
if dll call exist(1, "OpenDevice")=1
    print "okay, OpenDevice Command does exist." : print
else
    print "Sorry OpenDevice Command does not exist." : print
endif
if dll call exist(1, "SetAllDigital")=1
    print "Yes, SetAllDigital Command does exist." : print
else
    print "Sorry that Dll Function failed too!" : Print
    print "Deleting DLL...." : print : print
    delete dll 1
    print "not loaded. press any key to end program"
    wait key
    end
endif
print "Starting to initialise Interface Card.."
print "Turning on Card Address..."
call dll 1, "OpenDevice",(0)
print "device initialised.."
Print "Turn on all channels"
rem: call dll 1, SetAllDigital
wait 2000
print "Turn all Channels off"
wait 2000
call dll 1, "ClearAllDigital"
wait 2000
print : print : print
Print "This next section is a demonstration section i added to pulse across the screen to test this board"
wait 3000
print
for x = 1 to 5
    for t = 1 to 7
        call dll 1, "SetDigitalChannel",(t)
        wait 500
        call dll 1, "ClearDigitalChannel",(t)
    next t
next x
print "test 1 completed"
wait 1000
call dll 1, "ClearAllDigital"
for x = 1 to 5
    for t = 1 to 7
        call dll 1, "SetDigitalChannel", (t)
        wait 500
        call dll 1, "ClearDigitalChannel", (t)
        wait 500
    next t
next x
print "test 2 completed"
wait 1000
print "closing device"
call dll 1, "ClearAllDigital"
call dll 1, "CloseDevice", (0)
delete dll 1
print "press any key to end program"
wait key
end

+ Code Snippet

cls
print "loading DLL link File....." : print
load dll "K8055D.dll",1
if dll exist(1)=1
    Print "Yes DLL File K8055D does exist...."
endif
print : print
if dll call exist(1, "OpenDevice")=1
    print "okay, OpenDevice Command does exist." : print
else
    print "Sorry OpenDevice Command does not exist." : print
endif
if dll call exist(1, "SetAllDigital")=1
    print "Yes, SetAllDigital Command does exist." : print
else
    print "Sorry that Dll Function failed too!" : Print
    print "Deleting DLL...." : print : print
    delete dll 1
    print "not loaded. press any key to end program"
    wait key
    end
endif
print "Starting to initialise Interface Card.."
print "Turning on Card Address..."
call dll 1, "OpenDevice",(0)
print "device initialised.."
Print "Turn on all channels"
rem: call dll 1, SetAllDigital
wait 2000
print "Turn all Channels off"
wait 2000
call dll 1, "ClearAllDigital"
wait 2000
print : print : print
Print "This next section is a demonstration section i added to pulse across the screen to test this board"
wait 3000
print
for x = 1 to 5
    for t = 1 to 7
        call dll 1, "SetDigitalChannel",(t)
        wait 500
        call dll 1, "ClearDigitalChannel",(t)
    next t
next x
print "test 1 completed"
wait 1000
call dll 1, "ClearAllDigital"
for x = 1 to 5
    for t = 1 to 7
        call dll 1, "SetDigitalChannel", (t)
        wait 500
        call dll 1, "ClearDigitalChannel", (t)
        wait 500
    next t
next x
print "test 2 completed"
wait 1000
print "closing device"
call dll 1, "ClearAllDigital"
call dll 1, "CloseDevice", (0)
delete dll 1
print "press any key to end program"
wait key
end

thanks for the pointers

Back to top

Profile PM

dark nooby

18

Years of Service

User Offline

Joined: 30th Mar 2008

Location:

Posted: 18th Dec 2010 04:34

Link

Hi its me again, Ive been playing around with the code and discovered why it didnt work.
I wasnt Opening the correct Device number, the correct device number was 3. Sweet it works mighty fine now and everything is working like it should

thanks guys/gals for your help.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Need help trying to interface DBP with Velleman K8055 interface board