Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

DLL-Ärger

Uploader:Mitgliedbino249
Datum/Zeit:15.01.2008 18:18:17

rem option explicit
declare function opendevice lib "k8055d.dll" (byval cardadress as long) as long
declare sub closedevice lib "k8055d.dll"
declare function readanalogchannel lib"k8055d.dll" (byval channel as long) as long
declare sub readallananlog lib "k8055d.dll" (data1 as long,data2 as long)
declare sub outputanalogchannel lib "k8055d.dll" (byval channel as long, byval data as long)
declare sub outputallanalogchannel lib "k8055d.dll" (byval data1 as long, byval data2 as long)
declare sub clearanalogchannel lib "k8055d.dll" (byval channel as long)
declare sub setallanalog lib "k8055d.dll" ()
declare sub clearallanalog lib "k8055d.dll" ()
declare sub setanalogchannel lib "k8055d.dll"(byval channel as long)
declare sub writealldigital lib "k8055d.dll" (byval data as long)
declare sub cleardigitalchannel lib "k8055d.dll" (byval channel as long)
declare sub clearalldigital lib "k8055d.dll" ()
declare sub setdigitalchannel lib "k8055d.dll" (byval channel as long)
Rem declare function readdigitalchannel lib "k8055d.dll" (byval channel as long)
declare function readalldigital lib "k8055d.dll" () as long
declare function readcounter lib "k8055d.dll" (byval counternr as long) as long
declare sub restcounter lib "k8055d.dll" (byval counternr as long)
declare sub setcounterdebouncetime lib "k8055d.dll"(byval counternr as long, byval debouncetime as long)

sub connect()
DIM cardadress AS LONG
DIM h AS LONG
dim card as long
cardadress = 3
h = opendevice(cardadress)
card=cardadress
end sub

Dim hndl As integer
hndl=DYLIBLOAD("k8055d.dll")
Dim Addnumbers As Function(ByVal operand1 As Integer,ByVal operand2 As Integer) As Integer
Addnumbers=DYLIBSYMBOL(hndl,"Addnumbers")
Print Addnumbers(4321,7654)