Код: Выделить всё
Dim Byte0 As Byte
Dim Byte1 As Byte
Dim Sign As String * 1
Dim T As Byte
Dim T1 As Byte
Dim T2 As Byte
Dim Count As Word
Dim Tmax As Byte
Dim Tmin As Byte
Erled = 0
Tmin = 99
Cursor Off
Cls
Do
Locate 1 , 1
Lcd "temp " ; Sign ; T1
Locate 2 , 1
Lcd "min " ; Tmin
Locate 2 , 8
Lcd "max " ; Tmax
1wreset
1wwrite &HCC
1wwrite &H44
Waitms 750
Erled = 1
1wreset
1wwrite &HCC
1wwrite &HBE
Erled = 0
Byte0 = 1wread()
Byte1 = 1wread()
If Byte1 >= 248 Then
Byte0 = &HFF - Byte0
Byte1 = &HFF - Byte1
Sign = "-"
Else
Sign = "+"
End If
T1 = Byte0 / 16
T2 = Byte1 * 16
T1 = T1 + T2
If T1 > Tmax Then
Tmax = T1
End If
If T1 < Tmin Then
Tmin = T1
End If
Loop
End
Код: Выделить всё
Dim Address As Long
Dim Command As Long
Config Pind.3 = Input
Config Rc5 = Pind.3
Enable Interrupts
Do
Set Erled
Getrc5(address , Command)
Locate 1 , 1
Lcd Address
Locate 2 , 1
Lcd Command
Reset Erled
Waitms 150
Loop
В том коде который Вы предоставили, запросто будет и +90 и +80 и даже +70.vanyap1 писал(а):И второе - 90 не будет
Код: Выделить всё
Getrc5(address , Command) Код: Выделить всё
Config Pind.3 = Input
Config Rc5 = Pind.3
Config Int0 = Falling
On Int0 Encod
Enable Interrupts
Enable Int0
Cursor Off
Cls
...........
..............
5:
Cls
Do
Getrc5(address , Command)
Locate 1 , 1
Lcd Address ; " "
Locate 2 , 1
Lcd Command ; " "
If W = 5 Then
Else
Goto 0
End If
LoopКод: Выделить всё
'The GETRC5 function uses TIMER0 and the TIMER0 interrupt.Код: Выделить всё
'This example shows how to decode RC5 remote control signals
'with a SFH506-35 IR receiver.
'Connect to input to PIND.2 for this example
'The GETRC5 function uses TIMER0 and the TIMER0 interrupt.
'The TIMER0 settings are restored however so only the interrupt can not
'be used anymore for other tasks
'tell the compiler which pin we want to use for the receiver input
Config Rc5 = Pind.2 , Wait = 2000
Config Timer1 = Timer , Prescale = 1
'the interrupt routine is inserted automatic but we need to make it occur
'so enable the interrupts
Enable Interrupts
'reserve space for variables
Dim Address As Byte , Command As Byte
Print "Waiting for RC5..."Код: Выделить всё
Dim Dm As String * 3
Dm = "150"
Tmin1 = Dm
Tmin2 = Dm