ex09 - roller.bs2

proteus得一些经典例子

' {$STAMP BS2}
' ==============================================================================
'
' File...... Ex09 - Roller.BS2
' Purpose... Digital Die
' Author.... Parallax
' E-mail.... [e-mail]
' Started...
' Updated... 01 MAY 2002
'
'
' ==============================================================================
' ------------------------------------------------------------------------------
' Program Description
' ------------------------------------------------------------------------------
' This program combines a 7-segment display and a pushbutton input to create
' a single-digit digital die. Displays 1 to 6 when button is pressed.
' ------------------------------------------------------------------------------
' I/O Definitions
' ------------------------------------------------------------------------------
RollBtn CON 15 ' roll button on Pin 15
Segs VAR OutL ' 7-segment LEDs
' ------------------------------------------------------------------------------
' Variables
' ------------------------------------------------------------------------------
swData VAR Byte ' data for BUTTON command
dieVal VAR Nib ' new die value
spinPos VAR Nib ' spinner position
doSpin VAR Nib ' spinner update control
' ------------------------------------------------------------------------------
' EEPROM Data
' ------------------------------------------------------------------------------
' abcdefg
' -------
DecDig DATA %01111110 ' 0
DATA %00110000 ' 1
DATA %01101101 ' 2
DATA %01111001 ' 3
DATA %00110011 ' 4
DATA %01011011 ' 5
DATA %01011111 ' 6
DATA %01110000 ' 7
DATA %01111111 ' 8
DATA %01111011 ' 9
Bug DATA %01000000 ' spinning bug
DATA %00100000
DATA %00010000
DATA %00001000
DATA %00000100
DATA %00000010
' ------------------------------------------------------------------------------
' Initialization
' ------------------------------------------------------------------------------
Initialize:
DirL = %01111111 ' create output pins
' ------------------------------------------------------------------------------
' Program Code
' ------------------------------------------------------------------------------
Main:
GOSUB Get_Die ' update die value
PAUSE 5
' is the button pressed?
BUTTON RollBtn, 0, 255, 10, swData, 1, Show_Die
GOTO Main ' no
Show_Die:
READ (DecDig + dieVal), Segs ' show the die
PAUSE 3000 ' - for 3 seconds
GOTO Main ' go again
END
' ------------------------------------------------------------------------------
' Subroutines
' ------------------------------------------------------------------------------
Get_Die:
dieVal = (dieVal // 6) + 1 ' limit = 1 to 6
READ (Bug + spinPos), segs ' show spinner pattern
doSpin = (doSpin + 1) // 7 ' time to update spinner?
IF (doSpin > 0) THEN Get_DieX ' only if doSpin = 0
spinPos = spinPos + 1 // 6 ' update spinner
Get_DieX:
RETURN