tfloat.inc

转载别人ds18b20proteus作品希望对proteus library里没有ds18b20的xdjm们有用！

dim f_dpart1 as word
dim f_ndpart1 as word
dim f_dpart2 as word
dim f_ndpart2 as word
dim f_zeros as byte

f_ndpart1=0
f_dpart1=0
f_ndpart2=0
f_dpart2=0

goto TheEnd

addDecimalVal:

if f_dpart2>0 then
f_dpart2=f_dpart2+f_dpart1
endif

if f_dpart2>10000 then
f_dpart1=f_dpart2//10000
f_ndpart1=f_ndpart1+f_dpart2/10000

else
f_dpart1=f_dpart2
endif
f_ndpart1=f_ndpart1+f_ndpart2

f_zeros=0

if f_dpart1<=9 then
f_zeros=3
goto Kk 
endif

if f_dpart1<=99  then
f_zeros=2
goto kK
endif

if f_dpart1<=999  then
f_zeros=1
goto kK
endif

KK:
return

TheEnd: