Hey Leute,
wer kann mir 4 von diesn ringen machen?
bild hab ich im anhang.
die sollen die tachonadeln beleuchten. ich habe vor golf 4 nadeln zu verbauen.
Hey Leute,
wer kann mir 4 von diesn ringen machen?
bild hab ich im anhang.
die sollen die tachonadeln beleuchten. ich habe vor golf 4 nadeln zu verbauen.
sowas bau ich schnell auf Lochraster auf bei 4 Stück oder dremel mir es per Hand.
Wie Larkin schon gesagt hat, sowas kann man in einer guten Stunde auch slebst auf Lochraster bauen. Wenn du dir aber schon die Mühe machst, solche Ringe zu bauen, dann wenigstens gleich in RGB. Scheißegal was du grad für eine Farbe im Auge hast. Ich kenne das Problem. Einmal alles auf blau umgebaut und 3 Wochen später wieder auf weiss, da das doch auch geil aussah. Mit rotem Licht fährt es sich extrem angenehm in der Nacht usw. Mach gleich RGB. Einen kleinen uC davor und einen Taster dran. Dann kannst du selbst wählen, welche Farbe du willst. Hab ich auch so im Auto. Das Programm kannst du gerne haben, es füllt einen Tiny2313 zu 98%. Könnte man mal optimieren, aber dazu bin ich wieder mal zu faul..
Kurz mal die Möglichkeiten des Programms
1. Rot
2. Grün
3. Blau
4. Gelb
5. Pink
6. Blaugrün
7. Weiss
8. Orange (da geht auch jede andere Farbe, einfach im Programm festlegen)
9. RGB-Fader
10. Rot pulsierend
11. Grün pulsierend
12. Blau pulsierend
Insgesamt eine Menge Individualität. Paralel dazu kann mal ja auch die Tachobeleuchtung, Fußraumbeleuchtung, Türgriffbeleuchtung....mit anklemmen. Ich hab es so gemacht und bin total zufreiden. Programm stell ich morgen rein.
$regfile = "attiny2313.dat"
$crystal = 1000000
$hwstack = 10
$swstack = 10
$framesize = 10
Config Pind.4 = Input
Config Pind.5 = Input
Config Portd.6 = Output
Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.3 = Output
Config Portb.4 = Output
Config Timer0 = Pwm , Pwm = On , Prescale = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
Config Timer1 = Pwm , Pwm = 8 , Prescale = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
Enable Timer1
Enable Timer0
Start Timer1
Start Timer0
Led_r Alias Pwm0a
Led_g Alias Pwm1a
Led_b Alias Pwm1b
R_tacho Alias Portd.6
G_tacho Alias Portb.0
B_tacho Alias Portb.1
Dim I As Byte
Dim A As Eram Byte
Dim K As Byte
Dim C As Eram Byte
Dim Rgb As Byte
Dim R As Byte
Dim G As Byte
Dim B As Byte
Dim Sr As Bit
Dim Sg As Bit
Dim Sb As Bit
R = 0
G = 0
B = 0
Led_r = R
Led_g = G
Led_b = B
R_tacho = 0
G_tacho = 0
B_tacho = 0
Rgb = 0
Sr = 0
Sg = 0
Sb = 0
I = A
K = C
Config Debounce = 30
Do
Debounce Pind.4 , 0 , Taster1 , Sub
Select Case I
Case 0 : Gosub Rot
Case 1 : Gosub Gruen
Case 2 : Gosub Blau
Case 3 : Gosub Rot_gruen
Case 4 : Gosub Rot_blau
Case 5 : Gosub Gruen_blau
Case 6 : Gosub Orange
Case 7 : Gosub Weiss
Case 8 : Gosub Fader
Case 9 : Gosub Rot_puls
Case 10 : Gosub Gruen_puls
Case 11 : Gosub Blau_puls
End Select
Loop
End
Rot:
R = 255
G = 0
B = 0
Led_r = R
Led_g = G
Led_b = B
Return
Gruen:
R = 0
G = 255
B = 0
Led_r = R
Led_g = G
Led_b = B
Return
Blau:
R = 0
G = 0
B = 255
Led_r = R
Led_g = G
Led_b = B
Return
Rot_gruen:
R = 255
G = 255
B = 0
Led_r = R
Led_g = G
Led_b = B
Return
Rot_blau:
R = 255
G = 0
B = 255
Led_r = R
Led_g = G
Led_b = B
Return
Gruen_blau:
R = 0
G = 255
B = 255
Led_r = R
Led_g = G
Led_b = B
Return
Orange:
R = 255
G = 50
B = 0
Led_r = R
Led_g = G
Led_b = B
Return
Weiss:
R = 255
G = 255
B = 255
Led_r = R
Led_g = G
Led_b = B
Return
Fader:
If Rgb = 0 Then
Incr R
Decr B
Led_r = R
Led_b = B
Waitms 20
End If
If Rgb = 1 Then
Decr R
Incr G
Led_r = R
Led_g = G
Waitms 20
End If
If Rgb = 2 Then
Decr G
Incr B
Led_g = G
Led_b = B
Waitms 20
End If
If R = 255 Then
Rgb = 1
B = 0
Led_b = B
Waitms 10
End If
If G = 255 Then
Rgb = 2
R = 0
Led_r = R
Waitms 10
End If
If B = 255 Then
Rgb = 0
G = 0
Led_g = G
Waitms 10
End If
Return
Rot_puls:
G = 0
B = 0
Led_g = G
Led_b = B
If Sr = 0 Then
Decr R
Led_r = R
Waitms 25
End If
If R = 0 Then
Sr = 1
End If
If Sr = 1 Then
Incr R
Led_r = R
Waitms 25
End If
If R = 255 Then
Sr = 0
End If
Return
Gruen_puls:
R = 0
B = 0
Led_r = R
Led_b = B
If Sg = 0 Then
Decr G
Led_g = G
Waitms 25
End If
If G = 0 Then
Sg = 1
End If
If Sg = 1 Then
Incr G
Led_g = G
Waitms 25
End If
If G = 255 Then
Sg = 0
End If
Return
Blau_puls:
R = 0
G = 0
Led_r = R
Led_g = G
If Sb = 0 Then
Decr B
Led_b = B
Waitms 25
End If
If B = 0 Then
Sb = 1
End If
If Sb = 1 Then
Incr B
Led_b = B
Waitms 25
End If
If B = 255 Then
Sb = 0
End If
Return
Taster1:
Incr I
If I > 11 Then I = 0
A = I
Return
Alles anzeigen
Hier der versprochene Code. Sind doch nicht 98%, da war auch noch was anderes mit drin. Keine Ahnung wie viel es jetzt füllt, aber es ist auf jeden Fall noch Platz für viele selbst-gemischte Farben. Einfach ein Beispiel bei Orange nehmen, einen Case-Fall einfügen und unten bei Submenü Taster die Zahl erhöhen.
Der interne Pull Widerstand ist deaktiviert, da er im KFZ Bereich zu hochohmig ist. Ich nehme immer einen externen 1kOhm Widerstand, das funktioniert bestens.
@dem Post unter meinem:
Ja, da könntest du recht haben. Aber man muss es ja auch nicht bis auf 0 faden lassen
Ein pulsierender Tachoring wäre glaub ich nicht zu empfehlen...
Die Nadel sollte ja schon immer zusehen sein