1.3 Sterowanie przekaźnikami przy pomocy pilota RC5
Sposób ten jest w sumie najłatwiejszym ze wszystkich przedstawionych, poniżej zamieszczam schemat połączeniowy dla tej części ćwiczenia:
 |
| Sterowanie po przez RC5 |
Następnie piszemy, ten kod:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 |
$regfile = "m32def.dat" $crystal = 8000000 Config Rc5 = Pinb.0 Config Portd.5 = Output Config Portd.6 = Output Przekaznik0 Alias Portd.5 Przekaznik1 Alias Portd.6 Przekaznik1 = 1 Przekaznik0 = 1 Enable Interrupts Dim Adres As Byte , Komenda As Byte Do Getrc5(adres , Komenda) Komenda = Komenda And &B01111111 If Komenda = 1 Then Przekaznik0 = 0 Waitms 15 Elseif Komenda = 3 Then Przekaznik0 = 1 Waitms 15 Elseif Komenda = 4 Then Przekaznik1 = 0 Waitms 15 Elseif Komenda = 6 Then Przekaznik1 = 1 Waitms 15 End If Loop End |
Przykład ten wykorzystuje przyciski 1,3,4,6 pilota:
Przycisk 1. włącza Przekaźnik0, a 3. wyłącza.
Przycisk 4. włącza Przekaźnik1, a 6. wyłącza
Pętla główna programu jest tu zbudowana na podobnej zasadzie jak ćwiczeniu 1.2, z tą różnicą, że nie sprawdzamy aktywnego stanu przekaźnika.
Jeżeli zostanie wywołana Komenda równa 1 (czyli przycisk 1.) to załącz Przekaźnik0. Natomiast jak wywołamy Komendę równą 3 to Przekaźnik0 zostanie wyłączony. Te same funkcję zostaną wykonana dla Przekaźnika1 na przyciskach 4 i 6.
Jeżeli chcesz być informowany na bieżąco o nowych częściach kursu to kliknij „Lubię to!” bądź subskrybuj naszą stronę, aby otrzymywać na adres e-mail nowości ze strony. Jeżeli masz jakieś pytania to śmiało zadawaj je na forum ; )