سلام
من تازه کار با تایمر/کانترو شرو کردم.یه فایل آموزشی دانلود کردمو دارم میخونم ولی هر کاری میکنم نمیتونم زمان یک ثانیه تولید کنم
محاسباتو درست انجام میدم.
prescale رو هم درست انخاب میکنم ولی باز نمیشه.کلافه شدم :angry: :angry:
با مگا8 و کریستال 4000000 و prescale=1024 و تکرار زیر برنامه وقفه 15 باید یک ثانیه بده که نمیده
برنامه رو میذارم لطفا راهنماییم کنین
$regfile = "m8def.dat"
$crystal = 4000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , Rs = Portd.3 , E = Portd.2
Cursor Off
Dim B As Byte , C As Byte
Config Timer0 = Timer , Prescale = 1024
Enable Interrupts
Enable Timer0
On Timer0 P
Start Timer0
Do
Loop
End
P:
Incr B
If B > 3 Then : Incr C : Locate 1 , 1 : Lcd C : B = 0 : End If
Return
من تازه کار با تایمر/کانترو شرو کردم.یه فایل آموزشی دانلود کردمو دارم میخونم ولی هر کاری میکنم نمیتونم زمان یک ثانیه تولید کنم
محاسباتو درست انجام میدم.
prescale رو هم درست انخاب میکنم ولی باز نمیشه.کلافه شدم :angry: :angry:
با مگا8 و کریستال 4000000 و prescale=1024 و تکرار زیر برنامه وقفه 15 باید یک ثانیه بده که نمیده
برنامه رو میذارم لطفا راهنماییم کنین
$regfile = "m8def.dat"
$crystal = 4000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , Rs = Portd.3 , E = Portd.2
Cursor Off
Dim B As Byte , C As Byte
Config Timer0 = Timer , Prescale = 1024
Enable Interrupts
Enable Timer0
On Timer0 P
Start Timer0
Do
Loop
End
P:
Incr B
If B > 3 Then : Incr C : Locate 1 , 1 : Lcd C : B = 0 : End If
Return
دیدگاه