Отправлено BASIC 09 сентября 2005 г. 12:53

DS18B20:

Low DQ
PauseUS 500
DQ_DIR = 1
PauseUS 100
If DQ = 1 Then
TEMPE = 9999
return
Endif
PauseUS 400
OWOut DQ, 1, [$CC, $44]
DS18B20LOOP:
OWIn DQ, 4, [I]
IF I = 0 Then DS1820LOOP

OWOut DQ, 1, [$CC, $BE]
OWIn DQ, 0, [TEMPE.LOWBYTE, TEMPE.HIGHBYTE, Skip 4, I, VAL]

TEMPE = (((TEMPE >> 1) * 100) - 25) + (((VAL - I) * 100) / VAL)
return

• Есть пример (RUS) и описание как работать с этой шиной, но тама на Си — tutor-gaw   (09.09.2005 13:59 62.118.194.98, пустое, ссылка)
• Прочитай даташит, важнейшую роль в Микролан играют задержки, а вотв бейсике я не силён! — ubobrov   (09.09.2005 13:28 213.59.64.228, пустое)
  • Во-во... Важнейшую роль в Микролан играет даташит)))) — basilmak   (09.09.2005 14:32 62.118.129.234, пустое)