با خودم گفتم یه چنین پستی برای سوالات آسون شاید بدرد بخور باشه
سلام دوستان من چند روزه دارم با تایمر کانتر ها در سی کلنججار میرم ولی هی مشکل دارم
اگر دوستان لطف کنند و برنامه زیر رو برام به سی بنویسند خیلی سپاس گذار میشم
$regfile = "m32def.dat"
$crystal = 8000000
Config porta=output
Config portb.1=output
Dim I As Byte , Saneye As Byte , p as byte , k as byte
Config Timer0 = Timer , Prescale = 256
Enable Interrupts
Enable Timer0
On Timer0 L1
Timer0 = 6
Start Timer0
Lcd Saneye
Do
D = 1
For I = 1 to 8
Porta=d*2
Waitms 30
next
Loop
End
L1:
Incr k
If k= 125 Then
Stop Timer0
k = 0
toggle portb.1
Timer0 = 6
Start Timer0
End If
Return
سلام دوستان من چند روزه دارم با تایمر کانتر ها در سی کلنججار میرم ولی هی مشکل دارم
اگر دوستان لطف کنند و برنامه زیر رو برام به سی بنویسند خیلی سپاس گذار میشم
$regfile = "m32def.dat"
$crystal = 8000000
Config porta=output
Config portb.1=output
Dim I As Byte , Saneye As Byte , p as byte , k as byte
Config Timer0 = Timer , Prescale = 256
Enable Interrupts
Enable Timer0
On Timer0 L1
Timer0 = 6
Start Timer0
Lcd Saneye
Do
D = 1
For I = 1 to 8
Porta=d*2
Waitms 30
next
Loop
End
L1:
Incr k
If k= 125 Then
Stop Timer0
k = 0
toggle portb.1
Timer0 = 6
Start Timer0
End If
Return
دیدگاه