Dilaold | 16 Nisan 2010 12:31 | Digital Saat Yapımı Delphi programlama dili ile yapılan Digital Saat programını görelim. Programda amaç, Timer, Datetimepicker, Popup Menu bileşenlerini kullanabilmeyi öğrenmektir.. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] PHP- Kodu: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls, Menus; type TForm1 = class(TForm) DateTimePicker1: TDateTimePicker; Timer1: TTimer; Label2: TLabel; PopupMenu1: TPopupMenu; effaflk1: TMenuItem; N1: TMenuItem; Kapat1: TMenuItem; EnDk1: TMenuItem; Dk1: TMenuItem; Orta1: TMenuItem; Yksek1: TMenuItem; procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); procedure EnDk1Click(Sender: TObject); procedure Dk1Click(Sender: TObject); procedure Orta1Click(Sender: TObject); procedure Yksek1Click(Sender: TObject); procedure Kapat1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject);
//Timer kullanım amacı saniyede bir bu eşitlemeler yapılarak Digital Saatimizden görüntü alabiliyoruz.
begin DateTimePicker1.Time:=Time;//DateTimePicker bileşeni sistem saatine eşitleniyor.
DateTimePicker1.Date:=Date;//DateTimePicker bileşeni sistem tarihine eşitleniyor.
label2.Caption:=datetostr(DateTimePicker1.date)+#13+? ?+timetostr(DateTimePicker1.time);
//Üst satırda ise label bileşenine tarih ile saat yazdırılıyor.
end;
procedure TForm1.FormCreate(Sender: TObject);
//İlk görünümde Digital Saatimize sistem saat ve tarihi gösteriliyor.
begin
DateTimePicker1.Time:=Time;
DateTimePicker1.Date:=Date;
label2.Caption:=datetostr(DateTimePicker1.date)+#13+? ?+timetostr(DateTimePicker1.time);
end;
procedure TForm1.EnDk1Click(Sender: TObject);
begin
AlphaBlend:=false;//Şeffaflık faaliyeti.
Dk1.Checked:=FALSE;
Orta1.Checked:=FALSE;
Yksek1.Checked:=FALSE;
EnDk1.Checked:=TRUE;
end;
procedure TForm1.Dk1Click(Sender: TObject);
begin
AlphaBlend:=TRUE;//Şeffaflık faaliyeti.
AlphaBlendValue:=200;//Şeffaflık seviyesi.
Dk1.Checked:=TRUE;
Orta1.Checked:=FALSE;
Yksek1.Checked:=FALSE;
EnDk1.Checked:=FALSE;
end;
procedure TForm1.Orta1Click(Sender: TObject);
begin
AlphaBlend:=TRUE;
AlphaBlendValue:=100;
Dk1.Checked:=FALSE;
Orta1.Checked:=TRUE;
Yksek1.Checked:=FALSE;
EnDk1.Checked:=FALSE;
end;
procedure TForm1.Yksek1Click(Sender: TObject);
begin
AlphaBlend:=TRUE;
AlphaBlendValue:=50;
Dk1.Checked:=FALSE;
Orta1.Checked:=FALSE;
Yksek1.Checked:=TRUE;
EnDk1.Checked:=FALSE;
end;
procedure TForm1.Kapat1Click(Sender: TObject);
begin
Close;//Programı kapat.
end;
end.
|