Mirley - Elektronika i Programowanie

Jak jest możliwe dodać tyle zmiennych na ATTiny13 ???

Ja nie mogę dodać jednej Byte. A ty 5 typu Byte , 1 INTEGER! i kilka BIT !!!

Pozdrawiam.
PS: Telephone 792834647

Zmniejszyłem rozmiar stosu i uwolniłem kilka bajtów ramu:

$hwstack = 20
$swstack = 10
$framesize = 40

nie można przez to robić wielu skoków do podprogramów ani etkiet gosub. Przez co wszystko jest włożone bezpośrednio w do loop

Witam.

Dzięki za odpowiedź. To bardzo pomogło rozwojowi mojej wiedzy na temat Bascoma.

Witam.

Zastosowałem ten enkoder z attiny13 do potencjometru cyfrowego DS1802 i mam problem, mianowicie aby zgłosic lub z ciszyć muszę sporo sie nakręcić impulsatorem; DS1802 ma 65 posyzji; czy da rade zmienić program w taki sposób aby przekręcając impulsator o 360 stopni, zwiększyło amplitude na maksymalny poziom.
Nie znam Bascoma dlatego proszę o pomoc.
Z góry dziękuję

Można zastosować impulsator o większej liczbie impulsów na obrót. Nad programem trzeba się głębiej zadumać mimo jego prostoty

Witam :)

Układ wykonałem na płytce testowej i okazało się, że układ ma wadę...
Mianowicie nie jest "odporny" na szybkie kręcenie się impulsatora lub szybką zmianę kierunku...

Posiedziałem, pomyślałem i wymyśliłem :)
Podaję kod który działa bardzo ładnie.
Pracę impulsatora należy wcisnąć w postaci podprogramu - tak najlepiej.
Sprawdzone i potwierdzone praktycznie :)

Techniczne: impulsator podaje impulsy w postaci jedynek - czyli impulsu 5v zasilania układu, wejścia muszą być podciągnięte opornikami 10k do masy - można wykonać programowo ale ja wolę dolutować opornik :P

Układ działa w taki sposób, że zwiększa lub zmiejsza liczbę w zakresie 0-255

Łatwo można go też przerobić aby działał jak układ przedstawiony powyżej.
Mam nadzieję, że się przyda do dalszej zabawy ten kod :)

Dim Licz As Byte
 
Cls
Licz = 0
 
 
 
Do
'######## ograniczenie aby zmienna licz nie była liczona w kółko tylko od 0 - 255
If Licz = 0 Then
Licz = 1
End If
 
If Licz = 255 Then
Licz = 254
End If
'######## koniec ograniczenia - ta część może być ale  nie musi...
 
 
If Pind.4 = 0 Then
Bitwait Pind.4 , Set
If Pind.3 = 0 Then
Decr Licz
Gosub Wys
End If
End If
 
If Pind.3 = 0 Then
Bitwait Pind.3 , Set
If Pind.4 = 0 Then
Incr Licz
Gosub Wys
End If
End If
 
Loop
 
 
 
Wys:
 
Cls
 
Locate 1 , 1
Lcd Licz
 
Return

Popijając "złoty trunek" zmieniłem podprogramik 'wys' w taki sposób, że na określonych portach pojawiają się impulsy - kiedy kręcę w jedną stronę to mryga dioda zielona kiedy w drugą to dioda czerwona. Dioda świeci przez 30 ms i gaśnie - oczywiście można ten czas zmienić w zależności od potrzeby.

Oczywiście kod jest w pełni "odporny" szybkie kręcenie impulsatorem lub szybką zmianę kierunku obrotu.

Załączam kod - oczywiście w Bascomie :)

Pozdrawiam! :)

Dim Licz As Byte
 
Do
Licz = 1
 
If Pind.4 = 0 Then
Bitwait Pind.4 , Set
If Pind.3 = 0 Then
Decr Licz
Gosub Wys
End If
End If
 
If Pind.3 = 0 Then
Bitwait Pind.3 , Set
If Pind.4 = 0 Then
Incr Licz
Gosub Wys
End If
End If
 
Loop
 
 
Wys:
 
If Licz = 0 Then
Zielona = 1
Waitms 30
Zielona = 0
End If
 
If Licz = 2 Then
Czerwona = 1
Waitms 30
Czerwona = 0
End If
 
Return

na jakim procesorze było to testowane? Ma to zadziałać w Tiny 13 w którym można zrobić jedną może dwie zmienne. Odpornośc na bardzo szybkie kręcenie lub szybką zmianę kierunku akurat w tym przypadku nie mają znaczenia ale dzięki za fragment kodu. potestuje w swoim zakresie w kolejnych konstrukcjach z impulsatorem.

tak na marginesie to twój kod tez ma wady a mianowicie program wisi w pętli głównej czekając na zmianę stanu impulsatora, ale w zalezności od zastosowania należy korzystać z róznych rozwiązań

Testowałem to na atmega8 z częstotliwością 8MHz.
Ale jestem przekonany, że będzie działało na attiny13.

W programie to zaledwie jedna zmienna...

A kolega użył w swoim aż (nie wiem czy prawidłowo liczę) 8 zmiennych i do tego jeszcze timer0... :P

Mój program na 99% będzie śmigał na attiny13 w układzie pierwotnego projektu powyżej :)

Co do polecenia 'bitwait' no jest to mała wada ale wciskając sterowanie impulsatora w podprogram nie jest to żaden problem ponieważ zmieniamy wartość zmiennej i wychodzimy z podprogramu i jest gitara :)