Skocz do zawartości

kuczus

Użytkownicy
  • Zawartość

    61
  • Rejestracja

  • Ostatnio

  • Wygrane dni

    1

Wszystko napisane przez kuczus

  1. Odebrałem Wszystko w najlepszym porządku ) Dziękuję
  2. Mam dla Ciebie smutną wiadomość... Oczywiście żartuję, gratuluję Tobie i innym zwycięzcom! Hehe. Sam chciałem to napisać, no ale nie wiedziałem, czy inni zwycięzcy się nie obrażą
  3. Amir- chodzi o to, że nie można oszukiwać. Np. jeśli ktoś złapał by Cię na tym, że masz pilot w kieszeni i gdy robot wypada za trasę, to Ty nim zdalnie sterujesz, to mają prawo Cię od razu zdyskwalifikować.
  4. O łał. Nigdy w życiu nie wierzyłem w siebie w tego typu konkursach. Zawsze myślałem, że tylko głupi ma szczęście hehe Pozdrawiam
  5. Ja ma do sprzedania ZL3AVR z książką, jak i bez. Jeśli jesteś zainteresowany, to napisz e-maila
  6. Witam, tak jak w temacie, sprzedam płytkę testową ZL3AVR. W najbliższym czasie dodam zdjęcia. Cena jaka mnie interesuje, to 300zł z książką. Do negocjacji. Zainteresowanych zapraszam na meila. Pozdrawiam
  7. Może LM7806 w aplikacji z tranzystorem mocy?
  8. Sprzedam nowy miernik uniwersalny MY-63. Wygrałem go w konkursie "Sprawny w zawodzie technik elektronik" Cena rynkowa to ok 90zł. Ja sprzedam go za 60zł. Pozdrawiam
  9. Budując ten układ, pamiętaj o zaleceniach kolegów z elektrody: Możesz przesyłać informacje na wyświetlacz z PC ( musisz użyć układu MAX232 pośrednioczącego PC-UKŁAD avt-2853) albo z innego uC. Nie polecam ingerować w ten układ a tym bardziej w jego program. Potraktuj go jako osobne urządzenie, do którego będziesz przesyłał informacje z uC Twojego robota. Pozdrawiam
  10. Jeśli będziesz pracował na napięciach do 12V, to możesz zbudować sobie przystawkę do karty muzycznej komputera i za pomocą odpowiednich programów przeglądać oscylogramy na monitorze komputera. Koszt nie przekracza 10złotych. Pozdrawiam
  11. Koledzy, co z tymi obiecanymi filmami?
  12. Ja mam przerobione serwo Tower Pro SG-91R. Przeróbka polega na tym, że szlifujemy wał(nie wiem jak to nazwać) potencjometru (albo powiększamy otwór w zębatkach na tyle, by zębatki niezależnie ruszały się od suwaka potencjometru) oraz odciąłem nożykiem blokadę na jednej z zębatek. Dla niedowiarków, mogę zamieścić filmik z pracy tego serwa( a raczej zestawu silniczka DC z przekładniami z wykorzystaniem obudowy serwomechanizmu).
  13. Czekaj,czekaj! Wartość ADC jest 10-cio bitowa? Z tego co pamietam to jest 8-śmio bitowa, a więc może ten kod będzie działał: $regfile = "m8def.dat" $crystal = 12000000 'KONFIGURACJA PORTÓW' Config Pind.0 = Input 'PRZELACZNIK' Config Pind.1 = Output 'BUZZER' Config Pind.3 = Input 'TSOP' Config Portc = Input '6 x CNNY70' Config Pinb.0 = Output Config Pinb.1 = Output Config Pinb.2 = Output Config Pinb.3 = Output Config Pinb.4 = Output Config Pinb.5 = Output 'L293D - > SILNIKI' 'KONFIGURACJA STANÓW SPOCZYNKOWYCH' Portd.0 = 1 'PRZEŁĄCZNIK, JEŚLI 0 -> WCIŚNIĘTY' Portd.1 = 1 'BUZZER, JEŚLI 0 -> WŁĄCZONY' Portd.3 = 1 'TSOP1737, JEŚLI 0 -> PODAWANY JEST SYGNAŁ' Portc = &B1111111 'CZUJNIKI CNY70 (1 = BRAK LINI POD CZUJNIKIEM) Portb.0 = 0 Portb.1 = 1 'PWM' Portb.2 = 1 'PWM' Portb.3 = 1 Portb.4 = 1 Portb.5 = 0 'SILNIKI WYŁĄCZONE' Buzzer Alias Portd.1 'NAZWY POMOCNICZE' Przelacznik Alias Pind.0 'NAZWY POMOCNICZE' Tsop Alias Pind.3 'NAZWY POMOCNICZE' Config Adc = Single , Prescaler = Auto , Reference = Avcc 'KONFIGURACJA ADC Start Adc Config Timer1 = Pwm , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down 'konfiguracja timera1 Dim Wart_adc As Word 'ZCZYTYWANIE WARTOŚCI Z PORTU DO WART_AC' Dim Stan_czujnikow As Byte 'KONCOWA WARTOŚĆ Z ODCZYTU' Dim Sygnal As Byte Declare Sub Uruchom Declare Sub Przygotuj Declare Sub Jedz Declare Sub Ostatnia Declare Sub Prosto Declare Sub Prawo_bardzo_lekko Declare Sub Lewo_bardzo_lekko Declare Sub Lekko_prawo Declare Sub Lekko_lewo Declare Sub Prawo Declare Sub Lewo Declare Sub Mocno_prawo Declare Sub Mocno_lewo Declare Sub Bardzo_mocno_prawo Declare Sub Bardzo_mocno_lewo 'Start' call przygotuj Do Wart_adc = Getadc(0) If Wart_adc <= 120 Then Stan_czujnikow.0 = 1 Else Stan_czujnikow.0 = 0 End If Wart_adc = Getadc(1) If Wart_adc <= 120 Then Stan_czujnikow.1 = 1 Else Stan_czujnikow.1 = 0 End If Wart_adc = Getadc(2) If Wart_adc <= 120 Then Stan_czujnikow.2 = 1 Else Stan_czujnikow.2 = 0 End If Wart_adc = Getadc(3) If Wart_adc <= 120 Then Stan_czujnikow.3 = 1 Else Stan_czujnikow.3 = 0 End If Wart_adc = Getadc(4) If Wart_adc <= 120 Then Stan_czujnikow.4 = 1 Else Stan_czujnikow.4 = 0 End If Wart_adc = Getadc(5) If Wart_adc <= 120 Then Stan_czujnikow.5 = 1 Else Stan_czujnikow.5 = 0 End If 'porownaj' If Stan_czujnikow = &B110011 Then Call Prosto End If If Stan_czujnikow = &B110001 Then call Prawo_bardzo_lekko End If If Stan_czujnikow = &B100011 Then Call Lewo_bardzo_lekko End If If Stan_czujnikow = &B111001 Then Call Lekko_prawo End If If Stan_czujnikow = &B100111 Then Call Lekko_lewo End If If Stan_czujnikow = &B011001 Then Call Prawo End If If Stan_czujnikow = &B100110 Then Call Lewo End If If Stan_czujnikow = &B011101 Then Call Mocno_prawo End If If Stan_czujnikow = &B101110 Then Call Mocno_lewo End If If Stan_czujnikow = &B011111 Then Call Bardzo_mocno_prawo End If If Stan_czujnikow = &B111110 Then Call Bardzo_mocno_lewo End If If Stan_czujnikow = &B111111 Then Call Prosto End If If Stan_czujnikow = &B111011 Then Call Lekko_prawo End If If Stan_czujnikow = &B110111 Then Call Lekko_lewo End If If Stan_czujnikow = &B111101 Then Call Prawo End If If Stan_czujnikow = &B101111 Then Call Lewo End If Loop End Prosto: Pwm1a = 255 Pwm1b = 255 Return Prawo_bardzo_lekko: Pwm1a = 255 Pwm1b = 190 Return Lewo_bardzo_lekko: Pwm1a = 190 Pwm1b = 255 Return Lekko_prawo: Pwm1a = 255 Pwm1b = 150 Return Lekko_lewo: Pwm1a = 150 Pwm1b = 255 Return Prawo: Pwm1a = 255 Pwm1b = 100 Return Lewo: Pwm1a = 100 Pwm1b = 255 Return Mocno_prawo: Pwm1a = 255 Pwm1b = 50 Return Mocno_lewo: Pwm1a = 50 Pwm1b = 255 Return Bardzo_mocno_prawo: Pwm1a = 255 Pwm1b = 0 Return Bardzo_mocno_lewo: Pwm1a = 0 Pwm1b = 255 Return Przygotuj: Reset Buzzer Waitms 50 Set Buzzer Waitms 50 Reset Buzzer Waitms 50 Set Buzzer Waitms 50 Reset Buzzer Waitms 50 Set Buzzer Waitms 5 return
  14. Kod nie działał (niepotrzebnie zajmował miejsce) A raczej tak powinno być git.
  15. Mój to HauVaPlex. Jeśli możesz, to podeślij na email'a filmik z moim przejazdem. Oczywiście nic nie mam do umieszczenia hauvy na filmiku. Pozdrawiam i do zobaczenia na kolejnych zawodach.
  16. Może pisało tam o różnego rodzaju układach będących generatorami kodu RC5 i stąd propozycja sprawdzenia środka.
  17. Żeby opanować RC5, najlepiej jest mieć zestaw do testowania z wyświetlaczem LCD. Wtedy piszemy program tak, by wyświetlał "Adress" i "Command" pilota na LCD, a potem odwołujemy się bezpośrednio do określonego adress i command konkretnego naciśniętego przycisku. Program jest bez sensu, bo gdy się naciśnie przycisk którzy będzie mia command z zakresu poniżej 64, to ustawi na Portd.7 jedynkę. Nie skonfigurowałeś wejść/wyjść. To ważne. Powiedz jaki chcesz otrzymać efekt.
  18. No i musisz powiedzieć nam, jak z fuse bitami? dzielniki powyłączane?
  19. Błąd taki występuje, gdy nie mamy zasilania podanego na uC. Sprawdź miernikiem czy masz odpowiednie napięcia na odpowiednich nóżkach zasilania.
  20. Dla samego działania programu inna wartość "crystal" - kwarcu, nie była rażąca. Głównym błędem był brak konfiguracji portów. Pozdrawiam i ciesze się że działa (do zobaczenia w elho - hehe)
  21. DDRc = &B11111111 DDRd = &B00000000 DDRb = &B00000000 To jest konfiguracja wejść wyjść (1- wyjście, 0 wejście) To co Ty napisałeś, to konfiguracja pull'upów.
  22. A także nie masz konfiguracji wejść/wyjść... a to ważne i dlatego nie działa program
  23. Kondensator w tym miejscu nie jest potrzebny.Nie, nie będzie tego czytał. Bo jest to błędne, dlatego to dałem jako rem, czyli komentarz.
  24. Można wykorzystać elseif który odciąży troche procka, ale na początek to co dałem ja wystarczy. Nie wiem po co dałeś tą pierwszą pętle do-loop, z której nigdy nie wskoczył by program w obsługę "czujników" tylko cały czas by czekał na zmianę pinu.Poza tym, nie wybrałeś najlepszego schematu z sieci... Cały czas uP będzie wisiał na resecie... Musisz zmienić układ resetu uProcesora tj : Usunąć kondensator 10uF łączący się z pinem resetu i plusem zasilania, w jego miejsce dać ten rezystor który jest obok, a w miejsce pozostaw puste. Pozdrawiam
×
×
  • Utwórz nowe...