اريد مساعدة فيمشروع تحكم بالاجهزةباستخدامinfrared

اتفضل يا بشمهندس كود انا كنت عمله قبل كده وان شاء الله عن قريب هعمل درس فيديو في كيفيه انك تعمل decoding لريموت الكنترول سوني

الكود ده بيستخدم ميكرو 16f877a وكريستاله 4 ميجا والريموت هنا نوعه سوني

ده الكود

'****************************************************************

'* Name : UNTITLED.BAS *

'* Author : eng:fikry samy youssef *

'* Date : 10/02/2009 *

'* Version : 1.0 *

'* Notes : *

'* : *

'****************************************************************

device=16f877a

xtal=4

'DECLARE LCD_DTPIN PORTb.4

'DECLARE LCD_ENPIN PORTb.3

'DECLARE LCD_INTERFACE 4

'DECLARE LCD_RSPIN PORTb.2

CCP1_PIN = PORTC.2

input portb.7

output portb.6

output portb.5

output portb.4

dim ir_data as byte

dim ir_dev as byte

dim id as byte

dim i as byte

dim ir_word as word

dim st as word

symbol ir_sensor=portb.7

dim flg as byte

main:

''print at 2,1,"hi fikry"

;print at 1,1,"code:"

gosub sony_in

if flg=0 then goto main

delayms 200

'print at 1,1,"dat:"

'print at 2,1,"wrd:"

'print at 1,7,dec ir_data," "

'print at 2,6,dec ir_word," "

select ir_data

; case 74

; portb=%11111110

; delayms 500

; portb=%11111101

; delayms 500

;portb=%11111011

;delayms 500

;portb=%11110111

;delayms 500

; portb=255

; case 93

' toggle portb.1

; case 64

'toggle portb.2

case 65 '4,3

HPWM 1,255,100

case 66

HPWM 1,127,100

case 67

HPWM 1,0,100

;HPWM 1,0,1000

; case 68

; toggle portb.6

;case 70

; toggle portb.7

; case 91

; toggle portc.2

;case 126

; toggle portc.3

;case 122

; toggle portc.4

;case 73

; toggle portc.5

;case 72

; toggle portc.6

;case 82

; toggle portc.7

end select

goto main

sony_in:

flg=1

If IR_Sensor=1 then Goto No_Sig

st=pulsin ir_sensor,0

If St < 200 then goto No_Sig

If St > 270 then goto No_Sig

for i=0 to 11

id=pulsin ir_sensor ,0

If ID>=90 then

IR_Word.11=1 ' If it's greater than 90 then we have received a 1

Else

IR_Word.11=0 ' If it's less than 90 we have received a 0

Endif

ir_word=ir_word>>1

Next i

IR_Data=IR_Word&%01111111

IR_Dev = (IR_Word >>7) & %00011111

return

no_sig:

flg=0

return

الكود مجرب وشغال تمام في الريل تيم وممنفذه شخصيا

لو حد عاوز يتواصل

fikry_samy2001 علي الياهو

اتمني اكون افدك

ربنا يوفقك

اريد مساعدة فيمشروع تحكم بالاجهزةباستخدامinfrared

مواضيع مشابهة

عدد الزوار حالياً