Skocz do zawartości

Problemy przy budowie line follower.


emix95

Pomocna odpowiedź

tylko zapala się dioda od zasilania dożuciłem jeszcze nawet

Config Adc = Single , Prescaler = Auto , Reference = Avcc

Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down

Ale nic nie daje ;/

Link do komentarza
Share on other sites

Zarejestruj się lub zaloguj, aby ukryć tę reklamę.
Zarejestruj się lub zaloguj, aby ukryć tę reklamę.

jlcpcb.jpg

jlcpcb.jpg

Produkcja i montaż PCB - wybierz sprawdzone PCBWay!
   • Darmowe płytki dla studentów i projektów non-profit
   • Tylko 5$ za 10 prototypów PCB w 24 godziny
   • Usługa projektowania PCB na zlecenie
   • Montaż PCB od 30$ + bezpłatna dostawa i szablony
   • Darmowe narzędzie do podglądu plików Gerber
Zobacz również » Film z fabryki PCBWay

właśnie łącze kable

wystarczy 5+

[ Dodano: 28-04-2012, 22:24 ]

Witam do wyświetlacza podłączyłem gnd i vcc oraz te 6 kabli i na początku pokazują sie na górnej lini kwadraty a po naciśnięci przycisku na pilocie gasną i delikatnie inne się zapalają jak cisnę klawisze od pilot oto kod

$regfile = "m8def.dat"                                      'informuje kompilator o pliku

$crystal = 12000000                                         'informuje kompilator
      'o częstotliwości oscylatora
      'taktującego mikrokontroler
Config Lcd = 16 * 2                                         'konfiguracja typu wyświetlacza
      'LCD
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5       'konfiguracja linii
      'mikrokontrolera do których
      'dołączono wyświetlacz
      'LCD
Config Int0 = Low Level                                     'konfigurowanie przerwania Int0,
      'które będzie wywoływane niskim
      'poziomem na wejściu INT0
Config Rc5 = Pind.2                                         'konfiguracja linii, do której
      'dołączono odbiornik
      'podczerwieni
On Int0 Pobr_rc5                                            'po wystąpieniu przerwania Int0
      'nastąpi skok do podprogramu
      'Pobr_rc5
Dim Address As Byte , Command As Byte
      'definicje zmiennych dla
      'instrukcji Getrc5
Dim OdebrKody programów należy umieszczać przez narzędzie KOD (znajdziesz je w edytorze pod ikonką "<>"). Dzięki niemu składania programów jest automatycznie kolorowana, a wtedy wszystkim znacznie łatwiej analizować wklejone programy. Proszę to poprawić - z góry dziękuję za zrozumienie i pomoc przy utrzymaniu porządku na forum. As Bit                                        'flaga wskazująca na odebranie
      'kodu danych w kodzie RC5
Enable Interrupts                                           'odblokowanie przerwań
      'globalnych
Enable Int0                                                 'odblokowanie przerwania Int0

Set OdebrKody programów należy umieszczać przez narzędzie KOD (znajdziesz je w edytorze pod ikonką "<>"). Dzięki niemu składania programów jest automatycznie kolorowana, a wtedy wszystkim znacznie łatwiej analizować wklejone programy. Proszę to poprawić - z góry dziękuję za zrozumienie i pomoc przy utrzymaniu porządku na forum.                                               'ustawienie flagi OdebrKody programów należy umieszczać przez narzędzie KOD (znajdziesz je w edytorze pod ikonką "<>"). Dzięki niemu składania programów jest automatycznie kolorowana, a wtedy wszystkim znacznie łatwiej analizować wklejone programy. Proszę to poprawić - z góry dziękuję za zrozumienie i pomoc przy utrzymaniu porządku na forum.

Do                                                          'początek nieskończonej pętli
If OdebrKody programów należy umieszczać przez narzędzie KOD (znajdziesz je w edytorze pod ikonką "<>"). Dzięki niemu składania programów jest automatycznie kolorowana, a wtedy wszystkim znacznie łatwiej analizować wklejone programy. Proszę to poprawić - z góry dziękuję za zrozumienie i pomoc przy utrzymaniu porządku na forum. = 1 Then                                      'jeśli odebrano kod RC5, to
 Cls                                                       'czyszczenie LCD
 Lcd "Adres: " ; Address                                   'wyświetlenie w pierwszej linii
      'LCD otrzymanego adresu po
      'napisie Adres:
 Lowerline                                                 'kursor do drugiej linii LCD
 Lcd "Komenda:" ; Command                                  'wyświetlenie w drugiej linii
      'LCD otrzymanego numeru komendy
      'po napisie Komenda:
 Reset OdebrKody programów należy umieszczać przez narzędzie KOD (znajdziesz je w edytorze pod ikonką "<>"). Dzięki niemu składania programów jest automatycznie kolorowana, a wtedy wszystkim znacznie łatwiej analizować wklejone programy. Proszę to poprawić - z góry dziękuję za zrozumienie i pomoc przy utrzymaniu porządku na forum.                                           'wyzerowanie flagi OdebrKody programów należy umieszczać przez narzędzie KOD (znajdziesz je w edytorze pod ikonką "<>"). Dzięki niemu składania programów jest automatycznie kolorowana, a wtedy wszystkim znacznie łatwiej analizować wklejone programy. Proszę to poprawić - z góry dziękuję za zrozumienie i pomoc przy utrzymaniu porządku na forum.
 Enable Int0                                               'odblokowanie przerwania Int0
End If
Loop
End                                                         'koniec programu

Pobr_rc5:                                                   'podprogram przerwania Int0
Disable Int0                                               'zablokowanie przerwania Int0
Enable Interrupts                                          'odblokowanie przerwań
      'globalnych
Getrc5(address , Command)                                  'pobranie adresu oraz komendy
      'nadanej z pilota podczerwieni
Command = Command And &B01111111                           'wyzerowanie najbardziej
      'znaczącego bitu otrzymanej
      'komendy
Set OdebrKody programów należy umieszczać przez narzędzie KOD (znajdziesz je w edytorze pod ikonką "<>"). Dzięki niemu składania programów jest automatycznie kolorowana, a wtedy wszystkim znacznie łatwiej analizować wklejone programy. Proszę to poprawić - z góry dziękuję za zrozumienie i pomoc przy utrzymaniu porządku na forum.                                              'ustawienie flagi odebrania kodu
      'RC5
Return                                                      'powrót z przerwania
If OdebrKody programów należy umieszczać przez narzędzie KOD (znajdziesz je w edytorze pod ikonką "<>"). Dzięki niemu składania programów jest automatycznie kolorowana, a wtedy wszystkim znacznie łatwiej analizować wklejone programy. Proszę to poprawić - z góry dziękuję za zrozumienie i pomoc przy utrzymaniu porządku na forum. = 1 Then
if address = 13 and command = 19 then
Set Portb.5
reset portb.5
end if
Reset OdebrKody programów należy umieszczać przez narzędzie KOD (znajdziesz je w edytorze pod ikonką "<>"). Dzięki niemu składania programów jest automatycznie kolorowana, a wtedy wszystkim znacznie łatwiej analizować wklejone programy. Proszę to poprawić - z góry dziękuję za zrozumienie i pomoc przy utrzymaniu porządku na forum.
Enable Int0 'odblokowanie przerwania Int0
End If 

[ Dodano: 28-04-2012, 22:38 ]

Teraz świeca 2 rzędy.

__________

Komentarz dodany przez: Treker

Używaj tag'ów [ code ]!

Link do komentarza
Share on other sites

Dołącz do dyskusji, napisz odpowiedź!

Jeśli masz już konto to zaloguj się teraz, aby opublikować wiadomość jako Ty. Możesz też napisać teraz i zarejestrować się później.
Uwaga: wgrywanie zdjęć i załączników dostępne jest po zalogowaniu!

Anonim
Dołącz do dyskusji! Kliknij i zacznij pisać...

×   Wklejony jako tekst z formatowaniem.   Przywróć formatowanie

  Dozwolonych jest tylko 75 emoji.

×   Twój link będzie automatycznie osadzony.   Wyświetlać jako link

×   Twoja poprzednia zawartość została przywrócona.   Wyczyść edytor

×   Nie możesz wkleić zdjęć bezpośrednio. Prześlij lub wstaw obrazy z adresu URL.

×
×
  • Utwórz nowe...

Ważne informacje

Ta strona używa ciasteczek (cookies), dzięki którym może działać lepiej. Więcej na ten temat znajdziesz w Polityce Prywatności.