led4.bas.txt

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

'Program LED4.bas
Do                                      'Do is a start of a Do-Loop loop
   P1 = 126                             'value P1 = 01111110
   Wait 1                               'wait 1 second
   P1 = 189                             'value P1 = 10111101
   Wait 1                               'wait 1 second
   P1 = 219                             'value P1 = 11011011
   Wait 1                               'wait 1 second
   P1 = 231                             'value P1 = 11100111
   Wait 1                               'wait 1 second
   P1 = 219                             'value P1 = 11011011
   Wait 1                               'wait 1 second
   P1 = 189                             'value P1 = 10111101
   Wait 1                               'wait 1 second
Loop                                    'end of Do-Loop loop
End