Gast
#1576007
Hallo zusammen Ich beschäftige mich neben bei ein bisschen mit MC's Auf meiner Bastelliste steht nun eine Gruben Kopflampe. Diese enthält zwei LEDS(CREE Q5 @ 800mA) + (Cree® XLamp® MC-E4 4-fach Emitter @ Iges. = 700mA (2x2 in Serie)diese dann Parallel) Jeder der LED's hat einen LM3405 als Treiber. Gedacht war das ich die Treiber mit einem TINY 13 ( hat ja zwei PWM Ch. ) ansteuere. Heute habe ich einen Versuchsaufbau mit einem mega16 gemacht und dabei auf einen sehr komisches Problem gestoßen Zur Hardware. Der mega16 steckt im STK500. Von PortD 4. und 5. gehen die PWM Signal per "freiluftleitung" zu den LM3405. PWM frequenz hab ich auf ~280Hz (1MHz,8bit,Pre8) Das TestProgramm ist ganz einfach. Funktioniert auch, am anfang. Nach "zufalls Zeit oder Tasten kombo" wird der Helligskeit's wert B nicht mehr übernommen Hab dem Programm auch ein LCD zur kontrolle hinzugefügt. Wert B wird größer, aber bei COMPARE1B ignoriert. Was gibt es für Fehler Möglichkeiten? Kann es sein das die LM3405 sehr stark den AVR Stören? kann ich das Minimiren? Ich hoffe ihr könnt mir Helfen. Danke für eure Mühen Axel $regfile = "m16def.dat" $crystal = 1000000 $hwstack = 5 $swstack = 5 $framesize = 5 Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 8 Dim D As Byte Dim B As Byte Nah1 Alias Pina.0 Config Nah1 = Input Porta.0 = 1 Nah2 Alias Pina.1 Config Nah1 = Input Porta.1 = 1 Weg Alias Pina.2 Config Weg = Input Porta.2 = 1 Nah1 = 0 Nah2 = 0 Do If D < 249 Then If Nah1 = 0 Then D = D + 50 Waitms 200 End If End If If B < 249 Then If Nah2 = 0 Then B = B + 50 Waitms 200 End If End If If Weg = 0 Then D = 0 B = 0 Cls End If Compare1a = D Compare1b = B Loop End