function?motor（stepdelaydirection）
%Controlling?a?stepper?motor
%step?must?be?integer.
%delay?is?in?seconds.
%direction:?1?or?2.
%--------------------------------------
%Author:?Diego?Barrag醤?Guerrero
%For?more?information?visit:?www.matpic.com
%E-mial:?diegokillemall@yahoo.com
%--------------------------------------
warning?off
if?nargin==1
????delay=1;direction=1;
elseif?nargin==2
????direction=1;
end
if?isnan（step）||step<0
????error（‘Step?value?must?be?positive?integer‘）;
elseif?direction~=1?&&?direction~=2
????error（‘Direction?options:?1?or?2‘）
elseif?isnan（delay）||delay<0
????error（‘Delay?value?must?be?positive?integer‘）
end
step=ceil（step）;
inout=digitalio（‘parallel‘‘LPT1‘）;
dato=addline（inout0:3‘out‘）;
if?direction?==1
????sent=[3?6?12?9];
else
????sent=[9?12?6?3];
end
m=1;
for?n=1:step
????putvalue（datosent（m））;
????pause（delay）;
????m=m+1;
????if?m>4
????????m=1;
????end
end

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件???????10779??2006-03-18?22:47??10.?stepper_motor\circuit.gif
?????文件?????????947??2008-06-18?18:45??10.?stepper_motor\motor.m
?????文件????????2585??2007-09-19?13:39??10.?stepper_motor\motorGUI.fig
?????文件????????5341??2008-06-18?19:30??10.?stepper_motor\motorGUI.m
?????文件????????7168??2008-06-18?19:37??10.?stepper_motor\Thumbs.db
?????文件?????????515??2008-05-08?15:38??trabajos_MATLAB.txt
?????文件??????????34??2008-06-18?20:17??web_site.txt
?????文件????????1551??2014-02-12?12:30??license.txt