از دوستان عزیز یک برنامه میخام و اون اینه با دستور تایمر کانتر 1 با تاخیر 1 ثانیه تا 60 ثانیه را رویlcdنمایش بده هر چه زود تر mer30
اطلاعیه
Collapse
No announcement yet.
تایمر کانتر
Collapse
X
-
پاسخ : تایمر کانتر
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.0 , Rs = Porta.1
Config Lcd = 16 * 2
Config Timer1 = Timer , Prescale = 256
Dim S As Byte
Enable Interrupts
Enable Timer1
On Timer1 Timer1_isr
Timer1 = 34286
Do
Loop
End
'----------------------------------------------------
Timer1_isr:
Incr S
Print "Timer=" ; S ; "s"
Cls
Locate 1 , 1
Lcd "Timer=" ; S ; "s"
Timer1 = 34286
If S = 60 Then S = 0
Return«اگر واقعیات با نظریات هماهنگی ندارند، واقعیتآها را تغییر بده.»
آلبرت انشتین
دیدگاه
دیدگاه