close
تبلیغات در اینترنت
كنترل دور موتور
loading...

اصحاب و انصارالمهدی (عج)

          بسم الله الرحمن الرحيم                                   تاليفي   پروژه كنترل دور موتور محتويات : مقدمه توضيح برنامهبرنامه بسكامشماتيك مدار تصاوير تكميل شدهتصاوير مدارATMEGA 8 datasheet IC L293 datasheet     مقدمه  روش…

آخرین ارسال های انجمن
رضارضازاده بازدید : 674 جمعه 27 بهمن 1391 نظرات ()
          بسم الله الرحمن الرحيم                                   تاليفي  
 
پروژه كنترل دور موتور
 
محتويات :
 
مقدمه 
توضيح برنامه
برنامه بسكام
شماتيك مدار 
تصاوير تكميل شده
تصاوير مدار
ATMEGA 8 datasheet 
IC L293 datasheet 
 
 
 
 
مقدمه 
 
روش هاي متعددي براي كنترل دور موتور وجود دارد مثلا ميتوانيم با تغيير ولتاژ DCدور موتور را تغيير دهيم . روش ديگري كه براي كنترل دور موتور به كار ميرود استفاده از خروجي PWM ميكروكنترلر مي باشد  در اين پروژه از خروجي PWM استفاده نشده است .
 در اين پروژه براي كنترل پهناي پالس زمانهاي يك شدن پالس و زمانهاي 0 شدن پالس را به كمك دستور  WAITMS    كنتل خواهيم كرد بطوري كه مجموع زمانهاي يك و صفر بودن ثابت بماند . در اينصورت خواهيم توانست دور يك موتور را از صفر تا ماكزيمم مقدار خود به راحتي تنظيم كنيم .
 همچنين به خاطر اين كه ميكروكنترلر قادر به تامين جريان DC نمي باشد از اي سي L293 استفاده خواهيم كرد . اين آي سي يك درايور با چهار ورودي و خروجي ميباشد در ضمضمه بلوگ دياگرام قرار داده شده است .
 
توضيح برنامه :
 
در ابتداي برنامه ورودي و خروجي ميكروكنترلر را مشخص كرده و سپس ورودي را با دستور alias  نامگذاري ميكنيم . و متغير هاي مورد استفاده در برنامه را مشخص ميكنيم . در داخل حلقه do loop  اصلي با فشار دادن شستي onoff  مقدار متغير on_off   برابر يك شده و با توجه به مقاديري كه براي متغيير A ,B  در نضر گرفته شده است كه يكي براي كنترل زمان عرض پالس و ديگري براي زمان خاموش بودن پالس ميباشد وبا توجه به مقدار متغيير  left _ right  كه جهت دوران را تعيين ميكند اجراي برنامه وارد حلقه ديگري ميشود در صورتي كه بخواهيم موتور راست گرد و چپ گرد بچرخد مقدار portc.1=1   قرار داده و در زمانهاي مشخص پالس هايي از پورت portc.0 به پايه ي 2 آي سي L293  ارسال ميكنيم و اگر بخواهيم موتور راست گرد دوران كند با استفاده از شستي left right  يا اگر pin c.2=0  شود مقدار متغيير left _ right  را عوض كرده و برابر صفر قرار ميدهد در صورت اجراي برنامه وارد يگ حلقه ديگر ميشود كه مقدار پورت portc.0 اين بار برابر يك ميشود و پالسها از طريق پورت portc.1 به پايه ي 7 آي سي اعمال ميگردد .
در حقيقت با انجام اين كار  قطب هاي مثبت و منفي موتور تعويض ميشود .
در داخل حلقه اصلي برنامه با هر بار فشردن شستي هاي UP , DOWN  ميتوانيم دور موتور را از صفر درصد تا 100 در صد تغيير دهيم همچنين تمام اعمال انجام شده بر روي LCD با كلماتي نظير on /off    و  right  / left    نمايش داده ميشود تا استفاده كننده از وضعيت موتور در هر حالت آگاه باشد .
 
 
 
برنامه BASCOM     :
 
"$regfile = "m8def.dat
crystal = 8000000$
********************************************************
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Pinb.3 , Db5 = Pinb.2 , Db6 = Pinb.1 , Db7 = Pinb.0 , Rs = Pinb.5 , E = Pinb.4
Config Portc.0 = Output
Config Portc.1 = Output
Config Portc.2 = Input                                      'portc.2 * on/ off
Config Portc.3 = Input                                      'portc.3 * RL
Config Portc.4 = Input                                      'portc.4 * up
Config Portc.5 = Input                                      'portc.5 * down
'********************************************************
Leftright Alias Pinc.2
Onoff Alias Pinc.3
Down Alias Pinc.4
Up Alias Pinc.5
'********************************************************
Dim On_off As Bit
Dim Left_right As Bit
Dim A As Integer : A = 10
Dim B As Integer : B = 45
 
'******************************************************************
Cursor Off
Cls
Locate 1 , 1
Lcd "Dc motor control"
'******************************************************************
Stt:
Do
'******************************************************************
If Down = 0 Then
Bitwait Down , Set
A = A - 2
End If
If A < 2 Then
A = 1
B = B + 1
End If
If B > 50 Then
B = 50
End If
If Up = 0 Then
Bitwait Up , Set
A = A + 2
End If
If A > 100 Then
A = 100
B = B - 1
End If
If B < 2 Then
B = 1
End If
'******************************************************************
Locate 2 , 11
Lcd "s=" ; A ; "%" ; " "
'******************************************************************
If Onoff = 0 Then
Bitwait Onoff , Set
Toggle On_off
End If
'******************************************************************
If On_off = 0 Then
Locate 2 , 1
Lcd "OFF/"
Else
Locate 2 , 1
Lcd "On/"
End If
 
'******************************************************************
If Left_right = 1 Then
Locate 2 , 5
Lcd "left
Else
Locate 2 , 5
Lcd "Right
End If
'******************************************************************
If Leftright = 0 Then
Locate 2 , 5
Lcd "STOP/"
Portc.0 = 0
Portc.1 = 0
Bitwait Leftright , Set
Toggle Left_right
End If
'******************************************************************
If On_off = 1 And Left_right = 1 Then
Portc.1 = 0
Do
Portc.0 = 1
Waitms A
End If
If B > 1 Then
Portc.0 = 0
Waitms B
End If
'******************************************************************
If Down = 0 Then
A = A - 2
End If
If A < 2 Then
A = 1
B = B + 1
End If
If B > 50 Then
 B = 50
End If
If Up = 0 Then
A = A + 2
End If
If A > 100 Then
 A = 100
B = B - 1
End If
If B < 2 Then
B = 1
End If
'******************************************************************
 
If Leftright = 0 Then
Locate 2 , 5
Lcd "STOP/"
Portc.0 = 0
Portc.1 = 0
Bitwait Leftright , Set
Toggle Left_right
End If
'******************************************************************
If Onoff = 0 Then
Bitwait Onoff , Set
Toggle On_off
Goto Stt
End If
Locate 2 , 11
Lcd "s=" ; A ; "%" ; " "
Loop
'******************************************************************
If On_off = 1 And Left_right = 0 Then
Portc.0 = 0
End If
Do
Portc.1 = 1
Waitms A
If B > 1 Then
Portc.1 = 0
Waitms B
End If
'******************************************************************
If Down = 0 Then
A = A - 2
End If
If A < 2 Then
 A = 1
B = B + 1
End If
If B > 50 Then
 B = 50
End If
If Up = 0 Then
A = A + 2
End If
If A > 100 Then
 A = 100
B = B - 1
End If
If B < 2 Then
 B = 1
 End If
'******************************************************************
If Leftright = 0 Then
Locate 2 , 5
Lcd "STOP/"
Portc.0 = 0
Portc.1 = 0
Bitwait Leftright , Set
Toggle Left_right
Goto Stt
End If
'******************************************************************
If Onoff = 0 Then
Bitwait Onoff , Set
Toggle On_off
Goto Stt
End If
Locate 2 , 11
Lcd "s=" ; A ; "%" ; " "
Loop
'******************************************************************
If On_off = 0 Then
Portc.0 = 0
Portc.1 = 0
End If
Loop
End
مدار شماتيك :
 
 
 
 
برچسب ها كنترل دور موتور ,
مطالب مرتبط
ارسال نظر برای این مطلب

نام
ایمیل (منتشر نمی‌شود) (لازم)
وبسایت
:):(;):D;)):X:?:P:*=((:O@};-:B/:):S
نظر خصوصی
مشخصات شما ذخیره شود ؟[حذف مشخصات] [شکلک ها]
کد امنیتی
تبلیغات
Rozblog.com رز بلاگ - متفاوت ترين سرويس سایت ساز
اطلاعات کاربری
نام کاربری :
رمز عبور :
  • فراموشی رمز عبور؟
  • لینک دوستان
  • پایگاه احادیث و روایات معصوم(ع)
  • دانلود آهنگ و موزیک ویدئو روز
  • دانلود كليپ عشق بزرگترين دروغ دنيا هفت
  • عشق بزرگترين دروغ دنيا
  • هفتادیا
  • تسوج آموزش
  • مدل لباس
  • ♥♥♥♥♥رئیس آبیــ ♥♥♥♥♥♥
  • آنامیس 89
  • آخرالزمان انتظار مهدویت
  • افلاکیان
  • اشعارمذهبي سيدمهدي حسيني فرد
  • sahardelan
  • راه ولایت
  • شمیم یار
  • ایستکلی
  • سکوت
  • دانلود فیلم و سریال خارجی و ایرانی جدید
  • کلبه سرگرمی - ویرگول
  • مطالب عاشقانه جدید
  • قرمز پوش
  • آل یاسین
  • طلبه سایبری
  • روانشناس و مشکلات(سایکولوژی)
  • تیم سایبری عاشقان مهدی(عج)
  • دوربین مخفی مدارس
  • فرهنگی مذهبی صلوات
  • پايگاه انديشه ندبه
  • گفته و ناگفته های دل.
  • دره کوچک\\\\((1))////mahdaviyyat
  • یاس و نرگس
  • یاس دانلود
  • بسیج
  • باران عشق
  • رضا رضازاده
  • .::نوشته های طنز،غمگین،فلسفی و...::.
  • sms_bazar
  • عشــــ♥ــــقولانه
  • بهترین ها برای دانلود
  • شهدای زنگی کلا دابو
  • ♥ lıl__REZA__lıl ♥
  • دانلود آهنگ
  • صمیمانه ترین حضور عشق
  • رها نفس
  • ویکی دانلود ها
  • زندگی زیباست
  • روانشناسی...زندگی بهتر
  • شوق نماز
  • سایت تفریحی سوما
  • بهترین های وبگردی
  • شارژ مستقیم ایرانسل
  • کامپیوتر موبایل گیم فیلم آهنگ
  • تاپ کرک
  • دارو گیاهی
  • اس ام اس
  • هاستینگ سرور مجازی چت روم ساخت وب سایت
  • ثارالله
  • tanrim
  • مرجع فارسي زبانان
  • شارژها
  • Alpagut
  • ولایت عشق
  • ساکان دانلود
  • دانلود رایگان
  • پارک ممنوع
  • سوی دیار عاشقان
  • وبلاگ وبتیک
  • deniz yildizi
  • سایت اینترنتی قلبهای جاویدان
  • مهندس صنايع غذايي
  • لبیک یا صاحـــــــــب الزمان (عج)
  • نهج البلاغه
  • صالحین مهدی (عج)
  • سربازان گمنام امام زمان (عج)
  • سافت فست
  • آخرین مطالب ارسال شده
  • آمار سایت
  • کل مطالب : 703
  • کل نظرات : 364
  • افراد آنلاین : 3
  • تعداد اعضا : 2453
  • آی پی امروز : 21
  • آی پی دیروز : 82
  • بازدید امروز : 187
  • باردید دیروز : 1,730
  • گوگل امروز : 0
  • گوگل دیروز : 17
  • بازدید هفته : 187
  • بازدید ماه : 44,027
  • بازدید سال : 138,377
  • بازدید کلی : 2,038,817
  • کدهای اختصاصی
    خوش آمدید



    به وب سایت اصحاب و انصارالمهدی خوش آمدید


    برای  مشاهده و استفاده از تمامی مطالب تالیفی لطفا ثبت نام کنید


    با تشکر : رضارضازاده