UART über IR geht nicht

**Athlonxp2000** · 29.12.2006, 19:58

Tach ich versuch gerade ein paar Daten über ir zu schicken habe aber irgendwie kein Erfolg!

Mein IR Empfänger arbeitet mit 36khz.

Ist meine Code zur 36khz erzeugung richtig??

Sender Code:

Code:

$regfile = "2313def.dat"
$crystal = 8000000
$baud = 9600
Const T_oc1 = 110

Config Pinb.3 = Output

Config Pind.5 = Input

Portd.5 = 1


Config Timer1 = Timer , Prescale = 1 , Compare A = Toggle , Clear Timer = 1
Timer1 = 0
Compare1a = T_oc1                                           'Pb.3 = OC1 = IR carrier output 36 kHz

Dim Test1 As Byte
Dim Test2 As Byte

Test1 = 11
Test2 = 22



Do


If Pind.5 = 1 Then
     Print Test1
 Else
     Print Test2
End If


Loop

Empfänger Code:

Code:

$regfile = "2313def.dat"
$crystal = 8000000
$baud = 9600

Config Pind.3 = Output
Led Alias Portd.5

Dim I As Byte

Do
  I = Inkey()

  If I = 11 Then
    Led = 0
  Else
    Led = 1
  End If

Loop

Ich hoff mir kann jemand helfen!?

MfG

Athlon

**linux_80** · 29.12.2006, 22:29

Hallo,
wie hast Du denn die IR-LED angeschlossen,
zwischen OCR1A und TxD sollte sie sein.

Und ich glaub deine Abfrage beim Empfänger läuft zu schnell, auch wenn die 11 mal erkannt werden sollte, schaltet die LED nur kurz um, denn beim nächsten durchlauf ist sie wieder 1.
Evtl. mal eine kleine Pause einbauen.

Hast Du einen AT90S2313 oder einen Tiny2313 ?

**Athlonxp2000** · 29.12.2006, 23:34

Ups falsche Datei am Anfang

Das IR Led ist richtig angeschlossen.

Das mit der Pasue werd ich mal austesten.

**Athlonxp2000** · 30.12.2006, 12:39

Mh irgendwie haut das immer noch nicht hin?

**Athlonxp2000** · 07.01.2007, 10:35

Mhr ist bekomm das einfach nicht hin hat jemand noch ne idea?

**Rofo88** · 07.01.2007, 11:14

Kommt aus deiner Sende-LED was raus (überprüfs ma mit ner Digi-Cam).
Funktioniert dein Empfänger (mit ner Fernbedienung testen wenn möglich).

**veit** · 07.01.2007, 15:21

sagt mal geht das überhaupt ???
direkt an den UART und dann über ir???

ich such schon länger ne möglichkeit hab aber noch nie beispiele gefunden.

gehe vom UART auf rs485 und dann über kabel an geräte und würde soo gern was mit ir machen ...

wird auch hier im forum hin- und wieder gesucht, z.b. hier:
https://www.roboternetz.de/phpBB2/ze...g.php?p=240321

**Rofo88** · 07.01.2007, 15:33

Ja geht. Kannst ja mal die Anleitung für den Asuro ziehen (gibts z.B. bei Conrad) , da haste gleich nen Schaltplan mit drinn.

@Athlonxp2000
Mit wieviel Baud Arbeitest Du??