Администрация форума не несёт ответственности за достоверность информации и оставляет за собой право редактировать или в особых случаях даже удалять посты без предупреждения. Спасибо за понимание.

Программирование ATMEL в BASCOM.

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.



Продам!

Сообщений 1 страница 21 из 21

1

Продам всё кроме совести.

+1

2

Благодарю Администратора за создание соответствующего раздела! :)

"плата разработчика" для желающих пощупать микроконтроллеры
А по-русски: "Стенд учебный для изучения основ программирования микроконтроллеров"

Предлагаю Вашему вниманию своё изделие
Является стендом для освоения микроконтроллеров. В данной версии платы используется МК от ATMEL: ATMEGA-48
Предлагатся в виде надбора необходимых комплектующих, но возможна сборка под заказ, т.е., высылается в виде готового устройства.

Ссылка с фотографией платы и ее описанием: http://pic-avr.narod.ru/start-board.htm

Все платы с маской и хорошо промаркированы - (шелкография: надписи, номиналы...)

http://pic-avr.narod.ru/stend/IMG_0021-small.JPG
и
http://pic-avr.narod.ru/stend/IMG_0022-small.JPG

Доставка: почта и экспресс-почта "EMS"
Оплата: почтовый перевод, Webmoney, Western Union, перевод банковский на счет.

Мой сайт: http://pic-avr.narod.ru/

Комплект состоит из:
- плата печатная 150*100 мм,
- микроконтроллер ATMEGA-48,
- индикатор 7-сегментный (2 разряда),
- индикатор символьно-цифровой 16*2 (WH1602C),
- индикатор графический (от Nokia-3310),
- ИК-приемник (36 КГц),
- ИК-светодиод,
- клемник, гнезда, штырьки, панельки, разъёмы,
- м-ма драйвера RS-232 (аналог MAX232),
- м-ма 74HC595 (сдвиговый регистр),
- стойки 10 мм. (5 шт),
- динамик 0,25 Вт, 8 Ом,
- комплект соединительных проводов-перемычек,
- резисторы, конденсаторы, джамперы, дроссель.

в принципе, можно покупать комплект не полностью, а только необходимое: печатную плату, индикатор\ы, микросхемы...
Пишите, спрашивайте

Подробное описание, схемы тут: http://pic-avr.narod.ru/start-board.htm

---

Дополнительно предлагается:

1. несколько преобразователей USB-COM (с диском драйверов)
проверял в Windows XP - работают без проблем

2. несколько графических индикаторов от мобильного телефона Nokia-3310 (PCD8544)
(на подложке с динамиком). Только что проверил - "китайские", смещают экран на несколько точек. Как бороться рассказано на многих форумах

Отредактировано Александр Д. (2010-08-30 13:17:52)

0

3

вчера оплатил доставку печатных плат,
т.е., они будут у меня примерно 8 октября
На сей момент осталось 45 плат, остальные уже зарезервированы (всего плат 68)

0

4

Ты же для подарков к Новому году оставь :D .

0

5

дороговато для подарков :)
на всё ушло около 49.000 рублей... Я сам в шоке. И это за 4 месяца приобретения деталей и заказ плат

0

6

ААААА! ! !! ПОДАРКИ ПОДАРКИ ПОДАРКИ!!!! :cool:  :cool:  :crazy:  :rain:  :yep:  :jumping:  :flag:

0

7

вначале конкурс, потом подарки ;) :)

0

8

"плата разработчика" для желающих пощупать микроконтроллеры
А по-русски: "Стенд учебный для изучения основ программирования микроконтроллеров"
...

Сегодня получил печатные платы из производства
Теперь можно и заказывать :)

http://pic-avr.narod.ru/stend/plata-gotova.JPG

0

9

По просьбе одного из покупателей сделал форум: http://kniga.mybb.ru/viewtopic.php?id=14
Тут можно задать вопрос о сборке комплекта и использовании стенда

0

10

Александр Д.(Данилин, если не ошибаюсь)! И чем Ваш стенд лучше,например,ATSTK-500?Там тоже много всяких прибамбасов.Или это его сильно упрощенная копия в Вашей интерпретации?

-1

11

ничем
я рекламировать не собираюсь
данные -у меня в ссылке
нравится - заказывайте
а меряться письками: "у меня толще", "а у меня - длиннее" - не собираюсь

0

12

Осталось ровно 15 комплектов для сборки стенда,

9 преобразователей USB-COM,
пяток плат (без деталей),
десяток 7-сегментных индикаторов
и десяток графических от Нокиа-3310

Остатки - сладки :)

0

13

Принимаю заказы на отладочные платы
Стенд второй версии имеет больше возможностей.

Программатор USB - в комплекте!

Полностью собранный стенд - 1550 рублей.
Комплект для самостоятельной сборки - 1200 рублей.

Сейчас плат нет. НИ ОДНОЙ. Будут только в конце марта.

информация о проекте "Не в пиве - счастье" на моём сайте: pic-avr.narod.ru

На плате имеется различная популярная "периферия".

Комплект состоит из:
- плата печатная 150*100 мм,
- микроконтроллер ATMEGA8,
- термометр DS18b20,
- часы + календарь DS1307,
- память энергонезависимая 24LC64,
- индикатор 7-сегментный (2 разряда),
- индикатор символьно-цифровой 16*2 (WH1602),
- ИК-приемник (36 КГц),
- ИК-светодиод,
- м-ма драйвера RS-232 (аналог MAX232),
- м-ма 74HC595 (сдвиговый регистр),
- стойки 10 мм. (4 шт),
- динамик 0,25 Вт, 8 Ом,
- комплект соединительных проводов-перемычек,
- клемник, гнезда, штырьки, панельки, разъёмы,
- резисторы, конденсаторы, джамперы, дроссель.

http://pic-avr.narod.ru/stend/vn-vid.png

0

14

в наличии стенды

http://pic-avr.narod.ru/stend/plata-gotova.JPG
http://pic-avr.narod.ru/stend/plata-tekst.JPG

0

15

программа для демонстрации работы собранного устройства:

Код:
$regfile = "m8def.dat"             ' Работа с DS18B20 - датчик температуры
$crystal = 8000000
$baud = 9600

Dim Byte0 As Byte , Byte1 As Byte , Volts As Word
Dim Signtemperatura As String * 1
Dim T1 As Byte , T2 As Byte , Temp As Byte


Led Alias Portb.0                  ' к этому выводу подключен св.диод

Hc_595_clock Alias Portb.5         ' Входы управления сдвигового регистра 75HC595
Hc_595_load Alias Portb.4          '
Hc_595_data Alias Portb.3          '
Segm7_1 Alias Portb.1              ' Первый разряд 7-сегментного индикатора
Segm7_2 Alias Portb.2              ' Второй разряд 7-сегментного индикатора


Config Portb = Output              ' Настройка направления работы портов
Config Portc = Output              ' LCD
Config Portd = Input

Config Portc.5 = Input             ' Тут подключим резисторы кнопок "джойстика" через АЦП

Button_a Alias Pind.4              ' Тут подключена кнопка А
Portd.4 = 1                        ' Включим "подтягивающий" резистор

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portb.6 , Rs = Portb.7


Config 1wire = Portd.7             ' на эту ножку подключим DS18B20 и подтягивающий резистор на 4,7 ком к + питания

' Рисуем спец. значки для дисплея
Deflcdchar 0 , 31 , 17 , 10 , 4 , 10 , 10 , 17 , 31       ' Песочные часы, кадр 0
Deflcdchar 1 , 31 , 31 , 31 , 14 , 4 , 10 , 17 , 31       ' Песочные часы, кадр 1
Deflcdchar 2 , 31 , 17 , 14 , 4 , 14 , 31 , 17 , 31       ' Песочные часы, кадр 2
Deflcdchar 3 , 31 , 17 , 10 , 4 , 14 , 31 , 31 , 31       ' Песочные часы, кадр 3

Deflcdchar 4 , 16 , 24 , 28 , 30 , 28 , 24 , 16 , 32       'указатель курсора >
Deflcdchar 5 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31       ' кубик


' Настройка АЦП
 Config Adc = Single , Prescaler = Auto , Reference = Avcc : Start Adc

 Cursor Off Noblink                ' Выключим мигающий курсор на экране

Do
    Cls

    Print "Start"                  ' В порт RS-232

    Lcd "Start..."   : Lowerline                ' На дисплей

    For Temp = 0 To 15             ' Отобразим факт завершения инициализации
     Lcd Chr(5) ; : Waitms 100
    Next
    Locate 1 , 12 : Lcd "OK!"

    Wait 1                         ' Пауза 1 секунда

    Cls                            ' Очистим дисплей
    Lcd "Mo№ ca№ї: " ; Chr(4) ; " " : Lowerline : Lcd "pic-avr.narod.ru"       ' На дисплей "Мой сайт "
    Print "Moi sait: pic-avr.narod.ru "       ' В порт RS-232
    Wait 1                         ' Пауза 1 секунда

    For Temp = 0 To 3              ' помигаем экраном
      Locate 1 , 15 : Lcd Chr(temp)       ' Отобразим на дисплее спец.символы (Рисуем песочные часики)
      Display Off : Led = 0 : Waitms 50       ' Отключим дисплей и отключим св.диод
      Sound Led , 500 , 300        ' Нога, длительность, частота. Чем выше частота, тем дольше
      Display On : Led = 1 : Waitms 50       ' Включим дисплей и включим св.диод
      Sound Led , 500 , 350        ' Нога, длительность, частота. Чем выше частота, тем дольше
    Next


   1wreset                         ' Инициализация шины 1Wire
   1wwrite &HCC                    ' Выдаем команду чтения ПЗУ
   1wwrite &H44                    ' Запуск измерения

   Waitms 750                      ' Ждем окончания преобразования

   1wreset                         ' Инициализация шины 1Wire
   1wwrite &HCC
   1wwrite &HBE                    ' Команда чтения ОЗУ датчика

   Byte0 = 1wread()                ' Читаем нулевой байт
   Byte1 = 1wread()                ' Читаем первый байт

      If Byte1 >= 248 Then         ' Проверяем на отрицательную температуру. 248 в десятичном, 11111000 в двоичном.
            Byte0 = &HFF - Byte0 : Byte1 = &HFF - Byte1       ' Если температура отрицательная – вычитаем из &HFF
            Signtemperatura = "-"
          Else
            Signtemperatura = "+"
      End If


   Shift Byte0 , Right , 4 : T1 = Byte0       ' Сдвигаем нулевой байт вправо на 4 бита
   Shift Byte1 , Left , 4 : T2 = Byte1       ' Сдвигаем первый байт влево на 4 бита

   T1 = T1 + T2                    ' Формирмируем результам и выдаем его на индикатор. Команда LCD сама преобразует его в десятичный вид

   Cls
   Lcd "Teјѕepaїypa" : Lowerline   ' На дисплей   и переводим курсор на нижнюю строку
   Lcd Signtemperatura ; T1 ; "C"  ' На дисплей
   Print Signtemperatura ; T1 ; "C"       ' В порт RS-232




  ' Точка = 16    Данные для 7-сегм.индикатора с общим анодом
  ' 1=221, 2=, 4=92, 7=217, 8=127   Для включения сегмента подать "0"

    Byte0 = 92                     ' Что будем загружать в сдвиговый регистр
    For Temp = 0 To 7
       If Byte0.temp = 1 Then
         Hc_595_data = 1
        Else
         Hc_595_data = 0
       End If

      Hc_595_clock = 1 : Waitms 1 : Hc_595_clock = 0 : Waitms 1
    Next

    Hc_595_load = 1 : Waitms 1 : Hc_595_load = 0 : Waitms 1
    Segm7_1 = 1 : Waitms 500 : Segm7_1 = 0       ' Пауза 0.5 секунды


    Byte1 = 221                    ' Что будем загружать в сдвиговый регистр
    For Temp = 0 To 7
       If Byte1.temp = 1 Then
         Hc_595_data = 1
        Else
         Hc_595_data = 0
       End If

      Hc_595_clock = 1 : Waitms 1 : Hc_595_clock = 0 : Waitms 1
    Next

    Hc_595_load = 1 : Waitms 1 : Hc_595_load = 0 : Waitms 1
    Segm7_2 = 1 : Wait 1 : Segm7_2 = 0
    Waitms 500                     ' Пауза 0.5 секунды

   Gosub Demo_7_segm               ' В подпрограмму


   Cls : Lcd "Ha¶ёјa№ єЅoѕєё"

   For Temp = 0 To 255
        ' ===    Измеряем напряжение в канале 5   ===
      Volts = Getadc(5)            ' Измеряем напряжение в канале 5
      Shift Volts , Right , 2      ' Превращаем 12 бит в 8 бит

      Locate 2 , 1 : Lcd "ADC= " ; Volts ; "  "       ' отобразим напряжение и "затираем" значение в конце

      If Button_a = 1 Then         ' Опрос кнопки А
          Locate 2 , 14 : Lcd "Off"       ' Всё инверсно!
        Else
          Locate 2 , 14 : Lcd "On "
          Sound Led , 20 , 100     ' Нога, длительность, частота. Чем выше частота, тем дольше
      End If

      Waitms 80                    ' Пауза 80 ms (0.08сек)
   Next


Loop

End



' ==============================================================
Demo_7_segm:
  Restore Dta1                     ' Откуда будем читать данные

 For Byte1 = 0 To 13               ' 13 раз
    Read Byte0                     ' Что будем загружать в сдвиговый регистр


    For Temp = 0 To 7              ' 8 раз
       If Byte0.temp = 1 Then      ' Если указанный бит = 1, то
         Hc_595_data = 1
        Else                       ' Иначе
         Hc_595_data = 0
       End If

      Hc_595_clock = 1 : Waitms 1  ' Тактовые импульсы   =1
      Hc_595_clock = 0 : Waitms 1  ' Тактовые импульсы   =0
    Next

    Hc_595_load = 1 : Waitms 1     ' Импульс на вход "загрузка"
    Hc_595_load = 0 : Waitms 1
    Segm7_1 = 1 : Segm7_2 = 1 : Waitms 100 : Segm7_1 = 0 : Segm7_2 = 0

    Waitms 10
 Next


Return

Dta1:
Data 255
Data 251 , 253 , 223 , 191 , 247 , 254
Data 255
Data 253 , 249 , 217 , 153 , 145 , 144

Отредактировано Александр Д. (2012-08-01 16:40:27)

0

16

откомпилированная прошивка, схема и пример подключения модулей для демонстрации работы этой программы:   http://pic-avr.narod.ru/stend/StartPCB.zip

драйвера для программатора USBasp:  http://pic-avr.narod.ru/USBasp_Driver.zip

http://uploads.ru/t/o/i/x/oixXr.jpg

0

17

спасибо!

а для линуксов что надо? как-то спрашивали, но я не фанат этой ОСи

0

18

На оф. сайте пишут, что для линукса драйвер не нужен.

Отредактировано max (2012-04-08 00:37:31)

0

19

Сегодня утром не хватило 200 рублей для отправки собранного стенда в Татарстан -- в первых числах апреля почта повысила тарифы...

0

20

подниму тему.
осталось 28 комплектов для самостоятельной сборки

0

21

осталось 22 комплекта деталей,
9 - для реализации,

остальные зарезервированы на 2 месяца

0