ATNEL tech-forum

Re: Zbocze rosnące w Bascomie

2013-12-20T23:55:56+01:00

Zbocze rosnące lub opadające bardzo łatwo można wykryć za pomocą polecenia Debounce, którego głównie używa się do obsługi pojedynczych klawiszy. Jeśli polecenie to ma reagować np. na stan wysoki na jakimś pinie, to reakcja nastąpi tylko wtedy jeśli na tym pinie był stan niski. Czyli polecenie reaguje na przejście ze stanu niskiego w wysoki.

Przykładowy program realizujący twoje założenia mógłby wyglądać np. tak:
[syntax=basic4gl]$regfile = "attiny2313.dat" 'model proca
$crystal = 4000000 'taktowanie

Ddrb = &B00000000 'wejscia
Portb = &B11111111 'ustawienie stanu początkowego

Ddrd = &B1111111 'wyjscia
Portd = &B1111111 'ustawienie stanu początkowego

'przypisanie portów
S1_gora Alias Pinb.1
S2_dol Alias Pinb.2
Zasilanie Alias Pinb.0
Silnik_gora Alias Portd.0
Silnik_dol Alias Portd.1

Dim Jazda As Byte '0-silnik stop, 1-ruch w dół, 2-ruch w górę

Silnik_dol = 0
Silnik_gora = 0

Do

Debounce Zasilanie , 1 , Wlacz_silnik , Sub

If Jazda = 1 And S2_dol = 0 Then
Silnik_dol = 0
Silnik_gora = 0
Jazda = 0
End If

If Jazda = 2 And S1_gora = 0 Then
Silnik_dol = 0
Silnik_gora = 0
Jazda = 0
End If
Loop
End

Wlacz_silnik:
If S1_gora = 0 Then
Silnik_dol = 1
Jazda = 1
End If

If S2_dol = 0 Then
Silnik_gora = 1
Jazda = 2
End If
Return[/syntax]

Statystyki: Napisane przez jacekk232 — 20 gru 2013, o 23:55

Re: Zbocze rosnące w Bascomie

2013-12-19T18:35:31+01:00

Nie bardzo wiem o co chodzi więc wyjaśnij. Albo ja jestem ciemny albo Ty slabo tłumaczysz.

Statystyki: Napisane przez matrix — 19 gru 2013, o 18:35

Re: Zbocze rosnące w Bascomie

2013-12-19T01:18:44+01:00

No ok a jak wyglada realizacja zbocza rosnącego?aby reakcja była po zmianie stanu na porcie PINB.0 z 0 na 1

Statystyki: Napisane przez MICHALUS — 19 gru 2013, o 01:18

Re: Zbocze rosnące w Bascomie

2013-12-18T22:23:42+01:00

Nie bardzo rozumiem założenia Twego projektu, ale zasada jest prosta, sprawdzasz czy na jakimś pinie jest napięcie zasilania i jeśli jest to ustawiasz flagę by nie sprawdzać tego ponownie. W zasadzie powinno wyglądać to tak:

[syntax=basic4gl]If stan_wysoki = 0 then
stan_wysoki = 1
end if[/syntax]

I dalej warunkujesz odnośnie zmiennej stan_wysoki

Statystyki: Napisane przez matrix — 18 gru 2013, o 22:23

Re: Zbocze rosnące w Bascomie

2013-12-18T21:39:48+01:00

Kurcze nie bardzo rozumiem:/ jak mam to zastosować w moim układzie?

Statystyki: Napisane przez MICHALUS — 18 gru 2013, o 21:39

Re: Zbocze rosnące w Bascomie

2013-12-18T21:36:09+01:00

Dodajesz zmienną na przykład stan_wysoki i piszesz:

[syntax=basic4gl]If PinD.0 = 1 then stan_wysoki = 1[/syntax]

I po sprawie.

Statystyki: Napisane przez matrix — 18 gru 2013, o 21:36

Re: Zbocze rosnące w Bascomie

2013-12-18T20:57:59+01:00

Ale chce by to było jednorazowe sprawdzenie, bo napięcie będzie przez kilkanaście minut i na pinie będzie stan wysoki.Silnik dojedzie powiedzmy w dół i znowu będzie zrealizowany warunek że jest napięcie i krańcówka zwarta wiec silnik zacznie jechać do góry i tak w kółko.Zbocze pozwalało by na jednorazową akcję aż do ponownego włączenia napięcia.

Statystyki: Napisane przez MICHALUS — 18 gru 2013, o 20:57

Re: Zbocze rosnące w Bascomie

2013-12-18T17:34:41+01:00

Niepotrzebnie komplikujesz sobie życie. Po co Ci zbocze rosnące ? Po włączniu zasilania sprawdź jednorazowo czy jest napięcie na jakimś pinie i tyle.

Statystyki: Napisane przez matrix — 18 gru 2013, o 17:34

Zbocze rosnące w Bascomie

2013-12-18T14:22:55+01:00

Witam. Jestem nowy na tym forum i świeży w programowaniu wiec proszę o wyrozumiałość:)

Mam zadanie do zrobienia.Chodzi o cykliczne otwieranie i zamykanie klapy. Dwa razy dziennie włącznik czasowy będzie podawał napięcie na jakiś czas.
Ja muszę zaprogramować układ tak aby w momencie pojawienia się napięcia klapa zamykała się (lub otwierała w zależności od zwartej krańcówki)
Jako że zależy mi na czasie a nie znam żadnego języka programowania postanowiłem zrobić to w Bascomie, który wydaje się najlepszy do szybkiego przyswojenia(w zakresie mi potrzebnym)Po kilku godzinach czytania napisałem taki program.Załącza on kierunek jazdy silnika w zależności od krańcówki ale pozostało mi umieszczenie wykrywania zasilania.Postanowiłem zrealizować to na zasadzie wykrywania zbocza narastającego(w momęcie pojwaienia się napięcia jedynka na pinie )i wtedy silnik rusza.Teraz jedynka od zasilania jest na stałe.I tu pytanie jak to zrealizować?w miejsce "Zasilania" w programie zbocze rosnące.Wie ktoś jak to powinno wyglądać???
Mam nadzieję, że jasno to opisałem:)

[syntax=basic4gl]$regfile = "attiny2313.dat" 'model proca
$crystal = 4000000 'taktowanie

Config Portb = &B00000000 'wejscia
Portb = &B11111111'ustawienie stanu początkowego

Config Portd = &B1111111 'wyjscia
Portd = &B1111111 'ustawienie stanu początkowego

'przypisanie portów
S1_gora Alias Pinb.1
S2_dol Alias Pinb.2
Zasilanie Alias Pinb.0
Silnik_gora Alias Portd.0
Silnik_dol Alias Portd.1

Do

If Zasilanie = 0 And S1_gora = 0 Then'zasilanie przychodzi i krańcówka górna zwarta
Waitms 30'eliminacja drgania styków
Silnik_gora = 0'wyłączenie jazdy do góry
Set Silnik_dol'załączenie jazdy w dół

Elseif Zasilanie = 0 And S2_dol = 0 Then'zasilanie przychodzi i krańcówka dolna zwarta
Waitms 30'eliminacja drgania styków
Silnik_dol = 0'wyłączenie jazdy w dół
Set Silnik_gora'załączenie jazdy w górę

End If

Loop

End[/syntax]

Statystyki: Napisane przez MICHALUS — 18 gru 2013, o 14:22