Thema: Delphi lcd display ansteuern

Einzelnen Beitrag anzeigen

Benutzerbild von mika
mika

Registriert seit: 25. Okt 2002
176 Beiträge
 
Delphi 6 Professional
 
#6

Lpt Port

  Alt 29. Apr 2003, 10:03
Die restlichen Leitungen kannst du ansprechen wenn du die Basisadresse
des Comports um eins erhöhst (ausgegangen von der Basisadresse $378)

DataRegister, 0, Out printerdata
StatusRegister, 1, IN printerstatus
ControlRegister, 2, Control printerfunctions.



(Dataregister (offset = 0)) $378
----------------------------------
| 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
----------------------------------
..|...|...|...|...|...|...|...|_____ D0 Out.
..|...|...|...|...|...|...|________D1 Out.
..|...|...|...|...|...|__________ D2 Out.
..|...|...|...|...|____________ D3 Out.
..|...|...|...|_______________ D4 Out.
..|...|...|__________________D5 Out.
..|...|____________________ D6 Out.
..|_______________________D7 Out.



(Statusregister (offset = 1)) $379
----------------------------------
| 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 | (all read)
----------------------------------
..|...|...|...|...|____________ Error.
..|...|...|...|_______________ Select.
..|...|...|__________________PE.
..|...|____________________ ACK.
..|_______________________Busy (inverted)



(Controlregister (offset = 2)) $ 380
----------------------------------
| 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 | (OUT AND IN.)
----------------------------------
..........|...|...|...|...|...|
..........|...|...|...|...|...|
..........|...|...|...|...|...|____ Strobe (inverted.)
..........|...|...|...|...|_______ Auto Feed.
..........|...|...|...|_________ Init (inverted.)
..........|...|...|____________ SLCT IN (inverted.)
tech60....|...|_______________ IRQ Enable
tech60....|__________________ Direction, PS2 or later AT Devices, 0 = write, 1 = read
*)

ich hoffe das hilft dir weiter, ansonsten einfach noch einmal fragen
:: don't Panic ::
  Mit Zitat antworten Zitat