ex01 - blink.bs2

来自「proteus得一些经典例子」· BS2 代码 · 共 34 行

' {$STAMP BS2}
' ==============================================================================
'
' File...... Ex01 - Blink.BS2
' Purpose... LED Blinker
' Author.... Parallax
' E-mail.... [e-mail]
' Started...
' Updated... 01 MAY 2002
'
'
' ==============================================================================
' ------------------------------------------------------------------------------
' Program Description
' ------------------------------------------------------------------------------
' Blinks an LED connected to P0
' ------------------------------------------------------------------------------
' I/O Definitions
' ------------------------------------------------------------------------------
LEDpin CON 0 ' LED connected to Pin 0
' ------------------------------------------------------------------------------
' Constants
' ------------------------------------------------------------------------------
DelayTime CON 500 ' delay time in milliseconds
' ------------------------------------------------------------------------------
' Program Code
' ------------------------------------------------------------------------------
Main:
HIGH LEDpin ' turn LED on
PAUSE DelayTime ' pause for a bit
LOW LEDpin ' turn LED off
PAUSE DelayTime ' pause while off
GOTO Main ' do it again
END