Skocz do zawartości

feriar

Użytkownicy
  • Zawartość

    371
  • Rejestracja

  • Ostatnio

  • Wygrane dni

    5

Wszystko napisane przez feriar

  1. chyba nie muszę robić schematu łopatologicznie bo to można się domyśleć ze VCC 5V and GND wiadomo... ale pozatem dobrze ?
  2. czy ten schemat będzie działać pod względem elektroniki ?
  3. jacobs, chyba widać jak ... tarcze zróbcie z wieczka od jogurta i będzie mocne jak niewiem co ;D [niektórzy wiedzą oc kaman ;] ]
  4. dzięki tego szukałem póki co narazie git zobaczymy po zrobieniu [ Dodano: 27 Maj 10 02:52 ] tylko szkoda że w bacomie nie ma biblioteki dla 2x8 :\ Sabre ale pod względem elektroniki to będzie działać ?
  5. dobra ale nie chcę aby się spaliły ;D 8V na servo to samobójstwo [ Dodano: 26 Maj 10 09:27 ] potencjometr ma 20K
  6. ogólne zasilanie będzie mieć 8V czyli muszę zrobić dwa stabilizatory [chyba] jeden uC, czujniki, podświetlacz na 5V a drugi na 6V do mostka bo chcę aby silniki się szybko kręciły ;]
  7. jeśli zamówisz ANDUINO DUEMILANOVE to tutaj masz "jak krowie na rowie" przedstawione co i jak http://sprae.jogger.pl/2009/02/23/skynet-czyli-jak-opanowac-arduino-cz-1/
  8. zrób prawidłową bibliotekę ;] takie rozwiązanie może działać ?
  9. Sabre, a tam gdzie są wyprowadzenia miso, mosi... to tam mogę się podłączyć? jeśli tak by się dało to wtedy tylko [albo aż] jeden pin z wyświetlacza byłby na innym porcie
  10. na wyświetlaczach się mało znam dlatego się zapytam czy można same piny DB4....DB7 podłaczyć bez tych RS W i R/W ?
  11. mskojon, thx a takie rozwiązanie jak na zdjęciu jest poprawne ?
  12. że jak wyginanie ? spoiler ? to wszystko w cześciach było tylko poskleiałem
  13. a co do tego wyświetlacza to będę musiał jakiś kwarc zastosować ? bo to jest do LFR'a
  14. TIMONek, mi chodziło o to że do schematu rozpiska pinów bo do płytki to wiem że 7x2 goldpin ;]
  15. thx a ma ktoś może bibliotekę do eagla z tym wyświetlaczem ?
  16. Witam, tak jak w temacie jak poprawnie podłączyć wyświetlacz alfanumeryczny LCD 2x8 mając dostępne piny jak na zdjęciu
  17. mateuszrjzr, tak sam wycinałem plekse brzeszczotem tylko ważne jest aby chłodzić brzeszczot bo jak się "napali" to przylepia się do pleksy i można złamać obie rzeczy, a w przypadku pleksy może pójść rysa
  18. czego to już Japończyki nie wymyślą to już nie mam pytań, ale robot bardzo ciekawy.
  19. takie coś dla się lutować tylko uważaj żeby nie przegrzać bo obudowa może się topić. Jest takie gniazdo lecz fachowo nie potrafię tego nazwać, a w Eagle to jest tak: Schemat: con-molex>22-23-2021 Płytka : con-molex>22-23-2021
  20. sprawdź zasilanie na wyjściach l293d(ne) do silników - multimerem
  21. bardzo ciekawie Ci wyszedł muszę powiedzieć a co do programu to przerabiałeś go w jakiś sposób czy świeżo ściągnięty władowałeś w proca ? czekam na filmik ;] a z artykułu nawyka wychodzą 3x CNY 70 a jak widać na fotach to są dwa
  22. ten kod powinien Ci działać: $regfile = "m8def.dat" 'procesor Atmega8 $crystal = 8000000 'zegar 8MHz Config Portd.1 = Output 'PORTD.1 jako wyjście [katoda diody do 'procesora przez rezystor 470R Dioda Alias Portd.1 'PORTD.1 jako dioda Do 'początek pętli Set Dioda 'włącz diode Waitms 500 'czekaj 0,5 sekundy Reset Dioda 'resetuj PORTD.1 Waitms 500 Loop 'koniec pętli End 'koniec programu Miłego programowania
  23. Witam, napisałem pod ten schemat program http://img263.imageshack.us/i/pilotrc5.jpg/ i pytanie czy on będzie działać $regfile = "2313def.dat" $crystal = 8000000 Config Portb.3 = Input Config Portb.2 = Input Config Portb.1 = Input Config Portb.0 = Input Config Portb.4 = Output Dim Togbit As Byte , Command As Byte , Address As Byte do Debounce Portb.3 , 0 , Prosto , Sub Debounce Portb.2 , 0 , Tyl , Sub Debounce Portb.1 , 0 , Lewo , Sub Debounce Portb.0 , 0 , Prawo , Sub Prosto: Command = 1 Togbit = 0 Address = 0 Do Rc5send Togbit , Address , Command Waitms 250 Loop Until Portb.0 = 1 Return Tyl: Command = 2 Togbit = 0 Address = 0 Do Rc5send Togbit , Address , Command Waitms 250 Loop Until Portb.1 = 1 Return Prawo: Command = 3 Togbit = 0 Address = 0 Do Rc5send Togbit , Address , Command Waitms 250 Loop Until Portb.2 = 1 Return Lewo: Command = 4 Togbit = 0 Address = 0 Do Rc5send Togbit , Address , Command Waitms 250 Loop Until Portb.3 = 1 Return Rc5send Togbit , Address , Command Waitms 250 Loop Until Portb.4 = 1 Return po połączeniu z tym: $regfile = "m8def.DAT" 'deklaracja procesora, w ty wypadku Atmega8 $crystal = 8000000 'deklaracja taktowania Config Rc5 = Pinb.0 'ustawienie pinb.0 jako odbiór sygnału IR Dim Adres As Byte , Command As Byte 'deklaracje zmiennych Dim Speed As Integer Enable Interrupts 'włączenie przerwań Config Portc = Output 'port c jako wyjścia Portc = &B00000000 'wszędzie stan spoczynkowy-0 '-------konfiguracja timera do generowania sygnału PWM warunkującego prędkość pojazdu Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1 Speed = 255 'prędkośc na maksa Do 'poczatek programu Getrc5(adres , Command) 'pobierz adres i komende z pilota Command = Command And &B01111111 'wyświetlanie adresu i komendy (o ile podłączony i skonfigurowany LCD) w celu dokonania ustawień zgodnie z własnym pilotem. 'W razie potrzeby zmień komendy w kodzie poniżej Cls Lcd "adres: " ; Adres 'wyświetl adres Lowerline Lcd "komenda: " ; Command 'wyświetl komendę Waitms 3 'warunki i odwołania do podprogramów If Command = 2 Then Gosub Przod End If If Command = 8 Then Gosub Tyl End If If Command = 4 Then Gosub Lewo End If If Command = 6 Then Gosub Prawo End If 'regulacja prędkości. Dostosuj wartosci komend do swojego pilota! If Command = 32 Then Incr Speed If Speed = 251 Then Speed = 250 End If End If If Command = 33 Then Decr Speed If Speed = 1 Then Speed = 2 End If End If 'koniec regulacji prędkości If Command = 127 Then Pwm1a = 0 'komenda 127 podawana jest kiedy If Command = 127 Then Pwm1b = 0 'procesor nie odbiera sygnału z nadajnika 'przy tej komendzie stój! Loop 'koniec pętli End '--------------------------------------------------- 'podprogramy: Przod: Do Waitms 10 ' gasienica prawa Pwm1a = Speed Set Portc.0 Reset Portc.1 ' gasienica lewa Pwm1b = Speed Set Portc.2 Reset Portc.3 If Command = 2 Then Return Loop End Tyl: Do Waitms 1 ' gasienica prawa Pwm1a = Speed Set Portc.1 Reset Portc.0 ' gasienica lewa Pwm1b = Speed Set Portc.3 Reset Portc.2 If Command = 8 Then Return Loop End Lewo: Do Waitms 1 ' gasienica prawa Pwm1a = Speed Set Portc.0 Reset Portc.1 ' gasienica lewa Pwm1b = Speed Set Portc.3 Reset Portc.2 If Command = 4 Then Return Loop End Prawo: Waitms 1 ' gasienica prawa Pwm1a = Speed Set Portc.1 Reset Portc.0 ' gasienica lewa Pwm1b = Speed Set Portc.2 Reset Portc.3 If Command = 6 Then Return Return ^źródło bascomania.pl^
×
×
  • Utwórz nowe...