Menjalankan Motor Steper

Banyak email yang masuk ke saya menanyakan bagaimana membuat program untuk menjalankan motor stepper. Sebenarnya secara tertulis sudah saya jawab, entah dimana saya menjawabnya di blog ini atau di mirrornya http://muhal.wordpress.com. Untuk lebih jelasnya saya ulang saja jawaban saya mengenai program menjalankan motor Stepper melalui Port Paralel dengan Program Delphi…

Langkah pertama buat form sebagai berikut :

Cara membuatnya saya kira sudah bisa kan?
Nah klik doble pada komponen Timer :
Doble klik Button 1 dan 2
Dobel Klik Komponen untuk setting kecepatan putaran motor
lalu tuliskan program berikut ini
implementation
{$R *.dfm}vardata : byte;
function bacaport(alamat : word): byte;var tmp : byte;beginasmmov dx, alamat;in ax, dx;mov tmp, al;out dx, al;end;bacaport := tmp;end;
procedure tulisport(alamat : word; data : byte);beginasmmov dx, alamat;mov al, data;out dx, al;end;end;
procedure TForm1.Button1Click(Sender: TObject);beginTimer1.Interval := SpinEdit1.Value;if (Button1.Caption = ‘Putar’) thenbeginTimer1.Enabled := True;Button1.Caption := ‘Stop’;endelsebeginTimer1.Enabled := False;Button1.Caption := ‘Putar’;end;
end;
procedure TForm1.FormCreate(Sender: TObject);varkontrol: byte;beginkontrol := BacaPort($37A);kontrol := kontrol and $DF;TulisPort($37A, kontrol);data := 1;end;
procedure TForm1.Timer1Timer(Sender: TObject);vartemp : byte;beginif (data < thendata := data shl 1elsedata := 1;temp := $FF-data;TulisPort($378, temp);
if temp = $FE thenshape4.Brush.Color := ClRedelseshape4.Brush.Color := ClWhite;
if temp = $FD thenshape3.Brush.Color := ClRedelseshape3.Brush.Color := ClWhite;
if temp = $FB thenshape2.Brush.Color := ClRedelseshape2.Brush.Color := ClWhite;
if temp = $F7 thenshape1.Brush.Color := ClRedelseshape1.Brush.Color := ClWhite;
end;
procedure TForm1.SpinEdit1Change(Sender: TObject);beginTimer1.Interval := SpinEdit1.Value;end;
procedure TForm1.Button2Click(Sender: TObject);beginApplication.Terminate;end;
end.