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 > > Ja nu, sag doch, was geht denn nicht? Leuchtet die LED nicht für 2 Sekunden, wenn Du den > Schalter drückst? Hast Du denn nach dem Übertragen auch das Programm gestartet? Das hattest Du > nicht geschrieben. > > Gruss Peter > > > Also es geht dabei um das erste Programm in diesem Buch. Dabei soll die LED1 nach Betätigen des Schalters > > SW1 für zwei Sekunden aufleuchten. Kompilieren und Übertragen funktioniert soweit ich das beurteilen kann. > > Hier mal noch der Quellcode: > > > > Main.cbas > > > > <basic> > > Dim delval As Integer > > Dim schalter1 As Byte > > > > Sub main() > > delval=2000 > > Port_DataDirBit(PORT_LED1,PORT_OUT) > > Port_DataDirBit(PORT_SW1,PORT_IN) > > Port_WriteBit(PORT_LED1,PORT_OFF) > > Do While True > > SW1() > > If schalter1=0 Then > > LED1_On(delval) > > End If > > End While > > End Sub > > </basic> > > > > > > Ausgabe.cbas > > > > <basic> > > Sub LED1_On(delay_val As Integer) > > > > Port_WriteBit(PORT_LED1,PORT_ON) > > AbsDelay(delay_val) > > > > Port_WriteBit(PORT_LED1,PORT_OFF) > > > > End Sub > > </basic> > > > > Eingabe.cbas > > > > <basic> > > Sub SW1() > > schalter1=Port_ReadBit(PORT_SW1) > > End Sub > > </basic> > > > > Gruß Jan > >
