کمک در مورد کانتر صفراین برنامه اشکال داره؟؟

[omaxali]

سلام :angry: :applause: :cry2: :read:
میتونین بگین چرا این کانتر وقتی سر ریز میشه به b اضافه نمیکنه؟یا اونو نشون نمیده؟(البته افزایش counter0 رو lcdنشون داده میشه)
$regfile "m32def.dat"
$crystal = 12000000
Dim B As Byte
Config Timer0 = Counter , Edge = Rising
Enable Interrupts
On Counter0 Ali
Counter0 = 250
Do
Locate 1 , 1
Lcd Counter0
Loop
End
Ali:
Incr B
Locate 1 , 5
Lcd B
Return
تنظیمات lcd رو از تو بسکام انجام دادم که اون درسته
:angry:

[Navid_Micro]

پاسخ : کمک در مورد کانتر صفر

دوست عزیز برنامه ای که شما نوشتی باید به پایه T0 میکرو پالس بدی تا برات بشماره ، در این صورت الان کانتر برات میشماره

[omaxali]

پاسخ : کمک در مورد کانتر صفر

اینو میدونم
فقط وقتی میشمره تا 255 و بر میگرده به b اضافه نمیکنه

[omaxali]

پاسخ : کمک در مورد کانتر صفر

دوست عزیز برنامه ای که شما نوشتی باید به پایه T0 میکرو پالس بدی تا برات بشماره ، در این صورت الان کانتر برات میشماره

اینو میدونم
فقط وقتی میشمره تا 255 و بر میگرده به b اضافه نمیکنه

[Navid_Micro]

پاسخ : کمک در مورد کانتر صفراین برنامه اشکال داره؟؟

دوست عزیز این برنامه رو بنویس :
$regfile = "your Micro"
$crystal = x000000

Configure LCD

config timer0=counter,edge=rising
config portx.n(T0_pin)= input
set portx.n(T0_pin)
dim i as byte
start timer0
enable intrrupts
enable timer0
enable ovf0
on ovf0 count
do
home : lcd i
loop
end
count:
incr i
return
یا................................................ ..............
$regfile = "your Micro"
$crystal = x000000

Configure LCD

config timer0=counter,edge=rising
config portx.n(T0_pin)= input
set portx.n(T0_pin)

start timer0
enable intrrupts
enable timer0


do
home : lcd counter0
loop
end

بعد از همه اینا تو سخت افزار یه مقاومت Pullup از پایه T0 به پایه + وصل کن ، و پالسو بده هو حالشو ببر