Knowledge Base Nr: 00207 avrbasic.txt - http://www.swe-kaiser.de

Downloads:

mein erstes atmel avr programm (bascom basic)

  
'atmega8
$regfile = "m8def.dat"
'quarz frequenz
$crystal = 3686400

'pin6 ausgang
Ddrd = &B01000000

'eingang pin5 pull-up einschalten
Portd = &B00100000

'endlosschleife: wenn pin5 auf gnd gezogen wird geht pin6 auf high
Do
 If Pind.5 = 0 Then
   Portd.6 = 1
 Else
   Portd.6 = 0
 End If
Loop
End