۰۷-فروردین-۱۳۸۹, ۱۴:۰۷:۰۴
سلام.
چند وقت پیش یه CD Rom داشتم که تصمیم گرفتم بازش کنم.
یک استپ موتور کوچیک دیدم که الان می خوام ازش استفاده کنم.
تا الان که تونستم بچرخونمش ، اما خیلی ضعیفه . فکر کنم برنامه اشکالی داره. اگه فشار کمی(خیلی کم{ولتاژ = 6 و درایور = L298}) موتور شروع به لرزش می کنه و محور وایمیسته.
اینم برنامه:
[img]![[تصویر: image-3852_4BADD161.jpg]](http://www.upic.ir/image-3852_4BADD161.jpg)
[/img]
چند وقت پیش یه CD Rom داشتم که تصمیم گرفتم بازش کنم.
یک استپ موتور کوچیک دیدم که الان می خوام ازش استفاده کنم.
تا الان که تونستم بچرخونمش ، اما خیلی ضعیفه . فکر کنم برنامه اشکالی داره. اگه فشار کمی(خیلی کم{ولتاژ = 6 و درایور = L298}) موتور شروع به لرزش می کنه و محور وایمیسته.
اینم برنامه:
کد php:
$regfile = "m32def.dat"
$crystal = 1000000
$baud = 9600
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0
Config Portb = Output
Config Lcd = 16 * 2
Cls
Cursor Off
'***********************************************************************
Dim Str1 As String * 13
Dim Str2 As String * 13
Dim Num As Integer , T1 As Integer , T2 As Byte
'***********************************************************************]
T1 = 7
Num = 1
'------------------------------------------
Do
Select Case Num
Case 1
Num = 2
Portb.0 = 1
Waitms t1
Portb.1 = 0
Waitms t1
Portb.2 = 1
Waitms t1
Portb.3 = 0
Waitms t1
Case 2
Num = 3
Portb.0 = 0
Waitms t1
Portb.1 = 1
Waitms t1
Portb.2 = 1
Waitms t1
Portb.3 = 0
Waitms T1
Case 3
Num = 4
Portb.0 = 0
Waitms t1
Portb.1 = 1
Waitms t1
Portb.2 = 0
Waitms t1
Portb.3 = 1
Waitms t1
Case 4
Num = 1
Portb.0 = 1
Waitms t1
Portb.1 = 0
Waitms t1
Portb.2 = 0
Waitms t1
Portb.3 = 1
Waitms t1
End Select
Loop
'***********************************************************************
End
[img]
[/img]
دمت گرم یه راهنمایی بکن مارو