Kommentar: Einfügen von HTML im Kommentar: Link einfügen: <a href="LINKURL" target="_blank">LINKTITEL</a> Bild einfügen: <img src="BILDURL"> Text formatieren: <b>fetter Text</b> <i>kursiver Text</i> <u>unterstrichener Text</u> Kombinationen sind auch möglich z.B.: <b><i>fetter & kursiver Text</i></b> C Quellcode formatieren: <code>Quellcode</code> BASIC Quellcode formatieren: <basic>Quellcode</basic> (Innerhalb eines Quellcodeabschnitts ist kein html möglich.) Wichtig: Bitte mache Zeilenumbrüche, bevor Du am rechten Rand des Eingabefeldes ankommst ! -> I > > Hallo, > > > > ich wollte gerade die RC5-Funktionen Testen. Also mit <basic>RC5_Init(18) 'Port C.2 = Bit 18</basic> > > den E/A-Port auf C.2 festgelegt. Die über einen Treiber angeschlossene gelbe LED (parallel zur > > IR-LED) leuchtet, vermutlich weil der Port noch als Eingang geschaltet ist. Dann weiter mit <basic> > > Dim RC5Data As Word > > RC5Data = 0b0011000000000001 > > RC5_Write(RC5Data) </basic> > > und die LED geht aus. Kann sein, dass ich das kurze flackern des RC5-Befehls im Anschluss > > an das Dauer-An der LED nicht gesehen habe, deshalb nochmal > > <basic> > > RC5Data = 0b0011000000000001 > > RC5_Write(RC5Data) </basic> > > -kein Flackern der LED :-( . Macht nichts, ist ja ne Beta-Version, weiter probiert mit > > <basic> > > RC5Data = 14336 'vielleicht funktioniert die Binärkonstante nicht > > RC5_Write(RC5Data) </basic> > > hat aber leider auch nicht die LED zum flackern gebracht. Das Progrämmchen hier: > > > > <basic> > > Dim Text2(9) As Char > > Dim Taste As Word > > Dim Losgelassen As Byte > > Dim RC5Data As Word > > > > Sub ZeigeMenue() > > Dim Text(9) As Char > > LCD_ClearLCD() > > LCD_CursorOff() > > LCD_CursorPos(0) > > Text = "*: Menü" > > Text(6) = 245 'ü im Text überschreiben, wird sonst nicht richtig dargestellt > > LCD_WriteText(Text) > > LCD_CursorPos(64) > > LCD_WriteText(Text2) > > End Sub > > > > Sub VerarbeiteTaste() > > Taste = Key_Scan()</basic> > > <basic>If (Taste <> 0) And Losgelassen Then 'jeden Tatendruck nur einmal bearbeiten </basic> > > <basic>Losgelassen = 0 > > Select Case Taste > > Case 8192 '1 > > Text2 = "1 " > > 'RC5Data = 0b0011000000000001 > > RC5Data = 14336 'vielleicht funktioniert die Binärkonstante nicht > > RC5_Write(RC5Data) > > Case 8 '2 > > Text2 = "2 " > > RC5Data = 0b0011000000000010 > > RC5_Write(RC5Data) > > Case 1 '3 > > ... > > Case 512 '0 > > Text2 = "0 " > > RC5Data = 0b0011000000000000 > > RC5_Write(RC5Data) > > Case 2048 '* > > Text2 = "* " > > 'RC5Data = 0b0011000000000001 > > 'RC5_Write(RC5Data) > > Case 32768 '# > > Text2 = "# " > > 'RC5Data = 0b0011000000000001 > > 'RC5_Write(RC5Data) > > End Select > > Str_WriteWord(Taste, 10, Text2, 2, 0) > > ZeigeMenue() > > ElseIf (Taste = 0) And (Losgelassen = 0) Then > > Losgelassen = 1 > > Text2 = "#: Aus" > > ZeigeMenue() > > Else ' !?! --notwendig, Programm funktioniert ohne diese Zeile nicht !?! > > End If > > End Sub > > > > Sub main() > > RC5_Init(18) 'Port C.2 = Bit 18 > > LCD_Init() > > Key_Init() > > Text2 = "#: Aus" > > ZeigeMenue() > > Losgelassen = 1 > > Do > > VerarbeiteTaste() > > Loop While True > > End Sub > > </basic> > > > > entdeckt jemand den Fehler? Die Ausgabe aufs Display funktioniert. > > > > Peter und Ulli, könnt Ihr Euch mal das <basic>Else</basic> am Ende der > > <basic>Sub VerarbeiteTaste()</basic> > > ansehen? Ohne das <basic>Else</basic> tut das nicht. > > > > Grüße > > Jürgen > > > Einen Fehler habe ich eben selbst gefunden: 0b0011000000000001 ist nicht 14336 sonden 12289. > Trotz Korrektur verlässt kein RC5-Befehl die IR-LED. > > Grüße > Jürgen
