バグですね。
次のように回避してください。
コード:
#prompt
dim tmp as single
dim temp as double
dim buf[7] as byte
buf[3]=&hc3:buf[2]=&h28:buf[1]=&hb9:buf[0]=&h6b
buf[7]=&hc3:buf[6]=&h28:buf[5]=&hb9:buf[4]=&h6b
print getSingle2(buf)
memcpy(VarPtr(tmp),buf,4)
print tmp
print getDouble(buf)
memcpy(VarPtr(temp),buf,8)
print temp
Function getSingle2(lpSingle As VoidPtr) As Single
SetDWord(VarPtr(getSingle2),GetDWord(lpSingle))
End Function
_________________
Website→
http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。