$crystal = 4000000

$regfile "attiny2313.dat"


' Miernik prędkości obrotowej
'licznikiem 0...65535 jest Timer1
Dim Wynik As Long
Config Timer1 = Counter , Edge = Rising                     'konfiguracja Timera do zliczania impulsów
Cls : Lcd "Obrotomierz" : Wait 1                            'powitanie

Do                                                          'program główny - pętla
   Timer1 = 0                                               'zeruj licznik
   Start Timer1                                             'zacznij liczyć
   Wait 1                                                   'zliczaj impulsy przez 1 sekundę
   Stop Timer1                                              'przestań liczyć

   Wynik = Timer1 * 60                                      'wynik zliczania w czasie 1s mnożymy przez 60 dla otrzymania wyniku w: obr/min

   Cls                                                      'czyścimy LCD
   Lcd "+ Obrotomierz +"                                    'w pierwszej linii wyświetlamy napis obrotomierz
   Lowerline                                                'przejście do drugiej linii

   Lcd "P: " ; Wynik ; " obr/min"                           'wyświetlamy wynik i jednostkę
   Cursor Off                                               'wyłączamy kursor na LCD
Loop                                                        'koniec pętli głównej programu
End                                                         'koniec całego programu