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.
Code:
$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
Hunni
Lesezeichen