Ustawianie zadanej enkoderem

[Jacek]

Witam - buduje testowy regulator PWM do sterowania grzałką, chciałbym ustawiać zadaną temperaturę enkoderem po wciśnięciu przycisku i przytrzymaniu powiedzmy 5 sekund - nie mogę sobie poradzić z tym tematem wstawiłem do swojego programu na próbę obsługę enkodera który na swojej stronie umieścił Bartek.
Niestety zmiana enkoderem zmiennej nie idzie płynnie lecz skokowo nie wiem jak to zrobić - proszę o pomoc.
Kod dotychczasowy wygląda tak:
Załączanie wyłączanie Timera odpowiedzialnego za PWM działa dobrze, regulacja potencjometrem PWM również, odczyt temperatury działa dobrze.
pozdrawiam Jacek.

Code: [Zaznacz cały] [Rozwiń/Zwiń]

1.   '******************** Mikrokontroler *******************************************
2. '$sim
3. $regfile = "m16adef.dat"                                                        'typ mikrokontrolera
4. $crystal = 16000000                                                             'częstotliwość taktowania
5. $hwstack = 32                                                                   'stos sprzętowy
6. $swstack = 10                                                                   'stos programowy
7. $framesize = 40                                                                 'wielkość ramki
8.  
9. Config Submode = Old
10.  
11. '********************************* LCD **************************************
12. 'Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2       'konfiguracja wyświetlacza LCD
13. 'Config Lcd = 16 * 4                                                             'typ wyświetlacza LCD
14. Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5       'mirley UPT M16
15. Config Lcd = 16 * 4
16. '********************************** Timer'y ***********************************
17. 'Config Timer0 = Pwm , Prescale = 1 , Compare  Pwm = Clear Down 'częstotliwość PWM  31.25 kHz
18. Config Timer0 = Pwm , Prescale = 8 , Compare Pwm = Clear Down                   'częstotliwość PWM 3900 Hz
19. 'Config Timer0 = Pwm , Prescale = 64 , Compare  Pwm = Clear Down 'częstotliwość PWM 480 Hz
20. 'Config Timer0 = Pwm , Prescale = 256 , Compare Pwm = Clear Down 'częstotliwość PWM 125 Hz
21. 'Config Timer0 = Pwm , Prescale = 1024 , Compare Pwm = Clear Down 'częstotliwość PWM 30.5 Hz
22. Enable Timer0
23. 'Config Timer1 = Timer , Prescale = 256
24. 'Enable Timer1 : On Timer1 Przer_timer1                                          '256
25. Config Timer1 = Timer , Prescale = 256
26. Enable Timer1 : On Timer1 Prztimer1
27.  
28.  
29.  
30. Enable Interrupts
31. Stop Timer0
32. Deflcdchar 1 , 4 , 10 , 4 , 32 , 32 , 32 , 32 , 32                              'znak stopnia
33. Deflcdchar 2 , 4 , 4 , 10 , 10 , 10 , 17 , 17 , 31                              ' replace [x] with number (0-7)
34. '************************************ Przetworniki *****************************
35. Config Adc = Single , Prescaler = Auto , Reference = Avcc                       'konfiguracja ADC
36. Stop Adc
37.  
38. '******************************** Porty ***************************************
39. Config Pind.0 = Input                                                           'ustawienie portu jako wejście
40. Config Pind.1 = Input                                                           'ustawienie portu jako wejście
41. Set Pind.0 = 1                                                                  'ustawienie portu w stan wysoki
42. Set Pind.1 = 1                                                                  'ustawienie portu w stan wysoki
43. Config Pinb.3 = Output                                                          'ustawienie portu jako wyjście
44. Config Pind.5 = Output                                                          'ustawienie portu jako wyjście
45. Config Pind.2 = Input                                                           'ustawienie portu jako wejście
46. Config Pind.3 = Input                                                           'ustawienie portu jako wejście
47. Set Portd.2                                                                     'ustawienie portu w stan wysoki
48. Set Portd.3                                                                     'ustawienie portu w stan wysoki
49. Config Pinb.0 = Input
50. Config Pinb.7 = Output
51. Set Portb.7
52. Portd = 255
53. '*********************** Aliasy ***********************************************
54. Start_ Alias Pind.0
55. Stop_ Alias Pind.1
56.  '********************* Deklaracje *********************************************
57. Declare Sub Start_timer1
58. Declare Sub Stop_timer1
59. Declare Sub Pomiar
60. Declare Sub Wyswietl
61. 'Declare Sub Impulsator
62. '********************* Zmienne ***********************************************
63. Dim Tryb As Byte , Rezultat As Integer
64. Dim Zmienna As Word
65. Dim Zmienna1 As Byte
66. Dim Enc As Byte
67. Dim W As Word
68. Dim Z As Word
69. Dim A As Long
70. Dim Perc As Long
71. Dim Zal As Bit
72. Dim B1 As Byte
73. Dim B2 As Byte
74. Dim R As Byte
75. Dim Znak1 As String * 1
76. Dim T1 As Single
77. Dim T2 As Single
78. Dim Tmp1 As String * 6
79. Dim Temp_zad As Byte                                                            'Long                                                                   'zmienna odczytu z enkodera lewy wskaźnik
80. Dim F As Long                                                                   'zmienna odczytu z enkodera prawy wskaźnik
81. Dim Dzielnik(2) As Byte                                                         'dzielniki timera
82. Dim Flaga_4ms As Bit , Flaga_500ms As Bit , Flaga_1s As Bit                     'flagi przerwa?
83. '********************** Początek **********************************************
84. Cls
85. Cursor Off
86. Locate 1 , 1
87. Lcd "TEST STEROWANIA"
88. Locate 2 , 3
89. Lcd "PWM GRZALEK"
90. Locate 3 , 3
91. Lcd "SQ2EER 2017"
92. Wait 2
93. Cls
94. Locate 1 , 1                                                                    'Locate 4 , 1
95. Lcd "TIMER0 OFF      "
96. Locate 2 , 1                                                                    'Locate 2 , 1                                         'lokalizacja wyświetlania zmiennej PWM
97. Lcd "PWM  :" ; Perc ; "%  "
98. Locate 3 , 1
99. Lcd "TEMP:" ; Znak1 ; Tmp1 ; Chr(1) ; "C  "
100. Locate 4 , 1
101. Lcd "ZAD:" ; Zmienna ; Chr(1) ; "C "
102. Set Portb.3
103. Z = 0
104. Temp_zad = 0
105. F = 0
106. Zal = 0
107. Zmienna = 0
108. Wait 2
109. Call Wyswietl
110. Do
111.   '***********************************************   co 4ms
112.    If Flaga_4ms = 1 Then
113.       Flaga_4ms = 0
114.       Call Wyswietl
115.       Gosub Impulsator
116.    End If
117. '***********************************************
118.  
119. '***********************************************   co 500ms
120.    If Flaga_500ms = 1 Then
121.       Flaga_500ms = 0
122.    End If
123. '***********************************************
124.  
125. '***********************************************   co 1s
126.    If Flaga_1s = 1 Then
127.       Flaga_1s = 0
128.       'Call Impulsator
129.  
130.  
131.    End If
132. '***********************************************
133.    Gosub Impulsator
134.  
135.    If Rezultat <> 0 Then
136.       Zmienna = Zmienna + Rezultat
137.       Locate 4 , 1
138.       Lcd "ZAD:" ; Zmienna ; Chr(1) ; "C "
139.       'Zmienna1 = Zmienna / 10
140.       'Locate 2 , 11 : Lcd Zmienna ; "     "
141.       Rezultat = 0
142.    End If
143.  
144.    Call Pomiar
145.    If Start_ = 0 Then                                                           'skok do podprogramu załączaenia Timer0 , załaczenie ADC
146.       Gosub Start_timer1
147.    End If
148.  
149.    If Stop_ = 0 Then                                                            'skok do podprogramu wyłączenia Timer0 , wyłączenie ADC
150.       Call Stop_timer1
151.    End If
152.  
153.  
154.    If Zal = 1 Then                                                              'sprawdzenie czy zmienna Zal ma wartość 1 aby pobrać wartość ADC
155.       Z = Getadc(0)                                                             'pobieraie wartości ADC
156.       A = Z * 100
157.       Shift Z , Right , 2
158.       If W <> Z Then
159.          W = Z                                                                  'zamiana z 10 bitowej na 8 bitową wartość
160.          Pwm0 = W                                                               'wpisanie warotści zmiennej W do Pwm1a
161.          Perc = A / 1023                                                        'dzielenie uzyskanej wartości ADC pomnożonej przez 100 w celu uzyskania wyniku od 0 do 100
162.          Locate 2 , 1                                                           'Locate 2 , 1                                         'lokalizacja wyświetlania zmiennej PWM
163.          Lcd "PWM  :" ; Perc ; "%  "                                            'pokazuje na LCD PWM w % od 0 do 100
164.          Pwm0 = W
165.  
166.          Call Wyswietl
167.       End If
168.    End If
169.  
170.  
171.  
172.  
173.  
174.  
175. Loop
176. End
177.  
178. Sub Start_timer1                                                                'podprogram załączenia Timer0 , ADC
179.    Portd.2 = 0
180.    Zal = 1
181.    Start Timer0
182.    Start Adc
183.  
184.    Locate 1 , 1                                                                 'Locate 4 , 1
185.    Lcd "TIMER0 ON        "
186. End Sub
187.  
188. Sub Stop_timer1                                                                 'podprogram wyłączenia Timer0 , ADC , zerowanie zmienych dla LCD
189.    Zal = 0
190.    Disable Adc
191.    Stop Timer1
192.    Pwm1b = 0
193.    Z = 0
194.    A = 0
195.    Perc = 0
196.    Locate 1 , 1
197.    Lcd "TIMER0 OFF      "
198.    Set Portd.2
199.    Set Portb.3
200.  
201.    If W <> Z Then
202.       W = Z                                                                     'zamiana z 10 bitowej na 8 bitową wartość
203.       Pwm1a = W                                                                 'wpisanie warotści zmiennej W do Pwm1a
204.  
205.       Perc = A / 1023                                                           'dzielenie uzyskanej wartości ADC pomnożonej przez 100 w celu uzyskania wyniku od 0 do 100
206.       Call Wyswietl
207.    End If
208. End Sub
209.  
210.  
211. Sub Pomiar
212. '------------------------------------------------------------------------
213. '-----------------czujnik DS18B20----------------------------------------
214.    Config 1wire = Pinb.0                                                        'konfiguracja maistrali 1wire
215.    1wreset
216.                                                         'podprogram 1wr
217.    1wwrite &HCC                                                                 'komenda skip ROM
218.    1wwrite &H44                                                                 'komenda convert T
219.  
220.    1wreset                                                                      'podprogram 1wr
221.    1wwrite &HCC                                                                 'komenda skip ROM
222.    1wwrite &HBE                                                                 'komenda read
223.  
224.    B1 = 1wread()                                                                'odczyt z czujnika 1
225.    B2 = 1wread()
226.  
227.                                                       'podprogram 1wr
228.  
229.    If B1 >= 248 Then                                                            'jesli temperatura ujemna
230.       B1 = R - B1                                                               'od 255 odejmujemy B1a
231.       B2 = R - B2                                                               'od 255 odejmujemy B2a
232.       Znak1 = "-"
233.    Else
234.       Znak1 = "+"
235.    End If
236.    T1 = B1 / 16                                                                 'przesunięcie w prawo o 4 bajty
237.    T2 = B2 * 16                                                                 'przesunięcie w lewo o 4 bajty
238.    T1 = T1 + T2
239.  
240.    Tmp1 = Fusing(t1 , "###.&")
241.    Locate 3 , 1
242.    Lcd "TEMP:" ; Znak1 ; Tmp1 ; Chr(1) ; "C  "
243. End Sub
244. Sub Wyswietl
245.  
246.    Locate 2 , 1
247.    Lcd "PWM  :" ; Perc ; "%  "                                                  'pokazuje na LCD PWM w % od 0 do 100
248.    Locate 3 , 1
249.    Lcd "TEMP:" ; Znak1 ; Tmp1 ; Chr(1) ; "C  "
250.    Pwm0 = W
251.  
252.  
253.  
254. End Sub
255.  
256. Prztimer1:
257.    Timer1 = 3036
258.    Set Flaga_4ms
259.    Incr Dzielnik(1)
260.    If Dzielnik(1) = 125 Then                                                    '125
261.       Dzielnik(1) = 0
262.       Set Flaga_500ms
263.       Incr Dzielnik(2)
264.       If Dzielnik(2) = 2 Then
265.          Dzielnik(2) = 0
266.          Set Flaga_1s
267.       End If
268.    End If
269. Return
270.  
271.  
272.  
273.  
274. Impulsator:
275.  
276.    Enc.0 = Pind.2
277.    Enc.1 = Pind.3
278.    Rezultat = 0
279.    Select Case Tryb
280.       Case 0:
281.          If Enc = 3 Then Incr Tryb                                              'jeżeli dwa rozwarte
282.       Case 1:
283.          If Enc = 2 Then Tryb = 2
284.          If Enc = 1 Then Tryb = 3
285.       Case 2:
286.          If Enc = 1 Then
287.             Rezultat = 1
288.             Tryb = 0
289.          End If
290.       Case 3:
291.          If Enc = 2 Then
292.             Rezultat = -1
293.             Tryb = 0
294.          End If
295.    End Select
296.  
297. Return

[niveasoft]

Jaki to enkoder? Zauważyłem, że masz to na pinach PD2 i PD3 to nawet możesz to zrobić na przerwaniach.

[Jacek]

Witam - do testowania mam trzy rodzaje enkoderów:

enkoder3.jpg

enkoder2.jpg

enkoder1.jpg

za przycisk enkodera na razie robi przycisk na płytce testowej.

pozdrawiam Jacek.
P.S. znalazłem również enkoder Copal RMs20-250.

[Jacek]

Przepraszam za post pod postem - Bartku znalazłem Twój kod obsługi enkodera - dopisałem w niej 3 linijki ale zamiast cyfry 5 na lcd wskakuje również 6 jeżeli dalej kręcę enkoderem załączam Twój kod z tym co dopisałem.

Code: [Zaznacz cały] [Rozwiń/Zwiń]

1. $regfile = "m16adef.dat"                                                        '$regfile = "m8def.dat"
2. $crystal = 16000000                                                             '$crystal = 8000000
3.  '************************************************
4. 'KONFIGURACJA LCD
5. Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5       'mirley UPT M16
6. Config Lcd = 16 * 4
7. '************************************************
8. Cursor Off Noblink
9. Cls
10.  
11. Portd = 255
12.  
13. Dim In1 As Bit , In2 As Bit
14. Dim Tryb As Byte , Rezultat As Integer
15. Dim Zmienna As Word
16.  
17. Enable Interrupts
18.  
19. Lcd "Licznik:"
20.  
21. Do
22.  
23.    Gosub Impulsator
24.  
25.    If Rezultat <> 0 Then
26.       Zmienna = Zmienna + Rezultat
27.       Locate 1 , 10 : Lcd Zmienna ; "     "
28.       Rezultat = 0
29.    '-----------------------      to dopisałem
30.       If Zmienna => 5 Then
31.          Zmienna = 5
32.       End If
33.    '------------------------   to dopisłem
34.    End If
35.  
36. Loop
37. End
38.  
39. '-------------- sub enkodera 1 -----------
40. Impulsator:
41.    In1 = Pind.3
42.    In2 = Pind.2
43.    Rezultat = 0
44.    Select Case Tryb
45.       Case 0:
46.          If In1 = 1 And In2 = 1 Then Incr Tryb                    'jezeli dwa rozwarte
47.       Case 1:
48.          If In1 = 1 And In2 = 0 Then Tryb = 2
49.          If In1 = 0 And In2 = 1 Then Tryb = 3
50.       Case 2:
51.          If In1 = 0 And In2 = 1 Then
52.             Rezultat = 1
53.             Tryb = 0
54.          End If
55.       Case 3:
56.          If In1 = 1 And In2 = 0 Then
57.             Rezultat = -1
58.             Tryb = 0
59.          End If
60.    End Select
61.    Waitus 100
62. Return

oprócz tego jeżeli zmniejszam zmienną kręcąc w lewo to po 0 wskakuje 65535.
jak to doprowadzić do prawidłowego liczenia i wyświetlania?

pozdrawiam Jacek.

[niveasoft]

To chyba oczywiste. Zastanów się. Trzeba zmienną "ukrócić" przed wyświetleniem.
Nie napisałeś tylko jaki chcesz uzyskać efekt w lewo i w prawo.

Poniżej poprawiłem tylko co nieco

Code: [Zaznacz cały] [Rozwiń/Zwiń]

1. If Rezultat <> 0 Then
2.       Zmienna = Zmienna + Rezultat
3.        '-----------------------      zmieniłem kolejnośc
4.       If Zmienna => 5 Then
5.          Zmienna = 5
6.       End If
7.    '------------------------  
8.       Locate 1 , 10 : Lcd Zmienna ; "     "
9.       Rezultat = 0
10.  
11.    End If

[Jacek]

Ano - właśnie myślałem że te 3 linijki "ukrócą" zmienną - chciałem to wykorzystać do przełączania menu - wartość zmiennej była by pozycją w menu.
pozdrawiam Jacek.