ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月29日(金) 08:13

全ての表示時間は UTC+09:00 です




新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 
作成者 メッセージ
投稿記事Posted: 2008年5月04日(日) 05:09 
 む~と申します。
String を Single(Double) に変換する簡単な方法ありませんか?
浮動小数点数の構造の理解なくして変換が出来ないとなると大変で・・・

入力例 "A5D2A43E"
結果:0.32191959 ←これあってるのか(^^;
(数値は適当に多少誤差があっても確認できる程度で)


通報する
ページトップ
   
 記事の件名:
投稿記事Posted: 2008年5月04日(日) 13:04 
オフライン

登録日時: 2005年7月25日(月) 13:27
記事: 893
お住まい: 埼玉県東松山市
まず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)

_________________
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。

に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。


通報する
ページトップ
 記事の件名:
投稿記事Posted: 2008年5月04日(日) 23:11 
 早い返答ありがとうございます。
こんな簡単に出来るとは・・・

勉強になりました。


通報する
ページトップ
   
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 

全ての表示時間は UTC+09:00 です


オンラインデータ

このフォーラムを閲覧中のユーザー: Ahrefs [Bot] & ゲスト[19人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean