XProfan

Italia

Detlef
Tussing

Habe die Karte soeben erhalten, und bin schon am probieren.
Doch so ungeduldig wie ich bin komme ich mit der XProfan Aiuto nicht richtig weiter.
Habe folgendes probiert
Kompilieren Markieren Separieren

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

aber es passiert nichts.
Der Fehler liegt bei mir. Ist denn DEF übehaupt der richtige Befehl um die Karte anzusprechen ????

Die Karte ist in Ordnung, da ein Testprogramm dabei ist, und ich alle Funktionen damit testen konnte.

Gruß Detlef Tussing
Windows XP, XProfan 10

14.06.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

- Page 1 -

Ja aber auch falsch - Dein DEF hat zu viele Parameter.

14.06.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Detlef
Tussing

Hallo IF, habe probiert
Kompilieren Markieren Separieren

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 die Fehlermeldung VAR unbekannt

Gruß Detlef Tussing
Windows XP, XProfan 10

14.06.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Detlef
Tussing

Dank an deine Geduld mit mir, aber es geht nicht

wie war das noch mit dem [Code] ?
Kompilieren Markieren Separieren

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 Zitat

Absatzweise Citazione Zeilenweise Citazione

Detlef Tussing

Dank an deine Geduld mit mir, aber es geht nicht

Das ist zu wenig an Informationen um Dir helfen zu können.

14.06.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Detlef
Tussing

Danke, aber in meinem Alter vergisst mann so manches,

Hier die Beschreibung der DLL mit Code in Visual Basic der vom Hersteller dabei war. Vieleicht hilft das, und ich hoffe das das nicht 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 Zitat

Absatzweise Citazione Zeilenweise Citazione

Scheint doch ganz einfach mit der DLL - obwohl ichs ziemlich affig finde das der Hersteller das Kopieren von Text aus der PDF untersagt. Ich hab also ein Bild angehangen - an diesem kleinen Beispiel zeig ich mal auf wie Du es übersetzen kannst.

Kompilieren Markieren Separieren

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 Zitat

Absatzweise Citazione Zeilenweise Citazione

Detlef
Tussing

High erster Erfolg
die Kartenadresse wird erkannt, auch nach ändern der selben.
Haste gut gemacht, alle achtung ohne Karte.
Probier jetzt mal ein bischen, komme aber bestimmt auf dich zurück.

Das mit dem Bild hab ich nicht ganz verstanden, oder falsch gelesen`??

Gruß Detlef Tussing
Windows XP, XProfan 10

14.06.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

- Page 2 -

juut

14.06.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Detlef
Tussing

Es funktioniert, dank IF
Hier die Testversion, die vieleicht per GDL interessant ist.
Wer mehr wissen möchte kann mich gerne ansprechen
Kompilieren Markieren Separieren

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 Zitat

Absatzweise Citazione Zeilenweise Citazione

Uwe
Skärke

... ich habe den Quelltext von David mal ausprobiert, habe das gleiche Problem wie bei meinem eignen Programm, im Intgerpretermodus corre alles bestens, (will mit der Karte meinen Atennenrotor steuern), aber wenn ich ne EXE draus mache, geht garnichts, bzw. kommt als Portadresse -2 (minus zwei) ?????

Uwe

TOSHIBA TECRA S1 / PROFAN 7.0

24.11.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

◄