clear

ao=analogoutput('nidaq');
addchannel(ao, 0);
ch0=ao.Channel;

dio_out = digitalio('nidaq', 1);
addline(dio_out, 0:4, 0, 'Out');

putvalue(dio_out.Line(2),0);
putvalue(dio_out.Line(2),1);

dio_in = digitalio('nidaq', 1);
addline(dio_in, 0:7, 1, 'In');

speed=1.8;

putdata(ao, [speed]');
    start(ao);
    stop(ao);

pause;    
    
putvalue(dio_out.Line(3),1);

pause;


while 1

emcima = getvalue(dio_in.Line(1)) 

if emcima
  pause(2);
  putvalue(dio_out.Line(2),0);
  putvalue(dio_out.Line(2),1);
  speed=0;
  putdata(ao, [speed]');
    start(ao);
    stop(ao);
%     putvalue(dio_out.Line(3),0);

end

putvalue(dio_out.Line(4),1);

end

