XProfan

Français

Detlef
Tussing

Habe qui carte soeben conservé, et suis déjà am essayer.
Doch so ungeduldig comment je suis viens je avec qui XProfan Aider pas richtig plus.
Habe folgendes probiert
Kompilieren Marque Séparation

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

mais es passiert rien.
qui faute liegt chez mir. Ist car DEF übehaupt qui richtige Befehl à carte anzusprechen ????

qui carte ist dans Ordre, là un Testprogramm dabei ist, et je alle Funktionen avec cela testen konnte.

Gruß Detlef Tussing
Windows XP, XProfan 10

14.06.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 1 -

oui mais aussi faux - Dein DEF hat trop viele paramètre.

14.06.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Detlef
Tussing

allô IF, habe probiert
Kompilieren Marque Séparation

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

bekomme qui Fehlermeldung VAR inconnu

Gruß Detlef Tussing
Windows XP, XProfan 10

14.06.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Detlef
Tussing

Dank à deine patience avec mir, mais und dir pas

comment était le reste avec dem [Code] ?
Kompilieren Marque Séparation

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

14.06.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Detlef Tussing

Dank à deine patience avec mir, mais und dir pas

c'est trop wenig à Informationen um Dir aider trop peut.

14.06.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Detlef
Tussing

merci, mais dans mon Alter vergisst homme so manches,

ici qui Beschreibung qui DLL avec Code dans Visual Basic qui vom Hersteller dabei était. Vieleicht hilft cela, et je hoffe cela cela pas zuviel verlangt ist.

MAN_D_K8055_DLL.pdf	49 kB

Hochgeladen:	14.06.2007

Downloadcounter:
		Download

Gruß Detlef Tussing
Windows XP, XProfan 10

14.06.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Scheint doch entier simple avec qui DLL - quoique ego assez affig finde cela qui Hersteller cela Kopieren de Text aus qui PDF untersagt. je hab alors un Bild angehangen - à diesem kleinen Beispiel zeig je la fois sur comment Du es traduire peux.

Kompilieren Marque Séparation

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:	14.06.2007

Downloadcounter:
		Download

14.06.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Detlef
Tussing

High erster Erfolg
qui Kartenadresse wird erkannt, aussi pour changement qui selben.
Haste bien gemacht, alle attention sans carte.
Probier maintenant la fois un un peu, viens mais bestimmt sur toi zurück.

Relatif à la Bild hab je pas entier verstanden, ou bien faux gelesen`??

Gruß Detlef Tussing
Windows XP, XProfan 10

14.06.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 2 -

juut

14.06.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Detlef
Tussing

Es funktioniert, dank IF
ici qui Testversion, qui vieleicht pour GDL intéressant ist.
qui plus savons voudrais peux mich volontiers ansprechen
Kompilieren Marque Séparation

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&
../funktionsreferenzen/XProfan/end/'>end

Gruß Detlef Tussing
Windows XP, XProfan 10

15.06.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Uwe
Skärke

... j'ai den Voir le texte source de David la fois ausprobiert, habe cela gleiche Problem comment chez meinem eignen Programme, im Intgerpretermodus fonctionne alles bestens, (veux avec qui carte meinen Atennenrotor steuern), mais si je ne EXE draus fais, allez garnichts, bzw. venez comme Portadresse -2 (minus deux) ?????

Uwe

TOSHIBA TECRA S1 / PROFAN 7.0

24.11.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

◄