Pomoc s programem-Bascom

[ujosvec]

Mám prosbu zda by mi někdo nepomohl s tímto programem.Chci si postavit měřič rychlosto a pořád se mi to nedaří zprovoznit.Mam připojené dvě IR brány na Pind.2 Pind.3 (Atmega8).Nevim jak nastavit Timer aby se spustil při přerušení IR na Pind2 a ukončil při přerušení IR na Pind3?
Pls. pomozte
Děkuji

$crystal = 8000000
$baud = 19200
$hwstack = 32
$swstack = 10
$framesize = 40
$sim


Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0
Config Lcd = 16 * 2 'nastaveni lcd

Dim X As Word
Dim V As Single
Dim F As Long

Config Timer0 = Timer , Prescale = 1024
Config Timer1 = Counter , Edge = Falling , Prescale = 1
Config Portd = Input
On Ovf0 Tim0_isr
Enable Interrupts

Do


Cls

Lcd "merim rychlost"
Lowerline
Cursor Off
If Pind.2 = 1 Then
Start Timer0
End If
If Pind.3 = 1 Then
Stop Timer0
End If
Tim0_isr:
X = Timer1


Locate 2 , 1
Lcd " "
Locate 2 , 1
V = 500000 / X
Lcd Str(v)
Lcd " m/s "
Waitms 250

Tcnt0 = 0
Timer1 = 0

Return

Loop

End

[Návštěvník]

Nemáš tam těch timerů nějak moc?

[popopepe]

Nestudoval jsem to, ale když už máš přerušení INT0 a INT1, tak proč je nepoužít..

On int0 startuj

on int1 stopuj

Do
...tady ten tvůj program
Loop


startuj:
start timerX
return

stopuj:
stop timerX
disable interupts
přečti co tě zajímá z toho timeruX
enable interupts
return


A nebo nějak jinak

[ujosvec]

OK zkusím
Díky