XProfan

Deutsch

Detlef
Tussing

Habe die Karte soeben erhalten, und bin schon am probieren.
Doch so ungeduldig wie ich bin komme ich mit der XProfan Hilfe 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 zitieren Zeilenweise zitieren

GDL

Also bei DLLS kann ich dir auch nicht helfen. Bekam bei mir die port. dll auch nicht zum Laufen. Eine DLL ohne Profanbeispiel ist für mich auch ein Buch mit 7 Siegeln.

Servus
Georg

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

[...]

14.06.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Def

ist dafür genau richtig - nur Deine Syntax ist falsch.
Kompilieren Markieren Separieren

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

namederfunktion muss exakt geschrieben werden - Groß und Kleinschreibung ist unbedingt zu beachten.

14.06.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Detlef
Tussing

Hallo Georg

Danke für den Versuch.

Wenn ich es am laufen habe, werde ich dir berichten, den diese Karte ist besimmt auch interessant für dich.
Sie hat 8 digitale Ausgänge, 5 digitale Eingänge und je 2 analoge Aus-und Eingänge

Gruß Detlef Tussing
Windows XP, XProfan 10

14.06.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Hallo Detlef,
Du müßtest die Funktionen aus der Dll etwa so deklarieren:
Kompilieren Markieren Separieren

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)

Ist jetzt natürlich nur grob geraten, da ich die Funktionsnamen der Dll und die Aufrufparameter nicht kenne.
Sieh auf jeden Fall in der Hilfe nochmal unter externe Funktionen deklarieren nach.
Auch hier im Forum findest Du zu dem Thema mit Sicherheit Einiges.
Gruß
Jörg

[offtopic]iF war mal wieder schneller - dafür ist meins ausführlicher[/offtopic]

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

14.06.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

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

14.06.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

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&
waitinput

bekomme die Fehlermeldung VAR unbekannt

Gruß Detlef Tussing
Windows XP, XProfan 10

14.06.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

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%
waitinput

Gruß Detlef Tussing
Windows XP, XProfan 10

14.06.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

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 zitieren Zeilenweise zitieren

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

Ladeanzahl:
		Herunterladen

Gruß Detlef Tussing
Windows XP, XProfan 10

14.06.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

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

Ladeanzahl:
		Herunterladen

14.06.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

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