Herzlich Willkommen im einzigen (deutschsprachigem) Picaxe-Forum.

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


Licht ein-aus und dimmen

#1 von harry02 , 19.03.2019 22:01

Hallo zusammen,

habe mir ein kleines Programm geschrieben, das folgende Funktionen erfüllen soll:
Mit 2 Tasten eine Lampe ein- und auszuschalten und mit der 3. Taste die Lampe zu dimmen.
Bis dahin klappt das Programm.
Jetzt wollte ich aber wieder zurück zum Mainprogramm springen, um die Lampe wieder ein- oder auszuschalten.
Doch da liegt der Hase im Pfeffer. Egal wo ich die Zeilen

if pin4 = 1 then
goto main
endif

einfüge, es gibt einfach kein zurück mehr nach main.

Habe ich da eine Möglichkeit übersehen?

Hier das Programm

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
 
'Licht ein- aus- und Dimmen
 
#picaxe 08m2
 
main:
if pin1 = 1 then
goto licht_an
endif
 
if pin3 = 1 then
goto licht_aus
endif
 
if pin4 = 1 then
goto dimmen
endif
 
goto main
 
'-------------------------
licht_an:
 
high 2
goto main
 
'-------------------------
licht_aus:
low 2
goto main
 
'-------------------------
dimmen:
 
do
loop until pin4 = 0
if pin4 = 1 then
goto main
endif
 
if pin1 = 1 then
gosub aufdimmen
endif
 
if pin3 =1 then
gosub abdimmen
endif
 
goto dimmen
 
'------------------------
aufdimmen:
 
for b0 = b0 to 255
pwmout 2,255,b0
if pin1 = 0 then
return
endif
pause 10
next b0
do
loop until pin1 = 0
 
b0 = 255
return
 
'------------------------
abdimmen:
 
for b0 = b0 to 1 step-1
pwmout 2,255,b0
if pin3 = 0 then
return
endif
pause 10
next b0
do
loop until pin3 = 0
b0 = 1
return
 
 



Vielen Dank für Antworten

harry02  
harry02
Beiträge: 45
Registriert am: 16.02.2019


RE: Licht ein-aus und dimmen

#2 von BoomBoomMagic , 20.03.2019 08:35

ok Harry , war jetzt nicht so gaaanz richtig , aber ..... schon fast

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
 

#picaxe 08m2

main:
 
if pin1 = 1 then
high 2
endif

if pin3 = 1 then
low 2
endif

if pin4 = 1 then
goto dimmen
endif

goto main

 

dimmen:
 
pause 100
do
loop until pin4 = 0
 

do
 
if pin4 = 1 then
pause 150
goto main
endif

if pin1 = 1 then
gosub aufdimmen
endif

if pin3 =1 then
gosub abdimmen
endif

loop
 


'------------------------
aufdimmen:

for b0 = b0 to 255
pwmout 2,255,b0
if pin1 = 0 then
return
endif
pause 10
next b0
 
do
loop until pin1 = 0

b0 = 255
return

'------------------------
abdimmen:

for b0 = b0 to 1 step-1
pwmout 2,255,b0
if pin3 = 0 then
return
endif
pause 10
next b0
 
do
loop until pin3 = 0
 
b0 = 1
return
 
 


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

 
BoomBoomMagic
Beiträge: 879
Registriert am: 24.01.2019


RE: Licht ein-aus und dimmen

#3 von harry02 , 21.03.2019 21:50

Hallo BBM,
danke für dein Programm. Aber im Grunde funktioniert es wie meines. Vielleicht habe ich mich falsch ausgdrückt. Ich wollte eigentlich im Aufdimm- oder Abdimm-Modus mit der Taste für Pin4 zurück zu Main springen, damit ich die Lampe wieder aus- oder anschalten kann. Wenn ich jetzt im Dimm-Modus bin, dann komme ich da nicht mehr raus. Deshalb habe ich gefragt, ob es eine Möglichkeit gibt, von da wieder zu main zurück zu kommen.
Gruß Harry

harry02  
harry02
Beiträge: 45
Registriert am: 16.02.2019


RE: Licht ein-aus und dimmen

#4 von BoomBoomMagic , 22.03.2019 08:20

Guck Dir mal genau den Unterschied an !

Setz das :

Do
loop until pin4=0 mal woanders hin !


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

 
BoomBoomMagic
Beiträge: 879
Registriert am: 24.01.2019

zuletzt bearbeitet 22.03.2019 | Top

   

Geigerzähler mit Picaxe?
Autosave

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