home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 26 / CD_ASCQ_26_1295.iso / vrac / leds.zip / MAIN.PAS < prev    next >
Pascal/Delphi Source File  |  1995-10-13  |  3KB  |  134 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Menus, Leds, Cards, Dice;
  8.  
  9. type
  10.   TMainForm = class(TForm)
  11.     Button1: TButton;
  12.     Timer1: TTimer;
  13.     Panel1: TPanel;
  14.     Button3: TButton;
  15.     Button4: TButton;
  16.     Button2: TButton;
  17.     LED1: TLEDDigit;
  18.     LED2: TLEDDigit;
  19.     LED3: TLEDDigit;
  20.     LED4: TLEDDigit;
  21.     LED5: TLEDDigit;
  22.     LED6: TLEDDigit;
  23.     LED7: TLEDDigit;
  24.     Colon1: TLEDDigit;
  25.     Colon2: TLEDDigit;
  26.     Stop1: TLEDDigit;
  27.     Label1: TLabel;
  28.     procedure Timer1Timer(Sender: TObject);
  29.     procedure LED1RollForward(Sender: TObject);
  30.     procedure LED2RollForward(Sender: TObject);
  31.     procedure LED3RollForward(Sender: TObject);
  32.     procedure LED4RollForward(Sender: TObject);
  33.     procedure LED5RollForward(Sender: TObject);
  34.     procedure LED7RollForward(Sender: TObject);
  35.     procedure Button1Click(Sender: TObject);
  36.     procedure Button3Click(Sender: TObject);
  37.     procedure Button2Click(Sender: TObject);
  38.     procedure Button4Click(Sender: TObject);
  39.   end;
  40.  
  41. var
  42.   MainForm: TMainForm;
  43.  
  44. implementation
  45.  
  46. {$R *.DFM}
  47.  
  48. procedure TMainForm.Timer1Timer(Sender: TObject);
  49. begin
  50.     LED7.Increment
  51. end;
  52.  
  53. procedure TMainForm.LED1RollForward(Sender: TObject);
  54. begin
  55.     Led2.Increment;
  56. end;
  57.  
  58. procedure TMainForm.LED2RollForward(Sender: TObject);
  59. begin
  60.     Led3.Increment;
  61. end;
  62.  
  63. procedure TMainForm.LED3RollForward(Sender: TObject);
  64. begin
  65.     Led4.Increment;
  66. end;
  67.  
  68. procedure TMainForm.LED4RollForward(Sender: TObject);
  69. begin
  70.     Led5.Increment;
  71. end;
  72.  
  73. procedure TMainForm.LED5RollForward(Sender: TObject);
  74. begin
  75.     Led6.Increment;
  76. end;
  77.  
  78. procedure TMainForm.LED7RollForward(Sender: TObject);
  79. begin
  80.     Led1.Increment;
  81. end;
  82.  
  83. procedure TMainForm.Button1Click(Sender: TObject);
  84. begin
  85.     Timer1.Enabled := true;
  86.     Led1.SegmentColor := clYellow;
  87.     Led2.SegmentColor := clYellow;
  88.     Led3.SegmentColor := clYellow;
  89.     Led4.SegmentColor := clYellow;
  90.     Led5.SegmentColor := clYellow;
  91.     Led6.SegmentColor := clYellow;
  92.     Led7.SegmentColor := clYellow;
  93.     Colon1.SegmentColor := clYellow;
  94.     Colon2.SegmentColor := clYellow;
  95.     Stop1.SegmentColor := clYellow;
  96.     Button1.Enabled := False;
  97.     Button3.Enabled := True;
  98. end;
  99.  
  100. procedure TMainForm.Button3Click(Sender: TObject);
  101. begin
  102.     Timer1.Enabled := False;
  103.     Led1.SegmentColor := clRed;
  104.     Led2.SegmentColor := clRed;
  105.     Led3.SegmentColor := clRed;
  106.     Led4.SegmentColor := clRed;
  107.     Led5.SegmentColor := clRed;
  108.     Led6.SegmentColor := clRed;
  109.     Led7.SegmentColor := clRed;
  110.     Colon1.SegmentColor := clRed;
  111.     Colon2.SegmentColor := clRed;
  112.     Stop1.SegmentColor := clRed;
  113.     Button1.Enabled := True;
  114.     Button3.Enabled := False;
  115. end;
  116.  
  117. procedure TMainForm.Button2Click(Sender: TObject);
  118. begin
  119.     Close;
  120. end;
  121.  
  122. procedure TMainForm.Button4Click(Sender: TObject);
  123. begin
  124.     Led1.Value := 0;
  125.     Led2.Value := 0;
  126.     Led3.Value := 0;
  127.     Led4.Value := 0;
  128.     Led5.Value := 0;
  129.     Led6.Value := 0;
  130.     Led7.Value := 0;
  131. end;
  132.  
  133. end.
  134.