ATNEL tech-forum

Re: Sekwencje lampek diodowych z czujnikami ruchu

2015-04-17T20:31:34+01:00

No dobra będę próbował Dziękuję

Statystyki: Napisane przez GrasalxD — 17 kwi 2015, o 20:31

Re: Sekwencje lampek diodowych z czujnikami ruchu

2015-04-17T18:28:08+01:00

GrasalxD napisał(a):

To powinno rozwiązać moją sytuacje??

sądzę również że to powinno rozwiązać twój problem do tego trzeba dać diodę na cewkę przekaźnika

Statystyki: Napisane przez majster — 17 kwi 2015, o 18:28

Re: Sekwencje lampek diodowych z czujnikami ruchu

2015-04-17T09:55:07+01:00

To powinno rozwiązać moją sytuacje??

Statystyki: Napisane przez GrasalxD — 17 kwi 2015, o 09:55

Re: Sekwencje lampek diodowych z czujnikami ruchu

2015-04-16T17:46:03+01:00

I tak wpadłem na pomysł żeby podpiąć zwykle domowe lampki ledowe na 230v i co? wszystko jakimś cudem działa... No to stwierdziłem że zacznę podpinać lampki ogrodowe pojedynczo i wyszło na to że wystarczy że podepne jedna lampkę i przekaźniki szaleją. Ma ktoś jakiś pomysł na to?

Statystyki: Napisane przez GrasalxD — 16 kwi 2015, o 17:46

Re: Sekwencje lampek diodowych z czujnikami ruchu

2015-04-16T15:25:33+01:00

Na cewke idzie 12 V
Płytka jest taka sama co stronę wcześniej tego tematu.
A lampki mam takie:http://www.kanlux.pl/pl/19132
I ogólnie to działa ta płytka bo i na 12 i na 24 lampami sterowalem bez problemu a teraz jak zapinam te na 230 V to program nie dość że głupieje to jeszcze zatrzymuje się na dwóch przekaźnikach. W pdf strona wcześniej są ścieżki tej płytki jedno co to robione to było w corelu więc nie ma schematu.

Statystyki: Napisane przez GrasalxD — 16 kwi 2015, o 15:25

Re: Sekwencje lampek diodowych z czujnikami ruchu

2015-04-16T15:12:48+01:00

Przekaźnik ma cewkę na 12V a nie na 5V zdajesz sobie sprawę że 5V ich nie przełączysz ?

Statystyki: Napisane przez majster — 16 kwi 2015, o 15:12

Re: Sekwencje lampek diodowych z czujnikami ruchu

2015-04-16T15:09:13+01:00

Pokaz płytkę od spodu jak ścieżki lecą od przekaźników bo tak trudno określić co jest nie tak, i jakie to lampki na 230V , moc itp.

Statystyki: Napisane przez jaman7 — 16 kwi 2015, o 15:09

Re: Sekwencje lampek diodowych z czujnikami ruchu

2015-04-16T14:52:42+01:00

Przekaźniki są takie a przed przekaźnikami jest ULN2803

http://sklep.nikomp.com.pl/pl/p/PRBAS08 ... 2-1ZS/3926

Statystyki: Napisane przez GrasalxD — 16 kwi 2015, o 14:52

Re: Sekwencje lampek diodowych z czujnikami ruchu

2015-04-16T13:52:10+01:00

Jakie to przekaźniki?
Dioda zabezpieczajaca na cewce jest?

Namazane ze smarta.

Statystyki: Napisane przez majster — 16 kwi 2015, o 13:52

Re: Sekwencje lampek diodowych z czujnikami ruchu

2015-04-16T10:02:34+01:00

Witam.

Mam mały problem odnośnie tej płytki ponieważ fakt program działał wszystko pięknie ładnie ale gdy zmieniłem lampki na 230V a były wcześniej na 12 to po tej zmianie mam dziwną sytuację taką że program bez lampek działa ładnie podłączam zasilanie 230V do transformatora i przekaźniki stukają ale gdy tylko się podłączy lampki i się obciązy płytkę to działają tylko 2 i w programie wychodzą głupoty. Czy ktoś może wiedzieć dlaczego???

Statystyki: Napisane przez GrasalxD — 16 kwi 2015, o 10:02

Re: Sekwencje lampek diodowych z czujnikami ruchu

2015-02-28T22:05:32+01:00

Dziękuje Bardzo!!!

Dzisiaj podpiąłem wszystkie lampki na wjeździe i wcześniejszy działał dobrze!!! Jutro wieczorem nagram filmik jaki jest tego efekt no i z wykorzystaniem nowego programu wielkie DZIĘKI!!!!

Statystyki: Napisane przez GrasalxD — 28 lut 2015, o 22:05

Re: Sekwencje lampek diodowych z czujnikami ruchu

2015-02-27T00:52:37+01:00

MkAVRcalculator mam ale nie mam na Atmega 32 bo brak pełnej wersji

Statystyki: Napisane przez GrasalxD — 27 lut 2015, o 00:52

Re: Sekwencje lampek diodowych z czujnikami ruchu

2015-02-27T00:29:20+01:00

Ja się ciągle uczę Bascoma i niby coś wiem trochę potrafię ale gorzej w praktyce. Teraz siedzę i czytam i rozpisuje sobie ten program bo tak mi to lepiej wchodzi do głowy i zmieniam dane i patrzę co się dzieje... Tak mi się lepiej tego uczy i bardziej zaczynam to rozumieć.

Statystyki: Napisane przez GrasalxD — 27 lut 2015, o 00:29

Re: Sekwencje lampek diodowych z czujnikami ruchu

2015-02-27T00:14:02+01:00

stworzyć menu
zapis zmiennych do eepromu np
i operować na zmiennych to tak pokrótce

niestety w kodzie nie pomogę bo nie znam bascom ale wg tego co wymieniłem powinieneś dać radę
eeprom można odpuścić i ustawić jakieś wartości startowe

Statystyki: Napisane przez majster — 27 lut 2015, o 00:14

Re: Sekwencje lampek diodowych z czujnikami ruchu

2015-02-26T22:29:44+01:00

Jakby to zrobić???

Statystyki: Napisane przez GrasalxD — 26 lut 2015, o 22:29

Re: Sekwencje lampek diodowych z czujnikami ruchu

2015-02-26T18:42:07+01:00

Dobra już sobie to ogarnąłem z tymi czujnikami teraz działa jak należy.
A czy szło by ustawić jakoś czas zapalania lampek w sensie żeby nie było to w sekundach tylko w milisekundach bo chciałbym żeby one mi się trochę szybciej zapalały?

------------------------ [ Dodano po: 2 minutach ]

albo jakby można było sterować szybkością w menu ->Ustawienia czasu albo coś takiego

Statystyki: Napisane przez GrasalxD — 26 lut 2015, o 18:42

Re: Sekwencje lampek diodowych z czujnikami ruchu

2015-02-26T17:33:49+01:00

Ani to pierwsze ani to drugie nie działa wyłącza kiedy chce nie ważne czy czujnik 2 widzi czy nie.
Ale postaram się to jakoś ogarnąć albo pokombinować.

Statystyki: Napisane przez GrasalxD — 26 lut 2015, o 17:33

Re: Sekwencje lampek diodowych z czujnikami ruchu

2015-02-26T16:24:30+01:00

Teraz sekwencja jest okey

Dzięki wielkie

Statystyki: Napisane przez GrasalxD — 26 lut 2015, o 16:24

Re: Sekwencje lampek diodowych z czujnikami ruchu

2015-02-26T14:39:54+01:00

A więc tak podłączyłem dzisiaj dwa czujniki.
Program działa ale Jak pierwszy czujnik zobaczy ruch to leci tylko do 6 a nie do 7 lampek czasami nawet zatrzymuje się na pierwszej drugiej czwartej jak sobie wybierze. druga czujka robi identycznie to samo nie wiem co tu może być nie tak z tym. Czasami jest tak że załapie ruch duże odliczy do 6 a nie do 7 jak druga wykryje ruch to gasi ostatnią i jak wykryje znowu to leci z powrotem startując od 6 ... to to no i myślałem że będzie tak że jak odliczy do 7 to zapalą się wszystkie na raz lampki i dopiero wtedy wyłączy je jak zobaczy czujka 2 ruch i odwrotnie... No i czasami czujki potrzebują kilku ruchów zeby wykryły ale to pewnie teraz kwestia tych czujek.

Tutaj podaje link do filmu nie wiem jak dodać go tutaj to daje z catshare

http://catshare.net/aOZvFfZNVHgk8VyI/MOV_0016.mp4

Statystyki: Napisane przez GrasalxD — 26 lut 2015, o 14:39

Re: Sekwencje lampek diodowych z czujnikami ruchu

2015-02-26T00:29:29+01:00

Nad sekwencją pomyślę i najwyżej zwróce się o pomoc a dzisiaj będę podpinał czujniki i sprawdze jak to świeci bo wczoraj to sprawdziłem tylko całe menu.

I jeśli bym mógł prosić to o przetłumaczenie tych dim w programie bo staram się tak na polski język ogarnąc ten program i w ten sposób sam się też z tego nauczyć.

Statystyki: Napisane przez GrasalxD — 26 lut 2015, o 00:29

Re: Sekwencje lampek diodowych z czujnikami ruchu

2015-02-25T17:52:57+01:00

Dzięki wielkie!!!!!!!!!

Wszystko ruszyło jak trzeba

Statystyki: Napisane przez GrasalxD — 25 lut 2015, o 17:52

Re: Sekwencje lampek diodowych z czujnikami ruchu

2015-02-25T16:29:12+01:00

[syntax=basic4gl]'********************** KONFIGURACJA SPRZĘTU ***********************************
$regfile = "m32def.dat"
$crystal = 1000000

'klawiatura
Config Portc = Input : Portc = &B11111111
'wejscia z gniazda RJ-45
Config Porta = Input : Porta = &B00000000
'Port przekazników 'D0-D6 Przekazniki 'D7 Podswietlenia
Config Portd = Output : Portd = &B00000001

Menu_switch Alias Pinc.0
Hour_plus Alias Pinc.1
Month_plus Alias Pinc.2
Day_plus Alias Pinc.3
Min_plus Alias Pinc.4

Czuj_1 Alias Pina.1
Czuj_2 Alias Pina.2

Config Adc = Single , Prescaler = Auto , Reference = Internal
Start Adc

'Port Lcd
Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , E = Portb.4 , Rs = Portb.5
Config Lcd = 16 * 2
Cursor Off Noblink
Cls

Config Clock = Soft
Time$ = "14:02:00"
Date$ = "25/02/15"
Config Date = Dmy , Separator = /

Dim Temperatura As Single
Dim Adc0 As Integer

Dim Old_sec As Byte , Flaga_menu As Byte , Menu_timeout As Byte
Dim Stan As Byte , Lampka As Byte , Lampki As Byte , Timeout_lampek As Byte , Lock As Byte

Const Oczekiwanie = 0
Const Zapal_w_lewo = 1
Const Zapal_w_prawo = 2
Const Zapalone_lewo = 3
Const Zapalone_prawo = 4

Const Timeout_dla_lampek = 10 ' (w sekundach)
Const Timeout_dla_menu = 3
'*******************************************************************************

'*********Powitanie********
Lcd "Witam ;)"
Wait 2
Lowerline
Lcd "Gracjan Salamon"
Wait 2
Cls

'*** START ***
Do
Debounce Czuj_1 , 1 , Lewo , Sub 'czujniki, wyzwalanie plusem
Debounce Czuj_2 , 1 , Prawo , Sub

'co sekunde
If Old_sec <> _sec Then
Old_sec = _sec

Locate 2 , 13 : If _sec < 10 Then Lcd "0"
Lcd _sec ; "s"

If Timeout_lampek > 0 Then
Decr Timeout_lampek
If Timeout_lampek = 0 Then Stan = Oczekiwanie
End If

Gosub Sterowanie

If Menu_timeout > 0 Then
Decr Menu_timeout
If Menu_timeout = 0 Then
Cls : Flaga_menu = 0
End If
End If

If Flaga_menu = 0 Then
Gosub Pokaz_glowna
End If

End If
'koniec "co sekunde"

Debounce Menu_switch , 0 , Menu , Sub 'Przycisk Enter 'Idz do podprogramu Menu
Debounce Hour_plus , 0 , H_plus , Sub 'dodaj godzine
Debounce Min_plus , 0 , M_plus , Sub 'dodaj minute
Debounce Month_plus , 0 , Mt_plus , Sub 'dodaj miesiac
Debounce Day_plus , 0 , D_plus , Sub 'dodaj dzien

Waitms 100
Loop
End
'*** KONIEC ***
'------------------------

'wlacz lampki w lewo
Lewo:
If Stan = Oczekiwanie Then
Stan = Zapal_w_lewo
Lampka = 0
Set Portd.lampka
Lock = 1
Timeout_lampek = Timeout_dla_lampek
Else
Timeout_lampek = 0
Stan = Oczekiwanie
End If
Return
'------------------------

'wlacz lampki w prawo
Prawo:
If Stan = Oczekiwanie Then
Stan = Zapal_w_prawo
Lampka = 6
Set Portd.lampka
Lock = 1
Timeout_lampek = Timeout_dla_lampek
Else
Timeout_lampek = 0
Stan = Oczekiwanie
End If
Return
'------------------------

'steruj lampkami
Sterowanie:
If Lock > 0 Then Decr Lock

If Lock = 0 Then

Select Case Stan
Case Oczekiwanie
Lampka = 8
Case Zapal_w_lewo
If Lampka < 6 Then Incr Lampka
Case Zapal_w_prawo
If Lampka > 0 Then Decr Lampka
End Select

For Lampki = 0 To 6
If Lampki = Lampka Then Set Portd.lampki Else Reset Portd.lampki
Next

End If

Return
'--------------------------

Pokaz_glowna:
Home : Lcd Date$ ; " " ; Left(time$ , 5) 'Wyświetl Date i Godzine
Adc0 = Getadc(0) : Temperatura = Adc0 * 0.25
Lowerline : Lcd Fusing(temperatura , "#.#") ; " C " 'Pokaż Temperature
Return

M_plus:
_min = _min + 1
If _min > 59 Then _min = 0
Return

H_plus:
_hour = _hour + 1
If _hour > 23 Then _hour = 0
Return

Mt_plus:
_month = _month + 1
If _month > 12 Then _month = 1
Return

D_plus:
_day = _day + 1
If _day > 31 Then _day = 1
Return

Menu:
Cls : Lcd "Menu:"
Flaga_menu = 1
Menu_timeout = Timeout_dla_menu
Return[/syntax]

Dopisałem tamte dwie linijki i nadal nic...

Statystyki: Napisane przez GrasalxD — 25 lut 2015, o 16:29

Re: Sekwencje lampek diodowych z czujnikami ruchu

2015-02-25T15:11:59+01:00

Dzięki wielkie

Właśnie sprawdzam program z tego co widzę działa tylko powitanie i jak nacisnę enter to tylko menu wyskakuje nic więcej...

Postaram się to jakoś ogarnąć i zobaczyć o co chodzi....

Statystyki: Napisane przez GrasalxD — 25 lut 2015, o 15:11

Re: Sekwencje lampek diodowych z czujnikami ruchu

2015-02-25T12:22:27+01:00

Nie mam schematu takiego bo robiłem to na kartce a nie wiem gdzie ją mam :/
Nie wiem czy może być ale zrobiłem zdjęcie z góry i opisałem co do jakiego portu.
i przepraszam za wcześniejszą pomyłkę :/

Statystyki: Napisane przez GrasalxD — 25 lut 2015, o 12:22

Re: Sekwencje lampek diodowych z czujnikami ruchu

2015-02-25T08:47:12+01:00

Jeszcze coś jest potrzebne???

Statystyki: Napisane przez GrasalxD — 25 lut 2015, o 08:47