Herzlich Willkommen im einzigen (deutschsprachigem) Picaxe-Forum.

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

Eine neue Antwort erstellen

[b][/b]
[i][/i]
[u][/u]
[code][/code]
[quote][/quote]
[spoiler][/spoiler]
[url][/url]
[img][/img]
[video][/video]
Smileys
Top
griins
idee
frage
grin
hmm
lil
denk
sadly
grööhl
cool
shocked
[mail][/mail]
[pre][/pre]
Farben
[rot][/rot]
[blau][/blau]
[gruen][/gruen]
[orange][/orange]
[lila][/lila]
[weiss][/weiss]
[schwarz][/schwarz]
[big][/big]
[line]
[small][/small]
[h4][/h4]
[style={{name}}][/style]
a1
a2
a3
a4
a5
a6
a7
a8
a9
a10
a11
a12
a13
a14
a15
a16
a18
a17
a19
a20
a21


*Zur Vermeidung von Spam



Im Beitrag anzeigen:

In Antwort auf

RE: Automatisches Ankerlicht mit Schalter-LED Dimming Funktion

von Joe Patroni , 28.01.2019 13:54

Zwischenzeitlich hat die Schaltung noch ein neues Feature erhalten: Das Ankerlicht kann nun verwendet werden, ein SOS zu signalisieren:

http://www.goli-otok.com/temp/Ankerlicht.mp4





Schaltplan

Layout

Code:

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
 
'Picaxe 08M2+
'Automatic Anchorlight and Switchlight dimming Module
'For HW Rev >1.3
'AKO 2015
'Last changes: 031115
 
'SOS-Funktion implentiert
 
#picaxe 08M2 'definiert den gueltigen Picaxe-Typ
 
disconnect 'schaltet SERIAL IN Abfrage ab, um Pin C.5 als Eingang nutzen
'zu koennen. Fuer Programmdownload Picaxe stromlos machen, PE download starten,
'nach 1-2 sec Picaxe powern. SOS-Switch mu? dafuer in OFF stehen!
 
setfreq m16 'setzt Systemfrequenz auf 16MHz
 
let dirsc = %00000111 'konfiguriert C.0, C.1 und C.2 auf Ausgang
let pinsc = %00000101 'schaltet Ausgaenge C.0 und C.2 AUS
 
symbol LTSENSE = w0 'Helligkeitswert (Sensor) an ADC C.4
symbol SWDIM = w1 'Ausgabewert Switchlight-Helligkeit
 
symbol MINBRIGHT = w6 'Minimalwert Switchlight-Helligkeit
MINBRIGHT = 2 'LED Mindesthelligkeit @ SENSEMIN (min "1" und kleiner MAXBRIGHT)
symbol MAXBRIGHT = w7 'Maximalwert Switchlight-Helligkeit
MAXBRIGHT = 255 'LED Hoechsthelligkeit @ SENSEMAX (max "255" und groesser MINBRIGHT)
 
symbol SENSEMIN = w4 'Untergrenze Umgebungshelligkeit fuer MINBRIGHT
SENSEMIN = 200
symbol SENSEMAX = w5 'Obergrenze Umgebungshelligkeit fuer MAXBRIGHT
SENSEMAX = 500
 
symbol PITCH = w12 'fuer Zwischenberechung der Steigung
symbol TEMP1 = w13 'universell fuer Zwischenrechnungen
 
symbol ANCON = w9 'Schwellwertgrenze Ankerlicht ON
symbol ANCOFF = w10 'Schwellwertgrenze Ankerlicht OFF
 
ANCON = 165 'kleiner als ANCOFF, LDR = 15K (LTSENSE)
ANCOFF = 365 'groesser als ANCON, LDR = 51K (LTSENSE)
 
'-------------------------------------------------------------------------------------
 
MAIN:
 
readadc10 c.4, LTSENSE 'Helligkeit auslesen
 
LTSENSE = LTSENSE MIN 1
 
gosub SWITCHDIM
 
if pinC.3 = 1 and pinC.5 = 1 then 'Ankerlichtschalter EIN?
gosub SOSACTIVE

else if pinC.3 = 1 and pinC.5 = 0 then
gosub ANCHORLIGHT

else if pinC.3 = 0 then
low C.1
endif
 
goto MAIN
 
'-------------------------------------------------------------------------------------
ANCHORLIGHT: 'Ankerlicht in Abhaengigkeit vom Umgebungslicht
'ein bzw. abschalten
if LTSENSE <= ANCON then
high C.1
endif
 
if LTSENSE => ANCOFF then
low C.1
endif
 
return
 
'-------------------------------------------------------------------------------------
SWITCHDIM: 'LED-Helligkeit in Abhaengigkeit vom Umgebungslicht
'berechnen und innerhalb der Limits ausgeben
 
if LTSENSE <= SENSEMIN then
SWDIM = MINBRIGHT
elseif LTSENSE >= SENSEMAX then
SWDIM = MAXBRIGHT
elseif LTSENSE > SENSEMIN and LTSENSE < SENSEMAX then
 
PITCH = MAXBRIGHT - MINBRIGHT * 100
TEMP1 = SENSEMAX - SENSEMIN
PITCH = PITCH / TEMP1
TEMP1 = LTSENSE - SENSEMIN
SWDIM = PITCH * TEMP1 / 100 + MINBRIGHT

endif
 
if pinC.5 = 1 then 'wenn SOS "ON", dann Switchlights max bright
SWDIM = MAXBRIGHT
endif

pwmout c.2,99,SWDIM
return
 
'-------------------------------------------------------------------------------------
 
SOSACTIVE:
 
LOW C.1:pause 7000
 
'"S"
HIGH C.1:pause 2000
LOW C.1:pause 2000
if pinC.3 = 0 or pinC.5 = 0 then return
endif
 
HIGH C.1:pause 2000
LOW C.1:pause 2000
if pinC.3 = 0 or pinC.5 = 0 then return
endif
 
HIGH C.1:pause 2000
LOW C.1:pause 5000
if pinC.3 = 0 or pinC.5 = 0 then return
endif
 
'"O"
HIGH C.1:pause 4000
LOW C.1:pause 4000
if pinC.3 = 0 or pinC.5 = 0 then return
endif
 
HIGH C.1:pause 4000
LOW C.1:pause 4000
if pinC.3 = 0 or pinC.5 = 0 then return
endif
 
HIGH C.1:pause 4000
LOW C.1:pause 5000
if pinC.3 = 0 or pinC.5 = 0 then return
endif
 
'"S"
HIGH C.1:pause 2000
LOW C.1:pause 2000
if pinC.3 = 0 or pinC.5 = 0 then return
endif
 
HIGH C.1:pause 2000
LOW C.1:pause 2000
if pinC.3 = 0 or pinC.5 = 0 then return
endif
 
HIGH C.1:pause 2000
LOW C.1:pause 7000
 
return
 

Top

Fotos hochladen

Zugriffsanfrage von


Diese Seite versucht auf deinen addPics.com Account zuzugreifen.
Aus Sicherheitsgründen, erlaubt addPics.com nur den Zugriff von autorisierten Webseiten. Wenn du dieser Webseite vertraust, kannst du mit einem Klick auf den folgenden Link, den Zugriff erlauben.

autorisieren Aktualisieren

Bitte logge dich mit deinem bereits existierenden Account auf addPics.com ein.


Jetz einloggen!
Neu laden!


Dem Beitrag angehängte Bilder


- noch keine Bilder angehängt.

oder ein bereits hochgeladenes diesem Beitrag hinzufügen.
Nach Ordner filtern: Ordner bearbeiten
  • Mit deiner Emailadresse, verwaltest du all deine Bilder auf addPics.com
  • diese Nutzung von addPics.com ist für dich kostenlos!
  • weitere Informationen findest du hier


Mit dem Upload gebe ich mein Einverständnis, dass meine E-Mail von addPics.com für werbliche Zwecke zum Erhalt von Newslettern genutzt wird. Die E-Mail wird nicht an Dritte weitergegeben und der Newsletter kann jederzeit per E-Mail an unsubscribe@addpics.com abgemeldet werden.

Mit anderen addPics.com Account anmelden
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