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() > If (Taste <> 0) And Losgelassen Then 'jeden Tatendruck nur einmal bearbeiten > 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
