Posts: 67
Threads: 27
Joined: Oct 2009
Reputation:
0
I would say you need at least 8 AA batteries because an HDD normally gets 12v.
I have no idea what you are building but I will search on google sounds interesting.
I would love to see your final product and how you did it.
Cheers
Posts: 54
Threads: 2
Joined: Oct 2009
Reputation:
4
This was the coolest and craziest idea I've heard this week.
Can't help though, sry. Good luck with it
Posts: 67
Threads: 27
Joined: Oct 2009
Reputation:
0
Hey Keyreaper,
I found your thread really interesting and went to work.
I found a code that can make a stepper motor work from a printer port but now I need a "Borland Turbo Pascal compiler" Can you maybe help?
The code is:
Software to control Motors connected via a Disk Drive
Logic PCB to an IBM-PC Parallel Printer Port
The program assumes this cable design
program stepit; { Borland Turbo Pascal for MS-DOS }
uses crt;
const OUTREG = $378;
INREG = OUTREG + 1;
ALLOFF = $FF; { 1111 1111 }
NDS0 = $E0; { 1110 0000 }
NDS1 = $D0; { 1101 0000 }
NDS2 = $B0; { 1011 0000 }
NDS3 = $70; { 0111 0000 }
NMOTOROFF = $08; { 0000 1000 }
NMOTORON = $00; { 0000 0000 }
CLOCKWISE = $00; { 0000 0000 }
ANTICLOCK = $02; { 0000 0010 }
NOSTEP = $01; { 0000 0001 }
STEP = $00; { 0000 0000 }
procedure delay;
var i: integer;
begin
for i := 1 to 10000 do { nothing }
end;
begin { main }
ClrScr;
writeln;
writeln('***** Ian''s amazing motors *****');
writeln;
port[OUTREG] := ALLOFF;
write('All OFF to start with ');
readln;
write('Stepper Motor only - Clockwise ');
repeat
port[OUTREG] := NDS1 + NMOTOROFF + CLOCKWISE + NOSTEP;
delay;
port[OUTREG] := NDS1 + NMOTOROFF + CLOCKWISE + STEP;
delay
until keypressed;
port[OUTREG] := NDS1 + NMOTOROFF + CLOCKWISE + NOSTEP;
readln;
write('Stepper Motor only - AntiClockwise ');
repeat
port[OUTREG] := NDS1 + NMOTOROFF + ANTICLOCK + NOSTEP;
delay;
port[OUTREG] := NDS1 + NMOTOROFF + ANTICLOCK + STEP;
delay
until keypressed;
port[OUTREG] := NDS1 + NMOTOROFF + ANTICLOCK + NOSTEP;
readln;
write('Servo Motor only ');
port[OUTREG] := NDS1 + NMOTORON + NOSTEP;
repeat { just sit there } until keypressed; readln;
port[OUTREG] := NDS1 + NMOTOROFF + NOSTEP;
write('Stepper Motor and Servo Motor ');
repeat
port[OUTREG] := NDS1 + NMOTORON + CLOCKWISE + NOSTEP;
delay;
port[OUTREG] := NDS1 + NMOTORON + CLOCKWISE + STEP;
delay
until keypressed;
port[OUTREG] := NDS1 + NMOTORON + CLOCKWISE + NOSTEP;
readln;
port[OUTREG] := ALLOFF;
write('That''s all, folks ! ');
readln
end.
Any help will be helpfull.