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! > > bin Einsteiger und verzweifle leider an einer simplen Aufgabe: > > Ich möchte mit dem Timer T0 eine Ausschaltverzögerung (ca. 3 sec) realisieren. > > Port 15 wird zwar aktiv, wenn Eingang Port 14 = 0, geht aber nicht für die gewünschte Zeit in Selbsthaltung. > > > Bitte um Hilfe...........Danke! > > Gruß Joe > > > > > > Hier das Programm: > > > Dim Busy As Byte > > Sub main() > > Do While(1) > Port_DataDirBit(15,PORT_OUT) > Port_DataDirBit(14,PORT_IN) > Port_WriteBit(14,1) > > If Port_ReadBit(14)= 0 Then > > Port_WriteBit(15,1) > Irq_SetVect(INT_TIM0COMP,T1) > Busy=1 > Timer_T0Time(20000,PS0_1024) > > > Do While Busy=1: End While > > > > > > > > Port_WriteBit(15,0) > > End If > > End While > End Sub > > Sub T1() > Dim irqcnt As Integer > Busy=0 > irqcnt=Irq_GetCount(INT_TIM0COMP) > End Sub >
