ATNEL tech-forum

Re: Dodawanie do zmiennej.

2013-12-08T16:50:12+01:00

Już sobie poradziłem wystarczyło po if dać wait 1 i wszystko działa. Wiem program jest zamotany. Kolego matrix też wolę tak konfigurować porty ale w tym kodzie, nawet nie wiem dlaczego ale zrobiłem tak. grzeniu 73 poczytam o tym.

Statystyki: Napisane przez henryxxl — 8 gru 2013, o 16:50

Re: Dodawanie do zmiennej.

2013-12-08T09:02:36+01:00

Rzeczywiście mocno zakręciłeś a można było łatwiej. Do tego taka dobra koleżeńska rada, naucz się konfigurować porty w jednej linii. I tak zamiast pisać:

[syntax=basic4gl]Config Portd.0 = Output 'ustalenie stanu początkowego portów na stan niski
Config Portd.1 = Output
Config Portd.2 = Output
Config Portd.3 = Output
Config Portd.4 = Output
Config Portd.5 = Output
Config Portb.1 = Output

Config Portd.6 = Input
Config Portd.7 = Input[/syntax]

Konfiguracja portu D mogła wyglądać tak:

[syntax=basic4gl]Config portD = &b00111111[/syntax]

Wiem że na początku może wydawać się niezrozumiałe, też wolałem pisać jak Ty, ale to kwestia zrozumienia i przyzwyczajenia się.
Piszesz od najstarszego bitu portu stawiając 1 gdy pin jest wyjściem a 0 gdy wejściem.

Code:

Config portD = &b 0 0 1 1 1 1 1 1
                | | | | | | | | |
                | | | | | | | | '-PortD.0
                | | | | | | | '---PortD.1
                | | | | | | '-----PortD.2
                | | | | | '-------PortD.3
                | | | | '---------PortD.4
                | | | '-----------PortD.5
                | | '-------------PortD.6
                | '---------------PortD.7
                |
                '---Informacja że konfiguracja
                     odbędzie się za pomocą liczby binarnej

Statystyki: Napisane przez matrix — 8 gru 2013, o 09:02

Re: Dodawanie do zmiennej.

2013-12-07T21:32:10+01:00

a bez tych wszystkich pętli nie da sie tego zrobić? Strasznie skomplikowałeś ten program.Same petle i gosub. Poczytaj o Case i Debounce w twoim przypadku wystarczy to do obsługi przycisków.Teraz to nawet chyba procesor nie może sie z tym połapać. W przerwaniu debounce będziesz miał obsługę przycisków ,a w programie głównym będziesz sobie odczytywał.
[syntax=basic4gl]Debounce S1 , 0 , zwieksz , Sub[/syntax]
[syntax=basic4gl]zwieksz:
a=a+5
return[/syntax]
przyklad dla jednego przycisku. Napisz to jeszcze raz ,poczytaj w helpie i dopytaj sie,bo teraz to nie mam pojęcia co tam jest.

Statystyki: Napisane przez grzeniu 73 — 7 gru 2013, o 21:32

Dodawanie do zmiennej.

2013-12-06T19:27:41+01:00

Witam.
Napisałem program w którym przyciskami chcę zmieniać wartość zmiennej A o +5 lub -5 w zależności od kliknięcia przycisku. Problem polega na tym ze podprogram po naciśnięciu s3 zapala diody w podprogramie a=55 a przycisk s2 nic nie chce robić. Chcę aby program po wejściu do ustawień umożliwił zmianę zmiennej A od 20 do 55 i zapalił odpowiednie diody i zapisał je do pamięci eeprom a później można było ją odczytać w pętli do loop.
[syntax=basic4gl]$regfile = "m8def.dat" 'zadeklarowanie użytego procesora
$crystal = 8000000 'zadeklarowanie szybkości wewnętrznego kwarcu

'zadeklarowanie wszystkich portów b jako wyjście
Config Portd.0 = Output 'ustalenie stanu początkowego portów na stan niski
Config Portd.1 = Output
Config Portd.2 = Output
Config Portd.3 = Output
Config Portd.4 = Output
Config Portd.5 = Output
Config Portb.1 = Output

Config Portd.6 = Input
Config Portd.7 = Input
Config Portb.0 = Input
Config Portc.0 = Input
'zadeklarowanie wszystkich portów b jako wyjście
Portd = &B11000000
Portb = &B11111101
Portc = &B11111111

Led1 Alias Portd.0 'pranie w strone lewa '
Led2 Alias Portd.1 'pranie w strone prawo
Led3 Alias Portd.2 'wirowanie
Led4 Alias Portd.3
Led5 Alias Portd.4
Led6 Alias Portd.5

S1 Alias Pind.6 'down s1
S2 Alias Pind.7 'accept s2
S3 Alias Pinb.0 'up s3

Czuj Alias Pinc.0
T1 Alias Portb.1

Dim A As Integer

Readeeprom A , 1

'///////////////
If S1 = 0 Then
Gosub Ustawienia1
Elseif A = 20 Then
Led4 = 1
Led6 = 1
Elseif A = 25 Then
Led4 = 1
Led5 = 1
Elseif A = 30 Then
Led3 = 1
Led6 = 1
Elseif A = 35 Then
Led3 = 1
Led5 = 1
Elseif A = 40 Then
Led2 = 0
Led6 = 1
Elseif A = 45 Then
Led2 = 1
Led5 = 1
Elseif A = 50 Then
Led1 = 1
Led6 = 1
Elseif A = 55 Then
Led1 = 1
Led5 = 1

End If
'//////////////////////

Do

Loop

End

Ustawienia1:
Do

A = 20
Gosub Ustawienia
Loop

Ustawienia:
Do

If S3 = 0 Then
A = A + 5
Writeeeprom A , 1
Gosub Ledy

Elseif S2 = 0 Then
A = A - 5
Writeeeprom A , 1
Gosub Ledy
End If

'Return

Loop

Ledy:
Do
If A = 20 Then
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 1
Led5 = 0
Led6 = 1

Gosub Ustawienia
Elseif A = 25 Then
Led1 = 0
Led2 = 0
Led3 = 0
Led4 = 1
Led5 = 1
Led6 = 0
Gosub Ustawienia
Elseif A = 30 Then
Led1 = 0
Led2 = 0
Led3 = 1
Led4 = 0
Led5 = 0
Led6 = 1
Gosub Ustawienia
Elseif A = 35 Then
Led1 = 0
Led2 = 0
Led3 = 1
Led4 = 0
Led5 = 1
Led6 = 0
Gosub Ustawienia
Elseif A = 40 Then
Led1 = 0
Led2 = 1
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 1
Gosub Ustawienia
Elseif A = 45 Then
Led1 = 0
Led2 = 1
Led3 = 0
Led4 = 0
Led5 = 1
Led6 = 0
Gosub Ustawienia
Elseif A = 50 Then
Led1 = 1
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 0
Led6 = 1
Gosub Ustawienia
Elseif A = 55 Then
Led1 = 1
Led2 = 0
Led3 = 0
Led4 = 0
Led5 = 1
Led6 = 0
Gosub Ustawienia
End If
Gosub Ustawienia
Loop[/syntax]

Kody umieszczamy w znacznikach SYNTAX -- Poprawiłem --- SunRiver

Statystyki: Napisane przez henryxxl — 6 gru 2013, o 19:27