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 alle miteinander, > > habe mal wieder eine Frage. > > Der Timer0 lässt sich nicht durch ein dauerhaftes Signal starten. Er muss entweder über ein Taster > oder evtl. über einen trigger gestartet werden. > Da am Input1 meiner Mini-Station ein dauerhaftes Signal kommt (12VDC), war meine Überlegeung > den Eingang als Interrupt auf steigender Flanke zu prüfen. > Somit sollte der Interrupt einmal bei steigender Flanke am Input1 in die Interrupt Routine springen > und meinen Timer0 somit starten. > Doch leider sieht es so aus, als ob er meinen Timer trotzdem nicht startet. > > Wo liegt mein Denkfehler? > > ---------------------------------------------------------------------------------------------------- > Quellcode: > > > Sub main() > > MINI_INIT() > > Irq_SetVect(INT_1,Ext_ISR_1) ' Interrupt Service Routine 1 definieren > Ext_IntEnable(INT_1,3) ' Interrupt 1 aktivieren, steigende Flanke > > Do While(1) > INPUT_1(0) > End While > End Sub > > > 'Interrupt Service-Routine für Externen Interrupt > Sub Ext_ISR_1() > Dim irqcnt_0 As Integer ' Lokale Variable > Timer_T0Time(256,PS0_1024) 'Zeit festlegen und Timer0 starten (256x69,44 µs= 17,18ms) > Irq_GetCount(INT_1) 'Interrupt Request Counter = 0 > End Sub > > > 'Interrupt Timer > Sub Timer0_ISR() > Dim irqcnt As Integer > OUTPUT2_ON() > irqcnt=Irq_GetCount(INT_TIM0COMP) > End Sub
