by konisi » 2008年5月04日(日) 13:04
まずA$に格納された文字のエンディアンを変更して、
4バイトなのでSingle型に詰め込みました。
コード: 全て選択
#console
Dim A$ As String,s As Single
A$="A5D2A43E"
A$=Mid$(A$,7,2)+Mid$(A$,5,2)+Mid$(A$,3,2)+Mid$(A$,1,2)
SetDWord(VarPtr(s),Val("&H"+A$))
Print s
Sleep(-1)
まずA$に格納された文字のエンディアンを変更して、
4バイトなのでSingle型に詰め込みました。[code]#console
Dim A$ As String,s As Single
A$="A5D2A43E"
A$=Mid$(A$,7,2)+Mid$(A$,5,2)+Mid$(A$,3,2)+Mid$(A$,1,2)
SetDWord(VarPtr(s),Val("&H"+A$))
Print s
Sleep(-1)[/code]