Arduino.ru

$regfile = "attiny13.dat"
$crystal = 1200000                                          ' Частота МК в герцах
$hwstack = 16                                               'Установки по умолчанию
$swstack = 16
$framesize = 16
$noramclear

Dim Cmd As String * 15                                      'Увы больше 15 символов запхать в строку не получится
                                                              'Мало оперативки
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.4 , Db6 = Portb.3 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0
                                                            'Инициализация дисплея
Cursor Off                                                  'Отключаем мигающий курсор

Do                                                          'Открывает операторную скобку  вечного цыкла

Ddrb = &B111111                                             'Установим все порты как виходы

Lcd "Say my name?"                                          'Выводим цытату из "Breaking Bad"
Waitms 1500                                                 'джём 2000 мсек
Cls                                                         'Очищаем дисплей

Ddrb = &B011111                                             'Установливаем порт PB5, он же Reset, на вход
                                                            'Так же можно перевести  проты PB2 и PB3
                                                            'И на них замерять напряжение
Open "comb.5:9600,8,n,1" For Input As #1                    'PB5 это будет RXD
                                                             'Создадим программный UART, скорость 9600 бод
Input #1 , Cmd                                              'Ппихаем принятые данные в переменную "Cmd"

If Cmd = "Heisenberg" Then                                  'Пока не получим "Heisenberg" ничего не делаем
Lcd Cmd                                                     'Выводим содержымое переменной на LCD дисплей
Waitms 2000
Cls
Lcd "You're goddamn"
Lowerline                                                   'Переход на новую строчку
Lcd "right"
Else                                                        'если же пришли данные но не подходят под условие то...
Lcd "Wrong..."
Lowerline
Lcd "I'll ask again"
End If                                                      ' тут указываем окончание условного оператора If

Waitms 3000
Cls
Loop                                                        'Закрываем операторную скобку  вечного цыкла
End                                                         'Конец программы

Фот файлы проекта:
 

http://vk.com/doc256435878_327375100

За основу был взят этот проект:

http://mdiy.pl/miniaturowy-miernik-do-zasilacza-na-attiny13/?lang=en

Вы бы хоть написали что за проект и что он делает. В инете миллины сайтов на которые мне лень ходить и петабайты информации которая мне не интересна :) IMHO

Видео работы же добавил.

У меня инет только мобильный, поэтому трафик считаю :)

Да у него там полноценный искуственный интелект запилен на ATtiny13))))

Всего-то несколько ифов.