serial to PIC

[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...

[kindows]

Its not working
PLZ help me

[aratti]

check if your wiring is the same as the attached schematic.

Al.