PWM Signal in µC einlesen

$regfile "attiny13.dat"
$crystal = 9600000 'Interner Oszillator ohne Teiler


Config Pinb.0 = Input 'Anschluss am Empfäner b.0


Dim Signal As Byte 'Länge des Signals vom Empfänger


Config Portb.1 = Output 'Schaltausgang




Do


Pulsein Signal , Pinb , 0 , 1 'Signallänge an Pinb.0 abfragen


If Signal < 70 Then 'wenn linker Anschlag --> Ausgang ausschalten
Portb.1 = 0
End If


If Signal > 130 Then 'wenn rechter Anschlag --> Ausgang anschalten
Portb.1 = 1
End If




Loop 'von Vorne anfangen

Das wäre so die einfachste Möglichkeit das Signal auszuwerten.
Oder soll das Blinken der Leds auch vom µC übernommen werden, denn mit dem Code wird der Ausgang nur ein- und ausgeschaltet.
Die Werte die Pulsein liefert hängen leider auch der Taktfrequenz ab, deswegen kann ich nicht garantieren, dass es mit diesen Werten funktioniert.
Zur Not müsste man dort einfach die Werte noch verändern.

Zitat von exelero

Dim Signal As Word = Out of SRAM space, in file G:\ ...

Pulsein Signal , Pinb , 0 , 1 = Assignment error [SIGNAL: 0 __WTMPC: 36] , in file G:\

und LOOP expected , in File :

Der Tiny13 hat nur 64 Byte SRAM.
Schau mal unter Options->Compiler->Chip. Dort sind Werte für HW Stack, Soft Stack und Framesize eingetragen. Die sind zusammen wohl schon größer als 64. Die Summe muss kleiner 63 sein, damit du deine Word Variable noch hinzufügen kannst.
Alternativ kannst du im Code auch
$TINY
angeben, dann werden die Stacks nicht benutzt.
Der Rest sind bestimmt Folgefehler.

BEye

Zitat

edit: ist der UCSK Pin der "für mich" alte SCK Pin? also der für ISP (MOSI,MISO,REST,SCK)

Jap PB7 ist SCK..

Grüße Jakob

EDIT: Ja, das sieht doch gut aus, nur wird das Programm erst nach einem kompletten Durchlauf aufhören, aber das dürfte ja eigentlich nicht soo schlimm sein oder ?

Zitat von exelero

hmm dann schmeiß ich den Code eben auf einen tiny2313 - so große Platzprobleme habe ich dann doch nicht .

Nur *falls* es doch mal Platzprobleme gibt: Tiny25/45/85 ist auch nicht größer als Tiny13, hat aber 128 bzw. 256 bzw. 512 Byte RAM...

EDIT: Und das ist ja nun doch anders als ursprünglich geplant..? - also jetzt eine Seite Strobe, andere Strobe+Beacon, wird gestartet und läuft dann 60 mal durch..?

Du könntest das ja auch so machen: bei Knüppel rechts machst Du Strobe - das läuft dann immer in ner Schleife durch - wenn dort zwischendurch der Knüppel wieder in der Mitte war und dann wieder rechts, dann springst Du weiter in ne Schleife "Strobe und Beacon", wenn Knüppel links kommt, dann wieder auf "aus"

und in der Strobe-und-Beacon-Schleife abfragen, wenn Knüppel links, dann zurück in die erste Schleife...

dann kannst Du das frei schalten: Knüppel einmal rechts = Strobe, noch mal rechts = Strobe + Beacon, Knüppel nach links = wieder nur Strobe, noch mal links = wieder komplett aus...

Nochmal EDIT: natürlich könnte man das auch einfach durchschalten: bei jedem Knüppeldruck nach rechts das "Programm" eins weiter, also Aus - Strobe - Strobe+Beacon - wieder aus - dann könnte man mit Knüppel nach links noch andere Sachen (z.B. Landescheinwerfer) *unabhängig davon* steuern, Pins sind ja noch frei am Tiny...

Und nochmal EDIT: wegen dem Quarz, wenn da genug Unterschied in der Pulslänge ist (also nicht gerade Mittelstellung = 1 µs, Rechtsanschlag = 1,1 µs oder so, dann sollte das auch ohne Quarz gut gehen... der interne RC-Oszi ohne Teiler ist aber doch 8 MHz und nicht 9,6...?!?

Das Angebot mit dem Crashvideo find ich ja mal hammergeil :D:D:D
Echt keine schlechte Idee...

Das Programm wird übrigens ohne Interrupts geschrieben, weil der Signal eingang garnicht auf einem INT Pin liegt.

Aber so ein Programm schüttel ich mir auch nicht aus dem Handgelenk.

Jakob

Ja aber man fragt mit eine IF THEN Schleife ab, und bei einem Interrupt wir eine Sub Routine ausgelöst.

Also anders kann ich es mir ncht vorstellen, aber Pesi wird uns das beantworten...

Jakob

EDIT: Wo wohnst du in Hamburg, komme aus Buxtehude

Sorry, habe vorhin noch Besuch bekommen, und jetzt gehe ich dann in's Bett - morgen bin ich den ganzen Tag unterwegs, aber am Sonntag mach' ich dann mal die SW, versprochen!

Brauchst du nicht zu machen. Ich teste gerade noch, aber bis jetzt geht alles bis auf mein Senderakku
Edit so alles Fertig:

$regfile = "attiny2313.dat"
$crystal = 8000000 'Interner Oszillator/Quarz


Config Pinb.0 = Input 'Anschluss am Empfänger b.0
Config Portd.6 = Output 'Schaltausgang PinD.6 Strobe
Config Portd.5 = Output 'Schaltausgang PinD.5 Beaconlight
Config Portb.0 = Output 'Schaltausgang 2


Dim Signal As Byte 'Länge des Signals vom Empfänger
Dim Modus As Byte '0=Aus 1=Strobe 2=Strobe+Beacon
Dim Schalt2 As Bit 'Status Schaltausgang 2
Schalt2 = 0
Dim Zaehler As Word 'Zähler für Strobe/Beacon Zeitsteuerung






Config Timer0 = Timer , Prescale = 1024 'timer0 konfigurieren
On Timer0 Isr_timer0 'immer zu isr_timer0 springen
Enable Timer0 'timer0 einschalten
Enable Interrupts 'Interrupts global einschalten






Do


Pulsein Signal , Pinb , 0 , 1 'Signallänge an Pinb.0 abfragen
If Signal > 85 Then 'nur weitermachen wenn brauchbares Signal


If Signal < 115 Then 'wenn linker Anschlag --> Ausgang2 ein/ausschalten


If Schalt2 = 0 Then 'wenn aus dann einschalten


Schalt2 = 1
Portb.0 = 1


Else 'sonst ausschalten


Schalt2 = 0
Portb.0 = 0


End If


Waitms 300 'entprellen


End If




If Signal > 170 Then 'wenn rechter Anschlag --> Strobe/Beacon anschalten


If Modus = 0 Then 'wenn aus Strobe einschalten, Modus 1


Modus = 1


Elseif Modus = 1 Then 'wenn Strobe breits an Beacon auch noch anschalten, Modus2


Modus = 2


Else 'sonst bzw wenn Beacon+Strobe bereits an alles ausschalten


Modus = 0
Zaehler = 0
Portd.6 = 0
Portd.5 = 0
End If


Waitms 300 'entprellen


End If


End If


Loop 'von Vorne anfangen








Isr_timer0: 'wird alle 20ms ausgeführt
Select Case Zaehler:
Case 1 : Portd.6 = 1 'nach 20ms Strobe an
Case 2 : Portd.6 = 0 'nach 40ms Strobe aus
Case 4 : Portd.6 = 1 'nach 80ms Strobe an
Case 5 : Portd.6 = 0 'nach 100ms Strobe aus
Case 37 : If Modus = 2 Then Portd.5 = 1 'nach 740ms wenn Modus2(Beacon) Beacon an
Case 42 : Portd.5 = 0 'nach 840ms beacon aus
Case 52 : Zaehler = 0 'nach 1040ms von Vorne beginnen
End Select








If Modus > 0 Then ' nur wenn Strobe/Beacon an ist hochzählen
Incr Zaehler
End If


Timer0 = 100 'Timer zurücksetzen
Return 'zurückkehren

Zitat

der interne RC-Oszi ohne Teiler ist aber doch 8 MHz und nicht 9,6...?!?

Ja ursprünglich war aber vom Attiny13 die Rede und da sagt das Datenblatt auf Seite 25 4,8Mhz oder 9,6Mhz, beim Attiny2313 sind das aber natürlich 8Mhz.

Getestet hab ich das ganze ebenfalls mit einem RC-Oszi mit 8Mhz, allerdings auf einem 644.
Siehe hier:Klick
Der Strobe kommt leider durch die Kamera extrem schlecht rüber....sieht in echt hundert mal besser aus, fast wie das orginal.

Ich hoffe der Code ist so verständlich und übersichtlich.
Fragen?, Fragen!

Edit2:
Da die ganzen Kommentare verrutscht sind einfach hier herunterladen dann passt die Formatierung auch: Rechtsklick speichern unter

So jetzt will ich Schrott sehn
Greetz
Samotronta05, der sich jetzt wieder mit Delphi und der verdammten d2xx.dll rumschlagen darf...

Zitat von exelero

Ja alles Super verständlich und gut kommentiert. ABER: Da ich in Berufsschule damals das mit den Interrupts und Timern an mir vorbeifliegen lasse habe (damn it ) hab ich noch n paar Fragen.

Code

$crystal = 8000000
Config Timer0 = Timer , Prescale = 1024
On Timer0 Isr_timer0

Durch den Prescaler werden die 8000000Hz ja durch 1024 geteilt (= 7812,5 Hz)
Der Timer0 läuft nach 256 ja wieder über also 7812,5 Hz / 256 = 30,517578125 Hz.
Wird durch On Timer0 Isr_timer0 der Interrupt immer ausgelöst wenn der Timer0 einmal durchgelaufen ist? Und das passiert ja 30 mal in der Sekunde also alle 33 Millisekunden.
Wenn das alles so richtig sein sollte: Warum wird der Isr_timer0 dann immer alle 20ms ausgeführt?

Also das mit dem Prescaler ist schon korrekt, nur der Rest stimmt nicht.
Erstmal läuft der Timer von 100 weg also nur noch 156 Schritte, nur beim ersten mal halt die 256 Schritte, weil ich vergessen habe oben Timer0 = 100 einzufügen, macht aber auch nichts.
Zweitens hast du die Division vertauscht. Es sind 7812,5 pro Sekunde, dass heißt man muss die 156 durch 7812,5 teilen und das sind dann 0,019968 Sekunden bzw. ca. 20ms.
Ansonsten empfehle ich dir das hier, wenn man zu faul zum Rechnen ist: Klick

Zitat von exelero

Hier verstehe ich noch nicht ganz warum das Stobe angeht wenn der Interrupt das erste Mal ausgelöst wird. Die Variable Zaehler ist ja noch 0 aber der tiefste Case fängt erst bei 1 an. Oder ist "der" dann so "schlau" das der quasi mit case else aus der Schleife springt und bei der If Modus > 0 Then weitermacht?
Und warum wird der timer auf 100 gesetzt anstatt auf 0 ?

Das Strobe wird tatsächlich erst nachdem der Interrupt durch den Timer zweimal ausgelöst wurde aktiviert, beim ersten Aufruf ist Zaehler ja noch null und da er in der Case-Abfrage keinen Befehl findet den er bei 0 ausführen soll, macht er mit dem Rest weiter und Zählt dann hoch, sodass nach 20ms das Strobe aktiviert wird.
Ansonsten würde das Strobe immer aktiviert, wenn man es ausschalten möchte, denn wenn alles aus ist, ist Zaehler = 0, um zu vermeiden, dass ein Licht an bleibt und die 20ms Verzögerung beim Einschalten merkt man eh nicht.
Der Timer zählt von 100 weg, also 256-100=156 Schritte um auf die 20ms zu kommen, wie oben erklärt.
Wenn sonst noch was unklar ist, gilt einfach Fragen.
Gruß

Zitat von exelero

1. Wow! Bei soviel Fachwissen frage ich mich warum du nur so wenige Beiträge bisher geschrieben hast.
Gerade weil du in Texten sehr verständlich erklären kannst.

Danke, ich muss aber gestehen, dass ich mich auch erst ein Jahr mit den Avrs beschäftige.

Zitat von exelero

2. Warum ist die Division 156 / 7812,5 = 0,019968 ? Auf der Seite wo ich mich in das
Timer-ding eingelesen hatte steht es Sinngemäß anders: 7812,5 / 156 = 50,080

Korrekt hier muss man aber unterscheiden, ich habe ausgerechnet, dass der Timer0 alle 20 ms ausgeführt wird, in deiner Rechnung wird die Hertzzahl ausgerechnet.
Es kommt aber das gleiche raus, denn 50,08 Hertz ergeben: 1 Sekunde / 50,08 Hertz = 0.019968 Sekunde bzw. ca. 20 ms.

Zitat von exelero

3. An welchem Pin wird der zweite Kanal geschaltet?
Config Pinb.0 = Input 'Anschluss am Empfänger b.0
Config Portb.0 = Output 'Schaltausgang 2
Ist Pinb.0 und Portb.0 nicht das selbe?

Ohh stimmt hab ich einfach übersehen, weil ich die Anschlüsse nachher noch geändert habe, da ich das ganze auf einem Atmega644 getestet habe.

Grundsätzlich kannst du aber jeden Pin nehmen, ich würde jedoch die Pinne des Programmers, die UART und den Quarz freihalten, denn man ärgert sich, wenn man genau diese Pinne später nochmal braucht. Ansonsten einfach so belegen, dass es am besten zum Layout passt.

Zitat von exelero

Ich habe mal einen Schaltplan fertig gemacht.
Findet dort jemand etwas was mach besser machen kann(Größen der Widerstände,Kapazitäten)?

ISP nach RN-Standard ?
Man könnte auch einen 6-Pin ISP-Anschluss verwenden um Platz zu sparen.
Als Pullup am Reset würde ich 10k nehmen, da ansonsten manche Programmer den Pegel nicht sauber auf Low ziehen.
Eventuell noch einen kleinen Elko parallel zum Abblockkondensator schalten.

Zitat von exelero

Achja ich war heute nicht fliegen. Auch wenn der Wind relativ schwach war wollt ich nicht mein Glück testen. Das Video bekommt ihr aber noch.

Hmm du bringst mich auf die Idee meinen Flieger mal wieder rauszuholen. *schon mal den Sekundenkleber suchen*
Gruß

Wegen dem Timer... wieso nicht einfach so konfigurieren, dass er alle 20ms einen Interrupt auslöst? Wenn ich das richtig sehe, ist das doch die kleinste benötigste Zeitspanne.

Folgende Werte lösen laut AVR-Timer-Calculator nach genau 20000µs mit dem 16bit Timer einen Interrupt aus:

Prescaler  Reload
  4    	25536
  8    	45536
 16    	55536
 32    	60536
 64    	63036
128    	64286
258    	64911

- *ist* doch so konfiguriert:

Zitat von Quelltext von samotronta05

Code

Isr_timer0:   	'wird alle 20ms ausgeführt