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. > > Wenn Timer_T1/T3Stop() und Timer_T1/T3Start(PS_1024) unten auskommentiert > werden, wird nur beim ersten Mal time1/time3 eingehalten, danach > treten die Interrupts alle 4,55 sec ( = 65535) auf. > Eigentlich sollen nur Interrupts erzeugt werden, > aber die Pins PD6/PE6 für T1/T3 werden wohl auch angesprochen > und sind für anderes (switch2,...) nicht zu verwenden. > Wer möchte, kann das ja mal testen. > > Die Aktion Heisse Nadel ist hiermit beendet. > > Gruß. > > > <basic> > 'TIM1CMPA & TIM3COMPA > > Dim time1,time3 As Word > > Sub timer1_isr() > Msg_WriteChar(49) ' Kontrolle, ob Interrupt auslöst > Irq_GetCount(INT_TIM1CMPA) > End Sub > > Sub timer3_isr() > Msg_WriteChar(51) ' Kontrolle, ob Interrupt auslöst > Irq_GetCount(INT_TIM3COMPA) > End Sub > > > Sub main() > > time1=14401 'hier ca. 1 s > time3=43203 '3 s > > Timer_T1Time(time1, PS_1024) > Timer_T1Stop() > Irq_SetVect(INT_TIM1CMPA, timer1_isr) > Timer_T1Start(PS_1024) > > Timer_T3Time(time3, PS_1024) > Timer_T3Stop() > Irq_SetVect(INT_TIM3COMPA, timer3_isr) > Timer_T3Start(PS_1024) > > Do While True > > End While > > End Sub > </basic>
