STAMP CODE


' {$STAMP BS2p}
' {$PORT COM1}

red CON 1
blue CON 2
serial CON 16
baudrate CON 240

redon VAR Word
blueon VAR Word
iter VAR word

main :

SERIN serial,baudrate,[DEC redon]

FOR iter = 1 TO redon

HIGH red
PAUSE 200
LOW red
PAUSE 200
next

SERIN serial, baudrate , [ DEC blueon]
HIGH blue
PAUSE 200
LOW blue
PAUSE 200
next

GOTO main


MATLAB CODE ( For serial communication ) 

u=11;
v=15;
s = serial('COM1');
set(s,'BaudRate',9600);
fopen(s);
fprintf(s,'%d\n',[v]);
out = fscanf(s);
fclose(s)
delete(s)
clear s

s = serial('COM1');
set(s,'BaudRate',9600);
fopen(s);
fprintf(s,'%d\n',[v]);
out = fscanf(s);
fclose(s)
delete(s)
clear s
 