printerpoort aansturen

• 

  danny van kan

  07-04-2001 20:15

  Ik wil een systeempje maken mbv delphi op de pc waarmee ik een lampje kan aansturen

  Nu heb ik een kastje dat ik aan kan sluiten op de printerpoort van de pc.

  Op dat kastje zitten 8 latjes (9 volt) en dus ook 8 uitgangen die ik kan aansturen via de printerpoort.

  Ik heb alleen nog geen software, die moet ik dus nog maken

  Heeft iemand misschien een idee hoe ik deze latjes (lampjes) via deze printerpoort kan aansturen, oftewel hoe kan ik in delphi een printerpoort aansturen.

  Kan dit eigenlijk wel.

  Zelf dacht ik aan iets van

  0 = lamp is uit

  1= lamp is aan

  dus input is “01001000” beteken lamp 2 en 5 zijn aan en de rest is uit.

  Maar de vraag is hoe doe ik dit
• 

  (web)master

  09-04-2001 17:52

  Het zijn ledjes hoor, maar ik denk dat je deze vraag beter ergens anders kan stellen. Op dit forum komt echt geen hond die deze vraag kan antwoorden, ook geen mens
• 

  gijs

  08-05-2001 15:03

  Waar kan ik de vraag dan wel stellen???
• 

  Marcel

  17-05-2001 14:19

  How to read a byte from the parallel port

  Use the Turbo Pascal command …

  value:=port; { read from port }

  and

  port:=value; { write to port }

  Var

  BytesRead : BYTE;

  begin

  asm { Read port (LPT1) via Inline asm }

  MOV dx,$379;

  IN al,dx;

  MOV BytesRead,al;

  end;

  BytesRead:=(BytesRead OR $07); { OR and then XOR the data }

  BytesRead:=(BytesRead XOR $80); { to mask the unused bits }
• 

  Zanthrax

  26-07-2001 15:26

  Eigenlijk is Delphi hiervoor niet bedoeld maarja…

  ik weet niet of het via de LPT kan.

  maar via de com-port (serieel) lijkt het me een stuk makkelijker

  moet je wel FF zoeken naar een kant en klaar com-port component van Delphi

  (probeer aan het Asynch Pro pakket te komen, daar zit een aardig eenvoudig in)