کمک در ساخت ربات با مگا 8

[WhiteNoise]

یا میکرو سوخته یا برعکس وصلش می کنه یا سوکت خرابه بهم اتصال میده !!!

دقیقا برعکس وصل کرده بودم اون حل شد الان پنج میده
ولی هنوز کار نمیکنه

به 7805 داری 16 ولت ورودی میدی ؟ هنوز نسوخته

نه باید میسوخت؟

---

همین الان مگا 32 سوخت

اینا تو تهران 9 تومن پولشه :
حالا مجبورم همون 8 رو بزارم
بدوبدوآیسی سوخته دارم(دیشبم یدونه مگا8 سوزوندم)
راستی تاپیک به این پر محتوایی فقط 3نفر؟
بقیه اساتیدما منتظر همتون هستیم هیچ جا نمیریم آنلاین نشستیم

[joker]

این آی سی ولتاژ اضافه راتبدیل به گرما میکنه و
وقتی 10 ولت بهش حتما باید یه هیت سینک هم بهش ببندی که زیاد داغ نکنه :) شما دیگه 16 ولت دادی احتمالا باید خیلی سریع خدابیامرز بشه...
پیشنهاد میکنم اول یک 7812 استفاده کنی ، خروجی اون را بدی به 8705

درضمن یه روش ساده برای اینکه پایه های این آی سی را هیچ وقت اشتباه نکنید

روی آی سی را که روبروی خودتون بگیرید و به همون روشی که عدد را میخونید ، عدد آخر ، زیر پایه آخر همون خروجی هست که ولتاژ لازمه (مثلا 5 ولت ) را میده

[WhiteNoise]

این آی سی ولتاژ اضافه راتبدیل به گرما میکنه و
وقتی 10 ولت بهش حتما باید یه هیت سینک هم بهش ببندی که زیاد داغ نکنه :) شما دیگه 16 ولت دادی احتمالا باید خیلی سریع خدابیامرز بشه...

خوب منم هیت سینک گزاشتم ولی بدون هییت سینک انصافا داغ میکنه

خروجی اون را بدی به 8705

این یه نوع آیسی جدیده یا اشتباه تایپیه؟

---

میشه یکی مشکل این برنامه رو بگه؟

کد:

$regfile = "m8def.dat"
$crystal = 1000000
Config Portb = Input
Config Portc = Output
Dim S1 As Byte
Dim S2 As Byte
Dim S3 As Byte
Dim S4 As Byte
M1 Alias Portd.0
M2 Alias Portd.1
Go:
Set Portd.0
Set Portd.1
Do
If S1 = 0 Then
Goto Go
End If
If S2 = 0 Then
Goto Go
End If
If S3 = 0 Then
Goto Chap
If S4 = 0 Then
Goto Rast
Loop
Chap:
Do
Set M1
Reset M2
If S1 = 0 Then
Goto Go
End If
If S2 = 0 Then
Goto Go
End If
Loop
Rast:
Do
Reset M1
Set M2
If S1 = 0 Then
Goto Go
End If
If S2 = 0 Then
Goto Go
End If
Loop
End                                                         'end program

[WhiteNoise]

گیت های نات تو بازار :
4069
40106
4009
7404
7405
7406
7414
7416

فقط شماره شما نبود !!!

آقا علی میشه اسم یه سری آیسی های معروفو با یکم توضیحات در موردش برای من بفرستی ؟
ممنون میشم

[WhiteNoise]

بابا جون من یکی جواب بده
تروخدا
شمارو به gایرانویج قسم میدم جوابمو بدید

[t3r!p3000]

آی سی معروف رو من نمی دونم !!!
خوب همه آی سی ها معروفن !!!

این کتاب رو بخونی عالیه !!:

من که خیلی چیزا ازش یاد گرفتم !!



برنامه رو یکم دقت کن و مخصوصا پورتهای که ورودی و خروجی تعریف کردی و تو برنامه ازشون استفاده کردی !
یه چندجا سوتی دادی !!!

به اون حلقه ها و پرشهات هم دقت کن !!

الان ببین چی کار میشه !!!

[t3r!p3000]

مهندس جایگیری موتورهات و سنسورهاو اینکه هر سنسور و موتور به کدوم پایه میکرو وصل شده رو بگی بیشتر میشه تو برنامه کمکت کرد !!

اینم برنامه قبلیتون که ساده تر شده :

کد php:

$regfile = "m8def.dat" : $crystal = 1000000

Config Portb = Input , Portd = Output

Dim S1 As Byte , S2 As Byte , S3 As Byte , S4 As Byte

M1 Alias Portd.0 : M2 Alias Portd.1

Go:

   Set Portd.0 : Set Portd.1

   Do
      S1 = Pina.0 : S2 = Pina.1
      S3 = Pina.2 : S4 = Pina.3
      If S1 = 0 Or S2 = 0 Then : Goto Go
      Elseif S3 = 0 Then : Goto Chap
      Elseif S4 = 0 Then : Goto Rast
      End If
   Loop

Chap:

Do
   Set M1 : Reset M2
   If S1 = 0 Or S2 = 0 Then Goto Go
Loop

Rast:

Do
   Reset M1 : Set M2
   If S1 = 0 Or S2 = 0 Then Goto Go
Loop 


[WhiteNoise]

آقا بسکام به این eror میده

[t3r!p3000]

خطاشو دقت کنی میفهمی واسه چیه ؟

اینو تست کن :

کد php:

$regfile = "m8def.dat" : $crystal = 1000000

Config Portb = Input , Portd = Output

Dim S1 As Byte , S2 As Byte , S3 As Byte , S4 As Byte

M1 Alias Portd.0 : M2 Alias Portd.1

Go:

   Set Portd.0 : Set Portd.1

   Do
      S1 = Pinb.0 : S2 = Pinb.1
      S3 = Pinb.2 : S4 = Pinb.3
      If S1 = 0 Or S2 = 0 Then : Goto Go
      Elseif S3 = 0 Then : Goto Chap
      Elseif S4 = 0 Then : Goto Rast
      End If
   Loop

Chap:

Do
   Set M1 : Reset M2            a
   If S1 = 0 Or S2 = 0 Then Goto Go
Loop

Rast:

Do
   Reset M1 : Set M2
   If S1 = 0 Or S2 = 0 Then Goto Go
Loop 


[WhiteNoise]

اینو تست کن :

این درسته مرسی
بچه ها نزدیک خونه ما یه پژوهش گاه میخواد یه مسابقه برگزار کنه که از منطقه یه تیم بره بالا واسه شهر تهران
این میتونه یه استارت عالی یا یه شکست سخت برای من باشه از امروز میخوام سعی کنم یه روبات عالی بسازم وتنا برتری من نسبت به بچه های دیگه اینه که شما رو دارم
خواهش میکنم کمکم کنید هرچی به نظرتون مهم و مفید میاد بگین لطفا از هر قسمتی(مکانیکو الکترونیک و برنامش)
من تاحالا تو هیچ مسابقه ای شرکت نکردم تجربه هم در کار نیست
کمکم کنید جبران میکنم(خوب شما بلاخره یه روزی تموم میشید 5 سال دیگه زن میگیرید بعد خوب اون موقع به نصل جوون نیاز دارید)
لطفا هر چی میدونید بگید از کوچیکترین نظر ها هم اتقبال میشه

[t3r!p3000]

مهندس یه نگاهی به اینجا بنداز :

http://www.iranled.com/forum/showthread.php?tid=14272

ببین بقیه چجوری درست کردم و چی مدل چیدمان سنسوری گذاشتن و از چیا استفاده کردن !!
شاید سودمند باشه واست !!


دیدن این مقاله ها هم خالی از لطف نیست :


يه توضيح مقدماتي و ابتدايي از مكانيك ربات
http://www.iranled.com/forum/attachment.php?aid=1888


اينم يه اموزش فوق العاده مقدماتي از زبان برنامه نويسي بسكام .
كاملشو از اينجا بگيرين .
http://www.iranled.com/forum/attachment.php?aid=1889


اگه مي خواين تو رباتتون از موتور پله اي استفاده كنيد ؛ اينم يه آموزش مقدماتي از STEP MOTOR
http://www.iranled.com/forum/attachment.php?aid=1890


يه مطلب كوچولو در مورد صفحه نمايش متني LCD
http://www.iranled.com/forum/attachment.php?aid=1891


مقاله معروف در مورد مقدمه اي بر ميکروکنترلرهاي AVR
http://www.iranled.com/forum/attachment.php?aid=1892


اينم يه مقاله كامل در مورد راه اندازي موتور و كنترل سرعت و جهت آن و تشخيص سرعت به همراه مثال هاي عملي تحت كد ويژن .
http://www.iranled.com/forum/attachment.php?aid=1695


مقاله آموزشي زير را در مورد سنسورهاي مادون قرمز و كاربردش رو در ربات مسير ياب
http://www.iranled.com/forum/attachment.php?aid=1694


اينم راهنماي فارسي L298
http://www.iranled.com/forum/attachment.php?aid=1724


تاريخچه ربات
http://www.iranled.com/forum/attachment.php?aid=1726




حالا کی قراره 5 سال دیگه ازدواج نکنه !
کلک نکنه واسه خودت خبریه !!!