home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 26
/
CD_ASCQ_26_1295.iso
/
vrac
/
leds.zip
/
MAIN.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-10-13
|
3KB
|
134 lines
unit Main;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Menus, Leds, Cards, Dice;
type
TMainForm = class(TForm)
Button1: TButton;
Timer1: TTimer;
Panel1: TPanel;
Button3: TButton;
Button4: TButton;
Button2: TButton;
LED1: TLEDDigit;
LED2: TLEDDigit;
LED3: TLEDDigit;
LED4: TLEDDigit;
LED5: TLEDDigit;
LED6: TLEDDigit;
LED7: TLEDDigit;
Colon1: TLEDDigit;
Colon2: TLEDDigit;
Stop1: TLEDDigit;
Label1: TLabel;
procedure Timer1Timer(Sender: TObject);
procedure LED1RollForward(Sender: TObject);
procedure LED2RollForward(Sender: TObject);
procedure LED3RollForward(Sender: TObject);
procedure LED4RollForward(Sender: TObject);
procedure LED5RollForward(Sender: TObject);
procedure LED7RollForward(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
end;
var
MainForm: TMainForm;
implementation
{$R *.DFM}
procedure TMainForm.Timer1Timer(Sender: TObject);
begin
LED7.Increment
end;
procedure TMainForm.LED1RollForward(Sender: TObject);
begin
Led2.Increment;
end;
procedure TMainForm.LED2RollForward(Sender: TObject);
begin
Led3.Increment;
end;
procedure TMainForm.LED3RollForward(Sender: TObject);
begin
Led4.Increment;
end;
procedure TMainForm.LED4RollForward(Sender: TObject);
begin
Led5.Increment;
end;
procedure TMainForm.LED5RollForward(Sender: TObject);
begin
Led6.Increment;
end;
procedure TMainForm.LED7RollForward(Sender: TObject);
begin
Led1.Increment;
end;
procedure TMainForm.Button1Click(Sender: TObject);
begin
Timer1.Enabled := true;
Led1.SegmentColor := clYellow;
Led2.SegmentColor := clYellow;
Led3.SegmentColor := clYellow;
Led4.SegmentColor := clYellow;
Led5.SegmentColor := clYellow;
Led6.SegmentColor := clYellow;
Led7.SegmentColor := clYellow;
Colon1.SegmentColor := clYellow;
Colon2.SegmentColor := clYellow;
Stop1.SegmentColor := clYellow;
Button1.Enabled := False;
Button3.Enabled := True;
end;
procedure TMainForm.Button3Click(Sender: TObject);
begin
Timer1.Enabled := False;
Led1.SegmentColor := clRed;
Led2.SegmentColor := clRed;
Led3.SegmentColor := clRed;
Led4.SegmentColor := clRed;
Led5.SegmentColor := clRed;
Led6.SegmentColor := clRed;
Led7.SegmentColor := clRed;
Colon1.SegmentColor := clRed;
Colon2.SegmentColor := clRed;
Stop1.SegmentColor := clRed;
Button1.Enabled := True;
Button3.Enabled := False;
end;
procedure TMainForm.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TMainForm.Button4Click(Sender: TObject);
begin
Led1.Value := 0;
Led2.Value := 0;
Led3.Value := 0;
Led4.Value := 0;
Led5.Value := 0;
Led6.Value := 0;
Led7.Value := 0;
end;
end.