| Timer Interrupt Kategorie: Programmierung Basic (von Joe Pütz - 17.07.2010 13:43) | ||
| ||
|
Hallo! bin Einsteiger und verzweifle leider an einer simplen Aufgabe: Ich möchte mit dem Timer T0 eine Ausschaltverzögerung (ca. 3 sec) realisieren. Port 15 wird zwar aktiv, wenn Eingang Port 14 = 0, geht aber nicht für die gewünschte Zeit in Selbsthaltung. Bitte um Hilfe...........Danke! Gru� Joe Hier das Programm: Dim Busy As Byte Sub main() Do While(1) Port_DataDirBit(15,PORT_OUT) Port_DataDirBit(14,PORT_IN) Port_WriteBit(14,1) If Port_ReadBit(14)= 0 Then Port_WriteBit(15,1) Irq_SetVect(INT_TIM0COMP,T1) Busy=1 Timer_T0Time(20000,PS0_1024) Do While Busy=1: End While Port_WriteBit(15,0) End If End While End Sub Sub T1() Dim irqcnt As Integer Busy=0 irqcnt=Irq_GetCount(INT_TIM0COMP) End Sub | ||
Antwort schreiben Antworten:  Re: Timer Interrupt (von PeterS - 17.07.2010 15:00)Re: Timer Interrupt (von Joe Pütz - 17.07.2010 22:35)Re: Timer Interrupt (von PeterS - 18.07.2010 9:46)Re: Timer Interrupt (von fraju - 18.07.2010 9:34) | ||
Zur Übersicht - INFO - Neueste 50 Beiträge - Neuer Beitrag - Suchen - Zum C-Control-I-Forum - Zum C-Control-II-Forum