Witam, na początku chcę dodać, że jestem początkującym elektronikiem i proszę o wyrozumiałość.
Urządzenie powinno włączać lub wyłączać światło w żyrandolu z tym, że na ścianie mam przełącznik który zapala mi jedną żarówkę lub dwie żarówki.
Zrobiłem schemat i kawałek programu(zlepek różnych) i mam 2 pytania:
1.Jak zrobić żeby jeden przycisk zapalał jedną żarówkę a drugi drugą żarówkę.
2.W programie trzeba wpisać kod sygnału z rc5,ale jaki?
Pod dołem daje program i schemat
Za wszystkie odpowiedzi dzięki.
Program:
$regfile = "m8def.dat"
$crystal = 1000000
Config Portc.1 = Output
Config Portc.3 = Output
Dim Komenda As Byte , Adres As Byte
Dim Odebrano As Bit
Do
If Odebrano = 1 Then
If Adres = 0 Then 'pilot o adresie 0
Reset Dioda
Cls
Lcd Komenda
Waitms 10
Set Dioda
Waitms 10
End If
Odebrano = 0
Enable Int0
End If
Loop
End
Przzew0:
Disable Int0
Enable Interrupts
Getrc5(adres , Komenda)
Komenda = Komenda And &B01111111
Odebrano = 1
Return
Urządzenie powinno włączać lub wyłączać światło w żyrandolu z tym, że na ścianie mam przełącznik który zapala mi jedną żarówkę lub dwie żarówki.
Zrobiłem schemat i kawałek programu(zlepek różnych) i mam 2 pytania:
1.Jak zrobić żeby jeden przycisk zapalał jedną żarówkę a drugi drugą żarówkę.
2.W programie trzeba wpisać kod sygnału z rc5,ale jaki?
Pod dołem daje program i schemat
Za wszystkie odpowiedzi dzięki.
Program:
$regfile = "m8def.dat"
$crystal = 1000000
Config Portc.1 = Output
Config Portc.3 = Output
Dim Komenda As Byte , Adres As Byte
Dim Odebrano As Bit
Do
If Odebrano = 1 Then
If Adres = 0 Then 'pilot o adresie 0
Reset Dioda
Cls
Lcd Komenda
Waitms 10
Set Dioda
Waitms 10
End If
Odebrano = 0
Enable Int0
End If
Loop
End
Przzew0:
Disable Int0
Enable Interrupts
Getrc5(adres , Komenda)
Komenda = Komenda And &B01111111
Odebrano = 1
Return