Delphi'de Digital Saat Yapımı

[SaNcArHaN71]

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ı:

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.

[Gordiermem]

Услуги экскаватоа-погрузчика.
1250р машино-час
смена 7+1 работаем в выходные и в ночь.
Санкт-Петербург и ближайший пригород Всеволожск, Парголово,
Юкки, Бугры, Морозовка, Мурино.
Нал, безнал.

Контактный телефон +7 911 9241277 Станислав
или на почту gordeev-stas@list.

Пул для майнинга криптовалют на компьютере