ATNEL tech-forum

Re: Proszę o sprawdzenie programu z czujnikami ruchu .

2015-05-18T16:53:54+01:00

No kurcze znowu o tym zapomniałem

Teraz działa jak należy Dziekuję

Statystyki: Napisane przez Patiaudio — 18 maja 2015, o 16:53

Re: Proszę o sprawdzenie programu z czujnikami ruchu .

2015-05-18T16:41:45+01:00

Kurcze nadal nic :/ odliczy do 3 lub 4 diód i nagle nic i program stoi z zapalonymi diodami 1 ,4 i 6 świeci ciągle

Statystyki: Napisane przez Patiaudio — 18 maja 2015, o 16:41

Re: Proszę o sprawdzenie programu z czujnikami ruchu .

2015-05-18T15:48:58+01:00

Witam.

Mam mały problem ponieważ nie umiem wstawić w środku programu rotate po prostu program tego nie wykonuje tak jak ma a o to program:

[syntax=basic4gl]$regfile = "m32def.dat"
$crystal = 1000000
$hwstack = 40
$swstack = 16
$framesize = 32

'******************************************************************************

Config Porta = Output

Porta = &B00000000

Config Portc = Output

Portc = &B00000000

'Config Portb = Input

'Portb = &B00000000
Config Portb = Input
Config Pinb.0 = Input
Portb.0 = 1
Portb.1 = 1

Dim I As Byte
Dim X As Byte

'Set Portb.1
'Set Portb.0

'******************************************************************************
'(Do

If Pinb.1 = 0 Then

For I = 0 To 7
Porta.i = 1
Portc.i = 1
Waitms 500

Next I

Wait 2

For I = 7 To 0 Step -1
Porta.i = 0
Portc.i = 0
Waitms 500

Next I
End If

If Pinb.0 = 0 Then

For I = 7 To 0 Step -1
Porta.i = 1
Portc.i = 1
Waitms 500

Next I

Wait 2

For I = 0 To 7
Porta.i = 0
Portc.i = 0
Waitms 500

Next I

End If

Debounce Pinb.2 , 0 , Demo , Sub

Loop

Demo:
')
For I = 1 To 3 'MIGANIE DO 3, POCZĄTEK
Porta.0 = 1
Waitms 50
Porta.0 = 0
Waitms 50

Next I

For I = 1 To 3
Portc.0 = 1
Waitms 50
Portc.0 = 0
Waitms 50

Next I

For I = 1 To 3
Porta.1 = 1
Waitms 50
Porta.1 = 0
Waitms 50

Next I

For I = 1 To 3
Portc.1 = 1
Waitms 50
Portc.1 = 0
Waitms 50

Next I

For I = 1 To 3
Porta.2 = 1
Waitms 50
Porta.2 = 0
Waitms 50

Next I

For I = 1 To 3
Portc.2 = 1
Waitms 50
Portc.2 = 0
Waitms 50

Next I

For I = 1 To 3
Porta.3 = 1
Waitms 50
Porta.3 = 0
Waitms 50

Next I

For I = 1 To 3
Portc.3 = 1
Waitms 50
Portc.3 = 0
Waitms 50

Next I

For I = 1 To 3
Porta.4 = 1
Waitms 50
Porta.4 = 0
Waitms 50

Next I

For I = 1 To 3
Portc.4 = 1
Waitms 50
Portc.4 = 0
Waitms 50

Next I

For I = 1 To 3
Porta.5 = 1
Waitms 50
Porta.5 = 0
Waitms 50

Next I

For I = 1 To 3
Portc.5 = 1
Waitms 50
Portc.5 = 0
Waitms 50

Next I

For I = 1 To 3
Porta.6 = 1
Waitms 50
Porta.6 = 0
Waitms 50

Next I

For I = 1 To 3
Portc.6 = 1
Waitms 50
Portc.6 = 0
Waitms 50

Next I

For I = 1 To 3
Porta.7 = 1
Waitms 50
Porta.7 = 0
Waitms 50

Next I

For I = 1 To 3
Portc.7 = 1
Waitms 50
Portc.7 = 0
Waitms 50 'KONIEC MIGANIA DO 3

Next I
'OD POCZĄTKU DO KOŃCA ZAPALA x3
For X = 1 To 2
For I = 0 To 7
Porta.i = 1
Waitms 50

Next I

For I = 7 To 0 Step -1
Porta.i = 0
Waitms 50

Next I

For I = 0 To 7
Portc.i = 1
Waitms 50

Next I

For I = 7 To 0 Step -1
Portc.i = 0
Waitms 50
Next I 'KONIEC ZAPALANIA x3

Next X

For X = 1 To 2 'OD POCZĄTKU DO KOŃCA ZAPALANIE
For I = 7 To 0 Step -1
Porta.i = 1
Waitms 50

Next I

For I = 0 To 7
Porta.i = 0
Waitms 50 'KONIEC ZAPALANIA

Next I
Next X

For X = 1 To 2 'OD POCZĄTKU DO KOŃCA ZAPALANIE
For I = 7 To 0 Step -1
Portc.i = 1
Waitms 50

Next I

For I = 0 To 7
Portc.i = 0
Waitms 50
'KONIEC ZAPALANIA
Next I

Next X

For I = 1 To 3 'MRUGA RZĘDAMI PO 3
Porta.0 = 1
Portc.0 = 1
Waitms 100
Porta.0 = 0
Portc.0 = 0
Waitms 100

Next I

For I = 1 To 3
Porta.1 = 1
Portc.1 = 1
Waitms 100
Porta.1 = 0
Portc.1 = 0
Waitms 100

Next I

For I = 1 To 3
Porta.2 = 1
Portc.2 = 1
Waitms 100
Porta.2 = 0
Portc.2 = 0
Waitms 100

Next I

For I = 1 To 3
Porta.3 = 1
Portc.3 = 1
Waitms 100
Porta.3 = 0
Portc.3 = 0
Waitms 100

Next I

For I = 1 To 3
Porta.4 = 1
Portc.4 = 1
Waitms 100
Porta.4 = 0
Portc.4 = 0
Waitms 100

Next I

For I = 1 To 3
Porta.5 = 1
Portc.5 = 1
Waitms 100
Porta.5 = 0
Portc.5 = 0
Waitms 100

Next I

For I = 1 To 3
Porta.6 = 1
Portc.6 = 1
Waitms 100
Porta.6 = 0
Portc.6 = 0
Waitms 100

Next I

For I = 1 To 3
Porta.7 = 1
Portc.7 = 1
Waitms 100
Porta.7 = 0
Portc.7 = 0
Waitms 100 'KONIEC MRUGANIA RZĘDAMI

Next I
'OD POCZĄTKU DO KOŃCA RAZEM
For X = 1 To 2
For I = 0 To 7
Porta.i = 1
Portc.i = 1
Waitms 50

Next I

For I = 7 To 0 Step -1
Porta.i = 0
Portc.i = 0
Waitms 50

Next I

For I = 0 To 7
Portc.i = 1
Porta.i = 1
Waitms 50

Next I

For I = 7 To 0 Step -1
Portc.i = 0
Porta.i = 0
Waitms 50
Next I

Next X 'KONIEC

For I = 1 To 3
Config Porta = Output
Porta = &B00000001

Rotate Porta , Left , 1
Waitms 100

Next I[/syntax]

Wiem że jest długi ale byłby jeszcze dłuższy gdybym musiał rozpisać te rotate na czynniki pierwsze a tego nie chce. Mógłbym ktoś pomóc w tym ??

Statystyki: Napisane przez Patiaudio — 18 maja 2015, o 15:48

Re: Proszę o sprawdzenie programu z czujnikami ruchu .

2015-05-17T13:59:53+01:00

Aaaa to już wiem czemu mi błąd wcześniej wywalało jak podstawiałem zmienną X bo nie wiedziałem gdzie dać potem końcówkę next X ...

Dziękuję za pomoc

Statystyki: Napisane przez Patiaudio — 17 maja 2015, o 13:59

Re: Proszę o sprawdzenie programu z czujnikami ruchu .

2015-05-17T12:49:23+01:00

Hahaha... Muszę wypić kawę bo widzę że coraz gorzej

Chciałem wstawić większy urywek programu :

[syntax=basic4gl]For I = 0 To 7
Porta.i = 1

Waitms 50

Next I

For I = 7 To 0 Step -1
Porta.i = 0

Waitms 50[/syntax]

Chciałem żeby to się powtarzało 3 razy sam ten urywek kodu żeby powtórzył się 3 razy . czyli 3 pełne cykle tego kodu żeby się powtórzyły

Statystyki: Napisane przez Patiaudio — 17 maja 2015, o 12:49

Re: Proszę o sprawdzenie programu z czujnikami ruchu .

2015-05-17T12:09:19+01:00

Chodziło mi o to żeby to:

[syntax=basic4gl]For I = 7 To 0 Step -1
Porta.i = 0
Waitms 50

Next I[/syntax] Zostało wykonane 3 razy czyli tak 1 raz odliczy od 7 do 0 i powtarza to 2 raz i 3 raz.
To zapala u mnie jeden rząd lampek ale tak szybko i chciałem żeby nie pisać tego 3 razy tylko dołożyć coś co odliczy mi do 3 razy

Statystyki: Napisane przez Patiaudio — 17 maja 2015, o 12:09

Re: Proszę o sprawdzenie programu z czujnikami ruchu .

2015-05-17T09:05:42+01:00

No dobrze zacznę się bawić już trochę w tych timerach

A jeszcze mam takie pytanie bo siedzę i nie wiem jak zrobić to :
[syntax=basic4gl]For I = 8 To 1 Step -1
Porta.i = 0
Waitms 50

Next I[/syntax] żeby powtórzyło to np. 3-4 razy bo próbowałem zrobić to tak :
[syntax=basic4gl]Dim X as Byte

For X = 1 to 3
For I = 8 To 1 Step -1
Porta.i = 0
Waitms 50

Next I[/syntax] Ale nie działa ;( może jakaś podpowiedź?

Statystyki: Napisane przez Patiaudio — 17 maja 2015, o 09:05

Re: Proszę o sprawdzenie programu z czujnikami ruchu .

2015-05-17T00:48:42+01:00

Witam!

Pana program działa lecz no właśnie ja się uczę tego języka to swoją drogą ale czy nie prościej idzie napisać ten program?? W sensie takim że bardziej zrozumiale bo sam trochę mało z tego rozumiem no ale to swoją drogą. Pozwoliłem sobie napisać ten sam program w wersji naprawdę długiej bo po prostu nie wiem jak połączyć port A i C żeby mi świeciły równo w 2 rzędach fakt faktem wersja demo już też jest lecz przycisk nie działa nie wiem czemu. O to program :
[syntax=basic4gl]'************************** PROCESOR *******************************************

$regfile = "m32def.dat"
$crystal = 1000000
$hwstack = 40
$swstack = 16
$framesize = 32

'************************** KONFIGURACJA ***************************************

Config Porta = Output

Porta = &B00000000

Config Portc = Output

Portc = &B00000000

Config Portb = Input

Portb = &B00000000

Portb.0 = 1
Portb.1 = 1

Dim I As Byte

'******************************************************************************

Wjazd:

If Pinb.0 = 1 Then

Gosub Demo

End If

Do

If Pinb.1 = 0 Then

Porta.0 = 1
Portc.0 = 1

Waitms 500

Porta.1 = 1
Portc.1 = 1

Waitms 500

Porta.2 = 1
Portc.2 = 1

Waitms 500

Porta.3 = 1
Portc.3 = 1

Waitms 500

Porta.4 = 1
Portc.4 = 1

Waitms 500

Porta.5 = 1
Portc.5 = 1

Waitms 500

Porta.6 = 1
Portc.6 = 1

Waitms 500

Porta.7 = 1
Portc.7 = 1

Waitms 500

Porta.8 = 1
Portc.8 = 1

Wait 4

Porta.0 = 0
Portc.0 = 0

Waitms 500

Porta.1 = 0
Portc.1 = 0

Waitms 500

Porta.2 = 0
Portc.2 = 0

Waitms 500

Porta.3 = 0
Portc.3 = 0

Waitms 500

Porta.4 = 0
Portc.4 = 0

Waitms 500

Porta.5 = 0
Portc.5 = 0

Waitms 500

Porta.6 = 0
Portc.6 = 0

Waitms 500

Porta.7 = 0
Portc.7 = 0

Waitms 500

Porta.8 = 0
Portc.8 = 0

End If

If Pinb.1 = 1 Then

Porta.8 = 1
Portc.8 = 1

Waitms 500

Porta.7 = 1
Portc.7 = 1

Waitms 500

Porta.6 = 1
Portc.6 = 1

Waitms 500

Porta.5 = 1
Portc.5 = 1

Waitms 500

Porta.4 = 1
Portc.4 = 1

Waitms 500

Porta.3 = 1
Portc.3 = 1

Waitms 500

Porta.2 = 1
Portc.2 = 1

Waitms 500

Porta.1 = 1
Portc.1 = 1

Waitms 500

Porta.0 = 1
Portc.0 = 1

Wait 4

Porta.8 = 1
Portc.8 = 1

Waitms 500

Porta.7 = 1
Portc.7 = 1

Waitms 500

Porta.6 = 1
Portc.6 = 1

Waitms 500

Porta.5 = 1
Portc.5 = 1

Waitms 500

Porta.4 = 1
Portc.4 = 1

Waitms 500

Porta.3 = 1
Portc.3 = 1

Waitms 500

Porta.2 = 1
Portc.2 = 1

Waitms 500

Porta.1 = 1
Portc.1 = 1

Waitms 500

Porta.0 = 1
Portc.0 = 1

End If

Loop

Demo:

Do
' Dim I As Byte
For I = 1 To 3
Porta.0 = 1
Waitms 50
Porta.0 = 0
Waitms 50

Next I

For I = 1 To 3
Portc.0 = 1
Waitms 50
Portc.0 = 0
Waitms 50

Next I

For I = 1 To 3
Porta.1 = 1
Waitms 50
Porta.1 = 0
Waitms 50

Next I

For I = 1 To 3
Portc.1 = 1
Waitms 50
Portc.1 = 0
Waitms 50

Next I

For I = 1 To 3
Porta.2 = 1
Waitms 50
Porta.2 = 0
Waitms 50

Next I

For I = 1 To 3
Portc.2 = 1
Waitms 50
Portc.2 = 0
Waitms 50

Next I

For I = 1 To 3
Porta.3 = 1
Waitms 50
Porta.3 = 0
Waitms 50

Next I

For I = 1 To 3
Portc.4 = 1
Waitms 50
Portc.4 = 0
Waitms 50

Next I

For I = 1 To 3
Porta.5 = 1
Waitms 50
Porta.5 = 0
Waitms 50

Next I

For I = 1 To 3
Portc.5 = 1
Waitms 50
Portc.5 = 0
Waitms 50

Next I

For I = 1 To 3
Porta.6 = 1
Waitms 50
Porta.6 = 0
Waitms 50

Next I

For I = 1 To 3
Portc.7 = 1
Waitms 50
Portc.7 = 0
Waitms 50

Next I

For I = 1 To 3
Porta.8 = 1
Waitms 50
Porta.8 = 0
Waitms 50

Next I

For I = 1 To 3
Portc.8 = 1
Waitms 50
Portc.8 = 0
Waitms 50

Next I

For I = 1 To 8
Porta.i = 1
Waitms 50

Next I

For I = 8 To 1 Step -1
Porta.i = 0
Waitms 50

Next I

For I = 1 To 8
Portc.i = 1
Waitms 50

Next I

For I = 8 To 1 Step -1
Portc.i = 0
Waitms 50

Next I

Gosub Wjazd

Loop

Return[/syntax]

Tak jak mówiłem jest on długi i mieści aż 5% w procesorze a sądzę że pójdzie go napisac bez wszystkich timerów i wgl i zmieści się on w 2-3 procentach a dla każdego początkującego będzie bardziej wiadomo o co chodzi. Także bardzo proszę o sprawdzenie tego programu lub ewentualnie jakaś podpowiedź jak połączyć port A i C w 2 rzędy resztę sądzę że sam zrobię.

A patrząc na pana program czyli ten : [syntax=basic4gl]$regfile = "m32def.dat"
$crystal = 1000000
$hwstack = 40
$swstack = 16
$framesize = 32

Config PORTA = Output
Config PORTB = Output
Config PORTC = Output
Config PORTD = Output

Dim Numer_diody As Byte
Dim Numer_pinu As Byte
Dim Help As Byte

Do

Incr Numer_diody 'zwieksz numer, jesli 0 to bedzie 1
If Numer_diody = 33 Then Numer_diody = 1 'jesli juz pelne kolo to znow pierwsza

Help = Numer_pinu - 1 'pomocnicza dla wartosci 1-7 ma wartosc 0-6 i gasi poprzednia diode

Select Case Numer_diody

Case 1 To 8 'od 1-8 PORTA

If Numer_pinu > 0 Then Porta.help = 0 Else Portd.7 = 0

Porta.numer_pinu = 1

Case 9 To 16 'od 9-16 PORTB

If Numer_pinu > 0 Then Portb.help = 0 Else Porta.7 = 0

Portb.numer_pinu = 1

Case 17 To 24 'od 17-24 PORTC

If Numer_pinu > 0 Then Portc.help = 0 Else Portb.7 = 0

Portc.numer_pinu = 1

Case 25 To 32 'od 25-32 PORTD

If Numer_pinu > 0 Then Portd.help = 0 Else Portc.7 = 0

Portd.numer_pinu = 1

End Select

Incr Numer_pinu
If Numer_pinu = 8 Then Numer_pinu = 0

Wait 1
Loop

'OBJASNIENIE
'Jeśli Numer_pinu = przykładowo 1 to PORTA.0 bedzie wyzerowny chyba ze to pierwszy
'pin w porcie, czyli 0, wiec gasimy ostatni pin poprzedniego portu.[/syntax]

z postu tego : topic10761.html#p124477

To szło by go napisać krócej i czytelniej czyli np tak :

[syntax=basic4gl]'$sim
$regfile = "m32def.dat"
$crystal = 4000000

Dim P As Long
Dim W2 As Word
Dim W1 As Word
Config Portd = Output
Config Portb = Output
Config Portc = Output
Config Porta = Output

P = 1

Do

W1 = Highw(p)
W2 = P

Portb = High(p)
Portd = Low(w1)
Porta = High(w2)
Portc = Low(w2)

Rotate P , Left , 1

Waitms 50

Loop[/syntax]

Wystarczy dopisać aby czujniki i ten prorgam jest bardziej czytelniejszy jak i bardziej zrozumiały dla początkującego no ale to tak na marginesie. Kiedyś potrzebowałem mieć połączone 32 porty i jakoś doszedłem do tego jak to zrobić w jak najprostszy sposób. Tylko że teraz jakoś nie daje rady zrobić tego w 2 rzędach.

Statystyki: Napisane przez Patiaudio — 17 maja 2015, o 00:48

Re: Proszę o sprawdzenie programu z czujnikami ruchu .

2015-05-16T10:00:48+01:00

Miłego koszenia!

I bardzo dziękuję za pomoc w wolnej chwili sprawdzę jak działa.

Statystyki: Napisane przez Patiaudio — 16 maja 2015, o 10:00

Re: Proszę o sprawdzenie programu z czujnikami ruchu .

2015-05-16T07:31:43+01:00

No dobra a więc tak :

Sterownik jest ten sam jak w pierwszym poście. Przekaźniki są podłączone do portu A i C. Wykrycie ruchu przez pierwszy czujnik zapalają się lampki od 0 do 7 z przerwą 500ms po czym jak się wszystkie zapalą mają świecić przez 10 sekund a następnie po kolei zgasnąć. Wykrycie drugiego czujnika ma powodować zapalenie się od 7 do 0 z przerwą 500ms i mają świecić przez 10 sekund po czym mają zgasnąć po kolei. Są to dwa rzędy po 8 lampek. Naciśnięcie przycisku PB4 ma powodować przejście w tryb demo gdzie sam ustalę sobie w programie jak ma co świecić. Program mogę napisać tylko że on będzie długi i skomplikowany a mi chodzi o to żeby był krótki, prosty, jak najprościej napisany i czytelny. Mam nadzieję że teraz jest wszystko jasno i zrozumiale napisane

Statystyki: Napisane przez Patiaudio — 16 maja 2015, o 07:31

Re: Proszę o sprawdzenie programu z czujnikami ruchu .

2015-05-15T22:22:32+01:00

No tak ale czy ten program nie robi tak że diody świecą po kolei ale w jednym rzędzie bo mi chodzi o to żeby to świeciło tak jak wcześniej, a wcześniej miałem to na jednym module przekaźników i musiałem to łączyć parami a teraz chciałbym mieć to na 2 modułach przekaźników i żeby tego nie łączyć parami + jeszcze że jak przycisnę przycisk to tak jak mam w programie to tak mi będzie świeciła każda lampka

Statystyki: Napisane przez Patiaudio — 15 maja 2015, o 22:22

Re: Proszę o sprawdzenie programu z czujnikami ruchu .

2015-05-15T14:48:36+01:00

Patiaudio z checia bym pomogl ale na bascom sie nie znam.

Namazane ze smarta.

Statystyki: Napisane przez majster — 15 maja 2015, o 14:48

Re: Proszę o sprawdzenie programu z czujnikami ruchu .

2015-05-15T14:05:19+01:00

Wie ktoś jak to zrobić?

------------------------ [ Dodano po: 15 minutach ]

Bo program napisać umiem w sensie takim że on będzie Długi i mało czytelny

Statystyki: Napisane przez Patiaudio — 15 maja 2015, o 14:05

Re: Proszę o sprawdzenie programu z czujnikami ruchu .

2015-05-14T21:14:15+01:00

Witam.
Mam jeszcze jedną taką rzecz mianowicie taką że mam na wjeździe 16 lampek i chciałbym mieć tak jak w tym programie że czujnik 1 widzi coś to zapalają się lampki i odwrotnie ale wcześniej lampki były połączone parami a teraz chciałem mieć ten sam efekt co wcześniej ale tak żebym mógł sterować każdą lampką oddzielnie czyli nie na jednym module 8 przekaxnikowym tylko na 2 żebym mógł sterować każdą lampką oddzielnie bo miałem taki pomysł ze np. Wjazd ma działać tak jak wcześniej ale po wciśnięciu przycisku ma się włączyć ''demo'' ze lampki świecą tak jak sobie zaprogramuje dowolna sekwencja dowolna lampka itp. i nie wiem jak połączyć w głównej pętli dwa porty na raz żeby równo razem się zapalały jak czujnik 1 zobaczy ruch lub czujnik 2 i żeby tak tak samo gasły jak w tamtym programie ale też żeby potem po naciśnięciu przycisku żeby każda lampka mogła świecić oddzielnie.

Tutaj mam program na połączone porty ale te porty nie idą równo tylko jak jest 2x po 8 to lecą diody pokolei a nie parami :/ :

[syntax=basic4gl]$regfile = "m32def.dat"
$crystal = 1000000
$hwstack = 40
$swstack = 16
$framesize = 32
Dim P As Word
Dim B1 As Byte , B2 As Byte
Config Porta = Output
Config Portc = Output

P = 1

Do

B1 = High(p)
B2 = Low(p)
Porta = B1
Portc = B2

Rotate P , Left , 1

Waitms 50

Loop[/syntax]

A tutaj ten stary program :

[syntax=basic4gl]'************************** PROCESOR *******************************************

$regfile = "m32def.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32

'************************** KONFIGURACJA ***************************************

Config Porta = Output

Porta = &B00000000

Config Pinb.0 = Input
Portb.0 = 1
Portb.1 = 1

Dim I As Byte

'******************************************************************************
Do

If Pinb.1 = 0 Then

For I = 0 To 7
Porta.i = 1
Waitms 500

Next I

Wait 2

For I = 7 To 0 Step -1
Porta.i = 0
Waitms 500

Next I

If Pinb.0 = 0 Then

For I = 7 To 0 Step -1
Porta.i = 1
Waitms 500

Next I

Wait 2

For I = 0 To 7
Porta.i = 0
Waitms 500

Next I

End If

End If

Loop[/syntax]

No i nie wiem jak się za to zabrać żeby mi to tak wyszło jak ja chce ;/ Mogę prosić o podpowiedzi?? lub jakąkolwiek pomoc??

Statystyki: Napisane przez Patiaudio — 14 maja 2015, o 21:14

Re: Proszę o sprawdzenie programu z czujnikami ruchu .

2015-05-14T17:25:37+01:00

Hahaha ... Boże nie takie podstawowe błędy robić

Przepraszam bardzo za kłopot xD Chyba jednak wypiję tą kawę

Statystyki: Napisane przez Patiaudio — 14 maja 2015, o 17:25

Re: Proszę o sprawdzenie programu z czujnikami ruchu .

2015-05-14T17:16:10+01:00

No tak ale nawet jak zrobię od 1 do 8 to i tak mi to nie działa :/ bo sprawdzałem

Statystyki: Napisane przez Patiaudio — 14 maja 2015, o 17:16

Re: Proszę o sprawdzenie programu z czujnikami ruchu .

2015-05-14T16:25:43+01:00

Witam.

Mam taki problem że gdy chcę sterować przekaźnikami z tej płytki to nie potrafię sterować 8 portami tylko 7 i nie wiem czemu tak się dzieje po podłączeniu przekaźników ale gdy odłączę to jest okey jak. Kupiłem drugi moduł 8 przekaźnikowy i też to samo nie wiem czemu tak jest nawet jak zmieniłem z PORTA na C lub D to to samo się dzieje tylko że na PORTA jest to pierwszy przekaźnik który nie chce się włączyć a na PORTD I C ostatni.

Program :

[syntax=basic4gl]$regfile = "m32def.dat"
$crystal = 1000000
$hwstack = 40
$swstack = 16
$framesize = 32

'******************************************************************************

Config Portd = Output

Portd = &B00000000

'Config Portb = Input

'Portb = &B00000000

Config Pinb.0 = Input
Portb.0 = 1
Portb.1 = 1

Dim I As Byte

'Set Portb.1
'Set Portb.0

'******************************************************************************
Do

If Pinb.1 = 0 Then

For I = 1 To 7
Portd.i = 1
Waitms 500

Next I

Wait 2

For I = 7 To 1 Step -1
Portd.i = 0
Waitms 500

Next I

If Pinb.0 = 0 Then

For I = 7 To 1 Step -1
Portd.i = 1
Waitms 500

Next I

Wait 2

For I = 1 To 7
Portd.i = 0
Waitms 500

Next I

End If

End If

Loop[/syntax]

Przekaźniki :

http://sklep.avt.pl/avt1659.html

Bardzo proszę o pomoc

Statystyki: Napisane przez Patiaudio — 14 maja 2015, o 16:25

Re: Proszę o sprawdzenie programu z czujnikami ruchu .

2015-04-24T15:12:20+01:00

Jak na razie działa!! Dziękuje za podpowiedzi

Statystyki: Napisane przez Patiaudio — 24 kwi 2015, o 15:12

Re: Proszę o sprawdzenie programu z czujnikami ruchu .

2015-04-24T09:46:21+01:00

Z tego co widzę to sprawdzasz If'em sygnał z drugiego czujnika w If'ie z pierwszego czujnika i aby ten drugi If się wywołał musi być spełniony 1 If czyli 2 czujniki załączone na raz.

Statystyki: Napisane przez leonos2000 — 24 kwi 2015, o 09:46

Re: Proszę o sprawdzenie programu z czujnikami ruchu .

2015-04-24T09:01:21+01:00

Oglądam to już któryś raz z kolei i dalej cieszy oko

------------------------ [ Dodano po: 1 minucie ]

Ale tak czy inaczej proszę o pomoc w tym programie bo nie wiem czemu tak jest że działa jeden czujnik i on wykonuje pracę jak za dwa czujniki. I nie wiem czemu

Statystyki: Napisane przez Patiaudio — 24 kwi 2015, o 09:01

Re: Proszę o sprawdzenie programu z czujnikami ruchu .

2015-04-24T06:26:28+01:00

No no no.... Jestem pełen podziwu

Statystyki: Napisane przez Patiaudio — 24 kwi 2015, o 06:26

Re: Proszę o sprawdzenie programu z czujnikami ruchu .

2015-04-23T21:13:29+01:00

To wiem bo to pisałem przed wystawieniem ogólnie wcześniej działało to co jest jako ten komentarz zrobione

Statystyki: Napisane przez Patiaudio — 23 kwi 2015, o 21:13

Re: Proszę o sprawdzenie programu z czujnikami ruchu .

2015-04-23T20:37:05+01:00

Może nie jestem Niveasoft, ale na pierwszy rzut oka widać, że tylko Pinb.0 ustawiasz na wejście .

Statystyki: Napisane przez leonos2000 — 23 kwi 2015, o 20:37

Re: Proszę o sprawdzenie programu z czujnikami ruchu .

2015-04-23T20:27:04+01:00

Ja też się cieszę i to bardzo i jeszcze raz dziękuje majster

Jak na razie działa na jednym czujniku i nie wiem czy drugi czujnik mam uwalony czy co bo kurcze podpinałem nawet 2 inny i też nic...

Być może coś w programie a więc Niveasoft jeśli mogę prosić to w wolnej chwili proszę o dokładne przejrzenie tego programu i podpowiedź co może być nie tak lub co jest nie tak... Z góry dziękuje

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

[syntax=basic4gl]$regfile = "m32def.dat"
$crystal = 1000000
$hwstack = 40
$swstack = 16
$framesize = 32

'******************************************************************************

Config Portd = Output

Portd = &B00000000

'Config Portb = Input

'Portb = &B00000000

Config Pinb.0 = Input
Portb.0 = 1
Portb.1 = 1

Dim I As Byte

'Set Portb.1
'Set Portb.0

'******************************************************************************
Do

If Pinb.1 = 0 Then

For I = 1 To 7
Portd.i = 1
Waitms 500

Next I

Wait 2

For I = 7 To 1 Step -1
Portd.i = 0
Waitms 500

Next I

If Pinb.0 = 0 Then

For I = 7 To 1 Step -1
Portd.i = 1
Waitms 500

Next I

Wait 2

For I = 1 To 7
Portd.i = 0
Waitms 500

Next I

End If

End If

Loop[/syntax]

O to program

Statystyki: Napisane przez Patiaudio — 23 kwi 2015, o 20:27

Re: Proszę o sprawdzenie programu z czujnikami ruchu .

2015-04-23T19:46:57+01:00

czyli płyteczki działają
Cieszę się niezmiernie

Statystyki: Napisane przez majster — 23 kwi 2015, o 19:46