Schaltungen,
Bilder, Pläne,
Technik, Basteln
und vieles mehr
Home
Vorwort
Vorverstärker
Transistorverstärker
IC Verstärker
Audio Schaltungen
Class-A Schaltungen
Empfänger/Sender
Röhrenschaltungen
Hiend Projekt
PC LPT Port und uP
Interessante Infos
Diverse Schaltungen
Projekte
Offene Geräte
Zerlegtes
Datenblätter
Programme
Suchen

KontaktImpressumwww.maanders.de
CMS Engine v1.0 (C) by M. Anders

LED LPT - Pascal Quelltext:


{================================================================================}     
{                                                                                }
{ PROGRAM : Einfaches Testprogramm für den Printerport des Rechners              }
{                                                                                }
{ AUTHOR  : M. Anders, 12.2006                                                   }
{                                                                                }
{================================================================================}

program DigiPoti;

uses Crt;

const
  LPT1= 1;
  LPT2= 2;
  LPT3= 3;

var
  LPT_Addr : Word;
  Count : Byte;

procedure LPTOpenPort(lptnr:Byte);
begin
  LPT_Addr := MemW[$40 : 6 + lptnr * 2];
end;

procedure LPTSendData(P:Byte);
begin
  Port[LPT_Addr] := P;
{  Write('  C:',P);}
end;

begin
  ClrScr;
  WriteLn('LPTTEST.PAS - LPT Test Programm ');
  WriteLn;
  LPTOpenPort(LPT1);
  Count := 0;

  repeat

    LPTSendData(Count);
    Inc(Count);

    Delay(100);

  until KeyPressed;

  WriteLn('EXIT');
end.









Nach oben



elo.maanders.de - Copyright (C) by M. Anders, 08.2011, 21709 Himmelpforten