پاسخ : ریموت کنترل IR یک کاناله - قابل برنامه ریزی با هر نوع کنترل خانگی
یه سزی به ای آدرس بزنید
http://www.lucidscience.com/pro-remote%20hijacker-1.aspx
یه سزی به ای آدرس بزنید
http://www.lucidscience.com/pro-remote%20hijacker-1.aspx
$regfile = "m8def.dat" $crystal =8000000 $noramclear $eeprom Config Pinc.1 = Output : Relay Alias Portc.1 Config Pinc.2 = Output : Led Alias Portc.2 Config Pinc.3 = Input : Learn_key Alias Pinc.3 Relay = 0 Dim B As Iram Byte Dim W1 As Iram Byte , W2 As Iram Byte , W3 As Iram Byte , W4 As Iram Byte Dim P1 As Iram Byte , P2 As Iram Byte , P3 As Iram Byte , P4 As Iram Byte B = 0 Star: Readeeprom P1 , 10 Readeeprom P2 , 11 Readeeprom P3 , 12 Readeeprom P4 , 13 If Pinc.3 = 0 Then Gosub Learn Do Waitms 250 B = 1 Bitwait Pinb.0 , Reset Do Do Waitus 1 Loop Until Pinb.0 = 1 Incr B Do Waitus 1 Select Case B Case Is = 36 Incr W1 Case Is = 38 Incr W2 Case Is = 40 Incr W3 Case Is = 42 Incr W4 End Select Loop Until Pinb.0 = 0 Incr B Loop Until B > 41 If W1 > 30 Then W1 = 100 Else W1 = 10 End If If W2 > 30 Then W2 = 100 Else W2 = 10 End If If W3 > 30 Then W3 = 100 Else W3 = 10 End If If W4 > 30 Then W4 = 100 Else W4 = 10 End If If W1 = P1 And W2 = P2 And W3 = P3 And W4 = P4 Then If Relay = 0 Then Set Relay Else Reset Relay End If End If W1 = 0 : W2 = 0 : W3 = 0 : W4 = 0 Loop Learn: Waitms 250 B = 1 Set Led Bitwait Pinb.0 , Reset Do Do Waitus 1 Loop Until Pinb.0 = 1 Incr B Do Waitus 1 Select Case B Case Is = 36 Incr W1 Case Is = 38 Incr W2 Case Is = 40 Incr W3 Case Is = 42 Incr W4 End Select Loop Until Pinb.0 = 0 Incr B Loop Until B > 55 If W1 > 30 Then W1 = 100 Else W1 = 10 End If If W2 > 30 Then W2 = 100 Else W2 = 10 End If If W3 > 30 Then W3 = 100 Else W3 = 10 End If If W4 > 30 Then W4 = 100 Else W4 = 10 End If P1 = W1 : P2 = W2 : P3 = W3 : P4 = W4 Writeeeprom W1 , 10 Writeeeprom W2 , 11 Writeeeprom W3 , 12 Writeeeprom W4 , 13 W1 = 0 : W2 = 0 : W3 = 0 : W4 = 0 Reset Led Return
دیدگاه