Задание№1-2 — различия между версиями
EdGull (обсуждение | вклад) |
EdGull (обсуждение | вклад) |
||
| Строка 20: | Строка 20: | ||
Start MiniBot | Start MiniBot | ||
| + | |||
| + | <source lang="vb"> | ||
| + | $prog &HFF , &HE4 , &HD9 , &H00 'указываем какие фусибиты надо прошить | ||
| + | $regfile = "m32def.dat" ' файл спецификации Меги32 | ||
| + | $crystal = 8000000 ' указываем на какой частоте будем работать | ||
| + | $baud = 2400 | ||
| + | |||
| + | '---------------------------------------------------------------------------- | ||
| + | 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 'ногу ШИМа правого движка сконфигурировали как выход | ||
| + | '---------------------------------------------------------------------------- | ||
| + | |||
| + | Dim Speed As Byte | ||
| + | Speed = 70 | ||
| + | |||
| + | Print "Start MiniBot" | ||
| + | |||
| + | Do | ||
| + | Drl = 0 'направление движения левого движка, в нашем случае это прямо | ||
| + | Drr = 0 'направление движения правого движка, в нашем случае это прямо | ||
| + | Pwm1b = Speed : Pwm1a = Speed | ||
| + | Loop | ||
| + | </source> | ||
| + | |||
| + | |||
{{МиниБот Уроки и Задания}} | {{МиниБот Уроки и Задания}} | ||
Версия 08:35, 6 апреля 2008
Учим МиниБот работать с УАРТом
Добавляем строку конфигурирования УАРТа
<source lang="vb"> $baud = 2400 </source>
2400 бод это скорость на которой будет работать уарт. Быстрей нам пока незачем и тем более на этой скорости в следующих уроках будут работать наши интеллектуальные ИК-радары которые одновременно смогут общаться с ИК-маяками.
Перед основным циклом выдаем в уарт что мы крутые перцы и умеем работать к коммуникационным портом UART
<source lang="vb"> Print "Start MiniBot" </source>
Теперь открываем Гипертерминал входящий в состав любых форточек и настраиваем его на 2400 8n1, включаем МиниБот и вот что видим в окне Гипертерминала:
Start MiniBot
<source lang="vb"> $prog &HFF , &HE4 , &HD9 , &H00 'указываем какие фусибиты надо прошить $regfile = "m32def.dat" ' файл спецификации Меги32 $crystal = 8000000 ' указываем на какой частоте будем работать $baud = 2400
'---------------------------------------------------------------------------- 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 'ногу ШИМа правого движка сконфигурировали как выход '----------------------------------------------------------------------------
Dim Speed As Byte Speed = 70
Print "Start MiniBot"
Do
Drl = 0 'направление движения левого движка, в нашем случае это прямо Drr = 0 'направление движения правого движка, в нашем случае это прямо Pwm1b = Speed : Pwm1a = Speed
Loop </source>
| Уроки: | Урок №1, Урок №2 |
|---|---|
| Задания: | Задание№1, Задание№2, Задание№2-1, Задание№2-2, Задание№3, Задание№4 |
