IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 16 Nisan 2010, 12:31   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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..


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
unit Unit1;
interface
uses
Windows
MessagesSysUtilsVariantsClassesGraphicsControlsForms,
DialogsStdCtrlsComCtrlsExtCtrlsMenus;
type
TForm1 
= class(TForm)
DateTimePicker1TDateTimePicker;
Timer1TTimer;
Label2TLabel;
PopupMenu1TPopupMenu;
effaflk1TMenuItem;
N1TMenuItem;
Kapat1TMenuItem;
EnDk1TMenuItem;
Dk1TMenuItem;
Orta1TMenuItem;
Yksek1TMenuItem;
procedure Timer1Timer(SenderTObject);
procedure FormCreate(SenderTObject);
procedure EnDk1Click(SenderTObject);
procedure Dk1Click(SenderTObject);
procedure Orta1Click(SenderTObject);
procedure Yksek1Click(SenderTObject);
procedure Kapat1Click(SenderTObject);
private
{ Private 
declarations }
public
{ Public 
declarations }
end;
var
Form1TForm1;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(SenderTObject);

//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(SenderTObject);

//İ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(SenderTObject);

begin

AlphaBlend
:=false;//Şeffaflık faaliyeti.

Dk1.Checked:=FALSE;

Orta1.Checked:=FALSE;

Yksek1.Checked:=FALSE;

EnDk1.Checked:=TRUE;

end;

procedure TForm1.Dk1Click(SenderTObject);

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(SenderTObject);

begin

AlphaBlend
:=TRUE;

AlphaBlendValue:=100;

Dk1.Checked:=FALSE;

Orta1.Checked:=TRUE;

Yksek1.Checked:=FALSE;

EnDk1.Checked:=FALSE;

end;

procedure TForm1.Yksek1Click(SenderTObject);

begin

AlphaBlend
:=TRUE;

AlphaBlendValue:=50;

Dk1.Checked:=FALSE;

Orta1.Checked:=FALSE;

Yksek1.Checked:=TRUE;

EnDk1.Checked:=FALSE;

end;

procedure TForm1.Kapat1Click(SenderTObject);

begin

Close
;//Programı kapat.

end;

end


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Cevapla

Etiketler
digital, saat, yapımı


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Evde Puf Nasıl Yapılır?, Resimli Puf Yapımı Anlatımı, Renkli Puf Yapımı Violent El Sanatları 0 25 Eylül 2014 20:07
Yerel Saat Nedir?, Ortak (Ulusal Saat) ,Saat Dilimleri,Uluslararası Saat Özellikleri? Violent Genel Coğrafya 0 16 Aralık 2013 22:26
Delphi'de Digital Saat Yapımı Spacely Delphi 0 22 Nisan 2010 23:08
saat başı uyarı ama saat yanlış verıyor yardım.! Leo mIRC Scripting Sorunları 3 21 Mart 2010 14:54