Skocz do zawartości

Problemy przy budowie line follower.


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 ;/

Jedyny sposób jaki mi przychodzi do głowy to podpiąć wyświetlacz i napisać kod wyświetlający odczyty z pilota na nim, spisać wartości dla danych przycisków na kartkę i powstawiać wartości do powyższego kodu.

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 ]!

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...