Qbasic ile basit step motor kontrolü

[NASSA]

Tarafımdan hazırlanmış olan bu uygulama, ms-dos kipinde çalışmaktadır..
motor unipolar olup 48 adım 7,5 derecedir.
paralel portta kullanılan entegre ULN2803, olup 12V ugulanmıştır...

forumdan hep bilgi almak olmuyor, çorbada çok minikte olsa benimde katkım olsun...

iyi çalışmalar dilerim..

Video:

[video=youtube;RAoXmbJdOMk]http://www.youtube.com/watch?v=RAoXmbJdOMk&feature=youtu.be[/video]

 

[serkan_48]

gayet başarılı elinize sağlık.


Bazı arkadaşlar detaylarıda merak edebilir. devre şeması ve dos programı gibi..

kolay gelsin

 

[NASSA]

Selam..
Eski bir usb belleği (bendeki 1GB) formatlayıp Ms-dos 6.22 yi yükleyiniz.. biostan ilk açılışı (USB bellek) olarak seçtikten sonra.
bilgisayarı yeniden başlatın, Windos ile alakası olmayan ve MS-DOS altında çalışan 1gb hardiski olan yeni bir bilgisayar sahibi oldunuz...
qbasic MS-DOS ile beraber geliyor zaten..
C:\qbasıc yazıp programa giriş yapabilirsiniz...
Aşağıdaki kodları yazınız..

COLOR 14
CLS
SBS = 17000
40
CLS
INPUT " HIZ (1-60) :",HZ
LM = HZ * SBS
50
CLS
PRINT " 1 saga cevır "
PRINT " 2 sola cevır "
PRINT " 3 cıkıs "
PRINT " 4 hız degıstır "
prınt
color 12
INPUT "YON : ",Y
COLOR 14
IF Y = 1 GOTO 100
IF Y = 2 GOTO 200
IF Y < 1 GOTO 50
IF Y > 4 GOTO 50
IF Y = 3 GOTO 1000
IF Y = 4 GOTO 40
100
A = 4
B = 8
c = 1
D = 2
GOTO 300
200
A = 1
B = 8
C = 4
D = 2
300
FOR T = 1 TO 12 /// buradaki 12 tam tur atacağını belirler, bu bir değişkende olabilir.
S = 0
OUT 888, A
DO
S = S + 1
LOOP UNTIL S = LM
S = 0
OUT 888, B
DO
S = S + 1
LOOP UNTIL S = LM
S = 0
OUT 888, C
DO
S = S + 1
LOOP UNTIL S = LM
S = 0
OUT 888, D
DO
S = S + 1
LOOP UNTIL S = LM
NEXT T
GOTO 50
1000
OUT 888, 0
END

Devre ise resimdeki gibidir...




iyi çalışmalar dilerim...