led2.bas.txt

来自「example for avr beginners with bascom」· 文本 代码 · 共 12 行

'Program LED2.bas
Dim Led As Byte                         'LED is a Byte variable since it will controls
                                        'entire port P1 (8 LED diodes in total)
                                        'Its value can be anything between 0 and 255
Led = 0                                 'initial value
Do                                      'Do is a start of a Do-Loop loop
P1 = Led                                'LED is now on port p1
Wait 1                                  'wait 1 second
Led = Not Led                           'invert LED value
Loop                                    'end of Do-Loop loop
End                                     'end of program