Jump to content

Welcome to vip-cxema.org

logo3.png

The forum has a section for guests, where you can ask your questions without registration: Вопросы и ответы

By registering, you will be able to send private messages, receive notification of replies to topics. You can always send a message, many restrictions are removed.


Search the Community

Showing results for tags 'FOR...NEXT'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Тематические форумы
    • Усилители мощности
    • Шокеры
    • Качеры, катушки Тэсла
    • Блоки питания
    • Светодиоды
    • Начинающим
    • Жучки
    • Микроконтроллеры
    • Устройства на ARDUINO
    • Программирование на PicBasic Pro
    • Радиоприемники
    • Датчики и исполнительные устройства
  • Мозговой штурм
    • Улучшение параметров конструкций
  • Вопрос-Ответ
    • Вопросы и ответы
    • Свалка
  • Общие темы
    • Общие вопросы
  • Мнение радиолюбителей
    • Интернет магазины
    • Отзывы о товарах
  • Наш магазин
    • Наш магазин

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Сайт


ICQ


Yahoo


Jabber


Skype


Город


Интересы

Found 1 result

  1. В общем добился я результата по твоим рекомендациям http://forum.vip-cxema.org/index.php?/topic/891-eeprom/page-2 Но никак не могу въехать почему так получается в цикле. main: for Sensor = 0 to 2 Lookup Sensor,[8,16,24], Adr read Adr,id[0],id[1],id[2],id[3],id[4],id[5],id[06],id[7] gosub DS18B20 next Sensor gosub Display GoTo main DS18B20: OWOUT DQ, 1, [$55, str ID\8, $44] ReadBusy: OWIN DQ, 4, [busy] If Busy = 0 Then ReadBusy OWOUT DQ, 1, [$55, str ID\8, $BE] OWIN DQ, 2, [RAWTEMP.LowByte, RAWTEMP.HighByte] If SignBit <> 1 Then TerC[sensor] = rawtemp / 16 TerD[sensor] = (rawtemp // 16) * 10 / 16 TempA[sensor] = TerC[sensor] * 10 + TerD[sensor] Else TerC[sensor] = 65535 - rawtemp tempdat = TerC + 1 TerC[sensor] = tempdat / 16 TerD[sensor] = ((tempdat + 1) // 16) * 10 / 16 TempA[sensor] = TerC * 10 + TerD[sensor] EndIf RETURN Получаем:
×
  • Create New...