آموزش AVR - راه اندازی استپر موتورتوضیحات : با استفاده از این مدار می توانید یک استپر موتور تک قطبی را راه اندازی نمایید که در وضعیت Full step کار می کند. AVR attiny2313 پالس های استپر موتور را تنظیم می نماید. پالس ها بوسیله درایور ULN2003 تقویت می گردند.درایور ورودی 5 ولت دارد و خروجی آن تا 30 ولت می باشد بنابراین می توانید استپر موتور تا 30 ولت را به آن وصل نمایید.به وسیله دو عدد سوییچ می توانید استپر موتور را CW یا CCW راه اندازی نمایید.
سخت افزار : شامل میکروکنترلر AVR attiny2313 می باشد که ULN2003 و دوعدد کلید فشاری را برای تعیین جهت حرکت درایو می نماید.
نرم افزار : کدهای برنامه به وسیله کامپایلر AVR BASCOM نوشته شده اند.
کد برنامه :
' ***************************************************************************
' *
' * Title : Stepper motor driver
' * Version : 1.0
' * Last Updated : 28.11.2002
' * Target : At90s2313
' * Author :
آدرس ایمیل جهت جلوگیری از رباتهای هرزنامه محافظت شده اند، جهت مشاهده آنها شما نیاز به فعال ساختن جاوا اسكریپت دارید
' * Program code : BASCOM AVR
' * Hardware req. :
' * Description
' * This application can drive a stepper motor and let it turn left or right
' *
' *
' ***************************************************************************
Dim Testin As Integer , Wa As Integer
Config Portb = Output
Config Portd = Input
Wa = 5 ; delay between steps
Lus:
If Pind.0 = 0 Then Gosub Cw
If Pind.1 = 0 Then Gosub Ccw
Goto Lus
Ccw:
Portb = 9 ' turn on Q1
Waitms Wa ' wait 2wa ms
Portb = 0 ' turn off Q1
Portb = 3 ' turn on Q2
Waitms Wa ' wait 2wa ms
Portb = 0
Portb = 6 ' turn on Q3
Waitms Wa ' wait 2wa ms
Portb = 0 ' turn off Q3
Portb = 12 ' turn on Q4
Waitms Wa 'wait wams
Portb = 0 'turn off Q4
Return
Cw:
Portb = 12 ' turn on Q1
Waitms Wa ' wait 2wa ms
Portb = 0 ' turn off Q1
Portb = 6 ' turn on Q2
Waitms Wa ' wait 2wa ms
Portb = 0
Portb = 3 ' turn on Q3
Waitms Wa ' wait 2wa ms
Portb = 0 ' turn off Q3
Portb = 9 ' turn on Q4
Waitms Wa 'wait wams
Portb = 0 'turn off Q4
Return
منبع :www.avrprojects.net
