سلام
بله درسته اشتباه از من بود. چون خودم با WinAVR(كامپايلر GCC ) برنامه رو مي نويسم به همين خاطر تو تايپ برنامه شما اشتباه كردم . خوب بايد به صورت زير Pullup يا Pulldown داخلي رو فعال كنيد.
مثلا اگه بخوايد PORTA بيت 0 رو Pulldown داخليشو فعال كنيد بايد بنويسيد PORTA.0 = 0.
يا اگه بخوايد PORTD بيت 7 رو Pullup داخليشو فعال كنيد بايد بنويسيد PORTD.7 = 1.
پس برنامه رو به صورت زير دوباره كامپايل كنيد.
regfile = "m32def.dat"
$crystal = 4000000
Config Portb = Output
Config Pina.0 = Input
PORTA.0 = 0 'PullDown enable
A:
Do
Debounce Pina.0 , 1 , S
Loop
End
S:
Do
Toggle Portb
Waitms 300
Goto A
Loop
________________________
برنامه نويسي، الكترونيك(PE)
________________________