K8055

Übersicht

BlitzBasic

DLLs und Userlibs

	Commander-Tobi Betreff: K8055	Fr, Aug 26, 2005 14:31 Antworten mit Zitat
Hallo zusammen, hab mal versucht eine Userlib zu schreiben für das K8055 USB Interface. Die läuft aber nicht so ganz korrekt. Wollte mal just for fun die Eisenbahn meines bruders mit ansteuern. BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] ;K8055D USB Interface .lib \"K8055D.dll\" ;allgemein OpenInterface%(CardAdresse):\"OpenDevice\" CloseInterface():\"CloseDevice\" ;analog in digital konvertieren ReadAChannel%(Channelno):\"ReadAnalogChannel\" ReadAAnalog%(Data1,Data2):\"ReadAllAnalog\" ;;DAS TUTS NICHT ;digital in analog konvertieren OutputAChannel%(Channel,Data):\"OutputAnalogChannel\" OutputAanalg%(Data1,Data2):\"OutputAllAnalog\" ClearAChannel%(Channel):\"ClearAnalogChannel\" ClearAAnalog%():\"ClearAllAnalog\" SetAChannel%(Channel):\"SetAnalogChannel\" SetAAnalog%():\"SetAllAnalog\" ;Digitaler Ausgang WriteADigital%(Data):\"WriteAllDigital\" ClearDChannel%(Channel):\"ClearDigitalChannel\" ClearADigital%():\"ClearAllDigital\" SetDChannel%(Channel):\"SetDigitalChannel\" SetADigital%():\"SetAllDigital\" ;DigitalerEingang ReadDChannel%(Channel):\"ReadDigitalChannel\" ReadADigital%(Buffer):\"ReadAllDigital\" ;Zählerfunktionen ResetCounter%(CounterNr):\"ResetCounter\" ReadCounter%(CounterNr):\"ReadCounter\" SetCounterTime%(CounterNr,DebounceTime):\"SetCounterDebounceTime\" in der DLL beschriebung steht folgendes Zitat: Syntax ReadAllAnalog(var Data1,Data2:Longint); Parameter data1,Data2: 'Pointers' auf die 'integers' wo die Daten gelesen werden. Beschreibeung Der Status von den beiden 'Analog to Digital Converters' wird in einem Datenfeld von 'long integers' gelesen. Beispiel procedure TForm1.ButtonClick(Sender: TObject); var Data1,Data2:Longint; begin ReadAllAnalog(Data1,Data2); Label1.caption:=inttostr(Data1); Label2.caption:=inttostr(Data2); end; Wie lese ich da die Werte aus und speicher sie in einer Variabele ab? Bzw. wie sieht das Beispiel in Blitz aus?
AMD Athlon XP 2400+ ; 1,25 GB-RAM ; G-Force 6600 256MB; 400 GB HD User posted image

Commander-Tobi

Betreff: K8055

Fr, Aug 26, 2005 14:31
Antworten mit Zitat

Hallo zusammen,

hab mal versucht eine Userlib zu schreiben für das K8055 USB Interface.
Die läuft aber nicht so ganz korrekt. Wollte mal just for fun die Eisenbahn meines bruders mit ansteuern.

BlitzBasic: [AUSKLAPPEN]


;K8055D USB Interface 

.lib \"K8055D.dll\"

;allgemein
OpenInterface%(CardAdresse):\"OpenDevice\"
CloseInterface():\"CloseDevice\"
;analog in digital konvertieren
ReadAChannel%(Channelno):\"ReadAnalogChannel\"
ReadAAnalog%(Data1,Data2):\"ReadAllAnalog\" ;;DAS TUTS NICHT
;digital in analog konvertieren
OutputAChannel%(Channel,Data):\"OutputAnalogChannel\"
OutputAanalg%(Data1,Data2):\"OutputAllAnalog\"
ClearAChannel%(Channel):\"ClearAnalogChannel\"
ClearAAnalog%():\"ClearAllAnalog\"
SetAChannel%(Channel):\"SetAnalogChannel\"
SetAAnalog%():\"SetAllAnalog\"
;Digitaler Ausgang
WriteADigital%(Data):\"WriteAllDigital\"
ClearDChannel%(Channel):\"ClearDigitalChannel\"
ClearADigital%():\"ClearAllDigital\"
SetDChannel%(Channel):\"SetDigitalChannel\"
SetADigital%():\"SetAllDigital\"
;DigitalerEingang
ReadDChannel%(Channel):\"ReadDigitalChannel\"
ReadADigital%(Buffer):\"ReadAllDigital\"
;Zählerfunktionen
ResetCounter%(CounterNr):\"ResetCounter\"
ReadCounter%(CounterNr):\"ReadCounter\"
SetCounterTime%(CounterNr,DebounceTime):\"SetCounterDebounceTime\"

in der DLL beschriebung steht folgendes

Zitat:

Syntax
ReadAllAnalog(var Data1,Data2:Longint);

Parameter
data1,Data2: 'Pointers' auf die 'integers' wo die Daten gelesen werden.

Beschreibeung
Der Status von den beiden 'Analog to Digital Converters' wird in einem Datenfeld von 'long integers' gelesen.

Beispiel
procedure TForm1.ButtonClick(Sender: TObject);
var Data1,Data2:Longint;
begin
ReadAllAnalog(Data1,Data2);
Label1.caption:=inttostr(Data1);
Label2.caption:=inttostr(Data2);
end;

Wie lese ich da die Werte aus und speicher sie in einer Variabele ab?
Bzw. wie sieht das Beispiel in Blitz aus?

AMD Athlon XP 2400+ ; 1,25 GB-RAM ;
G-Force 6600 256MB; 400 GB HD

User posted image

	BlitzChecker	Do, Sep 29, 2005 14:55 Antworten mit Zitat
Wenn ich die DLL hätte, könnte ich vielleicht auch eine Lösung finden . Hab aber keine Ahnung, wo ich die her kriegen sollte. ~edit~ Ich habe bei Conrad das komplette Set mit dem USB-Interfaceboard entdeckt (und der DLL). Ich mein da ist auch Beispielsoftware bei. (leider hatte ich kein Geld um mir das Teil zu kaufen. Habs nur im Katalog gesehen. Deshalb bräuchte ich immer noch die DLL. )
www.xairro.com

BlitzChecker

Do, Sep 29, 2005 14:55
Antworten mit Zitat

Wenn ich die DLL hätte, könnte ich vielleicht auch eine Lösung finden Twisted Evil

. Hab aber keine Ahnung, wo ich die her kriegen sollte.

~edit~

Ich habe bei Conrad das komplette Set mit dem USB-Interfaceboard entdeckt (und der DLL). Ich mein da ist auch Beispielsoftware bei.
(leider hatte ich kein Geld um mir das Teil zu kaufen. Habs nur im Katalog gesehen. Deshalb bräuchte ich immer noch die DLL. Embarassed

)

www.xairro.com