ForumSevgisi.Com

  ForumSevgisi.Com > ForumSevgisi Webmaster Bölümü > Webmaster Genel

Webmaster Genel Webmasterlıkla ilgili Her şeyin Paylaşıldığı Bölüm.


Procedure ile Geçen Zaman (Süre) Sayacı.

Webmasterlıkla ilgili Her şeyin Paylaşıldığı Bölüm.


Procedure ile Geçen Zaman (Süre) Sayacı.

ForumSevgisi Webmaster Bölümü Kategorisinde ve Webmaster Genel Forumunda Bulunan Procedure ile Geçen Zaman (Süre) Sayacı. Konusunu Görüntülemektesiniz,Konu İçerigi Kısaca ->> Procedure ile Geçen Zaman (Süre) Sayacı. Procedure ile Geçen Zaman (Süre) Sayacı. Kod: // Kodbankta bir çok kronometre kodu mevcut ...

Kullanıcı Etiket Listesi

Yeni Konu aç  Cevapla
LinkBack Seçenekler Stil

Okunmamış 09 Nisan 2015, 16:29   #1
Durumu:
Çevrimdışı
Kaf_Dağı - ait Kullanıcı Resmi (Avatar)
Arastirmaci
Üyelik tarihi: 26 Ekim 2014
Şehir: ~~~~~~
Mesajlar: 1.130
Konular: 710
Beğenilen: 168
Beğendiği: 334
www.forumsevgisi.com
Standart Procedure ile Geçen Zaman (Süre) Sayacı.

Procedure ile Geçen Zaman (Süre) Sayacı.

Procedure ile Geçen Zaman (Süre) Sayacı.

Kod:
        // Kodbankta bir çok kronometre kodu mevcut fakat bu biraz farklı. Saat süre ile çalışan firmalar için kullanılabilir.
 
//forma bir timer 3 adet label ekleyin.
 
procedure GecenZaman(Saniyenesne,Dakikanesne,Saatnesne:TLabel);
var
Saniye,Dakika,Saat:Integer;
begin
  Saniye:=(StrToInt(Saniyenesne.Caption));
  Dakika:=(StrToInt(Dakikanesne.Caption));
  Saat:=(StrToInt(Saatnesne.Caption));
 
        Inc(Saniye);
 
        if Saniye >= 60 then
        begin
        Saniye:=0;
        inc(Dakika);
        end;
 
        if Dakika >= 60 then
        begin
        Dakika:=0;
        inc(saat);
        end;
 
        if Length(IntToStr(Saniye)) <2 then
        begin
        Saniyenesne.Caption:='0'+IntToStr(Saniye)
        end
        else
        begin
        Saniyenesne.Caption:=IntToStr(Saniye);
        end;
 
        if Length(IntToStr(Dakika)) <2 then
        begin
        Dakikanesne.Caption:='0'+IntToStr(Dakika)
        end
        else
        begin
        Dakikanesne.Caption:=IntToStr(Dakika);
        end;
 
        if Length(IntToStr(Saat)) <2 then
        begin
        Saatnesne.Caption:='0'+IntToStr(Saat)
        end
        else
        begin
        Saatnesne.Caption:=IntToStr(Saat);
        end;
 
end;
 
 
 
//timer nesnesi interval değeri 1000 olarak kalsın.
//timer nesnesinin içine yazınız.
GecenZaman(label1,label2,label3);
 
//label1 label2 label3 label nesnelerinin default isimleridir. Isimlerini değiştirerek kullanabilirsiniz.

________________
.........................
imza
Alıntı ile Cevapla
Yeni Konu aç  Cevapla

Etiketler
gecen, ile, procedure, procedure ile geçen zaman (süre) sayacı., sayaci, zaman

Seçenekler
Stil


Saat: 06:41

Forum Yasal Uyarı
vBulletin® ile Oluşturuldu
Copyright © 2016 vBulletin Solutions, Inc. All rights reserved.

ForumSevgisi.Com Her Hakkı Saklıdır
Tema Tasarım:
Kronik Depresif


Sitemiz bir 'paylaşım' sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabiliyorlar. Bu sebepten ötürü, sitemizdeki mesaj ya da konulardan doğabilecek yasal sorumluluklar o yazıyı paylaşan kullanıcıya aittir ve iletişim adresine mail atıldığı taktirde mesaj ya da konu en fazla 48 saat içerisinde silinecektir.

ankara escort, izmir escort ankara escort, ankara escort bayan, eryaman escort, bursa escort pendik escort, antalya escort,