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

- Page 1 -

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`??

Gruß Detlef Tussing
Windows XP, XProfan 10

06/14/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

- Page 2 -

juut

06/14/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Detlef
Tussing

it functions, dank IF
here The Trial, The Maybe for GDL interestingly is.
who More know would like can me gladly address
Compile Mark Separation

declare a%,b%,c%,d%,e%
a%=1  Kartenadresse
b%=2 Digitalkanaleingang
c%=1 Analogkanaleingang
d%=4 Digitalkanalausgang
e%=2 Analogkanalausgang
def opendevice(1) !k8055d.dll,OpenDevice
def closedevice(0) !k8055d.dll,CloseDevice
def readdigi(1) !k8055d.dll,ReadDigitalChannel
def readanalog(1) !k8055d.dll,ReadAnalogChannel
def ClearAllDigital(0) !K8055d.dll,ClearAllDigital
def setdigi(1) !K8055d.dll,SetDigitalChannel
def analogout(1) !K8055d.dll,SetAnalogChannel
def clearallanalog(0) !K8055d.dll,ClearAllAnalog
declare dllh&
dllh&=usedll(k8055d.dll)

ifnot dllh&

    messagebox dll nicht geladen error,,0
    end

endif

declare kartenadresse&,readdigi&,schreibdigi&,readanalog&,schreibanalog&
kartenadresse&=opendevice(a%) Initialisierung der Karte

while readanalog&<125

    readanalog&=readanalog(c%)
    locate 10,10
    print Analogkanaleingang,c%, = ,readanalog&
    readdigi&=readdigi(b%)
    locate 14,10
    print Digitalkanaleinganggang,b%, = ,readdigi&
    schreibdigi&=setdigi(d%)
    locate 18,10
    print Digitalkanalausgang,d%, = ,schreibdigi&
    locate 22,10
    print Kartenadresse:,kartenadresse&
    waitinput
    schreibanalog&=analogout(e%)

endwhile

waitinput
clearalldigital()
clearallanalog()
closedevice()
freedll dllh&
../Function-References/XProfan/end/'>end

Gruß Detlef Tussing
Windows XP, XProfan 10

06/15/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Uwe
Skärke

... I have whom View source of David time ausprobiert, have the same trouble How with my suit Program, in the Intgerpretermodus runs everything fine, (wants with the ticket my Atennenrotor steer), but if I ne EXE draus make, goes garnichts, or. comes as Portadresse -2 (less two) ?????

Uwe

TOSHIBA TECRA S1 / PROFAN 7.0

11/24/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

◄