A bascom minta közvetlenül nem műkődött nálam - ez lett a végleges verzió egy philips hifi távirányitójával:pdudas írta: Köszi, megnézem!
Kód: Egész kijelölése
Config Portx.y = Input
Config Rc5 = Pinx.y ' timer0-t elfoglalja
Dim Rc5_cimzes As Byte , Rc5_parancs As Byte
'Enable Interrupts
...
Getrc5(rc5_cimzes , rc5_parancs)
rc5_parancs = rc5_parancs And &B01111111
If rc5_cimzes = 20 And rc5_parancs = 12 Then Uzemmod = 0 ' funkciógomb1
If rc5_cimzes = 20 And rc5_parancs = 55 Then Uzemmod = 1 ' funkciógomb2
If rc5_cimzes = 20 And rc5_parancs = 56 Then Uzemmod = 2 ' funkciógomb3
If rc5_cimzes = 20 And rc5_parancs = 57 Then Uzemmod = 3 ' funkciógomb4
If rc5_cimzes = 16 And rc5_parancs = 17 Then ' hangerő csökkentő gomb
If Ms_ertek > 1 Then Ms_ertek = Ms_ertek - 1
End If
If rc5_cimzes = 16 And rc5_parancs = 16 Then ' hangerő növelő gomb
If Ms_ertek < 100 Then Ms_ertek = Ms_ertek + 1
End If