Aktywne Wpisy
Kordianyt +50
Krotka pilka do graczy PC - jaka gra z ostatnich 3 lat wywarla dla was najwieksze wrazenie i polecilibyscie dalej? Kupilem tlustego kompa i ogralbym cos nowego i ciekawego, pozdrawiam #gry #pcmasterrace #komputery
lokibb +229
Kim jest człowiek ktory stworzyl przerobki Borewicza, Pawulon, Miś Uszatek, Kibice w TVN?
Po 20 latach zasługuje on na honorowy medal polskiego internetu wraz z Walaszkiem
#heheszki
Po 20 latach zasługuje on na honorowy medal polskiego internetu wraz z Walaszkiem
#heheszki
Aktywne Znaleziska
Zawiera treści 18+
Ta treść została oznaczona jako materiał kontrowersyjny lub dla dorosłych.
Pomożecie?
Tu cały kod:
Dim Frequency As Long
Const Licznik = 46004 'odlicza 250ms, czyli wynik odswieza 4/s na zegarze 20Mhz
'60654
Config Timer1 = Timer , Prescale = 1024
On Timer1 Czas
Enable Timer1
Config Timer0 = Counter , Edge = Falling 'wejscie na sygnał
On Timer0 Zlicz
Enable Timer0
Enable Interrupts
Counter1 = Licznik
Do
Loop
Czas: 'przerwanie od licznika impulsów
Stop Timer0
Stop Timer1
Frequency = Frequency * 256
Frequency = Frequency + Counter0
'Frequency = Frequency * 4 'bo oswieżamy wynik 4x sekunde
Gosub Wyswietlwynik
Frequency = 0
Counter0 = 0
Counter1 = Licznik
Start Timer0
Start Timer1
Return
Zlicz:
Incr Frequency
Return
Wyswietlwynik:
Tmp = Str(frequency)
Tmp = Tmp + " Hz"
Lcdgoxy 1 , 3
Lcdstr Tmp , 1 , 0
return
#elektronika #avr #xmega
Mircy teraz wychodzę będę za 20 minut.