XProfan

- Seite 2 -

Detlef
Tussing

readdigi(1) heist ich lese über USB einen digitalen Eingang einer Karte ein
Da gibt es noch setdigi, readanalog, setanalog, cleardigi,opendevice ect.
alles Befehle die ich über eine DLL an die Hardware schicke bzw, zurückbekomme

Gruß Detlef Tussing
Windows XP, XProfan 10

Kompilieren Markieren Separieren

Detlef
Tussing

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

so besser

Gruß Detlef Tussing
Windows XP, XProfan 10

Rolf
Koch

Hey Detlef, das meine ich nicht.
Nicht readdigi(1) ich meine readdigit1& welches (siehe mein Beispiel) alleine in einer Zeile steht unter PROC READ.
Es ist halt die Variable, welche da einfach ohne irgendetwas im Raum steht.
Verstehen würde ich ja so Sachen wie:
readdigit1&=1 oder so aber readdigit1& ohne irgendwas kapiere ich halt nicht.

Detlef
Tussing

schuldigung das war nur so da hingekritzelt icht wäre es so
Kompilieren Markieren Separieren

Proc Einganglesen1

    readdigi1&=readdigi(n&)
    Notruf&=readanalog(1)
    Quittung&=readanalog(2)

endproc

IF siehste hab dazugelernt, für wie lange weis ich noch nicht.

Gruß Detlef Tussing
Windows XP, XProfan 10

Detlef Tussing, Beitrag=54689, Zeitpunkt=30.10.2009

E.T.

Noch ne Frage

ich weis ich werde lästig

ich muss einen Nadeldrucker dazu bringen pro Ereigniss eine Zeile zu drucken
also eine Liste, und nicht pro Ereigniss eine Seite auswerfen.

Ich hab mich noch nie mit X-Profan und Drucken beschäftigt

auch noch nicht danach gesucht.
...

Da ein Nudeldrucker

aller Warscheinlichkeit am parallelen Anschluß hängt, würde ich die zu druckende Zeile + Wagenrücklauf-Zeichen (siehe Drucker-Handbuch) einfach in eine .txt schreiben, die per Windows-eigenem "copy" zu LPTx schicken und wieder löschen.

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

31.10.2009 ▲

Ich glaub er kann auch "prn" mit Assign öffnen, andernfalls hat auch ein Nadeldrucker einen Treiber.

31.10.2009 ▲

Detlef
Tussing

Laut EPSON ist dies nicht möglich

Ich wünsche mir wieder DOS und Rechner mit 8 MHz

XT oder AT Rechner

Gruß Detlef Tussing
Windows XP, XProfan 10

13.04.2010 ▲

Was passiert denn genau, wenn Du solch einen Drucker z.B. an LPT1 angeschlossenen hast und bei command.com/ cmd copy meinetextdatei.txt lpt1 oder nach prn absendest?

13.04.2010 ▲

Thomas
Freier

Ich wünsche mir wieder DOS

Und wo ist das Problem: FREEDOS, DOSBox Portable, usw.
Mit DOSPRN hab ich auch schon weil, es nicht anders ging, zufriedenstellend gearbeitet (Shareware).

Gruß Thomas
Windows XP SP2, XProfan X2

14.04.2010 ▲

Detlef
Tussing

es geschieht immer ein Seitenvorschub nach Ausdruck einer Zeile
und das kann ich nicht gebrauchen

eine 2. anfrage bei EPSON ob es neuere Nadeldrucker gibt die das können
wurde ebenfalls verneint

Gruß Detlef Tussing
Windows XP, XProfan 10

14.04.2010 ▲

E.T.

Also mit meinem alten Epson-Nudel-Drücker

funktioniert das.
Wenn ich nur eine Zeile + Wagenrücklauf hinsende, dann druckt er auch nur eine Zeile und macht dann einen Zeilenvorschub und wartet wieder.

Ich such nachher mal mein Epson-Büchlein, da stehen die ganzen Drucker-Codes drinn. Kann aber bis mittag dauern...

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

15.04.2010 ▲

Ja, so dachte ich auch, denn ich steuere Bon-Drucker aus Windows heraus so an.

15.04.2010 ▲