proton manualdaki örnek

[ahmetbudak]

arkadaşlar selamlar iyi çalışmalar aşağıdaki kod proton manualdeki DS1820 okuma örneği sizden ricam bu koddaki again etiketinden sonraki satırları özellikle

Oread DQ, 2,[Temp.LowByte,Temp.HighByte, C, C, C, C, C, CPerD]

satırını açıklmanız böylece bana ve forumdaki merak eden bilmeyen arkadaşlara çok yardımcı olursunuz yardımlarınız için şimdiden teşekkürler..

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
Note.
The equation used in the program above will not wor