Herzlich Willkommen im einzigen (deutschsprachigem) Picaxe-Forum.

Der Ursprung dieses Forum reicht bis in das Jahr 2008 zurück

Basic's

RE: 8-stellige 7-Segment mit der 08M2

 von BoomBoomMagic , 09.03.2019 09:19

vielleicht war das Beispiel etwas viel auf einem Mal ....

Hier jetzt mal eine (vielleicht) kürzere , verständlichere Version

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
 

 
#rem
 
C.1 = Daten
C.2 = Clock
C.4 = CS
 

Wert | Anzeige
--------------
0 | 0
1 | 1
2 | 2
3 | 3
4 | 4
5 | 5
6 | 6
7 | 7
8 | 8
9 | 9
10 | -
11 | E
12 | H
13 | L
14 | P
15 | blank



#endrem
 

 

#picaxe 08M2
 

let dirsc=%11110111
 

symbol Segment = b0
symbol Zahlenwert = b1
symbol Adresse = b0
symbol Data_ = b1
 

 
high c.4
pause 1000
 
gosub Init_Max ' den MAX7219 einstellen
 
gosub Blank ' alle Segmente leeren
pause 500
 

 

'Beispiel:
 
Zahlenwert=0
Segment=1
Gosub Send_max
'
Zahlenwert=1
Segment=2
Gosub Send_max
'
Zahlenwert=2
Segment=3
Gosub Send_max
'
Zahlenwert=3
Segment=4
Gosub Send_max
'
Zahlenwert=4
Segment=5
Gosub Send_max
'
Zahlenwert=5
Segment=6
Gosub Send_max
'
Zahlenwert=6
Segment=7
Gosub Send_max
'
Zahlenwert=7
Segment=8
Gosub Send_max
'
 
end
 
'#########################################################
 
Init_Max:
 
Adresse = 12 : Data_ = 0 ' Shutdown On
Gosub Send_max
 
Adresse = 9 : Data_ = 255 ' Decode "B"
Gosub Send_max
 
Adresse = 10 : Data_ = 8 ' Helligkeit voll
Gosub Send_max
 
Adresse = 11 : Data_ = 7 ' Anzahl Digits 8
Gosub Send_max
 
Adresse = 15 : Data_ = 0 ' Test Off
Gosub Send_max
 
Adresse = 12 : Data_ = 1 ' Shutdown Off
Gosub Send_max
 

return
 

 

Send_Max:
 

#rem

gesendet werden immer 2 Bytes
Erst die Adresse / Speicherbereich des MAX7219 ,
dann der Wert :
- bei der Initialisierung ein Kommand
- beim Betrieb der Zahlenwert


gesendet wird "rückwärts" , d.h. : das letzte Bit zuerst (MSB first )
bit7 - bit0 = b0
bit15 - bit 8 = b1

#endrem
 

high c.4
low c.2
low c.1

'C.1= Data / C.2 = Clock
pinc.1=bit7
pulsout c.2,1
'--------------
pinc.1=bit6
pulsout c.2,1
'--------------
pinc.1=bit5
pulsout c.2,1
'--------------
pinc.1=bit4
pulsout c.2,1
'--------------
pinc.1=bit3
pulsout c.2,1
'--------------
pinc.1=bit2
pulsout c.2,1
'--------------
pinc.1=bit1
pulsout c.2,1
'--------------
pinc.1=bit0
pulsout c.2,1
'--------------
 


'C.1= Data / C.2 = Clock
pinc.1=bit15
pulsout c.2,1
'--------------
pinc.1=bit14
pulsout c.2,1
'--------------
pinc.1=bit13
pulsout c.2,1
'--------------
pinc.1=bit12
pulsout c.2,1
'--------------
pinc.1=bit11
pulsout c.2,1
'--------------
pinc.1=bit10
pulsout c.2,1
'--------------
pinc.1=bit9
pulsout c.2,1
'--------------
pinc.1=bit8
pulsout c.2,1
'--------------
 
low c.4
 
return
 

Blank:
 
Data_=15
for b25=1 to 8

Adresse=b25
gosub Send_max

next b25
 
return
 
 


*** Die Picaxe muß nicht alles können , es reicht wenn sie sagt wo's lang geht ***

BoomBoomMagic
Beiträge: 533
Registriert am: 24.01.2019

Themen Überblick

Betreff Absender Datum
8-stellige 7-Segment mit der 08M2 BoomBoomMagic 08.03.2019
RE: 8-stellige 7-Segment mit der 08M2 BoomBoomMagic 09.03.2019
RE: 8-stellige 7-Segment mit der 08M2 BoomBoomMagic 09.03.2019
RE: 8-stellige 7-Segment mit der 08M2 BoomBoomMagic 09.03.2019
RE: 8-stellige 7-Segment mit der 08M2 harry02 14.04.2019
RE: 8-stellige 7-Segment mit der 08M2 BoomBoomMagic 15.04.2019
RE: 8-stellige 7-Segment mit der 08M2 BoomBoomMagic 17.04.2019
RE: 8-stellige 7-Segment mit der 08M2 harry02 23.04.2019
RE: 8-stellige 7-Segment mit der 08M2 harry02 21.05.2019
RE: 8-stellige 7-Segment mit der 08M2 BoomBoomMagic 22.05.2019
RE: 8-stellige 7-Segment mit der 08M2 harry02 23.05.2019
RE: 8-stellige 7-Segment mit der 08M2 BoomBoomMagic 23.05.2019
 

Picaxe Editor 5.5.5 Download
Update auf Picaxe Editor 5.5.6 Download
Picaxe Editor 6.x.x.x Download
Manual1.pdf        -      Grundwissen Download
Manual2.pdf        -      Befehle Download
Manual3.pdf        -      Beispiele Download


Press [Backspace] for back to Menu


Counter
Xobor Forum Software ©Xobor.de | Forum erstellen
Datenschutz