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, > will zum ersten mal mit externen Interupt arbeiten. > Um überhaupt eine Reaktion zu bekommen soll über Taster 2 der nach 5V schaltet, bei jedem > Flankenwechsel ein Interupt ausgelöst werden. > Habe aber schon Probleme mit folgendem kleinen Programm. > > wer kann mir helfen, was mach ich falsch > Besten Dank im voraus > Andreas > > > 'MEGA 128 IDE 1.71.0.5 > Dim Temp_Text(30) As Char > > Sub main() > Port_DataDirBit(PORT_LED1,PORT_OUT) > Port_DataDirBit(PORT_LED2,PORT_OUT) > > Port_WriteBit(PORT_LED1,PORT_OFF) > Port_WriteBit(PORT_LED2,PORT_ON) > AbsDelay (150) > Irq_SetVect(6,SW2_Interupt)'SW2 > Ext_IntEnable(6,1) 'SW2 > Do > Port_WriteBit(PORT_LED1,PORT_ON) > Port_WriteBit(PORT_LED2,PORT_OFF) > Loop While 1 > > > End Sub > > Sub SW2_Interupt() > Dim irqcnt As Integer > Port_WriteBit(PORT_LED1,PORT_OFF) > Port_WriteBit(PORT_LED2,PORT_ON) > Temp_Text = "Interupt" > Msg_WriteText (Temp_Text) > Msg_WriteChar (13) > Msg_WriteChar (10) > irqcnt=Irq_GetCount(6) > End Sub
