1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

ProgressBar & Timer


  1. Redefine

    Redefine Old School olduser rank8

    Kayıt:
    21 Kasım 2007
    Mesajlar:
    3.152
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    36
    [​IMG]
    :arrow: ProgressBar & Timer

    Merhaba değeleri Exl sakinleri;

    Bu dersimizde progressbar ve timer nesnelerini kullanarak basit bir uygulama yapacağız.

    Uygulamamızda progressbar %100 olduğunda süreniz doldu şeklinde bir mesaj verdireceğiz. Bu uygulama başlangıç seviyesindedir eğer isterseniz bu uygulamadan yola çıkarak ihtiyaçlarınız doğrultusunda çok daha ileri seviyede uygulamalar hazırlayabilirsiniz

    Gerekli Olan Nesneler;

    1-)Bir adet progressbar

    [​IMG]

    2-)Bir Adet Timer

    [​IMG]

    Önce Object Inspector penceremizden timer nesnemizin interval özelliğini 100, enabled özelliğini true yapıyoruz. Daha sonra progressbar nesnesinin min özelliğini 0 ve max özelliğini 100 yapıyoruz.Ardından Aşağıdaki kodları yazıyoruz;

    Kod:
    procedure TForm1.Timer1Timer(Sender: TObject);
    
    begin
    
    progressbar1.Position:=progressbar1.Position+1; 
    
    if progressbar1.Position=100 then 
    
    begin
    
    timer1.Enabled:=false;
    
    showmessage ('Süre doldu'); 
    
    end;
    
    end;
    Kodlarıda yazdıktan sonra uygulamamızı test edebiliriz.

    [​IMG]

    Herşey tamam.Bir sorunla karşılaşıldığı zaman bu topic altından sorunlarınızı belirtiniz.

    Kolay Gelsin...
    Saygılarımla;
    RedeFine
     
  2. Roland Deschain

    Roland Deschain Öğretiyorum rank8

    Kayıt:
    28 Nisan 2007
    Mesajlar:
    690
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Meslek:
    Öğrenci
    Şehir:
    Gilead
    harikasın valla :muck:

    millet bayram tatilinde ama bizimki hala çalışıyor :P :thumbsup:
     
  3. Redefine

    Redefine Old School olduser rank8

    Kayıt:
    21 Kasım 2007
    Mesajlar:
    3.152
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    36
    :muck: Teşekkür Ederim :thumbsup:
     
  4. Redefine

    Redefine Old School olduser rank8

    Kayıt:
    21 Kasım 2007
    Mesajlar:
    3.152
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    36
    Topic yenilenmiştir.Görsel eklenmiştir.
     
  5. DaRKeDeN

    DaRKeDeN Öğreniyorum rank8

    Kayıt:
    16 Temmuz 2007
    Mesajlar:
    149
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    gzl paylaşim eline saglik :thumbsup: