مشکل با تایمر ؟؟

[Majid_Ebru]

سلام
من از دلفی 2007 استفاده می کنم و توی برنامه از یه تایمر و یه ترک بار(Trackbar) استفاده می کنم و تایمر رو روی 1 ثانیه تنظیم کردم و با هر بار شمارش تایمر پوزیشن ترک بار رو یکی اضافه می کنم.این عمل باید تا عدد 20 ادامه پیدا کنه ، توی تابع تایمر نوشتم که هر وقت عدد پوزیشن به 20 رسید تایمر رو دیزیبل کنه اما تایمر خاموش نمیشه و پوزیشن ترک بار مرتباً زیاد میشه و قطع هم نمی شه؟
لطفاً راهنمای کنید.

کد:

procedure TForm1.tmr1Timer(Sender: TObject);
begin
avdtrackbar1.position:=advtrackbar1.position + 1;
if advtrackbar1.position=20 then
timer1.Enable:=false;
end;

[lord_viper]

کدتون هیچ مشکلی نداره
مشکل قطعا از جای دیگس

[Majid_Ebru]

سلام
بله حق با شما بود.
مشکل از خطای کامپایلر بود که من دقت نکردم.
نمی دونم چرا بعد از چند بار اجرای برنامه و اعمال تغیرات توی برنامه ، کامپایلر دلفی خطا میده و باید دلفی رو بست و مجدداً اجرا کرد و در بعضی مواقع با تغییر بعضی از خواص المان ، اون خاصیت دیگه به حالت اولیه برنمی گرده؟؟؟
خیلی ممنون که جواب دادید.

[veyskarami]

سلام
من از دلفی 2007 استفاده می کنم و توی برنامه از یه تایمر و یه ترک بار(Trackbar) استفاده می کنم و تایمر رو روی 1 ثانیه تنظیم کردم و با هر بار شمارش تایمر پوزیشن ترک بار رو یکی اضافه می کنم.این عمل باید تا عدد 20 ادامه پیدا کنه ، توی تابع تایمر نوشتم که هر وقت عدد پوزیشن به 20 رسید تایمر رو دیزیبل کنه اما تایمر خاموش نمیشه و پوزیشن ترک بار مرتباً زیاد میشه و قطع هم نمی شه؟
لطفاً راهنمای کنید.

کد:

procedure TForm1.tmr1Timer(Sender: TObject);
begin
avdtrackbar1.position:=advtrackbar1.position + 1;
if advtrackbar1.position=20 then
timer1.Enable:=false;
end;

عزیزم شما کدت ایراد داره.
اول اینکه شما 2تا تایمر گذاشتی (tmr1 , Timer1)
دوم اینکه توی رویداد tmr1 اومدی Timer1 رو غیر فعال کنی در صورتی که کد شما تو tmr1 نوشته شده.
برات اصلاح کردم.

کد:

procedure TForm1.tmr1Timer(Sender: TObject);
begin
avdtrackbar1.position:=advtrackbar1.position + 1;
if advtrackbar1.position=20 then
tmr1.Enable:=false; //<- inja ro barat dorostesh kardam
end;

[Majid_Ebru]

سلام
ممنون که جواب دادید.
ایراد از برنامه دلفی بود با یک بار ریست کردن سیستم مشکل حل شد.
البته دستورات من هم ایراد داره اما مشکل اصلی از سیستم بود.