Mikrocontroller und Digitale Elektronik
›
Thread
RGB Fader mit Tasten Attiny2313(Bascom)
BH
Ben H.
(bendoben)
OP
08.12.2010 03:20 #1967206
*Guten Morgen,
Es ist mir nicht begreiflich, warum ich nicht den Color_delay mit
Tastern ändern kann. +-
Vielleicht ist mein Ansatz auch falsch ?*
1 $ regfile = "attiny2313.dat" ' specify the used micro
2 $ crystal = 800000 ' used crystal frequency
3 $ hwstack = 64
4 $ swstack = 16
5 $ framesize = 21
6 Config Pinb . 2 = Output ' Die PWM - Pins als Output definieren
7 Config Pinb . 3 = Output ' Die PWM - Pins als Output definieren
8 Config Pinb . 4 = Output ' Die PWM - Pins als Output definieren
9 Config Pind . 0 = Input
10 Config Pind . 1 = Input
11 Config Pind . 2 = Input
12
13 ' Die Timer auf PWM - Modus stellen
14 ' Die PWM - Register haben eine Breite von 8 Bit - also Werte von 0 bis 255
15 ' Wobei 0 = 0 % Helligkeit und 255 = 100 % Helligkeit bedeuten
16 Config Timer0 = Pwm , Pwm = On , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
17 Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
18
19
20 ' Die Timer starten
21 Enable Timer0
22 Enable Timer1
23 ' Interessanterweise MUSS man f ü r OC2 Enable benutzen , sonst passiert nix !
24 Start Timer0
25 Start Timer1
26
27
28 ' Die PWM - Register zuweisen
29 Led1 Alias Ocr1bl ' PWM - Pin 1 - Red
30 Led2 Alias Ocr1al ' PWM - Pin 2 - Green
31 Led3 Alias Ocr0a ' PWM - Pin 3 - Blau
32 Taste1 Alias Pind . 0
33 Taste2 Alias Pind . 1
34 Taste3 Alias Pind . 2
35
36
37 ' ein Paar Variablen Deklarieren
38 Dim Color_delay As Byte
39 Dim Color_stop As Byte
40 Dim Rgb As Byte
41
42
43 ' Startwert f ü r die Schleife
44 Rgb = 0
45
46 ' Farbwechsel Geschwindigkeit pro Schritt ( empfohlen 1 - 15 ) 1 = schnell 15 = langsam
47 Color_delay = 10
48
49 ' Dauer der Pause bei der Grundfarbe ( empfohlen 1 - 10 )
50 Color_stop = 2
51
52
53 Do
54 If Taste2 = 1 Then Load Color_delay + 1 End If
55 If Taste3 = 1 Then Load Color_delay - 1 End If
56 If Taste1 = 1 Then
57
58 If Rgb = 0 Then
59 Incr Led1
60 Decr Led3
61 Waitms Color_delay
62 End If
63
64 If Led1 = 255 Then
65 Rgb = 1
66 Led3 = 0
67 Wait Color_stop
68 End If
69
70 If Rgb = 1 Then
71 Decr Led1
72 Incr Led2
73 Waitms Color_delay
74 End If
75
76 If Led2 = 255 Then
77 Rgb = 2
78 Led1 = 0
79 Wait Color_stop
80 End If
81
82 If Rgb = 2 Then
83 Decr Led2
84 Incr Led3
85 Waitms Color_delay
86 End If
87
88 If Led3 = 255 Then
89 Rgb = 0
90 Led2 = 0
91 Wait Color_stop
92 End If
93
94 Else
95
96
97 End If
98
99 Loop
100 End
TK
Thomas Kiss
Gast
08.12.2010 07:33 #1967231
Wie wäre folgendes :
Debounce Taste2 , 0 , On_taste2 , Sub
On_Taste2:
Incr color_delay
if color_delay > 15 then
color_delay=0
end if
Retrun
BH
Ben H.
(bendoben)
OP
08.12.2010 09:16 #1967312
ist es nicht auch möglich über einen Poti diesen Zahlenwert zu
verändern?
Wie würde dann der Code aussehen?
TK
Thomas Kiss
Gast
08.12.2010 09:50 #1967340
Poti wäre eine elegante Lösung !!!
Ich könnte mir folgendes vorstellen :
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Adc0 = Getadc(0)
Select Case Adc0
Case 0 To 50 :
Color_delay=10
Case 51 To 100 :
Color_delay=15
usw...
BH
Ben H.
(bendoben)
OP
08.12.2010 10:17 #1967366
Thomas Kiss
Läuft dein Code so? Kann ich ihn so übernemen?
Der poti musste ja an den Adc eingan inputiert werden oder ?
TK
Thomas Kiss
Gast
08.12.2010 10:22 #1967374
Denke schon, der ADC wert ist normal zwischen 0 und 255.
Poti ist an PC.0
Tipp : Am Anfang schliesse ich eine LCD Display an für Testzwecke un zu
sehen welche Werte gerade anstehen....es gibt mit Sicherheit auch noch
andere Möglichkeiten...
BH
Ben H.
(bendoben)
OP
08.12.2010 10:44 #1967404
Da besteht nur das Problem wie gebe ich diesen wert aufs LCD ?
Habe mir gerade eine LCD bestellt ;) & habe noch keine Erfahrungen mit
LCD's
Lg Ben
TK
Thomas Kiss
Gast
08.12.2010 10:50 #1967415
In Bascom ist recht einfach. Du definierst die Anschlüsse vom LCD wo an
Atmega angeschlossen ist . BSP :
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , _
Db7 = Portb.3 , E = Portb.4 , Rs = Portb.5
Config Lcd = 16 * 2
Cls
Cursor Off
dann kannst einfach in der Do - Loop schleife Werte anzeigen lassen :
Locate 1 , 1 ( Position )
Lcd "Wert" ( Fix Text )
Locate 2,1
Lcd Color_delay ( welche Wert soll angezeigt werden.)
So dann sieht an der Anzeige :
Wert
122 ( Bsp )
PS: LCD ist sehr günstig in Polen oder HongKong. Habe für 2 Euro 16x2
Blau/weiss bestellt )
BH
Ben H.
(bendoben)
OP
09.12.2010 01:06 #1968684
So habe nun den Code auf einen atmega32 umgeschrieben, jedoch nun
erhalte ich die Fehlermeldung:
ERROR : 269 last Line END SELECT expected.
Müsste heißen die adc messung müsste auch gestoppt werden oder?
lG Ben
1 $ regfile = "m32def.dat" ' specify the used micro
2 $ crystal = 800000 ' used crystal frequency
3 $ hwstack = 64
4 $ swstack = 16
5 $ framesize = 21
6 Config Pind . 4 = Output ' Die PWM - Pins als Output definieren
7 Config Pind . 5 = Output ' Die PWM - Pins als Output definieren
8 Config Pind . 7 = Output ' Die PWM - Pins als Output definieren
9 Config Pina . 0 = Input
10
11
12 ' Die Timer auf PWM - Modus stellen
13 ' Die PWM - Register haben eine Breite von 8 Bit - also Werte von 0 bis 255
14 ' Wobei 0 = 0 % Helligkeit und 255 = 100 % Helligkeit bedeuten
15 Config Timer0 = Pwm , Pwm = On , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
16 Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
17 Config Adc = Single , Prescaler = Auto , Reference = Avcc
18
19
20
21 ' Die Timer starten
22 Enable Timer0
23 Enable Timer1
24 ' Interessanterweise MUSS man f ü r OC2 Enable benutzen , sonst passiert nix !
25 Start Timer0
26 Start Timer1
27
28
29 ' Die PWM - Register zuweisen
30 Led1 Alias Ocr2 ' PWM - Pin 1 - Red
31 Led2 Alias Ocr1bl ' PWM - Pin 2 - Green
32 Led3 Alias Ocr1al ' PWM - Pin 3 - Blau
33 Taste1 Alias Pind . 0
34
35
36
37 ' ein Paar Variablen Deklarieren
38 Dim Color_delay As Byte
39 Dim Color_stop As Byte
40 Dim Rgb As Byte
41 Dim Adc0 As Byte
42
43 ' Startwert f ü r die Schleife
44 Rgb = 0
45
46 ' Farbwechsel Geschwindigkeit pro Schritt ( empfohlen 1 - 15 ) 1 = schnell 15 = langsam
47 Color_delay = 10
48
49 ' Dauer der Pause bei der Grundfarbe ( empfohlen 1 - 10 )
50 Color_stop = 2
51
52
53 Do
54
55 Start Adc
56 Adc0 = Getadc ( 0 )
57 Select Case Adc0
58 Case 0 To 50 :
59 Color_delay = 10
60 Case 51 To 100 :
61 Color_delay = 15
62
63
64
65
66 If Rgb = 0 Then
67 Incr Led1
68 Decr Led3
69 Waitms Color_delay
70 End If
71
72 If Led1 = 255 Then
73 Rgb = 1
74 Led3 = 0
75 Wait Color_stop
76 End If
77
78 If Rgb = 1 Then
79 Decr Led1
80 Incr Led2
81 Waitms Color_delay
82 End If
83
84 If Led2 = 255 Then
85 Rgb = 2
86 Led1 = 0
87 Wait Color_stop
88 End If
89
90 If Rgb = 2 Then
91 Decr Led2
92 Incr Led3
93 Waitms Color_delay
94 End If
95
96 If Led3 = 255 Then
97 Rgb = 0
98 Led2 = 0
99 Wait Color_stop
100 End If
101
102 End If
103
104 Loop
105
106 End
Ben Hil schrieb: > Läuft dein Code so? Kann ich ihn so übernemen?
Ben, pass auf, von wem dir hier "geholfen" wird.
Hier unterhalten sich Einäugiger und Blinder - und du bist dabei der mit
dem Auge.
http://www.google.de/search?q=site:mikrocontroller.net+thomaskiss
SK
Sascha K.
Gast
09.12.2010 03:29 #1968700
Im LedStyles- Forum findest Du ein sehr schönes Projekt cdazu:
http://www.ledstyles.de/ftopic11666.html
G
GerK
Gast
09.12.2010 05:11 #1968711
Hallo!
Die Case Anweisung muss mit End Selct abgeschlossen werden.
Hilfe lesen hilft.
MfG
Thomas Kiss schrieb: > PS: LCD ist sehr günstig in Polen oder HongKong. Habe für 2 Euro 16x2
> Blau/weiss bestellt )
@thomas - ich kaufe meine lcd´s immer dort ein !
http://www.neuhold-elektronik.at/catshop/product_info.php?cPath=41_43&products_id=2297
gruss...
Thomas Kiss schrieb: > Denke schon, der ADC wert ist normal zwischen 0 und 255.
>
> Poti ist an PC.0
@thomas - der attiny2313 hat doch keinen adc, und auch keinen C.0 ?
auserdem ist der adc doch 10bit also 1024 (z.b. beim Mega)??
oder liege ich da falsch ?
TK
Thomas Kiss
Gast
09.12.2010 07:32 #1968738
Richtig, habe mich verguckt, geht es nur mit Atmega8
Antwort schreiben
Bitte melde dich an, um einen Beitrag zu schreiben.
Noch kein Account?
Die Registrierung ist kostenlos und dauert nur eine Minute.
Jetzt registrieren
