PDA

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



mehdi_RM
13-05-2006, 23:01
ba salam
omidvaram haleton khob bashe?
dar rabete ba perojeh robate masr ybam chan ta zahmat dashtam
ke age momkene komakam konid.

mikhastam age dar morede gataate zire matlabi darid ya siti ro baladid
ke dar moredeshon tosh tozih dadeh behem moarefi konid?!!!!!!!!!

liste gataat::

1. IC L298
2. keristal 11,0592 mhz
3. IC AT98C2051
4. khazan
5. mogavemat
6. diode 1N4001
7. IC 7805
8. LM324
9. LED
10. anvae sensorhaye "IR"
11. tarze sakhte girbox bra motorhaye dc (armicher)
12. ya har matlabi dar morede robate masir yab


albate madare robato va kole robat az ro in site gerfte shode
va man mikham hamino besazam
shoma ba raftan be linke zire mitonid madaresho bebinid:

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]


bad age az dastoraye barname zire chizi mifahmid lotfan rahnamei konid ya
kare astoraei ke be kar rafte ro bram benevisid ke az 4 sensor estefade shode
be sorate lozi be faseleye 2 cm:



****************surece barname *********************

#include d:\mc51\8051io.h
#include d:\mc51\8051reg.h
extern register unsigned char speedleft,speedright;
register unsigned char high,low,flag,time;

main()
{
P1=0x40;
P3=0xff;
high = 80;
low = 30;
flag = 0;
time = 50;
Start();
while(1) {
P3|= 0x0f;
Run();
}
}

Start()
{
char exit,key;
exit =1;
while(exit)
{
key = P1;
if((key & 0x40)==0) exit=0;
}
}

Run()
{
char sensors;
sensors = (P3 &=0x0f);

if((sensors & 0x01)==0) {
TurnRight();
flag = 1; }

else if((sensors & 0x08)==0) {
TurnLeft();
flag = 2; }
else if(sensors == 0x09) {
Forward(high);
flag = 0; }

else if(((sensors==0x0b)||(sensors==0x0d))&&(flag==0))
Forward(low);

}

Forward(char speed)
{
P1=0x64;
speedright = speed+10;
speedleft = speed;
delay(time);
}

TurnRight()
{
P1=0x68;
speedright = low+5;
speedleft = low;
delay(time);
}

TurnLeft()
{
P1=0x54;
speedright = low+5;
speedleft = low;
delay(time);
}

Reverse(char speed)
{
P1=0x58;
speedright = speed;
speedleft = speed+5;
delay(time);
}


***************end program*************************

kheli mamnon
mehdi
bedrod.

Hidden-H
14-05-2006, 00:42
سلام
خسته نباشين
من در مورد بيشتر يا همه ي اون چيزايي كه مي خواين مطلب دارم
اما توصيه مي كنم اول اينو ببينين و قبل از ديدنش لطفا خوب به حرفهام به عنوان يه دوست گوش كنيد
دوست عزيز شما دارين دست به يه پروژه اي مي زنيد كه حتي در مورد برنامه ي به اين سادگيش اطلاع چنداني ندارين
من توصيه مي كنم كار ديگه اي انجام بدين
اما اگه مايليد همين رو انجام بدين بگيد من يه چيزايي كمكتون كنم
نه كمك كلي بلكه فقط در حد راهنما
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اگر هم مايليد تو همين سايتي كه آدرسش رو دادم هم بگيد
اونجا هم دوستاني هستن كه كمكتون كنن
البته اونجا هم بايد عضو شيد