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 > Die Antwort hat mich als "Einsteiger" natürlich sehr weit gebracht.. > .Handbuch und sämtliche Doku hatte ich selbstverständlich vorher bemüht...ohne Erfolg... > deshalb mein "Hilfeschrei"...Problem hab ich jetzt in "Eigenregie" gelöst, Timer funktioniert... > Tschüss Forum! > > > > > > > > > > > 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 > > > > Hallo Joe, > > > > Dir ist klar, das Timer0 ein 8-Bit Timer ist, und deshalb nur ein byte als Timerwert bekommt? > > Bitte immer erst das Handbuch lesen! > > > > Gruss Peter > > > > > > > > > > > > > > > > > > > > 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 > > >
