roboforum.ruТехнический форум по робототехнике. |
|
|
Достижения моего робота:
Оставьте, пожалуйста в своем сообщении ссылку на описание своего робота и немного информации о нем и\или о коде, если возможно.
$prog &HFF , &HBD , &HC9 , &H00 ' generated. Take care that the chip supports all fuse bytes.
$regfile = "m32def.dat" ' файл спецификации Меги32
$crystal = 8000000 ' указываем на какой частоте будем работать
'$baud = 115200 ' указываем скорость на которой будет работать уарт
'----------------------------------------------------------------------------
Config Timer1 = Pwm , Pwm = 8 , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
Config Pinc.2 = Output : Drl Alias Portc.2 'ногу сконфигурировали как выход и обозвали Drl
Config Pinc.3 = Output : Drr Alias Portc.3 'ногу сконфигурировали как выход и обозвали Drr
Config Pind.4 = Output 'ногу ШИМа левого движка сконфигурировали как выход
Config Pind.5 = Output 'ногу ШИМа правого движка сконфигурировали как выход
Config Pina.3 = Input
Config Pina.0 = Input
Config Pina.4 = Input
Config Pinc.4 = Output
Config Pinc.6 = Output
Config Pind.6 = Output : Diod Alias Portd.6
Config Pind.2 = Input
Dim Speed As Byte
Speed = 250
'Enable Interrupts
'Dim Address As Byte , Command As Byte
Diod = 1
'Portc.6 = 1
'Waitms 1000
'Print "123"
Do
Drl = 0 : Drr = 0 : Pwm1b = 0 : Pwm1a = 0
Waitms 10
Portc.6 = 0
Portc.4 = 0
'If Pina.0 = 0 And Pina.4 = 0 And Pina.3 = 0 Then 'движение назад
'Drl = 1 : Drr = 1 : Pwm1b = Speed : Pwm1a = Speed
'Waitms 50
'Else
If Pina.0 = 1 And Pina.4 = 1 And Pina.3 = 1 Then 'движение вперед
Drl = 1 : Drr = 1 : Pwm1b = Speed : Pwm1a = Speed
Waitms 50
Else
If Pina.3 = 0 And Pina.0 = 0 Then 'движение вправо
Drl = 0 : Drr = 1 : Pwm1b = Speed : Pwm1a = Speed
Portc.6 = 1
Waitms 50
'End If
Else
If Pina.4 = 0 And Pina.3 = 0 Then 'движение влево
Drl = 1 : Drr = 0 : Pwm1b = Speed : Pwm1a = Speed
Portc.6 = 1
Waitms 50
Else
If Pina.3 = 0 Then 'движение вперед
Drl = 1 : Drr = 1 : Pwm1b = Speed : Pwm1a = Speed
Portc.6 = 1
Portc.4 = 1
Waitms 50
Else
If Pina.0 = 0 Then 'движение вправо
Drl = 0 : Drr = 1 : Pwm1b = Speed : Pwm1a = Speed
Portc.6 = 1
Waitms 50
Else
If Pina.4 = 0 Then 'движение влево
Drl = 1 : Drr = 0 : Pwm1b = Speed : Pwm1a = Speed
Portc.4 = 1
Waitms 50
End If
End If
End If
End If
End If
End If
'End If
Loop
End
frig писал(а):Лучше и правильнее будет собирать с претендующих чуток денег (кто уж очень хочет кубок) и уже его разыгрывать.
frig писал(а):а реклама на полигоне не будет стоить ничего. это скорее спонсорство будет.
frig писал(а):также можно ввести такие правила - по окончании сезона необходимо выкладывать исходники своих прошивок. ну или ЧЕРЕЗ сезон. это с одной стороны будет несколько уравнивать шансы, с другой стороны будет подстегивать совершенствовать ботов.
SMT писал(а):Термин "Roboсlub" как то связано с "Roboforum" (я просто не в курсе)?
Вернуться в Организационные вопросы
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1