سلام دوستان خسته نباشید :
یک برنامه ی ساده با بسکام برای اینتراپت نوشتم که هر بار که پایه ی INT0 فعال میشه ، یکی به A اضافه بشه .
تو پروتئوس عالی جواب میده ولی روی برد بورد جواب نمیده !!!!!! یعنی وقتی پایه ی INT0 رو فعال میکنم ، برای بار اول اعداد
20 ، 45 ، 50 ، 60 و . . . و همینطور زیاد نشون میده !!!!! :surprised:
پایه ی INT0 رو تو MEGA32 با مقاومت 10K به زمین وصل کردم و مقاومت رو هم تغییر دادم ولی جواب نداد که نداد . . .
این برنامه :
$regfile = "m32def.dat"
$crystal = 1000000
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2 , _
Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Config Lcd = 16 * 2
Config Int0 = Falling
Enable Interrupts
Enable Int0
On Int0 R
Dim A As Word
A = 0
Cls : Cursor Off
Do
Locate 1 , 1 : Lcd ; "INT0 =" ; A
Waitms 250
Loop
End
R:
A = A + 1
Return
این هم عکس تو پروتئوس :
http://s6.uplod.ir/i/00738/snqgedek4j61.png
یک برنامه ی ساده با بسکام برای اینتراپت نوشتم که هر بار که پایه ی INT0 فعال میشه ، یکی به A اضافه بشه .
تو پروتئوس عالی جواب میده ولی روی برد بورد جواب نمیده !!!!!! یعنی وقتی پایه ی INT0 رو فعال میکنم ، برای بار اول اعداد
20 ، 45 ، 50 ، 60 و . . . و همینطور زیاد نشون میده !!!!! :surprised:
پایه ی INT0 رو تو MEGA32 با مقاومت 10K به زمین وصل کردم و مقاومت رو هم تغییر دادم ولی جواب نداد که نداد . . .
این برنامه :
$regfile = "m32def.dat"
$crystal = 1000000
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2 , _
Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Config Lcd = 16 * 2
Config Int0 = Falling
Enable Interrupts
Enable Int0
On Int0 R
Dim A As Word
A = 0
Cls : Cursor Off
Do
Locate 1 , 1 : Lcd ; "INT0 =" ; A
Waitms 250
Loop
End
R:
A = A + 1
Return
این هم عکس تو پروتئوس :
http://s6.uplod.ir/i/00738/snqgedek4j61.png
دیدگاه