pulsin again!anyone plz help!

[engineer7]

@ cncmachineguy
sir it doesnt work because
the led is high only when IRbutton is detected.... i want to keep it on forever ntil the next command without pressing the button...... is there any way?? maybe a function etc...???

@archangel
sir its difficult for me to understand it..the interrupt portion maybe if u could elaborate a little...
or could point me out to an exmaple program....

[mackrackit]

sir it doesnt work because
the led is high only when IRbutton is detected....

Lets see you non working code based on Bert's advice.

[engineer7]

here you go:

 
'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2011 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 5/23/2011                                         *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
'include "ALLDIGITAL.pbp"
@ DEVICE pic16F877a, WDT_OFF  ' Watchdog Timer
@ DEVICE pic16F877a, PWRT_OFF  ' Power-On Timer
@ DEVICE pic16F877a, BOD_OFF  ' Brown-Out Detect
@ DEVICE pic16F877a, LVP_OFF  ' Low-Voltage Programming
@ DEVICE pic16F877a, CPD_OFF  ' Data Memory Code Protect
@ DEVICE pic16F877a, PROTECT_OFF ' Program Code Protection
@ DEVICE pic16F877a, HS_OSC  
Define OSC 20 
cmcon=2
Header var word
Body var word
i var byte
tmp var Byte
irButton var byte
irDevice var byte 
irIN var PortB.2 
SonyLED var PortB.5 
'TrisA = %00000100 
TrisB = %00000100 
Start:
LOW SONYLED 
IRBUTTON=255: IRDEVICE=255
 
Pulsin irin,0,header 
if header < 1000 or header > 1350 then goto Start
 
check: 
for i =0 to 11
pulsin irin,0,tmp 
if tmp >= 500 then
Body.0[i]=1 'Sony Logic 1 is 120
else
Body.0[i]=0 ' Sony Logic 0 is 60
endif
next
IRBUTTON = Body & %01111111
if IRBUTTON <=9 then
loop:
toggle Sonyled       '<----------------------change!
 
endif
pause 100
goto start

[cncmachineguy]

Irbutton will never be less then 9 because you and it with 127. So your if will always be false.

[engineer7]

so u r saying that i should and it with 65???
BTW it works with less than 9....

[cncmachineguy]

I'm sorry, I am completely wrong. Need more coffee. I was thinking OR.

[engineer7]

np.you had me thinking there for a moment
but my problem is the same just a pulse spike of 5 volts on button press i want to keep it permantently off or on when io press the button only once...