Zur Übersicht - INFO - Neueste 50 Beiträge - Neuer Beitrag - Suchen - Zum C-Control-I-Forum - Zum C-Control-II-Forum

Trigger Signal erzeugen Kategorie: Programmierung Basic (von Newbie - 22.10.2011 16:04)
Ich nutze:
C-Control Pro Mega32, CC-Pro 32 Application Board
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


    Antwort schreiben


Antworten: