ex08 - sevensegs.bs2

来自「这是proteus得一些经典例子 供大家学习参考」· BS2 代码 · 共 60 行

' {$STAMP BS2}
' ==============================================================================
'
' File...... Ex08 - SevenSegs.BS2
' Purpose... 7-Segment Display
' Author.... Parallax
' E-mail.... [e-mail]
' Started...
' Updated... 01 MAY 2002
'
'
' ==============================================================================
' ------------------------------------------------------------------------------
' Program Description
' ------------------------------------------------------------------------------
' Displays digits on a 7-segment display.
' ------------------------------------------------------------------------------
' I/O Definitions
' ------------------------------------------------------------------------------
Segs VAR OutL ' 7-segment LEDs
' ------------------------------------------------------------------------------
' Constants
' ------------------------------------------------------------------------------
Blank CON %00000000 ' clears the display
' ------------------------------------------------------------------------------
' Variables
' ------------------------------------------------------------------------------
counter VAR Nib
d	VAR Byte
' ------------------------------------------------------------------------------
' EEPROM Data
' ------------------------------------------------------------------------------
' Segments .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
' ------------------------------------------------------------------------------
' Initialization
' ------------------------------------------------------------------------------
Initialize:
DirL = %11111111 ' make segments outputs
' ------------------------------------------------------------------------------
' Program Code
' ------------------------------------------------------------------------------
Main:
FOR counter = 0 TO 9 ' count
READ (DecDig + counter), d ' put 7-seg pattern on digit
segs = d
PAUSE 1000 ' show for about one second
NEXT
GOTO Main ' do it all again
END