Skocz do zawartości

Prośba o pomoc w napisaniu programu.


Pomocna odpowiedź

Z jakiej strony polecacie zamawiać części?

Już temat x^10^600 razy wałkowany na forum.

elektropark.pl

botland.pl

robodudes.pl

tme.eu

lispol.pl

Najpierw kup, sobie procek, jakie dwa przyciski, kwarc 8MHz i kondki do niego, oraz jaki prosty mostek H w DIP do eksperymentów z silniczkiem. Czujniki możesz olać nawet, jaka dioda IR + TSOP i sam se zrobisz pierwszy czujnik. No i jak LEDka lub dwie do zabawy na początek.

Myślę że sobie zamówię w pon-śr. Atmege i te "pierdy"

Czy mógł by ktoś ustawić odpowiednio piny w tej atmega16 (czyli co najlepiej gdzie podłączyć)

Dzięki z góry.

To zależy jakie taktowanie chcesz ustawić. Nie ma czegoś takiego, że kwarc jest dobry albo zły 😋

Wydaje mi się że kwarc nie będzi Ci od razu potrzebny, ale zawsze można dać na przyszłość.

emix95, znając życie i tak nie wykorzystasz całego potencjału rezonatorów kwarcowych. Zawsze miałem zajawkę do większego taktowania, więc dawałem tyle, na ile pozwolił mi producent (w tym przypadku max to 16Mhz).

Kwarc ma znaczenie tylko przy precyzyjnym odmierzaniu czasu, pomiarach częstotliwości i okresu.

W typowych zastosowaniach jest beż znaczenia i spokojnie można korzystać z wbudowanego oscylatora RC.

Dzisiaj w pracy zacząłem nawet pisać takie Menu na ATMega8, nie jest to takie skomplikowane do zrobienia, nawet dużo pamięci nie zajmuje jakieś 15 do 20% (ale to w sumie w wersji niezoptymalizowanej). Niestety kod został w kompie w pracy, bo zapomniałem skopiować plik.

PS. Może wie ktoś dla czego taka funkcja nie chce zwracać żadnych argumentów ? Jest dobrze napisana, kompiluje się program, ale nie zwraca mi żadnych argumentów (znaczy zawsze jest zero) do pętli głównej ?

'Pętla główna
Do
  Przycisk = Klawisz()
  Select Case Przycisk
  Case Oki : Delay_ms 1
  Case Seli : Incr Poz_menu
              If Poz_menu > Max_index Then
                 Poz_menu = 0
              End If
              Call Clr_line(2)
              Text = Lookupstr(poz_menu , Menu)
              Lcd Text
  End Select
  Print Przycisk
Loop

'Funkcja która powinna zwracać, nr klawisza 
Function Klawisz() As Byte
Local Temp As Byte
Local Temp2 As Byte
 Temp = Portb
 Temp = Temp And &B00110000
 Delay_ms 1
 Temp2 = Portb
 Temp2 = Temp2 And &B00110000
 If Temp = Temp2 Then
    Shift Temp , Right , 4
 End If
 Klawisz = Temp
End Function

[ Dodano: 12-05-2012, 13:43 ]

Jakieś pomysły ❓💡 dla czego tak się dzieje. Mi sie już plik pomocy skończył, program się kompiluje, o co biega ?

Bądź aktywny - zaloguj się lub utwórz konto!

Tylko zarejestrowani użytkownicy mogą komentować zawartość tej strony

Utwórz konto w ~20 sekund!

Zarejestruj nowe konto, to proste!

Zarejestruj się »

Zaloguj się

Posiadasz własne konto? Użyj go!

Zaloguj się »
×
×
  • Utwórz nowe...