RC5 mit BASCOM8051

[roman_1986]

Damit auf den Druck auf den Knopf auf dem Pult das Programm wie zu machen ьbernahm wie der Druck einmal, und nicht wie den Druck oftmals?

In diesem Beispiel, den Knopf fьnf wenn zu halten, so wird das Programm stдndig die Zahl fьnf ьbernehmen! Damit das Programm wie zu machen ьbernahm nur einmal fьnf, und auf den zweiten Druck soll das Programm das zweite Mal, aber nicht oftmals fьr zwei Drucke ьbernehmen.


Dim New As Bit
Dim Command As Byte , Subaddress As Byte

Reset Tcon.0 'triggered by rising edge
On Int0 Receiverc5
Enable Int0
Enable Interrupts
Do
If New = 1 Then 'received new code
Disable Int0
Print Command ; " " ; Subaddress
New = 0 'reset new bit
Enable Int0
End If
Loop



Receiverc5: 'interrupt routine
'the getrc5 routine uses 30 bytes ! of the stack for measuring
'the interval between the bits
Getrc5(Subaddress,command)
New = 1 'set flag
Return
Helfen Sie bitte!!!