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 21:22

Kann ich machen, sind halt meine Kürzel für manche Dinge.
Wenn als Wert &H00 steht ist es für mich eine Hexadezimal und wenn es eine 0 ist eine Dezimal Zahl, das H ist für Hexadezimal, das B für Binär...

Würdest Du im Gegenzug Satzeichen direkt an den letzten Buchstaben setzen wie es üblich ist, vereinfacht das lesen ungemein und hat auch einen Grund bzw.einen Sinn "bei einem Zeilenumbruch wandert sonst das Satzzeichen an den Anfang der nächsten Zeile".

Im neuen Testprogramm habe ich es angepasst, Buchstaben von A-Z:

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
 
' Compiler: Bascom-Demo 2.0.7.5
 
' Dateiname: A-Z.avr
' Funktion: die Buchstaben A-Z mit einer 32x8 Matrix anzeigen
' 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 Buchstabe as byte ' ein Buchstabe
dim z as byte ' Zähler für for, Buchstaben
dim i as byte ' Zähler für for, Matrix
dim Pause as word ' msec Pause zwischen den einzelnen Buchstaben
 
' --- Vorbelegung der Variablen... -----------------------------------------------------------------------------
' --- Programm Anfang ------------------------------------------------------------------------------------------
 
Pause = 500
Cs = 1
gosub Init_max
 
do
 
for z = 0 to 25
Buchstabe = z * 8
for i = 0 to 7
Cs = 0 ' noch nicht anzeigen
Befehl = i + 1 ' Zeilen Nr. der Matrix
 
Daten = lookup( Buchstabe , Buchstaben ) ' 8x8 Matrix 4, die letzte Matrix
shiftout Din , Clk , Befehl , 1
shiftout Din , Clk , Daten , 1
 
Daten = lookup( Buchstabe , Buchstaben ) ' 8x8 Matrix 3
shiftout Din , Clk , Befehl , 1
shiftout Din , Clk , Daten , 1
 
Daten = lookup( Buchstabe , Buchstaben ) ' 8x8 Matrix 2
shiftout Din , Clk , Befehl , 1
shiftout Din , Clk , Daten , 1
 
Daten = lookup( Buchstabe , Buchstaben ) ' 8x8 Matrix 1, die mit dem Anschluß zum Mikrocontroller
shiftout Din , Clk , Befehl , 1
shiftout Din , Clk , Daten , 1
 
Cs = 1 ' jetzt anzeigen
Incr Buchstabe
next i
waitms Pause
next z
 
loop
 
' --- Programm Ende --------------------------------------------------------------------------------------------
 
end
 
' --- Prozeduren, Funktionen... --------------------------------------------------------------------------------
 
Init_max:
Befehl = &H0C : Daten = 0 ' Shutdown an, keine Ausführung möglich
Befehl = &H09 : Daten = 0 ' auf Matrixbetrieb schalten, nicht auf 7 Segmentbetrieb
gosub anzeigen
Befehl = &H0A : Daten = 0 ' Helligkeit 0-15
gosub anzeigen
Befehl = &H0B : Daten = 7 ' wieviel Reihen sollen benutzt werden 0-7
gosub anzeigen
Befehl = &H0F : Daten = 0 ' Test aus
gosub anzeigen
Befehl = &H0C : Daten = 1 ' Shutdown aus, eine Ausführung ist wieder möglich
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
 
' --- data Reihen... -------------------------------------------------------------------------------------------
 
Buchstaben:
 
' A z= 0
data &B00111000 , &B01000100 , &B01000100 , &B01111100 , &B01000100 , &B01000100 , &B01000100 , &B00000000
' B z= 1
data &B01111000 , &B01000100 , &B01000100 , &B01111000 , &B01000100 , &B01000100 , &B01111000 , &B00000000
' C z= 2
data &B00111000 , &B01000100 , &B01000000 , &B01000000 , &B01000000 , &B01000100 , &B00111000 , &B00000000
' D z= 3
data &B01111000 , &B01000100 , &B01000100 , &B01000100 , &B01000100 , &B01000100 , &B01111000 , &B00000000
' E z= 4
data &B01111100 , &B01000000 , &B01000000 , &B01111000 , &B01000000 , &B01000000 , &B01111100 , &B00000000
' F z= 5
data &B01111100 , &B01000000 , &B01000000 , &B01111000 , &B01000000 , &B01000000 , &B01000000 , &B00000000
' G z= 6
data &B00111000 , &B01000100 , &B01000000 , &B01001100 , &B01000100 , &B01000100 , &B00111000 , &B00000000
' H z= 7
data &B01000100 , &B01000100 , &B01000100 , &B01111100 , &B01000100 , &B01000100 , &B01000100 , &B00000000
' I z= 8
data &B00111000 , &B00010000 , &B00010000 , &B00010000 , &B00010000 , &B00010000 , &B00111000 , &B00000000
' J z= 9
data &B00011100 , &B00000100 , &B00000100 , &B00000100 , &B00000100 , &B01000100 , &B00111000 , &B00000000
' K z=10
data &B01000100 , &B01001000 , &B01010000 , &B01100000 , &B01010000 , &B01001000 , &B01000100 , &B00000000
' L z=11
data &B01000000 , &B01000000 , &B01000000 , &B01000000 , &B01000000 , &B01000000 , &B01111100 , &B00000000
' M z=12
data &B01000100 , &B01101100 , &B01111100 , &B01010100 , &B01000100 , &B01000100 , &B01000100 , &B00000000
' N z=13
data &B01000100 , &B01100100 , &B01100100 , &B01010100 , &B01001100 , &B01001100 , &B01000100 , &B00000000
' O z=14
data &B00111000 , &B01000100 , &B01000100 , &B01000100 , &B01000100 , &B01000100 , &B00111000 , &B00000000
' P z=15
data &B01111000 , &B01000100 , &B01000100 , &B01111000 , &B01000000 , &B01000000 , &B01000000 , &B00000000
' Q z=16
data &B00111000 , &B01000100 , &B01000100 , &B01000100 , &B01000100 , &B01001000 , &B00111100 , &B00000000
' R z=17
data &B01111000 , &B01000100 , &B01000100 , &B01111000 , &B01010000 , &B01001000 , &B01000100 , &B00000000
' S z=18
data &B00111100 , &B01000000 , &B01000000 , &B00111000 , &B00000100 , &B00000100 , &B01111000 , &B00000000
' T z=19
data &B01111100 , &B00010000 , &B00010000 , &B00010000 , &B00010000 , &B00010000 , &B00010000 , &B00000000
' U z=20
data &B01000100 , &B01000100 , &B01000100 , &B01000100 , &B01000100 , &B01000100 , &B00111000 , &B00000000
' V z=21
data &B01000100 , &B01000100 , &B00101000 , &B00101000 , &B00101000 , &B00010000 , &B00010000 , &B00000000
' W z=22
data &B01000100 , &B01000100 , &B01010100 , &B01010100 , &B01101100 , &B01101100 , &B01000100 , &B00000000
' X z=23
data &B01000100 , &B00101000 , &B00101000 , &B00010000 , &B00101000 , &B00101000 , &B01000100 , &B00000000
' Y z=24
data &B01000100 , &B01000100 , &B00101000 , &B00101000 , &B00010000 , &B00010000 , &B00010000 , &B00000000
' Z z=25
data &B01111100 , &B00000100 , &B00001000 , &B00010000 , &B00100000 , &B01000000 , &B01111100 , &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