олежка

Members
  • Content count

    115
  • Joined

  • Last visited

Community Reputation

6 Обычный

About олежка

  • Rank
    Осваивающийся
  • Birthday 09/28/98

Контакты

  • Skype
    olegbar45

Информация

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

Электроника

  • Стаж в электронике
    3-5 лет
  • Сфера радиоэлектроники
    Микроконтроллеры
  • Оборудование
    Паяльник 30-70 ватт.
  1. C первым датчиком разобрался, было нестабильное питание, припаял к датчику конденсатор на 100мкф и всё заработало, контроллер принимает символ "В" и успешно откликается, но датчик всё равно не считывается(второй)
  2. резистор на 4,7к на PB0 и PB1 подтянуты к (+),вот непонятно почему датчик на PB1 не опрашиваеться вообще? Только что в железе попробовал с задержкой 120ms и теперь показывает только +85.0
  3. датчик напрямую впаян в плату КЭС программу опроса ты мне корректировал,я взял твой исходник за пример
  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. 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. не прокатило =(
  11. Доброго времени суток, необходимо получить права root на роутере,чтоб можно было работать с ком портом и добавлять в роутер свои скрипты, я так понял прошивки dd-wrt или open-wrt на мой роутер нету, как это сделать?
  12. Нет на смарте (карточка лайф), а коп только берет у смарта трафик
  13. КЭС Телефон сойденен с компом по usb и "даёт компу нет" ip серый но это не важно