Avr: Счетчик импульсов на Atmega16 и семисегментном индикаторе на восемь разрядов

Задача єтого счетчика считать количество импульсов за 60 секунд по фронту импульса и выдавать полученное значение на восьми разрядный семисегментный индикатор, максимально возможное значение будет 99999999. Максимальная частота которую сможет обработать счетчик Atmega16 будет равна частоте тактирования контроллера деленная на 2.5. Фьюзы микроконтроллера выставлены на источник тактирования от внутреннего генератора 8МГц.
Вот сама схема сего чуда ж) :

WiFi робот: WiFi робот своими руками Это длинный расск...

WiFi робот:
WiFi робот своими руками






Это длинный расск...: WiFi робот своими руками Это длинный рассказ про то, как построить робота в виде игрушечного автомобильчика с видео камерой, котор...

----
Хорошая статейка но автор почему то ее закрыл ;(((

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 Тогда ОтправитьПочту(); КонецЕсли; КонецПроцедуры