XProfan

English

Detlef
Tussing

have The ticket soeben receive, and be already on the try.
still so eager How i'm come I with the XProfan Help not correctly. moreover.
have the following probiert
Compile Mark Separation

Declare DLL%
DLL%=@UseDLL(K8055D.DLL)
def open device(dll%,0)
def clearanalogchannel(dll%,1)
def clearanalogchannel(dll%,0)
def clearalldigital(dll%)

but it happens nothing.
The Error lying by me. is because DEF übehaupt the right commands around the ticket to address ????

The ticket is aale, there one Testprogramm thereby is, what about me any functions so testing could.

Gruß Detlef Tussing
Windows XP, XProfan 10

06/14/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

GDL

means with DLLS can I you neither help. got by me The port. dll neither running. an DLL without Profanbeispiel is for me too one book with 7 Siegeln.

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

[...]

06/14/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Def

is for very correctly. - only your Syntax is wrong.
Compile Mark Separation

def namederfunktion(anzahl_der_parameter) !K8055D.DLL,namederfunktion
cls
var mydll&=usedll(K8055D.DLL)
print namederfunktion(blub)

/pre>

namederfunktion must exakt written go - big and Kleinschreibung is absolutely To mind.

06/14/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Detlef
Tussing

Hello Georg

thanks for attempt.

If I it on the walk have, I will you report, whom these ticket is besimmt too interestingly for you.
she has 8 digitale exits, 5 digitale Eingänge and apiece 2 Analog from-and Eingänge

Gruß Detlef Tussing
Windows XP, XProfan 10

06/14/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

Hello Detlef,
You müßtest The functions from the Dll about so deklarieren:
Compile Mark Separation

Def K8055DOpenDevice(1) !K8055D.DLL,OpenDevice,&1
Def K8055DClearAnalogChannel() !K8055D.DLL,ClearAnalogChannel,&1
Def K8055DClearAllDigital(1) !K8055D.DLL,ClearAllDigital,&1
Aufruf dann mit:
Declare DLL%
DLL%=@UseDLL(K8055D.DLL)
K8055DOpenDevice(0)<

is now naturally only roughly get, I The Funktionsnamen the Dll and the Aufrufparameter not know.
look In any drop in the Help again under externe functions deklarieren to.
too here in the Forum find You to the Topic with safety some.
Greeting
Jörg

[offtopic]iF was time again faster - for is mine detail[/offtopic]

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

06/14/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Yes but too wrong - your DEF has To many Parameter.

06/14/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Detlef
Tussing

Hello IF, have probiert
Compile Mark Separation

Declare DLL%,mydll&
DLL%=@UseDLL(K8055D.DLL)
print dll%
waitinput
def OpenDevice(0) !K8055D.DLL,OpenDevice
def clearalldigital !K8055D.DLL,clearalldigital
var mydll&=usedll(K8055D.DLL)
def namederfunktion(anzahl_der_parameter) !K8055D.DLL,namederfunktion
cls
var mydll&=usedll(K8055D.DLL)
print namederfunktion(blub)
print mydll&
w

get The Error Message VAR uncharted

Gruß Detlef Tussing
Windows XP, XProfan 10

06/14/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Detlef
Tussing

Thanks on your patience with me, but It's all right not

How was yet with the [code] ?
Compile Mark Separation

Declare mydll%,device%
def OpenDevice(0) !K8055D_C.DLL,OpenDevice
cls
def SearchDevice !K8055D_C.DLL,SerachDevice
def ClearAllDigital !K8055D_C.DLL,ClearAllDigital
mydll%=usedll(K8055D_C.DLL)
def namederfunktion(anzahl_der_parameter) !K8055D.DLL,namederfunktion
cls
var mydll&=usedll(K8055D.DLL)
print namederfunktion(blub)
print device%
print mydll%
w

Gruß Detlef Tussing
Windows XP, XProfan 10

06/14/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Detlef Tussing

Thanks on your patience with me, but It's all right not

this is To little on Information circa you help to.

06/14/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Detlef
Tussing

thanks, but in my old forget man so manches,

here The Description the DLL Code in Visual Basic which was from the manufacturer in. Vieleicht helps the, what about me hope the not too much desires is.

MAN_D_K8055_DLL.pdf	49 kB

Hochgeladen:	06/14/07

Downloadcounter:
		Download

Gruß Detlef Tussing
Windows XP, XProfan 10

06/14/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

shining still integrally simply with the DLL - though ichs quite affig find the the manufacturers the copy of Text from the PDF untersagt. I Have So one Image angehangen - on this small example zeig I time on How You it translate can.

Compile Mark Separation

def opendevice(1) !k8055d.dll,OpenDevice
def closedevice(0) !k8055d.dll,CloseDevice
def readanalogchannel(1) !k8055d.dll,ReadAnalogChannel
def readallanalog(2) !k8055d.dll,ReadAllAnalog
declare dllh&
dllh&=usedll(k8055d.dll)

ifnot dllh&

    messagebox dll nicht geladen error,,0
    end

endif

declare kartenadresse&
kartenadresse&=opendevice(0)
print kartenadresse:,kartenadresse&
print was wird angezeigt?
waitinput
closedevice()
freedll dllh&
end

clipboard01_177[1].png	8 kB

Hochgeladen:	06/14/07

Downloadcounter:
		Download

06/14/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Detlef
Tussing

High first success
The Kartenadresse becomes recognized, too to Change the same.
Haste well done, hats off without ticket.
Probier now time one little, come but certainly on you back.

Related to the Image Have I do not integrally understood, or wrong gelesen`??