Seiten Aus Bascom (En) - 2
Seiten Aus Bascom (En) - 2
109
Character
0
1
2
3
4
5
6
7
8
9
A
B
C
D
E
F
Segments
g
1
1
0
0
0
0
0
1
0
0
0
0
1
0
0
0
f
0
1
1
1
0
0
0
1
0
0
0
0
0
1
0
0
e
0
1
0
1
1
1
0
1
0
1
0
0
0
0
0
0
d
0
1
0
0
1
0
0
1
0
0
1
0
0
0
0
1
c
0
0
1
0
0
0
0
0
0
0
0
0
1
0
1
1
Output
b
0
0
0
0
0
1
1
0
0
0
0
1
1
0
1
1
a
0
1
0
0
1
0
0
0
0
0
0
1
0
1
0
0
&H40
&H79
&H24
&H30
&H19
&H12
&H02
&H78
&H00
&H10
&H08
&H03
&H46
&H21
&H06
&H0E
Chapter 0 lists the complete character set of a seven-segment display. This table permits a lot more characters to be defined. No more
than seven bits of the control byte are required for the complete
character set. The MSB can control the decimal point.
Listing 24 shows a program example that displays the characters 0 to
F on a seven-segment display continuously.
Config Porta = Output
Porta = 255
Dim I As Byte
Dim X(16) As Byte
Restore Value_table
For I = 1 To 16
Read X(i)
Next
Do
For I = 1 To 16
Porta = X(i)
Waitms 250
Waitms 250
Next
110
Loop
End
Value_table:
Data &H40 , &H79 , &H24 , &H30 , &H19 , &H12 , &H02 , &H78
Data &H00 , &H10 , &H08 , &H03 , &H46 , &H21 , &H06 , &H0E
111
End
Value_table:
Data &H40 , &H79 , &H24 , &H30 , &H19 , &H12 , &H02 , &H78
Data &H00 , &H10 , &H08 , &H03 , &H46 , &H21 , &H06 , &H0E
112
113
114