مشکل با دستور IF

[soodi]

سلام

ببخشید ، یه سوال دارم

برنامه زیر رو نوشتم که قراره 50 تا از متغیر D کم بکه و وقتی به صفر رسید دوباره 50 تا بهش اضافه کنه
برنامه زیر رو نوشتم ولی خیلی بزرگه و 2 تازیر برنامه داره و میکرو دیگه جا نداره :biggrin:
میگم میشه این برنامه رو به 2 تا دستور IF نوشت ؟ اگر ممکنه کمک کنید چون از صبح تا حالا از بس برنامه نوشتم کلا الان گیجم

Flasher4:
Gosub Speedauto
Do
Debounce Pinb.1 , 0 , Flasher5
Portd = &H27
Waitms D
Portd = &H0
E = T - D
Waitms E
If D = 50 Then Goto Down1
Debounce Pinb.1 , 0 , Flasher5
D = D + 1
Loop

Down1:
Do
Debounce Pinb.1 , 0 , Flasher5
Portd = &H27
Waitms D
Portd = &H0
E = T - D
Waitms E
If D = 0 Then Goto Flasher4
Debounce Pinb.1 , 0 , Flasher5
D = D - 1
Loop

[eca.samani]

پاسخ : مشکل با دستور IF

سلام
ببینید این به کارتون میاد

Incr A
If A < 51 Then Incr D
If A > 50 Then Decr D
If A = 101 Then A = 0