Jak podłączyć niestabilne wyłączniki do portu C w At90s8535 w Bascom AVR?

Question

Witam piszę programik i chcę podpiąc wyłączniki niestabilne do portuc (At90s8535) ale jeżeli napiszę portc.1=input portc.2=input itd. to wyskakują mi błędy co może byc przyczyna i do jakich portów najlepiej podpiąc 5 wyłączników chodzi mi oto aby po pojawieniu się 0 na 1 końcówce załączył 1...

1ceman · Accepted Answer

Diody czerwone pokazują stan portów tak jak napisałeś. Diody zielone to wejścia, czyli symulujesz dzięki nim zmiany na wejściu danego portu.

Wpisz sobie program:

$regfile = "m8def.dat"   'tutaj zmieniasz wpis odpowiednio dla swojego mikrokontrolera

Config Pinc.1 = 0       'ustawienie pc1 jako wejscia
Config Pind.1 = 1     'ustawienie pd1 jako wyjscia

Do
   If Pinc.1 = 1 Then   'sprawdzenie stanu pc1
      Portd.1 = 1         'jesli wlaczony to zaswieca diode na porcie pd1
   Else
      Portd.1 = 0         'jesli wylaczony gasi diode na pd1
   End If
Loop
End

Włącz symulacje i zobacz jak działa. Zmieniaj zieloną diode na pc1 i bedziesz widzial jak odpowiada pd1 na te zmiany.

Druga część pytania, których portów do czego używać wymaga chyba dokładnego poznania budowy mikrokontrolera. Ja też niedawno dopiero zacząłem zabawe z uC, także w tym temacie musi Ci pomóc ktoś bardziej zaawansowany

greg_matrix · Accepted Answer

Tak dla sprostowania na początek: zasadniczo to co ja napisałem jest bardzo podobne do pomysłu kolegi "hunterhouse"- napisaliśmy odpowiedź prawie w jednym czasie :-)

Nie żebym się tu powtarzał czy coś w tym rodzaju.

Powiedzmy dla przykładu, że masz 1 na Pinach 2 i 3 a na pozostałych 0, wtedy zmienna "Stan" wyniesie 2+4=6 (dla każdej konfoguracji jest inna liczba). Czyli program, który wywołujesz przy warunku Pin2=1 And Pin3=1 (piszę skrótowo) możesz wywołać kiedy zmienna "Stan" wynosi 6. Ten sam efekt ale krótszy zapis i bardziej intuicyjnie. I tak dalej- możesz sobie rozpisać przy jakich stanach na wejściu jakie masz wartości zmiennej. Dalej robisz dosyć podobnie jak zasugerował hunterhouse:

Select Case Stan
   Case 1:
   Instrukcje1
   Case 2:
   Instrukcje2
   ...
   ...
   ...
End Select

To co wyżej się nazywa "Case 1" "Case 2" itd to są właśnie wartości zmiennej Stan. Wykonywaną instrukcją może być skok do podprogramu, czyli:

Select Case Stan
   Case 1:
   Gosub Podprogram1
   Case 2:
   Gosub Podprogram2
   ...
   ...
   ...
End Select

1ceman · Answer

Cześć
Jeśli ustawiasz wybraną linie portu stosujesz komendę pinx.x.

Czyli w Twoim przypadku:

Pinc.1=input (Pinc.1=0 - równoznaczny zapis)
Pinc.2=input (Pinc.2=0)

Zielone diody pozwalają na obserwacje stanów portów przy przeprowadzaniu symulacji, ale żeby działały musisz wcisnąć ikonke z kartką i rączką (refresh variables)

Asteroid · Answer

Napisałem tak jak mówiłeś i bez zmian ? Zastanawia mnie tylko bo w symulacji przy czerwonych diodach jest tylko PB i PD a przy zielonych IB ID (co to jest IB ID)?

Dodano po 12 [minuty]:

już ustawiłem są wdzystkie porty tylko mam jeszcze jednoi pytanko
PA PB PC PD -diody czerwone w symulacji pokazują stan portów
IA IB IC ID -diody zielone niewiem co one pokazuja ???
Do czego które pory wykorzystywac które porty do np. wyłączników ,do diodek, do sprawdzania napięcia a które do załączania przekażników ?

Promuję tematy:
19.10.2017 Piekarnik Samsung FQ159UST - wyłącza się, błąd E05 - co oznacza?

hunterhouse · Answer

jeśli stosujesz procesor at90s8515 i wyżuca ci błąd przy użyciu portu c to zanczy że nie poinformowałeś bascoma jakiego procka posiadasz.
wejdz w opcje i tam wybież z listy.

Pinc.1=input (Pinc.1=0 - równoznaczny zapis)

nie wiem co to znaczy ale chba nie działa

configuracja pinów odbywa się przez
config portx = input / output

lub dla poszczególnych pinów
config pinx.y =input / output

można też wpisać odpowiednią wartość do rejestru DDRx

teraz tak jeśli chcesz wystewić na jakimś pinie stan to wpisujesz go to rejestru wyjściowego PORTx

gdy chcesz odczytac stan portu czytasz go z rejestru wejściowego PINx

rejestr DDRx jak juz pisałem jest do określania kierónku przesyłu na porcie (0 - wejście, 1 - wyjście)

myśle że to koledze troche rozjaśni

1ceman · Answer

Oznacza to, że zapis Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowkaConfig Pinc.1=input jest równoznaczny zapisowi Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowkaConfig Pinc.1=0 U mnie to działa bez żadnych problemów.

Asteroid · Answer

Czy ten zapis da sie jakoś uprościc ? Może jakaś zmienna tylko niemam pojecia jak to zrobic próbowałem ze zmiennymi ale mi to nie wychodziło !
Sęk w tym że tych podprogramów jest około 20 ! Wiec niewiem czy mam to robic jak do tej pory czy zastosowac zmienną proszę o pomoc !

Config Pinc.1 = Input
Config Pinc.2 = Input
Config Pinc.3 = Input
Config Pinc.4 = Input
Config Pinc.5 = Input

Do

If Pinc.1 = 0 And Pinc.2 = 1 And Pinc.3 = 1 And Pinc.4 = 1 And Pinc.5 = 1 Then Gosub Poczatek 'pozycja wyłączony

If Pinc.1 = 0 And Pinc.2 = 1 And Pinc.3 = 1 And Pinc.4 = 0 And Pinc.5 = 0 Then Gosub Program1: 'zakres jasny niebieski

If Pinc.1 = 0 And Pinc.2 = 0 And Pinc.3 = 1 And Pinc.4 = 0 And Pinc.5 = 1 Then Gosub Program2: 'zakres jasny niebieski

If Pinc.1 = 0 And Pinc.2 = 0 And Pinc.3 = 1 And Pinc.4 = 1 And Pinc.5 = 0 Then Gosub Program3: 'zakres jasny niebieski

If Pinc.1 = 0 And Pinc.2 = 0 And Pinc.3 = 1 And Pinc.4 = 1 And Pinc.5 = 1 Then Gosub Program4: 'zakres jasny niebieski

If Pinc.1 = 0 And Pinc.2 = 1 And Pinc.3 = 0 And Pinc.4 = 1 And Pinc.5 = 0 Then Gosub Program5: 'zakres jasny niebieski

If Pinc.1 = 0 And Pinc.2 = 0 And Pinc.3 = 0 And Pinc.4 = 0 And Pinc.5 = 1 Then Gosub Program6: 'zakres jasny niebieski

If Pinc.1 = 0 And Pinc.2 = 0 And Pinc.3 = 0 And Pinc.4 = 1 And Pinc.5 = 1 Then Gosub Program7: 'zakres jasny niebieski

Loop

Dodano po 36 [minuty]:

czy pisząc jak wyżej wystarczy mi 4 kilobajty pamięci procka?

Promuję tematy:
19.10.2017 Piekarnik Samsung FQ159UST - wyłącza się, błąd E05 - co oznacza?

hunterhouse · Answer

Config Pinc.1 = Input 
Config Pinc.2 = Input 
Config Pinc.3 = Input 
Config Pinc.4 = Input 
Config Pinc.5 = Input 
to w sumie niepotrzebne bo standardowo po resecie wszystki piny są ustawione jako wejścia . gdy brakuje miejsca to każda linijka jest ważna.
ja bym to usuną


to to juz masakra jakaś hehe:)
Do 
If Pinc.1 = 0 And Pinc.2 = 1 And Pinc.3 = 1 And Pinc.4 = 1 And Pinc.5 = 1 Then Gosub Poczatek 'pozycja wyłączony 

If Pinc.1 = 0 And Pinc.2 = 1 And Pinc.3 = 1 And Pinc.4 = 0 And Pinc.5 = 0 Then Gosub Program1: 'zakres jasny niebieski 

If Pinc.1 = 0 And Pinc.2 = 0 And Pinc.3 = 1 And Pinc.4 = 0 And Pinc.5 = 1 Then Gosub Program2: 'zakres jasny niebieski 

If Pinc.1 = 0 And Pinc.2 = 0 And Pinc.3 = 1 And Pinc.4 = 1 And Pinc.5 = 0 Then Gosub Program3: 'zakres jasny niebieski 

If Pinc.1 = 0 And Pinc.2 = 0 And Pinc.3 = 1 And Pinc.4 = 1 And Pinc.5 = 1 Then Gosub Program4: 'zakres jasny niebieski 

If Pinc.1 = 0 And Pinc.2 = 1 And Pinc.3 = 0 And Pinc.4 = 1 And Pinc.5 = 0 Then Gosub Program5: 'zakres jasny niebieski 

If Pinc.1 = 0 And Pinc.2 = 0 And Pinc.3 = 0 And Pinc.4 = 0 And Pinc.5 = 1 Then Gosub Program6: 'zakres jasny niebieski 

If Pinc.1 = 0 And Pinc.2 = 0 And Pinc.3 = 0 And Pinc.4 = 1 And Pinc.5 = 1 Then Gosub Program7: 'zakres jasny niebieski 

Loop

zamiast tego poroponawał bym


Dim Tmp As Byte

Do
   Tmp = Pinc And &B00111110
   Shift Tmp , Right , 1
   If Tmp > 19 Then Tmp = 19                                'zapobiega przekroczeniu zakresu
   On Tmp Gosub Program1 , Program2 , Program3 , Program4 , Program5 , Program6 , Program7 , Program8 , Program9 , Program10 , Program11 , Program12 , Program13 , Program14 , Program15 , Program16 , Program17 , Program18 , Program19 , Program20
Loop

Program1:
Return
Program2:
Return
Program3:
Return
Program4:
Return
Program5:
Return
Program6:
Return
Program7:
Return
Program8:
Return
Program9:
Return
Program10:
Return
Program11:
Return
Program12:
Return
Program13:
Return
Program14:
Return
Program15:
Return
Program16:
Return
Program17:
Return
Program18:
Return
Program19:
Return
Program20:
Return

napewno będzie działać szybciej

greg_matrix · Answer

Można sobie troche uprościć życie :-)

Z tego co się zorientowałem masz tu 5 wejść, można zamienić konfigurację wejść na liczbę i dalej operować już tylko liczbą. Tak jest prościej. Wygodnie jest napisać podprogram, który to robi. Kiedy w programie będziesz potrzebował odczytać stan wejść po prostu wywołasz podprogram- zmienna "Stan" przyjmie odpowiednią wartość i załatwione.

Odczyt:
Stan=0

If Pinc.1=1 then 
Stan=Stan+1
End if

If Pinc.2=1 then 
Stan=Stan+2
end if

If Pinc.3=1 then 
Stan=Stan+4
End if

If Pinc.4=1 then 
Stan=Stan+8
End if

If Pinc.5=1 then 
Stan=Stan+16
End if

Return

Teraz stan wszystkich wejść jest reprezentowany przez jedną zmienną "Stan". Można użyć instrukcji "Select Case"- to poprawi przejrzystość i na pewno skróci zapis w dalszej części programu.

PS.
Nie wiem co dokładnie robisz w swoim programie- proponuję wymyśleć na własny użytek najwygodniejszy sposób konstruowania liczbt "Stan" żeby było jej łatwo używać. To powyżej to pierwsze co przychodzi do głowy, czyli system dwojkowy.

Asteroid · Answer

Nie działa wskakuje błąd w linijce Tmp = Pinc And &B00111110

hunterhouse · Answer

jaki błąd ???? może niezdeklarowałeś zmiennej tmp?? albo nieprzestawiłeś na twojego procka (w opcjach) , domyślnie jest at90s2313 a on niema portc.

Asteroid · Answer

greg a jeśli możesz to napisz jak zastosowac ta zmienna bo ze zmiennymi miałem problem nic mi nie wychodziło i dlatego tak to pisałem ?

Jak podłączyć niestabilne wyłączniki do portu C w At90s8535 w Bascom AVR?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Post #10

Post #11

Post #12

Post #13

Podsumowanie tematu