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

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


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


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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.

Alıntıdır


 
Alıntı ile Cevapla

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

Etiketler
delphide, digital, geometrik, hesaplamalar, 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
Digital Saat Yapımı Dilaold Delphi 0 16 Nisan 2010 12:31
saat başı uyarı ama saat yanlış verıyor yardım.! Leo mIRC Scripting Sorunları 3 21 Mart 2010 14:54