| Re: Timer Interrupt Kategorie: Programmierung Basic (von Joe Pütz - 17.07.2010 22:35) | |
|
Als Antwort auf Re: Timer Interrupt von PeterS - 17.07.2010 15:00
| |
|
Die Antwort hat mich als "Einsteiger" natürlich sehr weit gebracht.. .Handbuch und sämtliche Doku hatte ich selbstverständlich vorher bemüht...ohne Erfolg... deshalb mein "Hilfeschrei"...Problem hab ich jetzt in "Eigenregie" gelöst, Timer funktioniert... Tschüss Forum! > > 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 > > Hallo Joe, > > Dir ist klar, das Timer0 ein 8-Bit Timer ist, und deshalb nur ein byte als Timerwert bekommt? > Bitte immer erst das Handbuch lesen! > > Gruss Peter > > > > > > > > > > > > > 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 - 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