تایمر معکوس

[EHSAN_7417]

سلام
کسی هست بهم بگه چه شکلی میشه یک تایم رو برعکس نوشت؟ یعنی به جای اینکه از 1 شروع کنه از 10 به 0 برگرده

[Farhads]

سلام

مقدار اوليه كانتر را 10 قرار دهيد و در هر تيك يك واحد كاهش دهيد و بررسي نماييد تا به صفر رسيده است يا خير

[Slytherin]

زمان رو که نمی شه بر گردوند!
من متوجه منظورتون نمی شم:D
در هر صورت پیشنهاد من اینه که با کد هایی که داخل تایمر نوشته می شوند جریان رو بر عکس کنید...

[محسن شامحمدی]

دوست عزیز
تایمر رو نمی شه برعکس کرد ولی می شه کدهای داخلشو طوری تغییر بدید که عملیات انجام شده رو برعکس انجام بده.
مثلا اگر از این کد استفاده می کنید.
for i=1 to 100
'do something
next
به جاش می ذارید.
for i=100 to 1 step -1
'do something
next

[Farhads]

دوست عزيز يك متغير global تعريف كنيد :


Dim i as integer

و آنرا در لود فرم مقدار اوليه دهيد :


i=10

در تايمر :


if i<0 then
i=10
else
i=i-1
end if

در صورت لزوم مي توانيد دستور نمايش مقدار i را در تايمر اضافه كنيد