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.
Tachoringe Corsa B
-
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 pulsierendInsgesamt 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.
Code
Alles anzeigen$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 ReturnHier 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