Микроконтролери и електроника
http://mcu-bg.com/mcu_site/

DS1820 & Proton
http://mcu-bg.com/mcu_site/viewtopic.php?f=7&t=4299		 Страница 1 от 1
Автор:  rumen [ Вто Юни 05, 2007 10:07 am ]
Заглавие:  DS1820 & Proton
Протона си подържа даласките чипове :
OREAD Pin , Mode , [ InputData ]
OWRITE Pin , Mode , [ OutputData ]

Чесно казано не съм сигурен че разбрах въпроса на Милен.
Не виждам необходимост от използване на флоат.
Прилагам примерна програма Термометър. -- Взета е от хелпа.




DEVICE 16F84
DECLARE XTAL 4
SYMBOL DQ = PORTA.1 ' Place the DS1820 on bit-1 of PORTA
DIM Temp AS WORD ' Holds the temperature value
DIM C AS BYTE ' Holds the counts remaining value
DIM CPerD AS BYTE ' Holds the Counts per degree C value
CLS ' Clear the LCD before we start
Again:
OWRITE DQ, 1, [$CC, $44] ' Send Calculate Temperature command
REPEAT
DELAYMS 25 ' Wait until conversion is complete
OREAD DQ, 4, [C] ' Keep reading low pulses until
UNTIL C <> 0 ' the DS1820 is finished.
OWRITE DQ, 1, [$CC, $BE] ' Send Read ScratchPad command
OREAD DQ, 2,[Temp.LOWBYTE,Temp.HIGHBYTE, C, C, C, C, C, CPerD]
' Calculate the temperature in degrees Centigrade
Temp = (((Temp >> 1) * 100) - 25) + (((CPerD - C) * 100) / CPerD)
PRINT AT 1,1, DEC Temp / 100, ".", DEC2 Temp," ", AT 1,8,"C"
GOTO Again
Автор:  milenjs [ Вто Юни 05, 2007 1:53 pm ]
Заглавие: 
Това на Румен си работи на 6+, искам да видим обаче как на различни езици се преобразува число от 4 бита с отрицателни степени на 2-та в стринг? Примерно 1010 -> "625"
Автор:  ps66 [ Вто Юни 05, 2007 5:38 pm ]
Заглавие: 
milenjs написа:
Това на Румен си работи на 6+, искам да видим обаче как на различни езици се преобразува число от 4 бита с отрицателни степени на 2-та в стринг? Примерно 1010 -> "625"


това си е питане за първолаци :)
(а дали е С, Паскал, Базик ... е все тая)
Страница 1 от 1 Часовете са според зоната UTC + 2 часа [ DST ]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/