Tsop + Atmega32

[Vit@lik]

в чем проблема? код на баскоме должен считывать команды с пульта и отображать.

он считывает но с10- 20 нажатий только раз срабатывает

приемник tsop32336

$regfile = "m32def.dat"
$crystal = 8000000
$lib "mcsbyte.lbx"

' Êîíôèãóðàöèÿ ÆÊÄ
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portd.0 , Rs = Portd.1
Config Lcd = 16 * 2
' RC5
'Config Pind.2 = Input
Config Rc5 = Pind.2
'Âêëþ÷àåì ïðåðûâàíèÿ
Enable Interrupts
' Ïåðåìåííûå
Dim Address As Byte , Command As Byte
Initlcd
Cursor Off
Cls ' Î÷èñòêà ýêðàíà ÆÊÈ
Locate 2 , 1
Lcd "Waiting for RC5"
Do
Getrc5(address , Command)
If Address = 0 Then
Cls
Command = Command And &B01111111
Locate 1 , 1
Lcd Address ; " " ; Command
End If
Locate 2 , 1
Lcd Address ; " " ; Command
Loop
End

[Реклама]

Реклама: ООО ТД Промэлектроника, ИНН: 6659197470, Тел: 8 (800) 1000-321