Witam.
Zliczam sobie odcinki czasu i nagle program sam od siebie zeruje wynik i zlicza z powrotem od 0.
Poniżej zamieszczam część programu odpowiedzialną za zliczanie, może ktoś ma pomysł czemu się tak dzieje?
Zliczam sobie odcinki czasu i nagle program sam od siebie zeruje wynik i zlicza z powrotem od 0.
Poniżej zamieszczam część programu odpowiedzialną za zliczanie, może ktoś ma pomysł czemu się tak dzieje?
'****timer1********
Config Timer1 = Timer , Prescale = 64
On Timer1 Pomiar_czasu
Load Timer1 , 50
Enable Timer
Stop Timer1
'*****wtrysk*****
On Int1 Wtrysk
Config Int1 = Change
Disable Int1
On Interrupts
Enable Interrupts
Dim Wart_spal As String * 6
Dim Co_400us As Long
Dim Spalone_paliwo As Single
Dim Sekunda As Long
do
Spalone_paliwo = Sekunda * 0.0088
Wart_spal = Fusing(spalone_paliwo , "#.&")
Cls
Locate 2 , 1
Lcd Wart_spal
Wait 3
Loop
End
Wtrysk:
If Pind.3 = 1 Then
Start Timer1 'wl timera
End If
If Pind.3 = 0 Then
Stop Timer1 'wyłaczenie timera
End If
Return
Pomiar_czasu:
Incr Co_400us 'zwiększanie o jeden co 400us
Load Timer1 , 50
If Co_400us = 2500 Then
Incr Sekunda
Co_400us = 0
End If
Return
