درود بر همگی دوستان من یه مشکل با رفرش سون سگمنت ها دارم اونم اینه که وقتی داخل پروتئوس استارت میکنم اولش دهگان ثانیه رو نمایش میده بعد دیگه نشون نمیده ......ساعت و دقیقه مشکلی ندارند فقط دهگان ثانیه اینجوریه اینم کدهای مربوط به نمایشش:
Korosh:
Second = Makedec(second)
Minute = Makedec(minute)
Hour = Makedec(hour)
If Second > 59 Then Second = 0
If Minute > 59 Then Minute = 0
If Hour > 23 Then Hour = 0
H1 = Hour / 10
H2 = Hour Mod 10
M1 = Minute / 10
M2 = Minute Mod 10
S1 = Second / 10
S2 = Second Mod 10
Set Portb.1
Reset Portb.2
Reset Portb.3
Reset Portb.4
Reset Portb.5
Reset Portb.6
Porta = Lookup(m2 , Dta)
Waitms 2
Reset Portb.1
Set Portb.2
Reset Portb.3
Reset Portb.4
Reset Portb.5
Reset Portb.6
Porta = Lookup(m1 , Dta)
Waitms 2
Reset Portb.1
Reset Portb.2
Set Portb.3
Reset Portb.4
Reset Portb.5
Reset Portb.6
Porta = Lookup(h2 , Dta)
Waitms 2
Reset Portb.1
Reset Portb.2
Reset Portb.3
Set Portb.4
Reset Portb.5
Reset Portb.6
Porta = Lookup(h1 , Dta)
Waitms 2
Reset Portb.1
Reset Portb.2
Reset Portb.3
Reset Portb.4
Set Portb.5
Reset Portb.6
Porta = Lookup(s2 , Dta)
Waitms 2
Reset Portb.1
Reset Portb.2
Reset Portb.3
Reset Portb.4
Reset Portb.5
Set Portb.6
Porta = Lookup(s1 , Dta)
Waitms 2
Return
Korosh:
Second = Makedec(second)
Minute = Makedec(minute)
Hour = Makedec(hour)
If Second > 59 Then Second = 0
If Minute > 59 Then Minute = 0
If Hour > 23 Then Hour = 0
H1 = Hour / 10
H2 = Hour Mod 10
M1 = Minute / 10
M2 = Minute Mod 10
S1 = Second / 10
S2 = Second Mod 10
Set Portb.1
Reset Portb.2
Reset Portb.3
Reset Portb.4
Reset Portb.5
Reset Portb.6
Porta = Lookup(m2 , Dta)
Waitms 2
Reset Portb.1
Set Portb.2
Reset Portb.3
Reset Portb.4
Reset Portb.5
Reset Portb.6
Porta = Lookup(m1 , Dta)
Waitms 2
Reset Portb.1
Reset Portb.2
Set Portb.3
Reset Portb.4
Reset Portb.5
Reset Portb.6
Porta = Lookup(h2 , Dta)
Waitms 2
Reset Portb.1
Reset Portb.2
Reset Portb.3
Set Portb.4
Reset Portb.5
Reset Portb.6
Porta = Lookup(h1 , Dta)
Waitms 2
Reset Portb.1
Reset Portb.2
Reset Portb.3
Reset Portb.4
Set Portb.5
Reset Portb.6
Porta = Lookup(s2 , Dta)
Waitms 2
Reset Portb.1
Reset Portb.2
Reset Portb.3
Reset Portb.4
Reset Portb.5
Set Portb.6
Porta = Lookup(s1 , Dta)
Waitms 2
Return
دیدگاه