versuche es doch einfach mal hiermit, so kannste auch nen normalen Empfänger anschließen. Das Progis jetzt nur zur bestimmung des Timerwertes bei einer bestimmten Knüppelstellung. Musste noch n bisschen ändern.
HunniCode:$crystal = 5000000 $regfile "attiny2313.dat" Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.5 , Rs = Portb.4 Config Lcdbus = 4 Config Int1 = Change 'ISR bei jedem Flankenwechsel On Int1 Sprung Enable Int1 Enable Interrupts Dim Flag As Byte ' "Habe-fertig"-Flag Dim A As Word Config Timer1 = Timer , Prescale = 1 Do If Flag = 1 Then Flag = 0 A = Timer1 Timer1 = 0 End If Loop Sprung: If Pind.3 = 0 Then 'Fallende Flanke: Impulsbeginn Start Timer1 Else 'Steigende Flanke: Impulsende Stop Timer1 Flag = 1 End If Return







Zitieren

Lesezeichen