شارژ دوباره

[رسول]

من میخواهم برنامه ای که دارمو مدتشو زیادکنم..............

کد php:

$regfile = "m8def.dat" : $crystal = 1000000
Ddrd = 2 : Portd = 1

Config Timer1 = Timer , Prescale = 1024
On Timer1 Ali : Enable Timer1 : Enable Interrupts : Stop Timer1

Do
   Debounce Pind.0 , 0 , Ant , Gosub
Loop

Ant:
   Set Portd.1
   Timer1 = 0 : Start Timer1
Return

Ali & rasoul:
   Stop Timer1 : Reset Portd.1
Return 


؟؟؟؟؟؟؟؟؟؟

[t3r!p3000]

من هر چی تلاش کردم خودت تغییرات رو بدی و واسه 5 دقیقه آمادش کنی ولی انگار هیچ اتفاقی نیافتاد !

نمی خوام همش ماهیگیری کنم !!!

کد php:

$regfile = "m8def.dat" : $crystal = 1000000
Ddrd = 2 : Portd = 1

Config Timer1 = Timer , Prescale = 1024
On Timer1 Ali : Enable Timer1 : Enable Interrupts : Stop Timer1

Dim B As Byte

Do
   Debounce Pind.0 , 0 , Ant , Gosub
Loop

Ant:
   Set Portd.1
   Timer1 = 0 : Start Timer1 : B = 0
Return

Ali:
   Incr B
   If B = 5 Then :
      Stop Timer1 : Reset Portd.1 : B = 0
   End If
Return 


[رسول]

ممنون علی جونم
اینروزا کمی سرم شلوغه و نمیتونم بیسکام بخونم و ...
وگرنه منم دوست دارم همون ماهیگیری رو یاد بگیرم نه ماهی آماده رو

اگه من بجای این 5 که در زیر نوشتی هر عددی بذارم همون دقیقه میشه؟؟؟؟

کد php:

If B = 5 Then : 


مثلا اگه بجاش 3بذارم حلقه سه بار اجرا میشه یعنی مدتش 3دقیقه میشه؟آره درست میگم؟؟؟؟؟؟؟؟؟؟؟

[t3r!p3000]

دقت کن اون عدد در دقیقه ضرب نمیشه و در 67.1 ثانیه ضرب میشه !

می تونی با یه تغییر کوچولو تو عدد گذاری اولیه تایمر بجای 67.1 ثانیه تبدیل به 60 ثانیه اش کنی !!!!

اینجاشو دیگه می ذارم خودت انجام بدی !!!!