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, > ich habe mir das Programm Stopuhr einwenig erweitert. Das Orginaldemo läuft exakt. > Meine Version läuft genau halb so schnell wie es laufen soll! > Kann mir da jemand helfen? > Sub INT_10ms() > Dim irqcnt As Integer > If start =1 Then ' Nur wenn die Taste SW1 gedrückt wurde, > ' wird dieser Programmteil abgearbeitet. > cnt1 =cnt1+1 ' 10ms Zähler wird um Eins erhöht. > If tast= 1 Then ' wenn Motor ein > mcnt =mcnt+1 'Motorhundertstel > If mcnt =100 Then ' > msec =msec+1 ' Motorsec > mcnt =0 > End If > End If > If cnt1 =100 Then ' Wenn 1 Sekunde vergangen ist, wird diese > i= i+1 ' Schleife abgearbeitet. > Port_WriteBit(PORT_LED1,PORT_ON) > sekunde =sekunde+1 ' Sekundenzähler wird um Eins erhöht. > If sekunde =60 Then ' Wenn 60 Sekunden vergangen sind, wird > ' diese Schleife abgearbeitet. > Port_WriteBit(PORT_LED1,PORT_OFF) > minute =minute+1 ' Minutenzähler wird um Eins erhöht. > If minute =60 Then ' Wenn 60 Minuten vergangen sind, wird > ' das Display auf 00:00:00 zurückgesetzt. > minute =0 ' Der Minutenzähler wird auf 0 gesetzt. > End If > sekunde=0 ' Der Sekundenzähler wird auf 0 gesetzt. > End If > > cnt1=0 ' Der 10ms Zähler wird auf 0 gesetzt. > End If > Display_Buffer_Set() ' Display Buffer wird aktualisiert > ausgabe() > ausgabe2() ' Jede Sekunde wird die Zeit ausgegeben. > End If > tasten() ' Aufruf der Funktion zur Tastenabfrage. > irqcnt=Irq_GetCount(INT_TIM2COMP) ' Interrupt Request Counter > End Sub
