Hilfe BASCOM und RC5

[RCO]

@ michael:
woher kannst du BAsic/Bascom, Suche verzweifelt nach ner vernünftigen Seite, wollte nämlich auch ne Ferbedienung bauen.

[RCO]

@ Michael_f:

Sorry, wenn ich jetzt dein Programm auseinandernehme, aber ich wills kappieren:

$regfile = "m8def.dat" // Definiert die AVR (wahrschinlich mega8 )
$crystal = 3686400 // Taktung
$lib "mcsbyte.lbx" // was meint das?
$baud = 9600 // Setzen der Baudrate für print

Ddrc = &B00011111 // Ja was meint das?
Portc = &B00100000 // und das hier?
Config Rc5 = Pinc.5 // Pin 5 als eingang
Enable Interrupts // ???
Dim Adress As Byte , Command As Byte // Definition der Variablen
Print "Warte auf Daten" // das ist klar
Do // Dauerschleife
Getrc5(adress , Command) //
Waitms 150 // Warum eine PAuse?
Print "Geraeteadresse: " ; Adress ; " Geraetekommando: " ; //print der Daten Command ; " - " // was soll das?
Waitms 150 // Warum eine PAuse?
Loop
End

Die Library wandelt bestimmte Werte in andere um wie bei C-control.

[thewulf00]

Hi Leute!

Ich wollte mal den Thread fortführen, weil ich ähnliche Probleme habe:

Ich habe keine Fernbedienung zuhause, die "sauberen" RC5-Code sendet. Also dachte ich mir, ich schau mal nach, ob ich die Signale, die der TSOP ausgibt, nicht vielleicht manuell verwenden kann:

$crystal = 4000000
$baud = 19200
$lib "mcsbyte.lbx"
Dim Mybit As Bit

Mybit = Pind.5

Do
Waitus 889

If Mybit <> Pind.5 Then
   Print " Aenderung! "
   Mybit = Pind.5
End If

Loop

Jetzt habe ich noch parallel zum TSOP eine LED, die richtig rythmisch leuchtet, sobald ich auf der Fernbedienung was drücke. Aber egal, was ich drücke, das Programm reagiert nicht. Ich habe auch schon den "Waitus" auf 400 gesetzt oder ganz weggelassen. Kein Resultat.
Wenn ich aber den Pin mit einem Kabel nach Masse ziehe, reagieren die LED und das Programm entsprechend...

Woran liegt das??

Viele Grüße,
thewulf

[RCO]

@ thewulf
ich habe noch nicht soviel Basic/BAscom-Erfahrung, wozu brauchst du $lib "mcsbyte.lbx" ?