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:27

Hier der gleiche Code , ... nur andere schreibweise .....

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
 

 
#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:pause 500 ' alle Segmente leeren
 

 
'#########################################################
 

'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 :Gosub Send_max
Adresse = 9 : Data_ = 255:Gosub Send_max
Adresse = 10 : Data_ = 8:Gosub Send_max
Adresse = 11 : Data_ = 7 :Gosub Send_max
Adresse = 15 : Data_ = 0:Gosub Send_max
Adresse = 12 : Data_ = 1 :Gosub Send_max
return
 

 

Send_Max:
high c.4
low c.2
low c.1

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
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