и
АВТОМАТИКА
і
вставка З
function ucs2(s: string); string;
var i,k: integer;
begin
for i:=1 to length(s) do begin
k:= ord(s[i]);
// НЕПОСРЕДСТВЕННО преобразуем + 41 Oh - COh
if k>=192 then k:= k + 1040 - 192;
result:= result + inttohex(k,4)
end
end;
Инициализация UART
void UART_lnit(void) {
// устанавливаем скорость обмена
UBRRH = (unsigned char) BAUDJ9200
UBRRL = (unsigned char) BAUD_19200;
// включаем прерывания RxD/TxD
UCSRB = (1«RXCIE)I( 1 « RXEN )l( 1
sei();
вставка 4
» 8;
« TXEN);
Реализация временных задержек
и "помаргивания” светодиода
void wait_1ms(unsigned char ms) {
while(ms) {
short int i;
for(i=0; i<500; i++) inp(PINB);
ms—;
}}
void wait_1s(unsigned char sec) {
while(sec) {
wait_1 ms(250);
wait_1ms(250);
wait_1 ms(250);
wait_1ms(250);
sec—;
}
void DiagOut(unsigned char n,unsigned int time) {
while(n>0) {
sbi(PORTD,5); // установка бита
wait_1 ms(time);
cbi(PORTD,5); // сброс бита
wait_1ms(time);
n—;
вставка 5
программирования желательно исполь-
зование экранированного кабеля, а все
6 проводников вести витыми парами.
}
wait 1s(1);
}
Например, можно воспользоваться кус-
ком кабеля 1ЛР (Э-ПР) подходящей
вставка 6
длины.
Ввиду ограниченности места в жур-
нале, рассмотрим только основные
моменты реализации управляющей
Опрос вывода шлейфа и антидребезг
if(bit_is_clear(PIND,
6))
{ //ID6
char с;
for(c = 0; с<5;
C++) {
прошивки в среде
\МпА\/Р-2005
под
контроллер
АТПпу2313
(вставки 4-6).
Обратите внимание: чтобы пра-
wait_1 ms(40); // защита от дребезга
if(bit is set(PIND, 6)) break;
}
'
вильно запрограммировать “фьюзы” на
if(c = 10) { // все 10 раз шлейф был замкнут на землю
Diag0ut(5,100); // 5 раз по ЮОмс
АТАпу нужно, согласно спецификации,
выставить (для частоты кварца 4 МГц,
см. рис. 6):
1_оск2=1 (галочка снята)
1_оск1 =1
testSMS(8); // выборка текущего сообщения из массива и отсылка
continue;
}
}
ЭртепИ
0\уеп=1
вставка 7
Ееэауе=0 (галочка
с т о и т )
sendcom(“AT+CMGS=”+inttostr(length(txt.text)*2)+#13+#10);
//ODh
Эр!еп=1
\Л/б1от=1
зепбсот(рби.Тех1+#26);
//
символ конца строки 1 АЛ
Воб1еуе12=1
Bodlevel1=1
При корректной заливке прошив-
используя вышеприведенные функции
Вос11еуеЮ=1
ки контроллер сразу готов к использо-
преобразования (вставка 7).
Р51б1зЫ=1
ванию.
В итоге, имеем сформированное
Скбп/8=1
“100% отправляемое” кириллическое
СкоШ=0
Реализаций посы лки Р011
РРи сообщение (см. рис. 7).
ЭиГМ
Рассмотрим процесс отправки ки-
Разберем его подробно (вставка 8).
ЭиЮ=1
риллического сообщения.
Обратите внимание! При необхо-
Скэе13=1
Прежде всего проверим, как ра-
димости вывода сообщения непосред-
Скзе12?=1
ботает посылка Рйи из тестового
ственно на экран телефона - исполь-
СкэеИ =0
приложения (см. рис. 7, рис. 8), при
зуйте параметр режима кодирования
СкзеЮ=0
подключенном терминале-телефоне,
данных 0СЗ=18 (режим НазИ-ЭМв).
13
Радиолюбитель - 0 9 /2 0 0 8 [|
предыдущая страница 13 Радиолюбитель 2008-09 читать онлайн следующая страница 15 Радиолюбитель 2008-09 читать онлайн Домой Выключить/включить текст