олежка

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

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

  • Посещение

Репутация

6 Обычный

О олежка

  • Звание
    Осваивающийся
  • День рождения 28.09.1998

Контакты

  • Skype
    olegbar45

Информация

  • Пол
    Мужчина
  • Город
    Украина, Донецк

Электроника

  • Стаж в электронике
    3-5 лет
  • Сфера радиоэлектроники
    Микроконтроллеры
  • Оборудование
    Паяльник 30-70 ватт.
  1. Термометр Ds18B20 + Atmega8 Проблема С Программой

    C первым датчиком разобрался, было нестабильное питание, припаял к датчику конденсатор на 100мкф и всё заработало, контроллер принимает символ "В" и успешно откликается, но датчик всё равно не считывается(второй)
  2. Термометр Ds18B20 + Atmega8 Проблема С Программой

    резистор на 4,7к на PB0 и PB1 подтянуты к (+),вот непонятно почему датчик на PB1 не опрашиваеться вообще? Только что в железе попробовал с задержкой 120ms и теперь показывает только +85.0
  3. Термометр Ds18B20 + Atmega8 Проблема С Программой

    датчик напрямую впаян в плату КЭС программу опроса ты мне корректировал,я взял твой исходник за пример
  4. Всем привет, вот есть код программы $regfile = "m8def.dat" $crystal = 8000000 $baud = 4800 Config Portd.3 = Output Portd.3 = 1 Declare Sub Uarts() Declare Sub Res() Declare Sub Getline(s As String) Declare Sub Del_buffer() Config Portd.2 = Output Dim A As Byte Dim B As Byte Dim C As Word Dim D As Word Dim E As Byte Dim Znak As String * 1 Dim Temp As Dword Dim Decim As Dword Dim R As Byte Dim S As String * 1 Dim Z As Byte Dim Temperature1 As String * 10 Dim Temperature2 As String * 10 Dim H As Integer Print "loading" Call Uarts() Do R = Ischarwaiting() If R = 1 Then Getline S Call Uarts() If S = "A" Then Wait 1 Config 1wire = Portb.0 1wreset 1wwrite &HCC 1wwrite &H44 Waitms 750 1wreset 1wwrite &HCC 1wwrite &HBE A = 1wread() B = 1wread() C = B * &H100 C = C + A D = B / &H10 If D = 0 Then Znak = "+" Temp = C * 625 Else Znak = "-" Temp = 65535 - C Temp = Temp + 2 Temp = Temp * 625 End If Temp = Temp / 1000 If Temp = 0 Then Znak = " " End If Decim = Temp / 10 Decim = Decim * 10 Decim = Temp - Decim Temp = Temp / 10 Print Znak ; Temp ; "." ; Decim Call Uarts() End If If S = "B" Then Wait 1 Config 1wire = Portb.1 1wreset 1wwrite &HCC 1wwrite &H44 Waitms 750 1wreset 1wwrite &HCC 1wwrite &HBE A = 1wread() B = 1wread() C = B * &H100 C = C + A D = B / &H10 If D = 0 Then Znak = "+" Temp = C * 625 Else Znak = "-" Temp = 65535 - C Temp = Temp + 2 Temp = Temp * 625 End If Temp = Temp / 1000 If Temp = 0 Then Znak = " " End If Decim = Temp / 10 Decim = Decim * 10 Decim = Temp - Decim Temp = Temp / 10 Print Znak ; Temp ; "." ; Decim Call Uarts() End If If S = "R" Then Call Res() Portd.3 = 0 End If Del_buffer End If Loop End Sub Uarts() Portd.2 = 1 Waitms 20 Portd.2 = 0 Waitms 25 Portd.2 = 1 Waitms 35 Portd.2 = 0 Waitms 28 Portd.2 = 1 Waitms 38 Portd.2 = 0 End Sub Sub Res() Portd.2 = 1 Waitms 50 Portd.2 = 0 Waitms 50 Portd.2 = 1 Waitms 50 Portd.2 = 0 End Sub Sub Getline(s As String) S = "" Do Z = Inkey() Select Case Z Case 0 : Exit Do Case 10 : If S <> "" Then Exit Do Case Else : If Z > 31 Then S = S + Chr(z) End Select Loop End Sub Sub Del_buffer() Do Z = Inkey() Loop Until Z = 0 End Sub При приходе на UART символа "A" программа считывает показания с 1 датчика, но через раз (происходят какие то сбои что ли? и я получаю вместо правильной температуры +85.0),когда на UART мк приходит символ "B" то второй датчик опрашиваться вообще не хочет, возвращает 0.0 град. Как это исправить помогите
  5. Термометр С Интерфейсом Ethernet Или Интернет Термометр.

    IIIytNIK самое интересное что устройство сделано на одном мк без использования интернет модулей. На данный момент у меня данные обрабатывает и отправляет на narodmon компьютер, что не есть очень удобно. Опыт в работе с МК avr имеется, но не знаю как организовать всё это без интернет модуля. Вдруг кто из моих краёв тут есть держите может пригодиться http://narodmon.ru/?id=1743
  6. Всем привет, вот есть девайс http://elephant.embedders.org/TE_MONITOR/te_monitor.html, у кого нибудь есть схема и прошивка сего чуда?, хочу сделать мини сервер, остановился на нём так как вариант не плохой.
  7. Неизвестный Асинхронник

    1 скорость(белый+коричневый),2 скорость(красный+коричневый),3 скорость(чёрный+коричневый)
  8. Неизвестный Асинхронник

    Провода (чёрный красный белый)- это скоростя и в один момент напряжение может быть только на одном проводе Вот нагуглил "внутренности двигателя"
  9. Неизвестный Асинхронник

    Двигатель с напольного вентилятора, с такого вот схема(цвета проводов различаються)
  10. Root Привилегии На Роутере D-Link Dir300C1

    не прокатило =(
  11. Доброго времени суток, необходимо получить права root на роутере,чтоб можно было работать с ком портом и добавлять в роутер свои скрипты, я так понял прошивки dd-wrt или open-wrt на мой роутер нету, как это сделать?
  12. Открываем Порты На Андроид Смартфоне

    Нет на смарте (карточка лайф), а коп только берет у смарта трафик
  13. Открываем Порты На Андроид Смартфоне

    КЭС Телефон сойденен с компом по usb и "даёт компу нет" ip серый но это не важно