Задание№1-2 — различия между версиями
Мур (обсуждение | вклад) м (→Учим МиниБот работать с УАРТом) |
Мур (обсуждение | вклад) м (→Учим МиниБот работать с УАРТом) |
||
| Строка 28: | Строка 28: | ||
$regfile = "m32def.dat" ' файл спецификации Меги32 | $regfile = "m32def.dat" ' файл спецификации Меги32 | ||
$crystal = 8000000 ' указываем на какой частоте будем работать | $crystal = 8000000 ' указываем на какой частоте будем работать | ||
| − | $baud = 2400 | + | $baud = 2400 ' указываем скорость на которой будет работать уарт |
'---------------------------------------------------------------------------- | '---------------------------------------------------------------------------- | ||
Версия 11:43, 23 апреля 2008
Учим МиниБот работать с УАРТом
Добавляем строку конфигурирования УАРТа
<source lang="vb"> $baud = 2400 </source>
2400 бод это скорость на которой будет работать уарт. Быстрей нам пока незачем и тем более на этой скорости в следующих уроках будут работать наши интеллектуальные ИК-радары которые одновременно смогут общаться с ИК-маяками.
Перед основным циклом выдаем в уарт что мы крутые перцы и умеем работать с коммуникационным портом UART.
Конечно же перед этим мы соединяем МиниБота с компьютером, для этого можно использовать МегаПлату переходник, которая продаётся там же где и сам МиниБот, либо любой другой способ подключения к компьютерному интерфейсу RS232 или USB. Линии UART выведены на интерфейсный разъём МиниБота.
<source lang="vb"> Print "Start MiniBot" </source>
Теперь открываем Гипертерминал входящий в состав любых форточек и настраиваем его на 2400 8n1, не забыв выбрать именно тот COM порт который нам нужен(очень часто в компьютерах существует много COM портов и нужно выбрать нужный, хотябы методом тыка :) ) включаем МиниБот и вот что видим в окне Гипертерминала:
Теперь наш код должен выглядеть вот так
<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
Loop </source>
| Уроки: | Урок №1, Урок №2 |
|---|---|
| Задания: | Задание№1, Задание№2, Задание№2-1, Задание№2-2, Задание№3, Задание№4 |
