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 > Gut, ich habe den code entsprehend eurer vorschläge geändert, aber funzt immer noch nicht. > die LED´s an den Ausgängen werden über Optokoppler betrieben, und bleiben immernoch permanent > an--Port Kaputt? > Wie ist das mit den Portpins als eingang, 5V oder 0V High Pegel - also invertierte Logik oder nich? > > > > ' Ports für Lichtschranken definieren > ' > #define LS_R Port_ReadBit(16) 'Eingang 1. Lichtschranke > #define LS_L Port_ReadBit(17) 'Eingang 2. Lichtschranke > > > > Dim Linksrechts As Byte ' globale Variablendeklaration > > '------------------------------------------------------------------------------ > 'Abfrage der Lichtschranke > ' > Sub Lichtschranke() > > Port_DataDirBit(16,PORT_IN) > Port_DataDirBit(17,PORT_IN) > > Linksrechts = 0 > > If LS_L = 0 And LS_R = 1 And Linksrechts = 0 Then > Linksrechts = 1 > End If > > If LS_R = 0 And LS_L = 1 And Linksrechts = 0 Then > Linksrechts = 11 > End If > > > If LS_L = 0 And LS_R = 0 Then > Linksrechts = 0 > End If > > > > If LS_L = 1 And LS_R = 1 Then Linksrechts = 0 > > End If > > Return > End Sub > ' > '------------------------------------------------------------------------ > ' > Sub main() > > > ' Ports für Richtungsausgabe definieren > > Port_DataDirBit(18,PORT_OUT) > Port_DataDirBit(19,PORT_OUT) > Do > Lichtschranke() > > If Linksrechts = 1 Then > Port_WriteBit(18,PORT_OFF) > End If > > If Linksrechts = 11 Then > Port_WriteBit(19,PORT_OFF) > End If > > If Linksrechts = 0 Then Port_WriteBit(18,PORT_ON):Port_WriteBit(19,PORT_ON) > End If > > Loop While 1 > End Sub
