12-04-2011, 01:31 AM
Delphi'de 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.
Ekran çıktısı:
![[Image: untitled_1_1.jpg]](http://resim.sanalkurs.net/uploads/untitled_1_1.jpg)
Delphi programlama dili ile yapılan Digital Saat programını görelim. Programda amaç, Timer, Datetimepicker, Popup Menu bileşenlerini kullanabilmeyi öğrenmektir.
Ekran çıktısı:
Code:
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.![[Image: vmpt.gif]](http://c1112.hizliresim.com/s/2/vmpt.gif)
·٠•●♥ Ƹ̵̡Ӝ̵̨̄Ʒ ♥●•٠·˙˜”*°•. || Türk Team - SaNcArHaN71 || .•°*”˜˙·٠•●♥ Ƹ̵̡Ӝ̵̨̄Ʒ ♥●•٠·˙
