Potencjometr Alps z silniczkiem sterowanie pilotem RC5

[kulamario]

Ale to nie przyciski maja działać tylko pilot
ja sobie te przyciski napisałem ze by sprawdzić czy chodzi

[pimowo]

OK, ale to nie jest chyba problemem sprawdzić działanie potencjometru poprzez przyciski?

[niveasoft]

Przepraszam, ale wcześniej nie było czasu zaznajomić się z kodami a to zawsze wymaga "czasu".

Porównując kod z pierwszego postu z tym który zamieściłem różnica jest znacząca bo kod @kulamario steruje plusem. Poznać to po tym że po czasie ma zrobić obydwa piny na 0.
Mój kod był pisany pod jakąś podmiankę przycisków i miał dawać "minusy".

Może wystarczyło by wszędzie podmienić instrukcje SET na RESET i odwrotnie.

Niemniej można to napisać dużo lepiej. Może dam rade to dziś napisać, ale uwierzcie mi że tu nie leżę

[niveasoft]

Sprawdź tak. Jak nie zadziała to wrzucę to na płytkę bo pisałem "z głowy".

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

1. $regfile = "m32def.dat"
2. $crystal = 16000000
3. $hwstack = 32
4. $swstack = 16
5. $framesize = 32
6.  
7. Const Wartosc_timeout = 20
8.  
9. Config Timer1 = Timer , Prescale = 1024 , Compare_a = Disconnect , Compare_b = Disconnect , Clear_timer = 1
10.  Compare1a = 155                                            '10ms @16MHz/1024
11.  
12. Dim Address As Byte , Kod As Byte
13. Dim Odbierz_rc5 As Byte                                     'flaga
14. Dim Odlicz_timeout As Byte
15.  
16. Config Portd.2 = Output : Portd.2 = 0 : Glosniej Alias Portd.2
17. Config Portc.7 = Output : Portc.7 = 0 : Ciszej Alias Portc.7
18.  
19. Config Rc5 = Pind.2
20.  
21. On Int0 Rc5
22. Config Int0 = Falling : Enable Int0
23.  
24. Enable Interrupts
25.  
26. Do
27.  
28.   If Odbierz_rc5 = 1 Then
29.  
30.     Getrc5(address , Kod)
31.     Kod = Kod And &B01111111
32.  
33.     If Address <> 255 Then
34.  
35.       Select Case Kod
36.  
37.         Case 16 : Reset Ciszej : Set Glosniej
38.           Odlicz_timeout = Wartosc_timeout
39.         Case 17 : Reset Glosniej : Set Ciszej
40.           Odlicz_timeout = Wartosc_timeout
41.       End Select
42.     End If
43.  
44.     GIFR.INTF0 = 1 : Enable Int0
45.      Odbierz_rc5 = 0
46.   End If
47.  
48.   If TIFR1.OCF1A = 1 Then
49.    TIFR1.OCF1A = 1
50.  
51.    If Odlicz_timeout > 0 Then
52.     Decr Odlicz_timeout
53.      If Odlicz_timeout = 0 Then
54.       Reset Glosniej
55.       Reset Ciszej
56.      End If
57.    End If
58.  
59.   End If
60.  
61.  
62. Loop
63. End
64.  
65. Rc5:
66.  
67. Disable Int0
68.  Odbierz_rc5 = 1
69.  
70. Return

[kulamario]

niestety nie chodzi wcale ani w prawo ani w lewo
dałem to na wyświetlacz w ogóle nie wchodzi do case 16 i 17

[niveasoft]

Podaj dokładny numer Bascom, albo i nie i przyjmę 2078 i to jutro sprawdzę.
Poniżej nima o czym godać.

[kulamario]

2.0.7.8

[niveasoft]

Okay, jutro do południa test na M32 i 2078.

[kulamario]

ok spox

[kulamario]

Kolego pimowo teraz podłączyłem przyciski do testu twojego kodu ale przyciskami tez nie kreci