serial to PIC

[kindows]

Hi..
thank u alot I lik [Always wear safety glasses while programming]

I forget to tell u I am new in PICBASIC PRO now only 2 weeks. I think the code will be like this:
define osc 4
include "bs2defs.bas"

wait:
SERIN PORTa.1,N9600,["K3"],myVar
IF myVar = 3 THEN out

out:
HIGH PORTb.7
PAUSE 300
LOW PORTb.7
goto wait

but I cant understand [myvar]. How I can decide it???
Thank u in advance.

[kindows]

its not working

[aratti]

define osc 4
include "bs2defs.bas"

wait:

SERIN PORTa.1,N9600,["K"],myVar

IF myVar = 51 THEN out ' Ascii 51 = decimal 3 (When you type 3 myvar will be 51)

goto Wait ' this line is esential otherwise any key will activate the function 

out:

HIGH PORTb.7

PAUSE 300

LOW PORTb.7

goto wait

This is the code that Dave suggested.

From keyboard type K3 to activate portB.7 for 300 millisecs.


Al.

[kindows]

Now I am using windows hyper terminal to send serial signal. When I am sending [k] from it the terminal send it in ascii or in hex??
I think send it in Ascii!!!

so I have to send [k] or [k3]??

and becuse I am new in PICBASIC PRO I can't understand how I can decide [myvar]
Can u help ??

[mackrackit]

Read the post from Al very carefully. He has everything there you need.

Not sure what you mean by deciding "myVar". It is just a variable
to store a value. The serin command will write data to that
variable and the if/then part checks to see what the value is.

Oh, the safety glasses thing. It is not a joke.

[kindows]

Do you think this code will working fine??

define osc 4
include "bs2defs.bas"

wating:
SERIN PORTa.1,N9600,["K"],b1

IF b1 = 51 THEN out ' Ascii 51 = decimal 3 (When you type 3 myvar will be 51)

goto wating ' this line is esential otherwise any key will activate the function

out:

HIGH PORTb.7

PAUSE 300

LOW PORTb.7

goto wating
-----------------------------------------------
I am using PIC16F84a and port RA! Connected to 22k ohm then to the pc serial port. And I am using windows hyper terminal to send the serial signal now my question number tow is what I have to send [k3] or [3] or[k] or 51???

good glass:)

[mackrackit]

Send K3...