Witam,
Chciałbym mierzyć czas trwania impulsu i napisałem taki prosty programik ale
problem w tym, że na wyświetlaczu pojawiają się jakieś liczby od zera do 9999 a nie tak jak zakładałem zbliżone do siebie wartości. Dlaczego tak jest bo próbowałem w różny sposób i ciągle to samo?
Chciałbym mierzyć czas trwania impulsu i napisałem taki prosty programik ale
$regfile = "2313def.dat"
$crystal = 8000000
Config Portb.0 = 1
Portb.0 = 1
Config Portb.1 = 1
Portb.1 = 1
Config Portd = &B0000000
Config Portd = &B1111111
Config Timer1 = Timer , Prescale = 256
Dim Czas As Integer
Dim Zmienna As Bit
Czas = 0
Zmienna = 0
On Timer1
Do
If Pind.2 = 0 And Zmienna = 0 Then : Zmienna = 1 : Timer1 = 0 : Start Timer1 : End If
If Pind.2 = 1 And Zmienna = 1 Then : Zmienna = 0 : Stop Timer1 : End If
Czas = Timer1
Cls
Lcd "czas"
Lowerline
Lcd Czas
Waitms 100
Loop
Endproblem w tym, że na wyświetlaczu pojawiają się jakieś liczby od zera do 9999 a nie tak jak zakładałem zbliżone do siebie wartości. Dlaczego tak jest bo próbowałem w różny sposób i ciągle to samo?
