Bilgisayarım Ne Kadar Süre Açık Kalmış ?

YoRuMSuZ

Biz işimize bakalım...
Bu çalışmada bilgisayarımızın ne kadar süre açık kaldığını bulacağız. Örneğin sizden başkası bilgisayarınızı açtı ve size sadece 10 dakikadır açık diyor. Ama artık siz bu basit programınızla gerçeği ortaya çıkaraıyorsunuz :)

Yeni bir proje başlatıyoruz ve formumuz üzerine

1 adet Buton
1 adet Label ekliyoruz.

Ancak burda yeni bir function tanımlamamız gerekiyor. Hazır function kodlarını buradan alıp direkt kullanabilirsiniz.

Klavyeden F12 tuşuna basarak kod penceresine ulaşıyoruz. ve

{$R *.dfm}

yazan yerin hemen altına alttaki function'u aynen ekliyoruz.
Kod:
function Uptime: string; 
var
  count,
  days,
  min,
  hours,
  seconds : longint;
begin 
  Count := GetTickCount();
  Count := Count div 1000;
  Days := Count div (24 * 3600);
  if Days > 0 then
  Count := Count - (24 * 3600 * Days);
  Hours := Count div 3600;
  if Hours > 0 then
  Count := Count - (3600 * Hours);
  Min := Count div 60;
  Seconds := Count mod 60;
  Result := IntToStr(Days)+' Gün '+IntToStr(Hours)+
  ' Saat '+IntToStr(Min)+' Dakika '+
  IntToStr(seconds) +' Saniye ';
end;

Şimdi yukarıdaki kodu eklediğimize göre tekrar form alanına dönmek için F12 tuşuna basıyoruz. Formumuzdaki Butona çift tıklayıp Butonun OnClick yordamına yazacağımız kod bölümüne ulaşıyoruz ve begin - end blokları arasına aşağıdaki kodu yazıyoruz.
Kod:
Label1.Caption:=Uptime;

Artık Label'deki yazıyı renklendirmeyi öğrenmiştik. İstediğiniz renge göre ayarlayabilirsiniz. Hatta form sayfasında iken Label'i seçili hale getirip Properties bölümündeki Font ayarlarından istediğiniz şekilde görünümü değiştirebilirsiniz.

Artık Button üzerinde ne yazmak istiyorsanız yine Properties bölümünden Caption bölümüne yazın. Label'deki yazıyı da ilk açılışta ne görünmesini istiyorsanız aynı bölümden değiştirebilirsiniz. Bizim için önemli olan Butona bastığımızda bilgisayarın açık kalma süresini bize vermesi.

Kodlar tamam ise artık Run (F9) diyoruz exe dosyamız derleniyor. Butona bastığımızda Label de bilgisayarın açık kalma süresi bize verilecek.
 

YoRuMSuZ

Biz işimize bakalım...
Bu dersin kaynak kodları yukarıda verilmişti. Çalışan exe dosyasının işine yarayabileceğini düşünen kullanıcılarımız bu küçük programı aşağıdaki linkten indirebilirler.

Yukarda verilen kodları dışında çok küçük değişiklikler verilmiştir. Bunlar, program ikonu, program adı, ilk kullanımda pasif olan Göster butonunun 20 sn sonra aktif olması, açıklama metni. (Programda süreye bağlı değişiklik olması ile ilgili ayrıca bir ders yayınlacak)
 
Top