Attiny2313: Błędne obliczenia PWM i migotanie wyświetlacza LCD

Question

A wiec bawie sie Attiny2313 i plytka testowa. Po drodze zdazylem zablokowac jednego :D Ale do rzeczy, mam sobie takie kod: Sa z nim 2 problemy. Jak kazdy chyba wie PWM na max.255 wartosc. A wiec ja chce pokazywac w procentach jasnosc swiecenia - dziele pokazywany wynik na 2.55 I tu zaczyna sie...

crazy_phisic · Accepted Answer

Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowkaPwm1a = Pwm1a + 2.55 Zastanawiałeś się ile wynosi wartość Pwm1A po takiej operacji? Sprawdź.

teedd · Accepted Answer

Witaj. Po co używasz CLS przed każdym wyświetleniem wartości? Dlatego Ci miga wyświetlacz. Jeden raz na początku programu wystarczy. Zrób np. tak: Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka .... Locate 1,1 Lcd Moc:  Locate 1,6 Lcd Pokaz;     ' na końcu są 3 spacje - czyszczą ew. pozostałości ' po wyświetlonej poprzedniej wartości .... Spróbuj - będzie lepiej Pozdrowienia - teedd

Samuraj · Accepted Answer

Co do migotania to wywal CLS i nadpisuj tekst bez wymazywania wyświetlacza.

Sind · Accepted Answer

witam

Po pierwsze nie mozesz do PWM do dac 2.55 poniewaz PWM dziala na liczbach typu integer, czyli calkowitych

i nie wiem czemu sie dziwisz ze Ci wyswietla 85, prosta operacja matematyczna

255/2.55, procesor robi zaokraglenie 2.55 do 3, 255/3 daje Ci 85... Tak samo dodawanie wartosci 2.55 zakonczy sie rezultatem dodawania 3-ki.

mozesz to sobie zrobic tak np: pwm1a*100+2.55*100 i pozniej nie przez "/" tylko przez div, czyli dzielenie bez reszty dostaniesz wynik zaokraglony ale bedzie w miare dokladny... to jeden ze sposobow...

drugi to ustalasz sobie stala np: b=100/255=0.392 i wtedy dodatkowa zmienna typu Single, np D As SIngle i piszesz:


D=pwm1a*b
lcd d

mozesz tez aby osiagnac pelne 100% dac warunek



....
if pwm1a = 255 then d=100
lcd d
...

POzdrawiam, mam nadzieje ze troszke Ci sie rozjasnilo;)

zumek · Accepted Answer

A jeśli chodzi o Błędne operacje matematyczne , to: Czy rozumiesz dlaczego zmienną Pokaz , zadeklarowałeś jako Integer , a nie np. Byte,String czy Double Sprawdź jakiego typu zmienne oferuje Bascom Basic , postaraj się zrozumieć czym one się miedzy sobą różnią , a wtedy 1-szy problem masz z głowy Piotrek

Sind · Accepted Answer


Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down
Dim Pokaz As Single
dim B as single



Cls : Lcd "  Swiatlo v0.1" : Lowerline : Lcd " by Grzegorz Z."
Waitms 500
Pwm1a = 0
b=100/255
Do
If Pind.5 = 0 Then 

if pwm1a=255 then
pwm1a=255
else 
Pwm1a = Pwm1a +1
end if

If Pind.4 = 0 Then 
if pwm1a=0 then
pwm1a=0
else
Pwm1a = Pwm1a -1
end if


Pokaz = Pwm1a *b
Cls : Lcd "Moc: " : Lcd Pokaz
Waitms 5
Loop
End

do wyswietlanie mozesz tez uzyc funckcji FORMAT()
odczyt przyciskow mozesz tez zrobic na finkcji DEBOUNCE()

Samuraj · Accepted Answer

Czytaj poprzednie posty. Wywal Cls i zastąp czym co pozycjonuje kursor na ekranie. Nie znam BASCOMA ale pewnie jakieś GOTOXY albo coś podobnego.

gregoorr · Accepted Answer

Z miganiem lcd nie ma żadnych sztuczek. Chodzi o to aby nie czyścić w kółko całego wyświetlacza i znowu coś wyświetlać, bo to powoduje miganie tego co wyświetlasz. Robi się po prostu tak:


locate 1,1
lcd "to wyswietlam"

Locate powoduje że zawsze wyświetlasz od pozycji 1,1. Można to nazwać nadpisywaniem. Przy różnej długości zmiennej do wyświetlania, trzeba czasem dopisać spację za zmienną, aby czyścić na wszelki wypadek np: dwa pola za zmienną, gdy raz wyświetlamy 100, a innym razem 1. Trzeba wtedy wyczyścić dwa zera od 100 aby nie zostały.


locate 1,1
lcd x;"  "

W zasadzie wszystko to było wyżej, tyle że ktoś nazwał to nadpisywaniem, jest to metoda ogólnie znana i jak pisałem nie ma tam żadnej sztuczki.

Jak ci zależy na tych procentach i zaokrągleniach, to na szybko może być tak:


Dim X As Single                                             'do obliczeń
Dim Y As Byte                                               'do PWM
Dim W As Byte                                               'do wyświetlania %

For Y = 0 To 255

Pwm1a = Y
Locate 1 , 1
X = Y / 2.55
W = X
Lcd W ; "%" ; "  "
Next Y



For Y = 255 To 0 Step -1
Pwm1a = Y
Locate 1 , 1
X = Y / 2.55
W = X
Lcd W ; "%" ; "  "
Next Y


End                                                         'end program

Pamięci żre, ale na początek może być, liczy się satysfakcja że działa.

kiler129 · Answer

Nie mam, po napisaniu postu wpoadlem na to i zminilem na bytte - nic z tego Moze nie jestem zbyt dobrym programista ale przewertowalem manual bascoma i nie znalazlm jak nadpisac tekst. Sind - moglbys troche jasnij. Tzn wez mi pokaz w moim kodziew jak to zaadaptowac. Bo proboje i cos nadal sie chrzani

kiler129 · Answer

Cos z tymi ifami jest nie tak.
Bascom sie wypluwa.

Error 7 i 123 w lini 0.

Mam jeszce jedne klopt z PWM. Szukalem na elce i na google i nigdzie nie moge znalezc sensownie wytlumaczone z przykladem jak uzywaskac konkretna czestotliwosc na PWM i jak ja regulowac (wyp. 50%).

edit:
Ok, jakos wybrnelem


Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down
Dim Pokaz As Single
Dim B As Single
Config Portd = Input
Deflcdchar 0 , 24 , 24 , 1 , 2 , 4 , 8 , 19 , 3             'Znak procentu
Deflcdchar 1 , 32 , 14 , 31 , 31 , 31 , 14 , 4 , 4          'Zarowka :)


Cls : Lcd " " : Lcd Chr(1) : Lcd "Swiatlo v0.1" : Lcd Chr(1) : Lowerline : Lcd " by Grzegorz Z."
Waitms 500
Pwm1a = 0
B = 100 / 255

Do
 Pokaz = Pwm1a * B
 Cls : Lcd "Moc: " : Lcd Pokaz : Lcd Chr(0)
 Waitms 5

If Pind.4 = 0 Then
 If Pwm1a = 0 Then
  Pwm1a = 0
 Else
  Pwm1a = Pwm1a - 5
 End If
End If


If Pind.5 = 0 Then
 If Pwm1a = 255 Then
  Pwm1a = 255
 Else
  Pwm1a = Pwm1a + 5
 End If
End If
Loop


End

Niestety zaokraglanie mi nie idzie, anie pzez format() ani przez fusing()

Zmiganiem LCD sobie nie porawdzilem - zdradzi ktosswoja sztuczke ? ;>

Tak btw - te µP nie takie straszne jak je maluja

Jak juz w cyzmkolwiek sie programowalo to latwo nawyki zmienic a czescz nich zostawic

kiler129 · Answer

Co do zaokraglania to juz tak probowalem. Po 1 nie miesci sie w pamicie a po ndrugie nie dziala jak trzeba Co do LCD do swietna sprawa Wszyscy dostali pomogl + Sind i gregoorr po 10 pkt Pozostaje jeszce jedna kwestia: (zacytuje sam siebie )

zumek · Answer

Nie mieści się w pamięci , bo zabawa ze zmiennymi zmiennoprzecinkowymi pojedynczej precyzji(Single) w Bascomie , jest strasznie pamięciożerna Żeby tę sprawę załatwić jak najmniejszym kosztem zużytej pamięci programu , trzeba Twoje obliczenia sprowadzić do liczb całkowitych. Nie będę tu przypominał ogólnie znanych praw algebraicznych , tylko podam przykład: Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka 'Procent=PWM*100/(2.55*100) jest równoważne z Procent = PWM/2.55 'a pozbywamy się liczby zmiennoprzecinkowej Dim Pokaz As Word ' wybieramy Word , by zmieścić wynik PWM*100 '... Pokaz = Pwm1a * 100 Pokaz = Pokaz/255    ' i masz swoje procenty A to jest też proste Okres PWM , jest wprost proporcjonalny do aktualnie ustawionej pojemności licznika(maksymalnej wartości do której licznik zlicza) .Ponieważ Timer1 w ATTiny2313 ma aż 16 trybów pracy , to zależnie od efektu jaki chcemy osiągnąć , trzeba sobie wybrać odpowiedni tryb jego pracy.I w tym miejscu , należy udać się (niestety?) do dokumentacji. Piotrek

kiler129 · Answer

Yeeeyy ? Przpelniles mi stos w makowce xD Wez ze to powiedz jasno. Gdizes mi chyba posta wcielo ale juz poradzilem sobie z zakraglaniem. Uzylem round.

K_o_n_r_a_d · Answer

W programie na początku ustawiłeś rozdzielczość PWMa na 8 bitów:

Cytat:
Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down

PWM=8 to właśnie to. Czyli masz 256 kombinacji wypełnienia (od 0 do 255) i teraz wartość 255 to 100%, wartość 0 to 0%, wartość 127 to 50%. Resztę wartości możesz policzyć z proporcji.
Częstotliwość PWMa zależy od ustawionego Prescalera, wielkości licznika i zastosowanego generatora (źródła sygnału, który licznik zlicza).
Przy Prescalerze=1 i 8bitowym PWMie częstotliwość wyjściowa wynosi Fosc/255/2 (255 taktów oscylatora * 2).

Sind · Answer

Zeby nie miglalo mozesz tez umiescic cala procedurke wyswietlania na LCD jako podprogram, ktory bedzie wyswietlal dane tylko po ich zmianie...

I sprawdz dobrze zasilanie LCD, sprawdz czy jest dobrze odfiltrowane, czy nie ma duzych tetnien...

Attiny2313: Błędne obliczenia PWM i migotanie wyświetlacza LCD

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

Post #14

Post #15

Post #16

Podsumowanie tematu