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.
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.