N
nosence
Unregistered / Unconfirmed
GUEST, unregistred user!
Dim HexNum,BoolNum,TempNum,BoolValue,Num<br>Dim S,X,E,ECount,XCount<br><br>//***************************************************************<br>VBSBegin <br> Function FloatType(HexNum)<br> BoolNum="":S=0:X=0:E=0<br> '浮点型转整形<br> '(-1)^s * (1 + x) * 2^(e - 127)<br> '得到他的S的值，并转换为正数<br> If HexNum<0 then<br> BoolValue=1:HexNum=2147483648+HexNum<br> Else<br> BoolValue=0<br> End If<br> '将内存里读出的浮点数的十进制表达值转换成二进制<br> While HexNum>=1<br> TempNum=HexNum Mod 2<br> HexNum=HexNum/2<br> BoolNum=TempNum&BoolNum<br> Wend<br> '将得到的二进制补为32位<br> BoolNum=BoolValue&Right("0000000000000000000000000000000000"&(HexNum Mod 2)&BoolNum,31)<br> S=Left(BoolNum,1)<br> TempE=Mid(BoolNum,2,8)<br> TempX=Right(BoolNum,23)<br> '得到E的十进制值<br> ECount=8<br> While ECount>0<br> E1=Mid(TempE,8-ECount+1,1)<br> E=E+E1*2^(ECount-1)<br> ECount=ECount-1<br> Wend<br> '得到X的十进制值<br> XCount=1<br> While XCount<24<br> X1=Mid(TempX,XCount,1)<br> X=X+X1*2^((-1)*XCount)<br> XCount=XCount+1<br> Wend<br> '得到浮点数的十进制值<br> Num=(-1)^S*(1+X)*2^(E-127)<br> FloatType=Round(Num,2)<br> End Function<br>VBSEnd<br><br><br><br><br>//*****************************************************************<br>//***********************例子**************************************<br>dim a<br>vbscall ReadMemory(&H001D27EA,2,a)<br>b=FloatType(a)<br>messagebox(b)