ATNEL tech-forum

Re: CD4051 i sterowanie 2x4 diodami po odczycie ADC.

2014-02-10T22:32:00+01:00

Dzięki. Rozkmina jak złoto. Teraz czekam na gls'a w wersji lila-róż i muszę dokupić ATB Shield I/O

Statystyki: Napisane przez matrix — 10 lut 2014, o 22:32

Re: CD4051 i sterowanie 2x4 diodami po odczycie ADC.

2014-02-10T22:28:00+01:00

Może trochę niefortunnie dobrałem tą nazwę. Poniżej trochę poprawione
[syntax=basic4gl]'Data_in - wejście danych rejestru
'Clk - wejście zegarowe
'Strobe - wejście zatrzaskiwania danych
Sub Send_to_4094(byval Value As Byte)

Local I As Byte

For I = 0 To 7
Data_in = Value.i
Clk = 1
'Waitus 1
Clk = 0
Next I
Strobe = 1
'Waitus 1
Strobe = 0
End Sub[/syntax]

Data_in to wejście danych rejestru 4094.
Linia [syntax=basic4gl]Data_in = Value.i[/syntax] wystawia na to wejście kolejne bity zmiennej Value. Wystawianie rozpoczyna się od bitu nr 0 do bitu nr 7. Po każdym wystawionym bicie trzeba machnąć linią Clk aby ten bit został zapisany do rejestru. Po wysłaniu całego bajtu zmiana na linii Strobe powoduje, że wysłany bajt pojawia się na wyjściach rejestru.

A co do tego zapisu [syntax=basic4gl]Value.i[/syntax] to w ten sposób można dostać się do poszczególnych bitów dowolnej zmiennej. Mamy np. zmienna bajtową Stan.
Zapis [syntax=basic4gl]Stan.0 = 1[/syntax] ustawi nam bit nr 0.
A np. zapis [syntax=basic4gl]Stan.7 = 0[/syntax]wyzeruje ostatni bit zmiennej.

Statystyki: Napisane przez jacekk232 — 10 lut 2014, o 22:28

Re: CD4051 i sterowanie 2x4 diodami po odczycie ADC.

2014-02-10T22:03:19+01:00

A powiedz co znaczy ten kawałek kodu bo nigdy tego nie używałem:
[syntax=basic4gl]Dane = Value.i[/syntax]

Rozumiem że zmienna Dane przyjmuje wartość zmiennej lokalnej Value, a po co parametr .i ? Co robi kropka oraz i ?

Statystyki: Napisane przez matrix — 10 lut 2014, o 22:03

Re: CD4051 i sterowanie 2x4 diodami po odczycie ADC.

2014-02-10T21:43:25+01:00

To był 74595. Poradnik jest u Mirka na blogu http://mirekk36.blogspot.com/2013/09/re ... stawy.html

Gdybyś miał problemy z przełożeniem tego na bascoma to chętnie pomogę.

Z rejestrów przesuwnych używałem też 4094. Dane wysyłałem w prościutkiej procedurze
[syntax=basic4gl]Sub Send_to_4094(byval Value As Byte)

Local I As Byte

For I = 0 To 7
Dane = Value.i
Clk = 1
'Waitus 1
Clk = 0
Next I
Strobe = 1
'Waitus 1
Strobe = 0
End Sub[/syntax]

Statystyki: Napisane przez jacekk232 — 10 lut 2014, o 21:43

Re: CD4051 i sterowanie 2x4 diodami po odczycie ADC.

2014-02-10T21:19:13+01:00

Jeśli chodzi o zmniejszanie czasu trwania wait to działa nawet z wait1 ale jeśli nie obsługuję wyświetlania. Jeśli tylko chcę coś wyświetlić to zaczyna się migotanie.

Co do rejestru to rzeczywiście chyba to będzie lepsze rozwiązanie. Gdzieś Mirek opisywał używanie rejestru. Co to był za rejestr ?

Statystyki: Napisane przez matrix — 10 lut 2014, o 21:19

Re: CD4051 i sterowanie 2x4 diodami po odczycie ADC.

2014-02-10T21:13:36+01:00

Próbowałeś może zmniejszyć opóźnienia w podprogramach pomiar_adc?

A nie myślałeś żeby zamiast 4051 zastosować jakiś rejestr przesuwny? Bo za pomocą 4051 możesz zaświecić tylko jedna diodę naraz. A żeby świeciły dwie to trzeba je włączać na przemian. A w rejestrze przesuwnym można zaświecać kilka diod naraz.

Statystyki: Napisane przez jacekk232 — 10 lut 2014, o 21:13

Re: CD4051 i sterowanie 2x4 diodami po odczycie ADC.

2014-02-08T21:48:07+01:00

Podłączenie jest banalne. Podłączam na płytce EvbAVR04. Pinologia dowolna bo dowolnie można podłączyć na tej płytce jak na zestawie ATB. Sam kod na początku opierał się o wybór za pomocą If..then ale nie zdawało to rezultatu więc pomyślałem że zrobię to na select case. I jakoś poszło tylko mam migotanie.

W tej chwili mam coś takiego:
- skok do podprogramu adc_1
- zdefiniowanie jaka zostanie przyjęta wartość select case w zalezności od pomiaru adc1
- skok do podprogramu ustawienia danych na szynę układu 4051
to samo w stosunku do adc2

Kod wygląda jak poniżej i działa. Wszystkiemu winna była obsługa wyświetlania wyników ADC którą teraz zaremowałem.

[syntax=basic4gl]Do
If Przycisk = 0 Then
Inh = 1
Wejscie = 1
Else
Inh = 0
Wejscie = 0
End If

Gosub Pomiar_adc1
Gosub Select_case

Gosub Pomiar_adc2
Gosub Select_case

Loop
End

Pomiar_adc1:
Adc_1 = Getadc(5)

'Home
'Lcd "Adc1=" ; Adc_1 ; " "

'If Inh = 0 Then Lcd "INH=0 "
'If Inh = 1 Then Lcd "INH=1 "
If Adc_1 < 256 Then Wybor = 8
If Adc_1 >= 256 And Adc_1 < 512 Then Wybor = 1
If Adc_1 >= 512 And Adc_1 < 768 Then Wybor = 6
If Adc_1 > 768 Then Wybor = 4

Wejscie = 0
Waitms 5
Wejscie = 1

Return

Pomiar_adc2:
'Locate 2 , 1
'Lcd "ADC2=" ; Adc_2 ; " "

Adc_2 = Getadc(0)

If Adc_2 < 256 Then Wybor = 9
If Adc_2 >= 256 And Adc_2 < 512 Then Wybor = 5
If Adc_2 >= 512 And Adc_2 < 768 Then Wybor = 7
If Adc_2 > 768 Then Wybor = 2

Wejscie = 0
Waitms 5
Wejscie = 1

Return

Select_case:
Select Case Wybor
Case 1:
A = 0
B = 0
C = 0
Case 2:
A = 0
B = 0
C = 1
Case 4:
A = 0
B = 1
C = 0
Case 5:
A = 0
B = 1
C = 1
Case 6:
A = 1
B = 0
C = 0
Case 7:
A = 1
B = 0
C = 1
Case 8:
A = 1
B = 1
C = 0
Case 9:
A = 1
B = 1
C = 1
End Select
Return[/syntax]

Teraz pytanie, jak zapobiec migotaniu podczas wyświetlania danych na wyświetlaczu ?
Czy użycie timera i obsługa wszystkiego w przerwaniu coś pomoże ?

Statystyki: Napisane przez matrix — 8 lut 2014, o 21:48

Re: CD4051 i sterowanie 2x4 diodami po odczycie ADC.

2014-02-08T21:36:53+01:00

Pokaż może jak to masz podłączone. Kod też by jednak było dobrze pokazać. Bo w tej sytuacji trudno cokolwiek doradzić.

Statystyki: Napisane przez jacekk232 — 8 lut 2014, o 21:36

CD4051 i sterowanie 2x4 diodami po odczycie ADC.

2014-02-08T14:19:51+01:00

Mam takie pytanie jedno do Was.
Mam układ CD4051 sterowany przez kontroler. Dwa wejścia ADC odczytują stan z potencjometrów i na tej podstawie trzeba odpowiednio wysterować układ 4051 tak by osobno sterował dwiema sekcjami po 4 diody.
Reasumując pokazuję prosty algorytm:
- odczyt adc1
- odczyt adc2
- jeśli adc1 wynosi x to ustaw na wejściach danych układu 4051 dany adres do wyświetlenia stanu za pomocą pierwszych czterech diod
- jeśli adc2 wynosi y to ustaw na wejściach danych układu 4051 dany adres do wyświetlenia stanu za pomocą drugich czterech diod

I tu leży kłopot. Jeśli włącza mi poprawnie diodę z pierwszej czwórki to z drugiej już nie, albo wszystko się miesza i z drugiej czwórki wyświetla się dopiero jak ADC1 jest w odpowiedniej pozycji.
Programu nie będę przedstawiał bo jest banalny i polega na sprawdzaniu ADC1 i ADC2 oraz odpowiedniej interpretacji wyniku na podstawie tych pomiarów za pomocą instruckji warunkowych If...then.

Oczywiście piszę w bascomie. Nadmienię że dla prostego sprawdzania działania programu dodawałem też opóźnienia o różnej długości.

Pytanie czy się da to ogarnąć w ten sposób który sobie wymyśliłem?

Statystyki: Napisane przez matrix — 8 lut 2014, o 14:19