سلام
دوستان من یک ربات تعقیب خط 24 زدم ما برنامه اش مشکل دارم
این برنامه نوشتم اما خودم راضی نیستم و اینکه از چندتا سنسور بیشتر استفاده نکردم(اخه 24 سنسور میزنی که چی :icon_razz
دوستان کمکم کنن برنامه رو حرفه ای تر کنم که روی خط ها با سرعت بیشتری حرکت کنه و مثلا روی خط چپ و راست نکنه بعدا بره جلو
این فیلم حرکتش با این برنامه هست:
http://uplood.ir/17G2
اینم عکس سنسورهام :

ضمنا سنسورهام با 74HC573 به میکرو وصل کردم
اینم برنامه:
دوستان من یک ربات تعقیب خط 24 زدم ما برنامه اش مشکل دارم
این برنامه نوشتم اما خودم راضی نیستم و اینکه از چندتا سنسور بیشتر استفاده نکردم(اخه 24 سنسور میزنی که چی :icon_razz

دوستان کمکم کنن برنامه رو حرفه ای تر کنم که روی خط ها با سرعت بیشتری حرکت کنه و مثلا روی خط چپ و راست نکنه بعدا بره جلو
این فیلم حرکتش با این برنامه هست:
http://uplood.ir/17G2
اینم عکس سنسورهام :

ضمنا سنسورهام با 74HC573 به میکرو وصل کردم
اینم برنامه:
کد:
$regfile = "m16def.dat" $crystal = 8000000 Config Portd.6 = Output Config Portd.5 = Output Config Portd.4 = Output Config Portd.3 = Output Config Portd.2 = Output Config Portd.1 = Output Config Portd.0 = Output Config Portb.3 = Output Config Portb.4 = Output Config Porta = Input Config Portc = Input Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 8 Dim A As Byte , C As Byte Do '****JOLO*** If Pina.6 = 1 And Pina.7 = 1 Or Pinc.6 = 1 And Pinc.7 = 1 Or Pinc.7 = 1 And Pina.7 = 1 Then Pwm1a = 1023 Pwm1b = 1023 Reset Portd.3 Reset Portd.6 Elseif Pina.7 = 1 And Pinc.7 = 1 And Pinc.6 = 1 Then Pwm1a = 1023 Pwm1b = 1023 Reset Portd.3 Reset Portd.6 'End If '***Left*** Elseif Pina.5 = 1 And Pina.4 = 1 And Pina.3 = 1 And Pina.2 = 1 And Pina.1 = 1 And Pina.0 = 1 Then Pwm1a = 0 Pwm1b = 0 Reset Portd.3 Reset Portd.6 Waitms 20 Pwm1a = 1023 Pwm1b = 0 Set Portd.3 Reset Portd.6 Elseif Pina.7 = 1 Then Pwm1a = 1023 Pwm1b = 0 Set Portd.3 Reset Portd.6 Elseif Pina.0 = 1 Or Pinb.1 = 1 Then Pwm1a = 1023 Pwm1b = 0 Set Portd.3 Reset Portd.6 'End If '***Right*** Elseif Pinc.5 = 1 And Pinc.4 = 1 And Pinc.3 = 1 And Pinc.2 = 1 And Pinc.1 = 1 And Pinc.0 = 1 Then Pwm1a = 0 Pwm1b = 0 Reset Portd.3 Reset Portd.6 Waitms 20 Pwm1a = 0 Pwm1b = 1023 Reset Portd.3 Set Portd.6 Elseif Pinc.0 = 1 Or Pind.1 = 1 Then Pwm1a = 0 Pwm1b = 1023 Reset Portd.3 Set Portd.6 End If Waitms 5 Loop
دیدگاه