Witam czy ktoś mi zmodernizuje ten program tak aby liczył mi same impulsy i je aktualizował na bieżąco a po przekroczeniu liczby 999 się resetował i liczył od nowa
Program pochodzi z http://www.portalnaukowy.edu.pl/ jestem początkujący i proszę o wyrozumiałość
Z góry dziękuję pomoc
$crystal = 4000000
$regfile "attiny2313.dat"
Dim Wynik As Long
Config Timer1 = Counter , Edge = Rising
Cls : Lcd "Obrotomierz" : Wait 1
Do
Timer1 = 0
Start Timer1
Wait 1
Stop Timer1
Wynik = Timer1 * 60
Cls
Lcd "+ Obrotomierz +"
Lowerline
Lcd "P: " ; Wynik ; " obr/min"
Cursor Off
Loop
End Program pochodzi z http://www.portalnaukowy.edu.pl/ jestem początkujący i proszę o wyrozumiałość
Z góry dziękuję pomoc