Potansiyometreyle step motor sürmek

[petrone]

Arkadaşlar merhaba;

PIC 16f877a, unipolar step motor ve bir potansiyometre yardımıyla bir devre kurmaya çalışıyorum. Pot u sağa çevirince, motor da sağa dönmeli, potu sola çevirince motor da sola dönmeli, aslında çok basit bir proje gibi ama biz mekatronikte oldukça yeni olduğumuz için zorlandık. PIC Basic pro kullanarak bi kod yazdık, compile edince hata vermiyo ama yine de doğru olduğundan emin değiliz, kodu aşağıya kopyalıyorum, yardım edebilecek bir arkadaş varsa çok sevinirim, proje teslimi yarına=)

valuenew VAr BYTE
valueold var byte
value var byte
potans VAR PORTA.0
SCALE CON 255
out var PORTB.0
adim VAR PORTB.1
yon VAR PORTB.2

adcin 0,out

high out
pot potans, SCALE, valueold
always:
value=valueold
pot potans, SCALE, valuenew
If (valuenew>valueold) then
high yon
while (valuenew>value)
high adim
PAUSE 50
low adim
PAUSE 50
value=value+1
wend
endif
If (valueold>valuenew) then
low yon
while (value>valuenew)
high adim
PAUSE 50
low adim
PAUSE 50
value=value-1
wend
endif
Valueold=valuenew
goto always