Адвансед

Members
  • Публикации

    544
  • Зарегистрирован

  • Посещение

Репутация

130 Хороший

О Адвансед

  • Звание
    Завсегдатай
  • День рождения 18.03.1979

Информация

  • Пол
    Мужчина
  • Интересы
    РЭА, авто, ПК, звук и пр....
  • Город
    Чебоксары

Электроника

  • Стаж в электронике
    6-10 лет
  • Сфера радиоэлектроники
    МК, УНЧ, Релейная защита, монтаж.
  1. ---

    позже создам тему, пока удалить
  2. Продаю сайт cxema21.ucoz.ru домен http://cxema21.ru с доменом вместе, идеальный вариант для радиотехнической тематики , сферы услуг, сервисного центра. - цена 15 000 рублей. Сайт создан лет 6 назад и сам себя раскрутил. Очень хорошие показатели по посещаемости, много ЭКСКЛЮЗИВНЫХ материалов. Пишите в ПМ или лучше сюда https://vk.com/at13m
  3. Как вывести данные UART на LCD дисплей? BASCOM

    Пробую вот так, ничего ен выходит, если переменную В вместое S то выходят цифры 311010 на любое сообщение. В чем ошибка? подскажите плз.. почему то коментарии разворотило на нерусский.... $regfile = "m32def.dat" $crystal = 14745600 $baud = 9600 $hwstack = 64 $swstack = 64 $framesize = 100 Config Lcdpin = Pin , Rs = Portb.3 , E = Portb.2 , Db4 = Portb.6 , Db5 = Portb.4 , Db6 = Portb.7 , Db7 = Portb.5 Config Lcd = 16 * 2 Cursor Off Noblink Config Portc.0 = Output : Set Portb.0 Config Debounce = 50 Cursor Off Noblink Declare Sub Getline(s As String) '÷òåíèå äàííûõ èç áóôåðà Declare Sub Del_buffer() 'î÷èñòêà áóôåðà Dim R As Byte Dim S As String * 10 Dim B As Byte Cls ' ðàçáèðàåì ñîîáùåíèÿ uart Sub Getline(s As String) S = "" Do B = Inkey() 'áåðåì ñèìâîë èç áóôåðà â ôîðìàòå ASCII Select Case B Case 0 : Exit Do 'åñëè äàëüøå áóôåð ïóñòîé òî âûõîäèì èç öèêëà Case 10 : If S <> "" Then Exit Do 'êîíåö ñòðîêè - çíà÷èò âûõîäèì èç êèêëà Case Else : If B > 31 Then S = S + Chr(b) 'ñîñòàâëÿåì ñòðîêó End Select Lcd S Waitms 500 Loop End Sub 'î÷èñòêà áóôåðà UART '=================== 'Sub Del_buffer() 'Do 'B = Inkey() 'êëàäåì â ïåðåìåííóþ "Â" äàííûå èç áóôåðà 'Loop Until B = 0 'âûõîäèì èç öèêëà êîãäà â ïåðåìåííóþ ïîïàäåò 0 (áóôåð ïóñò) 'End Sub
  4. Как вывести данные UART на LCD дисплей? BASCOM

    Если бы знать начинающему как это делается, по подсказкам попробовал как то так, в итоге никак(( $regfile = "m32def.dat" $crystal = 14745600 (ставил 1600000 - и так и так в железе все работает) $baud = 9600 $hwstack = 64 $swstack = 64 $framesize = 100 Config Lcdpin = Pin , Rs = Portb.3 , E = Portb.2 , Db4 = Portb.6 , Db5 = Portb.4 , Db6 = Portb.7 , Db7 = Portb.5 Config Lcd = 16 * 2 Cursor Off Noblink Config Portc.0 = Output : Set Portb.0 Config Debounce = 50 Cursor Off Noblink Dim Cmd As String * 15 Cls Do Waitms 50 Print "AT+CMGF=1" Waitms 50 Locate 2 , 2 Lcd Cmd Waitms 500 Cls If Pinc.0 = 1 Then Waitms 100 Print "ATD+791999999991;" Locate 1 , 2 Lcd "Call" Else Waitms 500 Cls End If Debounce Pinb.0 , 0 , Kn1 , Sub Loop End Kn1: Toggle Portc.0 Return End
  5. Ребята, хочу понять как выводить данные, принятые по UART на ЖК индикатор 1602, принимают данные от GSM модуля на процессор мега 32, как считать данные и выводить их на экран? не пойму. вот кусок кода, при нажатии на кнопку совершает вызов Как вывести информация которую выдает модуль GSM на дисплей?
  6. Запчасти от широкоформатного сканера А0

    считыватели на базе toshiba tcd2704dg-1
  7. Был сканер https://market.yandex.ru/product/1615208/spec?hid=91112&track=char Есть запчасти от него , с ценами в личку (куплю за столько то). Территориально Чувашия. Что касается цен, то путь будет аукцион, кто предложит большую сумму в течение 1 недели тот и забирает. ссылка на шд ebay Отправка ТК или почтой России. Обращаться можете через сайт at13.ru на мыло at13s@mail.ru
  8. Металлические Ручки Для Усилителей

    Делать можно все, было бы желание и главное нормальные готовые чертежи, а то мысли с клиентами в 90% случаев не совпадают и возникают нестыковки
  9. Металлические Ручки Для Усилителей

    Есть возможность изготовления нормальных латунных ручек, размеры будут те же, но крепеж будет уже нормальный, комплект из 4 ручек 1100р. Со временем латунь окисляется, поэтому нужно будет покрыть лаком или эмалью. Обращаться на почту
  10. Металлические Ручки Для Усилителей

    Ручек не осталось, просьба удалить тему. На счет фото, телефон не дает загружать фотографии на сайты.
  11. Металлические Ручки Для Усилителей

    Осталось еще 4 комплекта
  12. Продаю ручки из нержавеющей стали для переменных резисторов, комплект 900р. Туда входят, 1 большой и 3 маленьких, они особой конструкции, регулируемые по вылету, правда требуется поработать напильником в дырке под сам вал. Фото по запросу скину на почту. Обращаться: только на почту webdes777@mail.ru Смотрятся ну очень круто, круче алюминия в 100раз. Доставка по России за ваш счет, почтой России 1 классом (что то около 125-145р)
  13. Изготовление Печатных Плат.

    С пикада делаете печатки?
  14. Начинающим О Фьюзах (Fuse Bits)

    С фьюзами в понипрог или аналогичных программах все понятно, объясните мне как разобраться с фьюзами в AVR STUDIO 4?имею avr ISP mk2, раьотает он серез авр студию, там окошко с фьюзами ни разу не похожа на остальные программы
  15. В наличии 2шт, изолированные пьезoэлекричечкие аналоговые высокой точности корпус из титанa., используются в расхомеpax. 1500р шт. Казань. Фото прикрепить не получилось, пишите в личку, в рабочем состоянии, заказывали с запасом, (брали по 5т штуку)