home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 12 / tricks / led.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-09-12  |  1.3 KB  |  53 lines
  1. (* ------------------------------------------------------ *)
  2. (*                       LED.PAS                          *)
  3. (*      Unit zur Einbindung von Blinkeffekten mit den     *)
  4. (*                LED-Anzeigen der Tastatur.              *)
  5. (*    (c) 1990 Ulrich Schmitz, Gerald Arend & TOOLBOX     *)
  6. (* ------------------------------------------------------ *)
  7. UNIT LED;
  8.  
  9. INTERFACE
  10.  
  11. USES Crt;
  12.  
  13. CONST
  14.   ZeitAn  : WORD = 100;   { Verzögerungen in Millisekunden }
  15.   ZeitAus : WORD = 100;
  16.  
  17. VAR
  18.   Muster : BYTE;        { Bitmuster für Übergabe an SetLED }
  19.  
  20.  
  21.   PROCEDURE Blink(Caps, Num, Scroll: BOOLEAN; Count : BYTE);
  22.  
  23. IMPLEMENTATION
  24.  
  25. {$F+}
  26. {$L SHOW_LED.OBJ}
  27.  
  28.   PROCEDURE _show_led(Muster: WORD); EXTERNAL;
  29.  
  30. {$F-}
  31.  
  32.   PROCEDURE Blink(Caps, Num, Scroll: BOOLEAN; Count : BYTE);
  33.              { Die LEDs werden gesetzt und wieder gelöscht }
  34.   VAR
  35.     n : BYTE;
  36.   BEGIN
  37.     Muster := 0;
  38.     IF Caps   THEN Muster := Muster OR 4;
  39.     IF Num    THEN Muster := Muster OR 2;
  40.     IF Scroll THEN Muster := Muster OR 1;
  41.     FOR n := 1 TO Count DO BEGIN
  42.       _show_led(Muster);
  43.       Delay(ZeitAn);
  44.       _show_led(0);
  45.       Delay(ZeitAus);
  46.     END;
  47.   END;
  48.  
  49. END.
  50. (* ------------------------------------------------------ *)
  51. (*                  Ende von LED.PAS                      *)
  52.  
  53.