ATNEL tech-forum

Re: Może mi ktoś sprawdzić ten program dlaczego mi nie dział

2015-02-21T01:28:29+01:00

Udało mi się to zrobić wielkie dzięki za pomoc.

Statystyki: Napisane przez GrasalxD — 21 lut 2015, o 01:28

Re: Może mi ktoś sprawdzić ten program dlaczego mi nie dział

2015-02-19T23:23:02+01:00

Nie rozumiem tego. Wie ktoś jak to ugryźć z tym czujnikiem?? w programie? bo czujnik działa bo jak podłącze sygnał pod diodę to po wykryciu ruchu ona świeci ale nie wiem jak to zrobić w programie :/

Statystyki: Napisane przez GrasalxD — 19 lut 2015, o 23:23

Re: Może mi ktoś sprawdzić ten program dlaczego mi nie dział

2015-02-19T21:02:33+01:00

Sygnał ma 3,3V

Lecz sądzę że to wina w programie gdzieś :/

Statystyki: Napisane przez GrasalxD — 19 lut 2015, o 21:02

Re: Może mi ktoś sprawdzić ten program dlaczego mi nie dział

2015-02-19T20:32:45+01:00

Proszę o pomoc bo tego nie ogarniam co tu jest nie tak kombinuje i kombinuje już nie wiem co wymyślić....

Tak w ogóle to jak to można zrobić w wersji ale z if może będzie prościej

Statystyki: Napisane przez GrasalxD — 19 lut 2015, o 20:32

Re: Może mi ktoś sprawdzić ten program dlaczego mi nie dział

2015-02-19T17:54:41+01:00

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

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

'**************************** KONFIGURACJA PINÓW I PORTÓW **********************

Config Portc = Output

Config Portb = Input
Portb = 255

'*********************************** DEKLARACJE ********************************
Cz1 Alias Pinb.0 'Switch 1
Cz2 Alias Pinb.1 'switch 2
Cz3 Alias Pinb.2 'switch 3
Dim P As Byte
Dim L As Byte

P = 100
Portc = &B11111111
'*********************************** PROGRAM ***********************************

Do

Debounce Cz1 , 1 , Lewo , Sub '<--- zamiana zero na jeden

Loop
End

Lewo:
L = 1 'zmienna znów ma wartosc 1
Do 'petla
Rotate L , Left , 1
Portc = L
Waitms P
Loop Until Cz1 = 0 '<----- petla ważna dopóki układ znowu nie zwarty
Portc = &B11111111 'jesli puszczony to zapal diody
Return 'i wracaj[/syntax]

nie wiem co jest nie tak po załadowaniu diody święcą ruszam ręką przed czujnikiem zero reakcji odepnę sygnał z czujnika do procesora diody zaczynają ruch w lewo

Statystyki: Napisane przez GrasalxD — 19 lut 2015, o 17:54

Re: Może mi ktoś sprawdzić ten program dlaczego mi nie dział

2015-02-19T16:37:43+01:00

Program nie działa po wgraniu diody lecą pokolei a jak teraz ruszyłem czujnikiem to ciągle mrugają

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

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

'**************************** KONFIGURACJA PINÓW I PORTÓW **********************

Config Portc = Output

Config Portb = Input
Portb = 255

'*********************************** DEKLARACJE ********************************
Cz1 Alias Pinb.0 'Switch 1
Cz2 Alias Pinb.1 'switch 2
Cz3 Alias Pinb.2 'switch 3
Dim P As Byte
Dim L As Byte

P = 100
Portc = &B11111111
'*********************************** PROGRAM ***********************************

Do

Debounce Cz1 , 0 , Lewo , Sub

Debounce Cz1 , 1 , Lewo , Sub '<--- zamiana zero na jeden

Loop
End

Lewo:
L = 1 'zmienna znów ma wartosc 1
Do 'petla
Rotate L , Left , 1
Portc = L
Waitms P
Loop Until Cz1 = 0 '<----- petla ważna dopóki układ znowu nie zwarty
Portc = &B11111111 'jesli puszczony to zapal diody
Return 'i wracaj[/syntax]

Mam Czujnik ruchu PIR HC-SR501

Statystyki: Napisane przez GrasalxD — 19 lut 2015, o 16:37

Re: Może mi ktoś sprawdzić ten program dlaczego mi nie dział

2015-02-19T07:23:20+01:00

Dzięki wielkie za pomoc
Wszystko działa.

A mam jeszcze jedno pytanie:
Jak zrobić poprzez Debounce żeby było tak jeśli Cz1 i Cz2 wciśnięte to diody zapalają się od końca z obu stron??

------------------------ [ Dodano po: 13 minutach ]

Ehhh i jeszcze jeden problem bo podłączyłem zamiast jedengo Switcha czujnik ruchu i on nie działa na tym programie ... Wiem że musi być na tym procesorze w np. PORTB.0 stan wysoki. Jak to ugryźć?

Statystyki: Napisane przez GrasalxD — 19 lut 2015, o 07:23

Re: Może mi ktoś sprawdzić ten program dlaczego mi nie dział

2015-02-19T01:17:16+01:00

Ma być tak że na początku ma świecić wszystko jeśli Przycisne Cz1 to ma wykonywać ruch w lewo jak puszcze to znowu świeci na stałe jak nacisne Cz2 to ruch w prawo jak pusze stoji .

Statystyki: Napisane przez GrasalxD — 19 lut 2015, o 01:17

Re: Może mi ktoś sprawdzić ten program dlaczego mi nie dział

2015-02-19T01:06:58+01:00

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

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

'**************************** KONFIGURACJA PINÓW I PORTÓW **********************

Config Portc = Output

Config Portb = Input
Portb = 255

'*********************************** DEKLARACJE ********************************
Cz1 Alias Pinb.0 'Switch 1
Cz2 Alias Pinb.1 'switch 2
Cz3 Alias Pinb.2 'switch 3
Dim P As Byte
Dim L As Byte
Dim B1 As Byte

P = 20
L = 1
'*********************************** PROGRAM ***********************************

Do

Portc = &B11111111

Debounce Cz1 , 0 , Lewo , Sub, Return

Debounce Cz2 , 0 , Prawo , Sub, Return

Loop

Lewo:

P = 20
L = 1
If Cz3 = 0 Then P = P + 1
If P > 200 Then P = 20
B1 = High(l)
Portc = B1

Rotate L , Left , 1

Waitms P

Prawo:

If Cz3 = 0 Then P = P + 1
If P > 200 Then P = 20
B1 = High(l)
Portc = B1

Rotate L , Right , 1

Waitms P[/syntax]

efekt taki że po wciśnięciu diody przygasają :/

Statystyki: Napisane przez GrasalxD — 19 lut 2015, o 01:06

Może mi ktoś sprawdzić ten program dlaczego mi nie działa?

2015-02-19T00:55:59+01:00

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

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

'**************************** KONFIGURACJA PINÓW I PORTÓW **********************

Config Portc = Output

Config Portb = Input
Portb = 255

'*********************************** DEKLARACJE ********************************
Cz1 Alias Pinb.0 'Switch 1
Cz2 Alias Pinb.1 'switch 2
Cz3 Alias Pinb.2 'switch 3
Dim P As Byte
Dim L As Byte
Dim B1 As Byte

P = 20
L = 1
'*********************************** PROGRAM ***********************************

Do

Portc = &B11111111

Debounce Cz1 , 0 , Lewo , Sub

Debounce Cz2 , 0 , Prawo , Sub

Loop

Lewo:

P = 20
L = 1
If Cz3 = 0 Then P = P + 1
If P > 200 Then P = 20
B1 = High(l)
Portc = B1

Rotate L , Left , 1

Waitms P

Prawo:

If Cz3 = 0 Then P = P + 1
If P > 200 Then P = 20
B1 = High(l)
Portc = B1

Rotate L , Right , 1

Waitms P[/syntax]

Program ma za zadanie migać diodami po wciśnięciu Cz1 w lewo a po wciśnięciu Cz2 w prawo a na start ma Świecić na stałe. Co jest nie tak?

Statystyki: Napisane przez GrasalxD — 19 lut 2015, o 00:55