Need help in program for remote control using PIC16F84A

[Madscientist]

I put together a schematic of the project I am designing. Sorry that it is a little "scrunched" but I assume you don't have the software that I am using to design it. It was difficult to get the entire schematic on the screen at one time. I designed it on Livewire by New Wave Concepts. I converted the image to a JPEG photo and am sending it as an attachment for your ease of viewing. Thanks again for your input. ( let's see if I am actually successful in attaching the photo, hahahaha)

Darren

[mister_e]

the most inefficient way but easy to follow.

LOW PORTB.4
Key var byte

start:
    Key=(PORTB&$0F) rev 4
    If Key<>4 then Start
    While key 
        Key=PORTB&$0F 
        wend 
    pause 50

    Wait2nd: 
        Key=(PORTB&$0F) rev 4
        if key=0 then Wait2nd
        If Key<>9 then Start
        While key 
            Key=PORTB&$0F 
            wend 
        pause 50

    Wait3rd:
        Key=(PORTB&$0F) rev 4
        if key=0 then Wait3rd
        If Key<>2 then Start
    
    HIGH PORTB.4    
Spin:
    goto spin

[Madscientist]

Steve,

Thanks a million for the code. I tried it in my complier but had problems. I think it was because your code was designed for Pic Basic Pro and I only have the standard version. I found that out because I saw you used the statement "wend" which I believe is only supported by the Pro version compiler. I am attaching two JPEG photos of what the errors screen looked like when I tried to compile it. The first photo is what your code looked like in my compiler starting at line 11 and ending on line 38. The second photo was what the error messages looked like. I will try to make some changes but unfortunately I don't understand much about the Pic basic language yet. Thanks again.

Darren

[Madscientist]

Woooo Hoooooo !!! I finally got it. Only took me about one and a half pages of code to do this simple task. You got me going in the right direction Steve, Thanks

Darren