ايران ويج

من زیر برنامه زیر را در رابطه با راست گرد کردن یک موتور پله ای دارم:
Sub Drive_b_r
Portb = 0
For B = My_drg To 1 Step -1
Set Portb.b
Waitms My_speed
Reset Portb.b
Waitms My_speed
Next B
End Sub
حالا می خواستم ببینم درسته چون اگر مقدار my_drg مثلا 90 باشه اونوقت تکلیف خط set portb.b چی میشه و اینکه از کجا می فهمیم که این full step هست؟

سلام.

اينطوري كه نمي شه در مورد برنامه اتون نظر داد ...
الان تمام شاخ و برگا رو زديد ...

شما اگر بخوايد تمام پله كار كنه بايد برنامه ي تمام پله بنويسيد كه 4 مرحله اي هست و بايد عدد 1000 را 4 بار شيفت به راست بديد براي طي يك سيكل ( 4 پله ، 4 حركت )
براي نيم پله هم بايد اين فرايند رو در 8 مرحله طي كنيد ، كه البته توصيه نمي شه ...
راه اندازي موتور پله در سايت هست ...
تو كتاب ها هم پيدا مي شه ...

حالا اگر مشكلتون حل نشده ، دقيق تر بگيد كه لازم نباشه تو حاشيه بريم و يه راست بريم سر اصل مطلب ...

موفق باشيد.
يا علي.

[b]سلام دوست خوبم :)
اینم یه برنامه چپ و راست گرد توسط 2کلید:

[align=left]$regfile = "m8def.dat"
$crystal = 4000000

Ddrd = &H0F 'Ouput for PIND:0,1,2,3,4

Config Pinb.0 = Input , Pinb.1 = Input 'Runnig Right & Left

Config Debounce = 100


Declare Sub _right


Declare Sub _left


Dim R As Byte
Dim L As Byte

Dim Rotate_output As Byte

R = 0
L = 3

Do



Debounce Pinb.0 , 1 , _right , Sub

Delay 'delay for Short time 1ms




Debounce Pinb.1 , 1 , _left , Sub

Delay 'delay for Short time 1ms


Loop


Sub _right

Waitms 100
Rotate_output = 2 ^ R

If Rotate_output > 8 Then
Rotate_output = 1
R = 0
End If


Portd = Rotate_output

Incr R


End Sub



Sub _left

Waitms 100
Rotate_output = 2 ^ L

If Rotate_output = 0 Then
Rotate_output = 8
L = 3
End If


Portd = Rotate_output

Decr L

End Sub

---

اینم شماتیک مدار
[img]<img border=0 src="http://amirelectronics.persiangig.com/image/gt.JPG">[/img]

---

اینم شماتیک مدار
http://amirelectronics.persiangig.com/image/gt.JPG

---

اینم شماتیک مدار
http://amirelectronics.persiangig.com/image/gt.JPG

من وقتی بچه بودم اینجوری میکردم:
برای تغیر جهتش هم این اعداد رو عکس اونهایی که نوشتم میزدم