Skocz do zawartości

kuczus

Użytkownicy
  • Zawartość

    61
  • Rejestracja

  • Ostatnio

  • Wygrane dni

    1

kuczus wygrał w ostatnim dniu 27 listopada 2009

kuczus ma najbardziej lubianą zawartość!

Reputacja

10 Dobra

O kuczus

  • Ranga
    4/10
  • Urodziny 16.11.1990

Informacje

  • Płeć
    Mężczyzna
  • Lokalizacja
    Rybnik
  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.
×
×
  • Utwórz nowe...