---

Merhaba arkadaşlar yaptığım bu projryi sizlerle paylaşmak istedim. . .

Devre bilgisayarın paralel portundan step motroru kontrol etmek için tasarlanmıştır.
Uygulamamda step motorun kontrol edilebilen parametreleri;

*Hızı
*Yönü
*Dalga Sürüm Özelliği
*Tam Adım Sürümü
*Yarım Adım Sürümü
*Kilitleme Özelliği
*Tur Sayısı

Devrenin PC arayüzü ve kaynak kodları Visual Basic ile tasarlanmıştır

###Visual BASIC KODLARI###

Dim yol As Integer
Dim i As Long
Dim a As Long
Dim e As Long
Dim o As Long
Dim b As Long
Dim c As Long
Dim say As Integer
Dim say1 As Integer
Private Sub Command1_Click()
Timer1 = True
Text1.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
End Sub

Private Sub Command2_Click()
Text1.Enabled = True
Label1 = 0
Label3 = 0
say = 0
say1 = 0
Timer1 = False
Timer2 = False
Timer3 = False
Timer5 = False
Out &H378, 0
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
End Sub

Private Sub Command3_Click()
Text1.Enabled = False
Timer2 = True
Command1.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
End Sub

Private Sub Command4_Click()
Text1.Enabled = False
Timer3 = True
Command1.Enabled = False
Command3.Enabled = False
Command5.Enabled = False
End Sub

Private Sub Command5_Click()
Timer5 = True
Command1.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
End Sub

Private Sub Form_Load()
Option1.Value = True
say = 0
Timer1 = False
Timer2 = False
Timer3 = False
Timer5 = False
Open "lpt1:" For Output As #1
End Sub

Private Sub Form_Unload(Cancel As Integer)
Out &H378, 0
End Sub

Private Sub Timer1_Timer()
If Option1.Value = True Then
a = VScroll1
a = a * 3
If a < 1410 Then
VScroll1 = 1410
End If
For i = 1 To a
Out &H378, 1
Next i
For i = 1 To a
Out &H378, 8
Next i
For i = 1 To a
Out &H378, 2
Next i
For i = 1 To a
Out &H378, 4
Next i
ElseIf Option1.Value = False Then
a = VScroll1
a = a * 3
If a < 1410 Then
VScroll1 = 1410
End If
For i = 1 To a
Out &H378, 4
Next i
For i = 1 To a
Out &H378, 2
Next i
For i = 1 To a
Out &H378, 8
Next i
For i = 1 To a
Out &H378, 1
Next i
End If
say = say + 4
Label1.Caption = say
If say = 48 Then
say = 0
say1 = say1 + 1
Label3.Caption = say1
End If
If Text1.Text = say1 Then
Text1.Enabled = True
Label1 = 0
Label3 = 0
say = 0
say1 = 0
Timer1 = False
Timer2 = False
Timer3 = False
Timer5 = False
Out &H378, 0
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
End If
End Sub


Private Sub Timer2_Timer()
e = 0
o = 0
If Option1.Value = True Then
e = VScroll1
e = e * 3
If e < 1410 Then
VScroll1 = 1410
End If
For o = 1 To e
Out &H378, 5
Next o
For o = 1 To e
Out &H378, 9
Next o
For o = 1 To e
Out &H378, 10
Next o
For o = 1 To e
Out &H378, 6
Next o
ElseIf Option1.Value = False Then
e = VScroll1
e = e * 3
If e < 1410 Then
VScroll1 = 1410
End If
For o = 1 To e
Out &H378, 6
Next o
For o = 1 To e
Out &H378, 10
Next o
For o = 1 To e
Out &H378, 9
Next o
For o = 1 To e
Out &H378, 5
Next o
End If
say = say + 4
Label1.Caption = say
If say = 48 Then
say = 0
say1 = say1 + 1
Label3.Caption = say1
End If
If Text1.Text = say1 Then
Text1.Enabled = True
Label1 = 0
Label3 = 0
say = 0
say1 = 0
Timer1 = False
Timer2 = False
Timer3 = False
Timer5 = False
Out &H378, 0
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
End If
End Sub

Private Sub Timer3_Timer()
If Option1.Value = True Then
b = VScroll1
b = b * 3
If b < 1410 Then
VScroll1 = 1410
End If
For c = 1 To b
Out &H378, 5
Next c
For c = 1 To b
Out &H378, 1
Next c
For c = 1 To b
Out &H378, 9
Next c
For c = 1 To b
Out &H378, 8
Next c
For c = 1 To b
Out &H378, 10
Next c
For c = 1 To b
Out &H378, 2
Next c
For c = 1 To b
Out &H378, 6
Next c
For c = 1 To b
Out &H378, 4
Next c
ElseIf Option1.Value = False Then
b = VScroll1
b = b * 3
If c < 1410 Then
VScroll1 = 1410
End If
For c = 1 To b
Out &H378, 4
Next c
For c = 1 To b
Out &H378, 6
Next c
For c = 1 To b
Out &H378, 2
Next c
For c = 1 To b
Out &H378, 10
Next c
For c = 1 To b
Out &H378, 8
Next c
For c = 1 To b
Out &H378, 9
Next c
For c = 1 To b
Out &H378, 1
Next c
For c = 1 To b
Out &H378, 5
Next c
End If
say = say + 8
Label1.Caption = say
If say = 96 Then
say = 0
say1 = say1 + 1
Label3.Caption = say1
End If
If Text1.Text = say1 Then
Text1.Enabled = True
Label1 = 0
Label3 = 0
say = 0
say1 = 0
Timer1 = False
Timer2 = False
Timer3 = False
Timer5 = False
Out &H378, 0
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
End If
End Sub

Private Sub Timer4_Timer()
Dim z As Integer
z = Inp(&H379)
If z = 112 Then
Timer1 = False
Timer2 = False
Timer3 = False
MsgBox ("Acil Durum ! Motor Durduruldu")
End If
End Sub

Private Sub Timer5_Timer()
Out &H378, 5
End Sub

###PROGRAMIN KULLANILMASI##

Bilgisayardan Step Motor Kontrol devresinin “exe” dosyası açıldığında ekrana gelen form 4 ana bölümden oluşur; hız kontrol, yön kontrol, gösterge, çalışma modu seçim bölümü. Hız kontrol bölümünde bulunan “scrool bar”ın yukarı aşağı hareketi ile motorun hız ayarı yapılır.Yön kontrolde bulunan “option box”lar ile motorun saat yönünde ve saat yönünün tersinde dönmesi ayarlanabilmektedir.

Gösterge bölümünde bulunan “textbox” a istenen değerde bir sayı girilebilir. Sayı yazılıp çalışma modlarından herhangi biri seçildiğinde (örneğin yarım adım) motor yarım adım moda textboxa yazılan sayı kadar tur atıp durmaktadır.Uygulamada kullanılan motor tam adım modda 48, yarım adım modda 96 adımda bir tam turu tamamlamaktadır.

Çalışma modlarından biri seçilip motor dönmeye başladığında STOP a basılmadan diğer butonlar aktif hale gelmez. Önce motor durdurulup çalışma modu daha sonra değiştirilir. Motor dönerken tur sayısı ve adım sayısı ekranda görüntülenebilmektedir.

Devre üzerinde bulunan buton status portunun 3. biti ile şase arasındadır, butona basılınca porta lojik 0 gönderilir. Bu anda motor durur ve ekrana gelen messageboxta “Acil Durum Motor Durduruldu” yazar.


###DEVRENİN ÇALIŞMASI###

Devrede paralel portun Data uçlarından D0,D1,D2,D3 L298 entegresinin step motor giriş uçlarına bağlanmıştır. L298 entegresi genellikle step motorlar için akım yükseltme amacıyla kullanılan bir entegredir. Girişlerine uygulanan step motor için gerekli bilgi sinyallerini kuvvetlendirerek çıkış uçlarına aktarır. Out uçlaırndan alınan sinyaller step motor uçlarına uygulanmıştır.Entegrenin Vcc ve Vs uçları 5 volta Sens A ve Sens B uçları 0.5Ω luk dirençler ile şaselemiştir. 5 uçlu step motorun şase ucuda devrenin şasesiyle birleştirilmiştir.

Devrede L298 entegresinin kullanım amacı paralel portun korunmasıdır. Paralel porttan maximum 500mA akım çekilebilir, bunun üzerindeki akımlar porta zarar vereceğinden entegre kullanılarak akımın entegreden çekilmesi sağlanmıştır. L298 entegresi 2 Ampere kadar çıkış verebilmektedir bu sayede yüksek güçlü step motorlar devreye rahatlıkla bağlanabilir.

rar şifresi : elektrotekno

---