Zur Übersicht - INFO - Neueste 50 Beiträge - Neuer Beitrag - Suchen - Zum C-Control-I-Forum - Zum C-Control-II-Forum
Re: INT_TIM1CMPA Kategorie: Verschiedenes (von krass - 17.01.2007 15:13)
Als Antwort auf Re: INT_TIM1CMPA von olby22 - 11.01.2007 0:36


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Ã?.



'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

    Antwort schreiben

Antworten: