www.mikrocontroller.net

Forum: Mikrocontroller und Digitale Elektronik RC5 mit BASCOM was ist da los??


Autor: Gtui (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Nabend
Ich habe folgenden Code mit Bascom aber irgendwie funzt dat nich. Kennt 
sich da jemand aus???
Meine Idee: Tccr1 wird auf Fast PWM eingestellt. ICR bildet mit dem Wert 
444 Takte bei 16Mhz 36khz mit OCR 111 Takte 25% Duty Cycle. Nur tut sich 
da nichts. Habe ich da bei den Timer werten etwas falsch??



$regfile = "m8515.dat"
$crystal = 16000000


'AN:
'Tccr1a = &B10000011
'Tccr1b = &B00011001

'aus:
'Tccr1a = &B00000000
'Tccr1b = &B00000001

Declare Sub Logic1
Declare Sub Logic0

Dim Togglebit As Bit
Togglebit = 0

Capture1 = 444


Ocr1ah = 0
Ocr1al = 111


Ddrd.5 = 1



Do

Logic1
Logic1


Toggle Togglebit
If Togglebit = 0 Then Logic0 Else Logic1

'system bits
Logic0
Logic0
Logic0
Logic0
Logic0

'commando bits

Logic0
Logic1
Logic0
Logic0
Logic0
Logic0

Waitms 500

Loop



Sub Logic0

Tccr1a = &B10000011
Tccr1b = &B00011001

Waitus 883

Tccr1a = &B00000000
Tccr1b = &B00000001

Waitus 884
End Sub



Sub Logic1

Tccr1a = &B00000000
Tccr1b = &B00000001

Waitus 883

Tccr1a = &B10000011
Tccr1b = &B00011001

Waitus 884
End Sub

Autor: Sortierwut (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
abgesehen davon, daß es in Bascom einen Befehl "sendrc5" gibt.. Einige 
Tips: guck Dir auf dem Oszi an, was 'rauskommt. Wenn Du keinen hast, 
mach das ganze 1000x langsamer und guck einer LED beim Blinken zu. Ich 
würde den PWM mit den 36kHz permanent laufen lassen und mit einem 
normalen, 2. Ausgangsport und einem Transistor dieses Signal an- und 
ausschalten. Bau Dir einen Empfänger mit einem TSOP-?? und guck was da 
'rauskommt.. etc. Viel Glück!

Antwort schreiben

Die Angabe einer E-Mail-Adresse ist freiwillig. Wenn Sie automatisch per E-Mail über Antworten auf Ihren Beitrag informiert werden möchten, melden Sie sich bitte an.

Wichtige Regeln - erst lesen, dann posten!

  • Groß- und Kleinschreibung verwenden
  • Längeren Sourcecode nicht im Text einfügen, sondern als Dateianhang

Formatierung (mehr Informationen...)

  • [c]C-Code[/c]
  • [avrasm]AVR-Assembler-Code[/avrasm]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] - Link zu Artikel
  • Verweis auf anderen Beitrag einfügen: Rechtsklick auf Beitragstitel,
    "Adresse kopieren", und in den Text einfügen




Bild automatisch verkleinern, falls nötig
Bitte das JPG-Format nur für Fotos und Scans verwenden!
Zeichnungen und Screenshots im PNG- oder
GIF-Format hochladen. Siehe Bildformate.
Hinweis: der ursprüngliche Beitrag ist mehr als 6 Monate alt.
Bitte hier nur auf die ursprüngliche Frage antworten,
für neue Fragen einen neuen Beitrag erstellen.

Mit dem Abschicken bestätigst du, die Nutzungsbedingungen anzuerkennen.