Herzlich Willkommen im einzigen (deutschsprachigem) Picaxe-Forum.

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

AVR / Atmel

RE: Nr. 6 lebt ...

 von Naubaddi , 12.01.2020 17:16

Nabend allerseits,

die Displays sind zum experimentieren gedacht, oder um zu lernen wie es geht.

Habe auch ein wenig mit dem 32x8 Matrix-Teil experimentiert, die Anordnung finde ich blöd weil um 90° gedreht die Daten erwartet werden. Es gibt schlimmeres, also ran ans Werk.

Es ist noch nix besonderes, es sind die ersten Gehversuche:

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
219
220
221
222
 
' Compiler: Bascom-Demo 2.0.7.5
 
' Dateiname: Nr6 Mund mit 32x8 Matrix.avr
' Funktion: einen Mund für Nr. 6 mit einer 32x8 Matrix anzeigen und bewegen
' Datum: 12.01.2020, Stand 12.01.2020
' Von: Naubaddi
 
' --- Mikrocontroler Daten... ----------------------------------------------------------------------------------
 
$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 40
$swstack = 40
$framesize = 40
 
' &HFF, &HE1, &HD9, &HFF ' 1MHz
$PROG &HFF, &HE4, &HD9, &HFF ' 8MHz
 
' --- Deklarationen... -----------------------------------------------------------------------------------------
 
Din alias portd.0
Cs alias portd.1
Clk alias portd.2
 
config Din = output
config Cs = output
config Clk = output
 
' --- Variablen... ---------------------------------------------------------------------------------------------
 
dim Befehl as byte ' Befehl für die 8x8 Matrix
dim Daten as byte ' Daten für die 8x8 Matrix
dim i as byte ' Zähler für for
dim Pause as word ' msec Pause zwischen den einzelnen Mundarten
 
' --- Vorbelegung der Variablen... -----------------------------------------------------------------------------
' --- Programm Anfang ------------------------------------------------------------------------------------------
 
Pause = 2000
Cs = 1
gosub Init_max ' initialisieren der 8x8 Matrix
 
do
 
gosub Mund_nix
for i = 0 to 7 ' lächeln
Cs = 0 ' noch nicht anzeigen
Befehl = i + 1 ' Zeilen Nr. der Matrix
 
Daten = lookup(i , Ml_4) ' 8x8 Matrix 4, die letzte Matrix
shiftout Din , Clk , Befehl , 1
shiftout Din , Clk , Daten , 1
 
Daten = lookup(i , Ml_3) ' 8x8 Matrix 3
shiftout Din , Clk , Befehl , 1
shiftout Din , Clk , Daten , 1
 
Daten = lookup(i , Ml_2) ' 8x8 Matrix 2
shiftout Din , Clk , Befehl , 1
shiftout Din , Clk , Daten , 1
 
Daten = lookup(i , Ml_1) ' 8x8 Matrix 1, die mit dem Anschluß zum Mikrocontroller
shiftout Din , Clk , Befehl , 1
shiftout Din , Clk , Daten , 1
 
Cs = 1 ' jetzt anzeigen
next i
waitms Pause
 
gosub Mund_nix
for i = 0 to 7 ' traurig
Cs = 0
Befehl = i + 1
 
Daten = lookup(i , Mt_4)
shiftout Din , Clk , Befehl , 1
shiftout Din , Clk , Daten , 1
 
Daten = lookup(i , Mt_3)
shiftout Din , Clk , Befehl , 1
shiftout Din , Clk , Daten , 1
 
Daten = lookup(i , Mt_2)
shiftout Din , Clk , Befehl , 1
shiftout Din , Clk , Daten , 1
 
Daten = lookup(i , Mt_1)
shiftout Din , Clk , Befehl , 1
shiftout Din , Clk , Daten , 1
 
Cs = 1
next i
waitms Pause
 
gosub Mund_nix
for i = 0 to 7 ' ooo
Cs = 0
Befehl = i + 1
 
Daten = lookup(i , Mo_4)
shiftout Din , Clk , Befehl , 1
shiftout Din , Clk , Daten , 1
 
Daten = lookup(i , Mo_3)
shiftout Din , Clk , Befehl , 1
shiftout Din , Clk , Daten , 1
 
Daten = lookup(i , Mo_2)
shiftout Din , Clk , Befehl , 1
shiftout Din , Clk , Daten , 1
 
Daten = lookup(i , Mo_1)
shiftout Din , Clk , Befehl , 1
shiftout Din , Clk , Daten , 1
 
Cs = 1
next i
waitms Pause
 
loop
 
' --- Programm Ende --------------------------------------------------------------------------------------------
 
end
 
' --- Prozeduren, Funktionen... --------------------------------------------------------------------------------
 
init_max: ' Initialisieren der 8x8 Matrix
Befehl = &H09 : Daten = &H00 ' 8x8 Matrix
gosub anzeigen
Befehl = &H0A : Daten = &H00 ' Helligkeit der Matrix von 0 = dunkel bis F = hell
gosub anzeigen
Befehl = &H0B : Daten = 7 ' 8x8 Matrix
gosub anzeigen
Befehl = &H0F : Daten = 0 ' Test aus
gosub anzeigen
Befehl = &H0C : Daten = 1 ' Shutdown aus
gosub anzeigen
return
 
anzeigen:
Cs = 0 ' noch nicht anzeigen
for i = 1 to 4 ' 4 8x8 Matrix sind angeschlossen
shiftout Din , Clk , Befehl , 1 ' den Befehl senden
shiftout Din , Clk , Daten , 1 ' die Daten senden
next i ' nächste Matrix
Cs = 1 ' jetzt anzeigen
return
 
Mund_nix:
for i = 0 to 7
Cs = 0
Befehl = i + 1
 
Daten = lookup(i , Mn_4)
shiftout Din , Clk , Befehl , 1
shiftout Din , Clk , Daten , 1
 
Daten = lookup(i , Mn_3)
shiftout Din , Clk , Befehl , 1
shiftout Din , Clk , Daten , 1
 
Daten = lookup(i , Mn_2)
shiftout Din , Clk , Befehl , 1
shiftout Din , Clk , Daten , 1
 
Daten = lookup(i , Mn_1)
shiftout Din , Clk , Befehl , 1
shiftout Din , Clk , Daten , 1
 
Cs = 1
next i
waitms Pause
return
 
' --- data Reihen... -------------------------------------------------------------------------------------------
 
' --- nix ---
 
Mn_4:
data &B00000000 , &B00000000 , &B00000000 , &B01111111 , &B01111111 , &B00000000 , &B00000000 , &B00000000
Mn_3:
data &B00000000 , &B00000000 , &B00000000 , &B11111111 , &B11111111 , &B00000000 , &B00000000 , &B00000000
Mn_2:
data &B00000000 , &B00000000 , &B00000000 , &B11111111 , &B11111111 , &B00000000 , &B00000000 , &B00000000
Mn_1:
data &B00000000 , &B00000000 , &B00000000 , &B11111110 , &B11111110 , &B00000000 , &B00000000 , &B00000000
 
' --- lächeln ---
 
Ml_4:
data &B00000000 , &B01100000 , &B01110000 , &B00111100 , &B00001111 , &B00000011 , &B00000000 , &B00000000
Ml_3:
data &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B11111111 , &B11111111 , &B00000000
Ml_2:
data &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B11111111 , &B11111111 , &B00000000
Ml_1:
data &B00000000 , &B00000110 , &B00001110 , &B00111100 , &B11110000 , &B11000000 , &B00000000 , &B00000000
 
' --- traurig ---
 
Mt_4:
data &B00000000 , &B00000000 , &B00000011 , &B00001111 , &B00111100 , &B01110000 , &B01100000 , &B00000000
Mt_3:
data &B00000000 , &B11111111 , &B11111111 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000
Mt_2:
data &B00000000 , &B11111111 , &B11111111 , &B00000000 , &B00000000 , &B00000000 , &B00000000 , &B00000000
Mt_1:
data &B00000000 , &B00000000 , &B11000000 , &B11110000 , &B00111100 , &B00001110 , &B00000110 , &B00000000
 
' --- ooo ---
 
Mo_4:
data &B00000000 , &B00001111 , &B00011111 , &B00011000 , &B00011000 , &B00011111 , &B00001111 , &B00000000
Mo_3:
data &B00000000 , &B11111111 , &B11111111 , &B00000000 , &B00000000 , &B11111111 , &B11111111 , &B00000000
Mo_2:
data &B00000000 , &B11111111 , &B11111111 , &B00000000 , &B00000000 , &B11111111 , &B11111111 , &B00000000
Mo_1:
data &B00000000 , &B11110000 , &B11111000 , &B00011000 , &B00011000 , &B11111000 , &B11110000 , &B00000000
 
' --------------------------------------------------------------------------------------------------------------
 





Grüßle, Naubaddi

Naubaddi
Beiträge: 288
Registriert am: 29.01.2019

Themen Überblick

Betreff Absender Datum
-
Nr. 6 lebt ... Naubaddi 03.01.2020
RE: Nr. 6 lebt ... Naubaddi 03.01.2020
RE: Nr. 6 lebt ... BoomBoomMagic 03.01.2020
RE: Nr. 6 lebt ... BoomBoomMagic 05.01.2020
RE: Nr. 6 lebt ... Naubaddi 06.01.2020
RE: Nr. 6 lebt ... BoomBoomMagic 06.01.2020
RE: Nr. 6 lebt ... Naubaddi 06.01.2020
RE: Nr. 6 lebt ... BoomBoomMagic 06.01.2020
RE: Nr. 6 lebt ... BoomBoomMagic 06.01.2020
RE: Nr. 6 lebt ... BoomBoomMagic 12.01.2020
RE: Nr. 6 lebt ... Naubaddi 12.01.2020
RE: Nr. 6 lebt ... BoomBoomMagic 12.01.2020
RE: Nr. 6 lebt ... BoomBoomMagic 12.01.2020
RE: Nr. 6 lebt ... Naubaddi 12.01.2020
RE: Nr. 6 lebt ... BoomBoomMagic 12.01.2020
RE: Nr. 6 lebt ... Naubaddi 12.01.2020
RE: Nr. 6 lebt ... BoomBoomMagic 12.01.2020
RE: Nr. 6 lebt ... Naubaddi 13.01.2020
RE: Nr. 6 lebt ... BoomBoomMagic 13.01.2020
RE: Nr. 6 lebt ... Naubaddi 14.01.2020
RE: Nr. 6 lebt ... Naubaddi 14.01.2020
RE: Nr. 6 lebt ... Naubaddi 14.01.2020
RE: Nr. 6 lebt ... BoomBoomMagic 14.01.2020
RE: Nr. 6 lebt ... Naubaddi 14.01.2020
RE: Nr. 6 lebt ... Naubaddi 14.01.2020
RE: Nr. 6 lebt ... BoomBoomMagic 14.01.2020
RE: Nr. 6 lebt ... Naubaddi 14.01.2020
RE: Nr. 6 lebt ... BoomBoomMagic 14.01.2020
RE: Nr. 6 lebt ... BoomBoomMagic 15.01.2020
RE: Nr. 6 lebt ... Naubaddi 15.01.2020
RE: Nr. 6 lebt ... BoomBoomMagic 15.01.2020
RE: Nr. 6 lebt ... Naubaddi 15.01.2020
RE: Nr. 6 lebt ... Naubaddi 15.01.2020
RE: Nr. 6 lebt ... BoomBoomMagic 15.01.2020
RE: Nr. 6 lebt ... BoomBoomMagic 15.01.2020
RE: Nr. 6 lebt ... Naubaddi 15.01.2020
RE: Nr. 6 lebt ... BoomBoomMagic 15.01.2020
RE: Nr. 6 lebt ... Naubaddi 16.01.2020
RE: Nr. 6 lebt ... Naubaddi 16.01.2020
RE: Nr. 6 lebt ... BoomBoomMagic 04.02.2020
 

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