Hallo,
ich hab da mal so ein Anfängerproblem,
Ich hab mir gestern überlegt, da ich inzwischen das 3. 27*4 LCD von Polin kaputt gemacht bzw. Bescheidenen Erfolg hatte(weis nicht warum), hab ich es also gestern mal mit Serial probiert. Ich hab einen Max232n von Pollin entsprechend angeschlossen, nur kommt eine merkwürdige Ausgabe am PC. Vieleicht weis einer von euch woran das liegt.
Die Baudraten kann ich von 1200 bis 9600 beliebig beim Prozessor und Gleichzeitig im Terminal um stellen es kommt immer die gleiche anzeige.

Code:
$regfile = "m16def.dat"
$crystal = 800000

'-------------------------------------------------------------------
'                        RC5.BAS
'                (c) 1999-2003 MCS Electronics
'         based on Atmel AVR410 application note
'-------------------------------------------------------------------

Config Pina.2 = Output                                      'Strom für IR Empfänger
Porta.2 = 1
Config Pina.3 = Output                                      ' Gnd für IR + LED
Porta.3 = 0
Config Pina.4 = Output                                      'Strom für Status LED
Porta.4 = 1


'use byte library for smaller code
$lib "mcsbyte.lbx"

'This example shows how to decode RC5 remote control signals
'with a SFH506-35 IR receiver.

'Connect to input to PIND.2 for this example
'The GETRC5 function uses TIMER0 and the TIMER0 interrupt.
'The TIMER0 settings are restored however so only the interrupt can not
'be used anymore for other tasks


'tell the compiler which pin we want to use for the receiver input


Config Rc5 = Pina.0

'the interrupt routine is inserted automatic but we need to make it occur
'so enable the interrupts
Enable Interrupts

'reserve space for variables
Dim Address As Byte , Command As Byte
Print "Waiting for RC5..."

Do
  'now check if a key on the remote is pressed
  'Note that at startup all pins are set for INPUT
  'so we dont set the direction here
  'If the pins is used for other input just unremark the next line
  'Config Pind.2 = Input
  Getrc5(address , Command)

  'we check for the TV address and that is 0
  If Address = 0 Then
     'clear the toggle bit
     'the toggle bit toggles on each new received command
     'toggle bit is bit 7. Extended RC5 bit is in bit 6
     Command = Command And &B01111111
     Print Address ; "  " ; Command
     Print "Waiting for RC5..."
  End If
Loop
End
Die ausgabe wenn ich nun auf z.B. die 5 der Fernbedienung drücke ist:

öû«•ëQ=-ÿiú›
Úü[y•£££åÿöû«•ëQ=--#1¿3!y•£££åë


Also was mach ich da nun noch falsch.

MfG[/img]