çok basit ama yapamadım :(

[xegelix]

ya arkadaşlar çok basit bir şey üstünde deneme yapıyorum ama bir türlü olmuyor ya çıldıracam:( bir gauge bir buton ve bir timer var gaugenin addprogressi ile 100e kadar çıkarıyorum sayımı ama geri yani 0 a kadar saydırmak ta istiyorum aşağıdaki gibi bir kod yasdım ama 99 ile 100 arasında kalıp duruyor mantık hatası yapıyorum ama saatelerdir bulamadım bir bakabilirmisiniz?

procedure TForm1.Timer2Timer(Sender: TObject);
begin
gauge2.AddProgress(1);
if gauge2.Progress=100 then
begin
gauge2.AddProgress(-1);
end;

SAygılarımla

[NewMember]

Kod: Tümünü seç

if gauge2.Progress=100 then 
begin 
gauge2.AddProgress(-1); 
end; 

bu kod ile sadece gaugenin değeri 100 ise eksilt diyorsunçBir defa 100 olunca çalışıyor.Sonra 99 oluyor haliyle.Ama 99 olunca bu şarta uymadığından timer çalışsa da bu şart olmadığından 99 da kalıyor.

Bunun yerine kodunu şu hale getir.Bir adet daha timer al formuna ve enabled false yap.2.tmerine şu kodu yaz.

Kod: Tümünü seç

gauge2.AddProgress(-1); 

Yukardaki senin yazdığın kodu da şu hale getir.

Kod: Tümünü seç

procedure TForm1.Timer2Timer(Sender: TObject); 
begin 
gauge2.AddProgress(1); 
if gauge2.Progress=100 then 
begin 
timer2.enabled:=True;
timer1.enabled:=False;
end; 

Sanırım bu şekilde olur.
Kolay gelsin.

[xegelix]

ya çok tşk ederim evet dediğin gibi yaptığımda oldu ama ben yapamdım işte ne yapmam lasım bu işi öğrenmem için anlamadım ya tekrar teşekkür ederim iyi çalışmalar

[mrmarman]

Gidip gelen Gauge istiyorsun anlaşılan...

Aşağıdaki kurgu işini görecektir.

Kod: Tümünü seç

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  Case Timer2.Tag of
  0 : Gauge2.AddProgress(+10);
  1 : Gauge2.AddProgress(-10);
  end; // Case
  If Gauge2.Progress = 100 then Timer2.Tag := 1;
  If Gauge2.Progress =   0 then Timer2.Tag := 0;
end;

[xegelix]

ben bu işi beceremeceğim sanırım ikiside çalıştı kodların ama ben bu kadar basit bir işi bile çözemedim tşk ederim yardımlarınız için iyi çalışmlar

[mrmarman]

Hocam öyle düşünme.

- Algoritma mantığı yerleşecek ve gelişecek. Bunun için zamana ihtiyaç var. Bu yazılanları basit olarak algılama. Sadece tecrübe.

- İki timer'a gerek olmadığını tek bir tanesiyle de yapılabileceğini biliyorsun atrık. Şimdi burdan yola çıkarak sistemi kavradığında başka yerlerde benzer durumlara çözüm üreteceksin. Sana basit gelecek.

[xegelix]

inan bana mantık olarak nasıl yapılacağını biliyorum ama koda dökemiyorum bide 4 yıl ayrı kaldım bu işten sanırım çok çalışmam gerek kusura bakmayın sizleride ,meşgul ettim tekrar çok tşk ederim iyi çalışamalar

[nitro]

bu yazıları okurken Gauge diye bişeyin ne olduğunu bile bilmiyordum.
Hem buldum hem de öğrendim. Ama baya bi aradım

[xegelix]

ne güzel hiç olmasa böle br faydam oldu

[uğur alkan]

konu başlığıda düzelirse çok güsel olacak