Skoro upierasz się na atmega;
$regfile = "m8def.dat" 'atmega8
$crystal = 1000000 ' 1MHz
Config Portb = Output
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.0 , Rs = Portb.2
Config Lcd = 16 * 2 'wyświetlacz 2 linie po 16 znaków
Cursor Off 'wyłączenie kursora
Dim Wynik As Long 'deklaracja zmiennej
Config Timer1 = Counter , Edge = Rising 'konfiguracja Timera do zliczania impulsów
Cls : Lcd "obrotomierz" : Wait 2 'powitanie
cls : lcd " wer 1.0: wait 2
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 * 12 'wynik zliczania w czasie 1s mnożymy przez 60 dla otrzymania wyniku w: obr/min
Cls 'czyścimy LCD
Lcd " licznik obrotów" 'w pierwszej linii wy?wietlamy napis obrotomierz
Lowerline 'przejście do drugiej linii
Lcd "P: " ; Wynik ; " obr/min" 'wyświetlamy wynik i jednostkę
Loop 'koniec pętli głównej programu
End
Dodane 2 minuty 22 sekundy:

[/img]
zrób to na transoptorze szybkim
Dodane 1 minuta 35 sekundy:

coś schemat nie wszedł z pierwszym razem
Mam wyrypane na wszelkiej maści proroków ,mędrców i wszystkich którzy stawiają się ponad innymi ,i tak ich zjedzą robaki