شمارنده معکوس نمایش روی 7سگمنت

[haji125]

من این برنامه نوشتم ولی نمیدونم چرا کار نمیکنه
دوستان یه زحمت بکشن یه نگاه بهش بندازن.

$regfile "m8def.dat"
$crystal = 1000000
Config Portb = Output
Config Portc = Output
Config Portd = Output
Dim H As Byte
Dim Y As Byte
Dim Q As Byte
Dim S As Byte
Do
For S = 50 To 0
H = S / 10
Y = S Mod 10
Portb = Lookup(h , Q)
Portd = Lookup(y , Q)
Wait 1
Next
Loop
Q:
Data &B00111111 , &B00000110 , &B01011011 , &B01001111 , &B01100110 , &B01101101 , &B01111101 , &B00100111 , &B01111111 , &B01101111

[Ahp_online]

پاسخ : شمارنده معکوس نمایش روی 7سگمنت

من این برنامه نوشتم ولی نمیدونم چرا کار نمیکنه
دوستان یه زحمت بکشن یه نگاه بهش بندازن.

$regfile "m8def.dat"
$crystal = 1000000
Config Portb = Output
Config Portc = Output
Config Portd = Output
Dim H As Byte
Dim Y As Byte
Dim Q As Byte
Dim S As Byte
Do
For S = 50 To 0
H = S / 10
Y = S Mod 10
Portb = Lookup(h , Q)
Portd = Lookup(y , Q)
Wait 1
Next
Loop
Q:
Data &B00111111 , &B00000110 , &B01011011 , &B01001111 , &B01100110 , &B01101101 , &B01111101 , &B00100111 , &B01111111 , &B01101111

سلام
دوست عزیز شما در حلقه foR مقدار اولیه را 50 دادی و مقدار نهایی را 0 پس باید گام حلقه ی for منفی یک باشد.دستور for را به این صورت اصلاح کن:
for s=50 to 0 step -1

احتمال زیاد مشکلت حل بشه.
موفق باشید