Avr: Пример работы с USART в Atmega16

Решил разобраться с микроконтроллером Atmega16, в нем есть 4 порта A,B,C,D, 16 килобайт памяти, 8ми канальный 10 разрядный АЦП и много чего еще ;). Начал, конечно, с USART так как нужно каким-то образом общаться с компом тем более в моем новом программаторе без дела весит мост USB-UART на FT232R. Компилятор использовал WinAvr потому, что у него получается достаточно компактный HEX и он занимает меньше места флешь памяти Avr-ке. В программе пытался комментировать практически все, так сказать для начинающих, вот собственно код на эту AVR-ку.

/* Компилятор WinAvr Микроконтроллер Atmega16 Частота 8Мгц внутренняя avrdude.exe -p m16 -c ftbb -P ft0 -B 4800 -U hfuse:w:153:m -U lfuse:w:196:m avrdude.exe -p m16 -c ftbb -P ft0 -U flash:w:Uart.hex:a */ #include <avr/io.h> #include <avr/interrupt.h> #define FOSC 8000000L//Тактовая частота #define BAUD 9600L //Скорость порта #define MYUBRR FOSC/16/BAUD-1 void USART_Transmit( unsigned char data ); void USART_Init( unsigned int ubrr); //Обработка прерывания чтения USART ISR(USART_RXC_vect) { int b; b = UDR; USART_Transmit(b);//Отправляем то, что получили } //Инициализация модуля USART void USART_Init( unsigned int ubrr) { //Задаем скорость работы USART UBRRH = (unsigned char)(ubrr>>8); UBRRL = (unsigned char)ubrr; UCSRB=(1<<RXEN)|( 1<<TXEN); //разращён прием и передача UCSRB |= (1<<RXCIE); //прерывание при чтении //URSEL,UMSEL=0 асинхронный,UPM01=0 Parity нет, USBS=0 1 стоп бит,UCSZ012 = 3 8бит данных UCSRC=(1<<URSEL)|(0<<UMSEL)|(0<<UPM1)|(0<<UPM0)|(0<<USBS)|(0<<UCSZ2)|(1<<UCSZ1)|(1<<UCSZ0); } //Функция отправки данных void USART_Transmit( unsigned char data ) { while ( !(UCSRA & (1<<UDRE)) ); //Ожидание опустошения буфера приема UDR = data; //Начало передачи данных } int main(void) { USART_Init (MYUBRR); sei();//разрешаем прерывания while(1)//вечный цикл { } } </div>

AVR USB программатор

Давненько не обновлял блог ж)

При покупке новой материнской платы столкнулся с небольшой проблемой, а именно отсутствием LPT порта ж))) и невозможностью использовать старый LPT программатор. Решил собрать себе AVR USB программатор на FT232RL, он мне понравился тем, что не требует прошивки отдельного контролера и еще один большой плюс это интерфейс UART-USB который можно использовать отдельно для своих проектов! Нанес дорожки на стеклотекстолит лазерно-утюжным методом, вытравил плату и вот что получилось ;).

1С: Проверка доступности чтения\записи в файла

Понадобилось проверить в 1С есть ли в данный момент доступ на чтение\запись к некоторому файлу. Так как родными средствами 1С_ки я не нашел как это сделать, пришлось писать dll_ку для нее в Delphi 7. Вот сами исходники и откомпилированная dll FileAccess.rar. В 1С надо будет добавить следующий код

Объект = СоздатьОбъект("FileAccess.TFileAccess");
А = Объект.Access("c:\file.txt"); 
сообщить(А);

Для регистрации своей dll в системе надо выполнить следующий код в bat файле

chcp 1251
regsvr32.exe "C:\FileAccess.dll".


В переменной А могут быть следующие значения:
0 - Файл доступен для чтения\записи;
1 - Файл не доступен для чтения\записи;
2 - Другие ошибки;

1С: Экспорт справочника в Xls

В общем понадобилось экспортировать из справочника некоторые данные в Microsoft Excel, для удобства пользователя. Собственно получился вот такая процедура.

Процедура ЭкспортXls(Справочник,Фаил) //Сотрудники СпрСотр = СоздатьОбъект("Справочник."+Справочник); Попытка Эксель = СоздатьОбъект("Excel.Application"); Исключение Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена на данном компьютере!"); Возврат; КонецПопытки; Книга = Эксель.WorkBooks.Add(); Лист = Книга.WorkSheets(1); Номер = 3; Лист.Columns("A:A").Select(); Область=Лист.Range(Лист.Cells(Номер,1), Лист.Cells(Номер,1).End(-4121)); Область.NumberFormat = "@"; Лист.Columns("B:B").Select(); Область=Лист.Range(Лист.Cells(Номер,2), Лист.Cells(Номер,2).End(-4121)); Область.NumberFormat = "@"; Лист.Columns("C:C").Select(); Область=Лист.Range(Лист.Cells(Номер,3), Лист.Cells(Номер,3).End(-4121)); Область.NumberFormat = "0"; Лист.Cells(1,1).Font.Bold = 1; Лист.Columns(1).ColumnWidth = 30; Лист.Cells(1,2).Font.Bold = 1; Лист.Columns(2).ColumnWidth = 20; Лист.Cells(1,3).Font.Bold = 1; Лист.Columns(3).ColumnWidth = 10; Лист.Cells(1, 1).Value ="Наименование"; Лист.Cells(1, 2).Value ="Должность"; Лист.Cells(1, 3).Value ="Оклад"; СпрСотр.ВыбратьЭлементы(); Пока СпрСотр.ПолучитьЭлемент() = 1 Цикл Лист.Cells(Номер, 1).Value =Строка(СпрСотр.Наименование); Лист.Cells(Номер, 2).Value =Строка(СпрСотр.Должность); Лист.Cells(Номер, 3).Value =Число(СпрСотр.Оклад); Номер=Номер+1; КонецЦикла; Попытка Книга.SaveAs(Фаил); Исключение Сообщить(ОписаниеОшибки()+" Файл не сохранен!"); Возврат; КонецПопытки; Эксель.Quit(); КонецПроцедуры

1С: Отправка таблицы в PDF формате на почту

Решил разобраться с 1С бухгалтерией в целях самообразования )). Вообще начну с отправки почты ж). Для отправки сообщения я использовал готовую библиотеку ROM-Mail.dll так как родная 1С мне не понравилась, а свою писать было впадло))). Для того чтобы создать PDF документ я взял виртуальный принтер BullzipPDFPrinter, с помощью него можно отправлять любой документ на печать в BullzipPDFPrinter, а на выходе получать PDF файлик и отправлять его на почту. Вот и сам код этого чуда)

Процедура ОтправитьПочту() Если ЗагрузитьВнешнююКомпоненту("ROM-Mail.dll")=0 Тогда Сообщить("Не удалось загрузить внешнюю компоненту ROM-Mail.dll"); Возврат; КонецЕсли; Почта=СоздатьОбъект("AddIn.AddInMail"); Почта.СерверОтправки=СокрЛП("smtp.mail.ru"); Почта.ПортОтправки=СокрЛП(2525); Почта.Логин=СокрЛП("Логин"); Почта.Пароль=СокрЛП("Пароль"); Почта.АутентификацияПриОтправке="1"; Если Почта.Соединение=0 Тогда Если Почта.Подключиться("Отправка")=0 Тогда Сообщить("Не удалось подключиться к почтовому серверу","!"); Возврат; КонецЕсли; КонецЕсли; Почта.АдресОтправителя=СокрЛП("tymbys_tymbys@mail.ru"); Почта.ИмяОтправителя=СокрЛП("tymbys_tymbys@mail.ru"); Почта.АдресПолучателя=СокрЛП("tymbys@gmail.com"); Почта.Тема=СокрЛП("Тема"); Почта.Тело=""; Почта.Кодировка="windows-1251"; Почта.ТипПисьма=0; Почта.Вложения="e:\Отчет.pdf"; Если Почта.Отправить()=1 Тогда Предупреждение("Сообщение отправлено!"); Иначе Предупреждение("Не удалось отправить сообщение!"); КонецЕсли; Почта.Отключиться(); КонецПроцедуры Процедура Печать() ФС.УдалитьФайл("e:\Отчет.pdf"); Таб1=СоздатьОбъект("Таблица"); Таб1.ИсходнаяТаблица("ПриемНаРаботу"); Таб1.Вывести(); Таб1.Опции(,,,,"Опции1"); Таб1.ПараметрыСтраницы(,,,,,,,,,,,"Bullzip PDF Printer"); Принтер=СоздатьОбъект("Bullzip.PDFPrinterSettings"); Принтер.SetValue("output", "e:\Отчет.pdf"); Принтер.SetValue("ShowSaveAS", "never"); Принтер.SetValue("ShowProgress", "no"); Принтер.SetValue("ShowProgressFinished", "no"); Принтер.SetValue("ShowSettings", "never"); Принтер.SetValue("ShowPDF", "no"); Принтер.SetValue("ConfirmOverwrite","no"); Принтер.WriteSettings(); Таб1.Напечатать(0); Пока ФС.СуществуетФайл("e:\Отчет.pdf")<1 Цикл КонецЦикла; Если ФС.СуществуетФайл("e:\Отчет.pdf")=1 Тогда ОтправитьПочту(); КонецЕсли; КонецПроцедуры