Bremslicht fürs Fahrrad

Heyho Community,
Gerd_
joa ne Hysterie wär auch nicht schlecht , meine natürlich Hysterese
also ich habe jetzt mal mit einem kleinen Versuchsaufbau die Funktionsweise des Hauptprogramms getestet; also einfach nur eine LED und einen Draht-Schalter für den Interrupt (das bekloppte Pollin-board hat ja keine Verbindung der onboard-Taster zum Attiny-Sockel vorgesehen ) an den µC angeschlossen.
Habe Interrupt und Ausgang vorher noch einzeln getestet, um Fehler zu vermeiden - geht soweit.
Zum richtigen Test, simuliere ich die Radfrequenz durch manuelles Betätigen des Schalters.
Mein Bremslicht-Programm sieht jetzt so aus:

$regfile = "attiny13.dat"
$crystal = 600000
$hwstack = 32
$swstack = 10
$framesize = 10


Config Pinb.3 = Output
Config Pinb.1 = Input




Dim Wert_alt As Word                                    	'Variablen deklarieren
Dim Wert_neu As Word
Dim Bestaetigung As Bit






Config Timer0 = Timer , Prescale = 1024


On Timer0 On_timer0_overflow                            	'beim Timer-Overflow zur Sub gehen
Enable Timer0


Config Int0 = Rising
On Int0 On_int0
Enable Int0                                             	'beim externen Interrupt zur Sub gehen
Enable Interrupts


'Hauptschleife Anfang
Do


While Bestaetigung = 1


If Wert_alt > Wert_neu Then
Portb.3 = 1
Waitms 2000
Portb.3 = 0
Waitms 10
End If


Bestaetigung = 0
Wend


Loop
'Hauptschleife Ende


On_timer0_overflow:                                     	'Sub des Timer-Interrupts
Wert_alt = Wert_alt + 1
Return


On_int0:
Bestaetigung = 1
Wert_neu = Wert_alt
Wert_alt = 0


Return


End

wichtigste Änderungen in dieser Version: 1. Variablennamen auf sinnvoll geändert; 2. Tausch der Variablen in Zeile 51; 3. In der Hauptschleife ein einfaches Signalblinken.

Wie immer beim 1. Test, geht das Programm natürlich noch nicht fehlerfrei ; (die LED geht nirgentwann an) habe deshalb mal bestimmte Programmdurchläufe einzeln getestet (zum Beispiel das setzen der "Bestaetigung" und anschließendes starten der Hauptschleife) und dabei ist mir aufgefallen, dass ich noch irgentwas vergessen habe.
Liege ich richtig der Annahme, dass in Zeile 49 bis 52 noch was reinmuss um der Hauptschleife "Zeit" zu geben, die Werte zu vergleichen. Ist es nicht so, dass zwar richtige Werte vorliegen können, diese aber garnicht verglichen werden, weil "Wert_alt" dann immer gleich mit "0" überschrieben wird?

Danke für eure Hilfe, mir raucht schon der Kopf

Hallo,
vielen vielen Dank für das Programm! Bis zur dritten Variable konnt ich garnichtmehr denken
Habe das auch erfolgreich mit einem Taster (entprellt und gepulluped, sonst loeste der Interrupt immer aus) probieren koennen, soweit das von Hand geht.
Mir ist es dann aber nicht gelungen, mithilfe des Fahrradtacho-Sensors den Interrupt auszuloesen. Ich denke mal , dass es ein Hallsensor ist, weil nur ein Kabel vom Sensor zum Computer ging.
Hat jemand eine Idee, wie ich den evtl. doch nutzen koennte?

Dann habe ich den Pegelwandler nachgebaut und angeschlossen, aber ich denke, dass ich noch was falschgemacht haben muss-der Interrupt wird auch scheinbar zufaellig im Stand ausgeloest und zuverlaessig scheint das auch beim Bremsen nicht zu gehen.
Mein Versuchsaufbau bestand aus dem Pollinboard (bzw. dessen 5V Schiene) mit dem Attiny 13 und rausgefuehrter LED und reingefuehrtem Signalkabel fuer den Interrupt. Auf einem Steckbrett ist der Pegelwandler aufgebaut, andiesen der Dynamo angeschlossen.

Kann es sein, dass ich den Umstand "Pollinboard" miteinbeziehen muss? Die Massen habe ich miteinander verbunden (Pegelwandler - POLLINBOARD).

Schoenen Abend noch!
EmittingFuture

Hallo Gerd_,
ja, den Pullup habe ich an die 5 Volt gelegt, das Nadynamogehäuse werde ich jetzt mal auf Potential testen.
Nein, ein Oszilloskop besitze ich nicht.
Sagmal, wo ich grade nochmal über die software und den Wandler schaue: der Int0-Pin wird ja durch den Pullup auf High gehalten, bis ein "Signal" vom Gleichrichter an die Basis des Transistors kommt . Dann wird dieser durchgeschalten und INT0 liegt auf Gnd bzw. Low, richtig?

Das heißt also, dass der Pegelwechsel, der detektiert wird, von High auf Low erfolgt?
Im Programm habe ich aber

Config Int0 = Rising

geschrieben, also wartet der Tiny auf einen Pegelwandel zu High
Werde jetzt mal das Programm mit

Config Int0 = Falling

flashen und schauen was passiert; meinst du das könnte der Fehler sein?

Viele Grüße und schönen Sonntag!

PS: ich habe übrigens einen 2n3904 verwendet, dachte mir, dass der äquivalent arbeiten wird, ist das evtl. falsch?

EDIT:
Hm, komisch, jetzt löst der INT0 wieder häufig bei keiner Radbewegung aus. Habe dann den 10k-Pullup Widerstand mal entfernt und bin direkt mit plus 5Volt an den INT0, dann ist ruhe, also scheint das "Falling" zumindest eine Wirkung zu haben. (im Gegenzug kann ich auch mit Gnd an INT0 den Interrupt auslösen!)
Also irgentwie schaltet der Transistor immer mal wieder durch, oder das Signalkabel zu INT0 bekommt irgentwie Gnd.

Außerdem habe ich mal den Potentialcheck mit dem Durchgangsprüfer gemacht und mit Erstaunen festgestellt, das BEIDE Dynamo-Pole an den Speichen und an der Achse anliegen!! Der Dynamo funktioniert aber einwandfrei, müsste es da nicht laufend einen Kurzschluss geben?!

Hallo Jungs!

also habe hier mal schnell einen Schaltplan meines bisherigen Aufbaus gemacht.
(Müsste vollständig sein, habe nur den Kondensator des Pollinboards zwischen Vcc und Gnd des Tiny13 vergessen)
[Blockierte Grafik: http://www.abload.de/thumb/bremslichtxzqp.png]

Ich werde jetzt mal die Tipps befolgen und 1. den Basiswiderstand verkleinern und 2. dann den Aufbau ohne Brückengleichrichtung testen.

Edit:
Also das Verringern des Basiswiderstandes brachte keine Abhilfe, aber die Lösung mit dem Weglassen des Brügleichrichters ist vielversprechender!
Habe also eine Bat48-Schottky eingesetzt und den Niederohmigen Pol (Dynamo) mit Masse verbunden. Folgendes Verhalten der Schaltung:
Wenn das Rad in Ruhe ist, ist die LED aus. Beim Beschleunigen geht sie an und blinkt solange aktiv, bis das Rad wieder stillsteht.
Ich denke, das ist doch schon ein Teilerfolg, dass der Nabendynamo zumindest schon Einfluss auf den Interrupt hat
Könnt ihr euch erklären, warum aber der Interrupt genau "verkehrtherum" ausgelöst wird? Evtl. reicht auch die Taktrate des Tinys nicht (ich hab ihn jetzt auf 9,6/8 Mhz)

BESUPREME
Joa, der Gleichrichter sollte schon wieder rein, müsste ja sowieso die 5VSchiene aufbauen.
Danke für den Tipp, habe mir jetzt im 1. Versuch 10k (bei R1=10k) und im 2. Versuch 4k (bei R1=4k) zwischen Basis und Emitter geschalten.
Jetzt scheint er nurnoch eine Flanke zu "zählen"; ich beobachte einen deutlichen Wechsel in der Frequenz mit der die LED blinkt, desto langsamer das Rad wird.
Aber irgentwie springt einfach nur bei Radbewegung an, ich hab keine Ahnung was ich jetzt noch Ändern könnte.
Irgentwas an der Messauflösung falsch oder so?

Viele Grüße
Emittingfuture

Hallo,
nochmal ein verspätetes Danke für den Tipp mit der Addition!
Habe jetzt in letzter Zeit gefühlte 100x mit verschiedenen Werten den Attiny geflasht, das Board zum Fahrrad getragen, probiert und wieder von vorne angefangen
Leider habe ich es immer noch nicht zum Laufen gebracht. Mein Code sieht folgendermassen aus:

$regfile = "attiny13.dat"
$crystal = 9600000
$hwstack = 32
$swstack = 10
$framesize = 10


Config Pinb.3 = Output
Config Pinb.1 = Input


Dim Timer0_overflow_count As Word
Dim Periodendauer_aktuell As Word
Dim Periodendauer_letzte As Word
Dim Bestaetigung As Bit






Config Timer0 = Timer , Prescale = 1024


On Timer0 On_timer0_overflow
Enable Timer0


Config Int0 = Rising
On Int0 On_int0
Enable Int0
Enable Interrupts






'Hauptschleife Anfang
Do


While Bestaetigung = 1


Periodendauer_aktuell = Periodendauer_aktuell + 600
If Periodendauer_aktuell > Periodendauer_letzte Then
Portb.3 = 1
Else
Portb.3 = 0
End If


Bestaetigung = 0
Wend


Loop
'Hauptschleife Ende






On_timer0_overflow:
Timer0_overflow_count = Timer0_overflow_count + 1
Return


On_int0:
Periodendauer_letzte = Periodendauer_aktuell
Periodendauer_aktuell = Timer0_overflow_count
Timer0_overflow_count = 0
Bestaetigung = 1


Return






End

Nach dem Andrehen des Rades flackert die LED erst schnell, bei ca. 10km/h langsamer und bei <10km/h wieder schneller.
Wenn ich das Rad mal ganz langsam mit der Hand beschleunige bleibt die LED aber aus, also funktioniert der Abgleich zumindest (soll ja erst angehen, wenn das Rad langsamer wird).

Leider habe ich überhaupt keine Idee mehr, was zu tun ist, um das Flackern zu einem Leuchten zu machen und die Schwelle einzustellen, ab der ein Bremsen erkannt wird. Mir kam es teilweise sogar vor, dass die unterschiedlichen Summanden gar keine Auswirkungen darauf haben.
Hat jemand eine Idee, wie ich mein Bremslicht doch noch zum Laufen bekomme?

Schönen Sonntag
EmittingFuture