ab.com コミュニティ

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

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




新しいトピックを投稿する  トピックへ返信する  [ 2 件の記事 ] 
作成者 メッセージ
 記事の件名: 型キャストのバグ
投稿記事Posted: 2005年12月29日(木) 22:17 
Byte,Word型、もしくはその範囲のリテラル値を一旦同ビットの符号付き整数にキャストてから、
より大きいビットの整数型や実数型に代入すると元の符号なし整数型と同値が代入されます。
(DWord型は問題なし。また、引数で直接キャストしても問題なし。)
このため、GET_X_LPARAM,GET_Y_LPARAMマクロが移植できません。
ご確認お願いいたします。
確認バージョン AB Ver4.13.00(2005 Final)
コード:
#prompt
Dim AInteger As Integer
Dim ALong_1 As Long, ALong_2 As Long, AInt64_1, AInt64_2 As Int64
Dim ADouble_1 As Double, ADouble_2 As Double
Dim AByte = &HFF As Byte, AWord = &HFFFF As Word, ADWord = &HFFFFFFFF As DWord

AInteger = (AByte As Char)
ALong_1 = (AWord As Integer)
ALong_2 = (&HFFFF As Integer)
AInt64_1 = (ADWord As Long)
AInt64_2 = (&HFFFFFFFF As Long)
ADouble_1 = (AWord As Integer)
ADouble_2 = (ADWord As Long)

Print Str$(&HFF As Char)
Print Str$(AWord As Integer)
Print Str$(AInteger)
Print Str$(ALong_1)
Print Str$(ALong_2)
Print Str$(AInt64_1)
Print Str$(AInt64_2)
Print Str$(ADouble_1)
Print Str$(ADouble_2)


通報する
ページトップ
   
 記事の件名:
投稿記事Posted: 2006年1月07日(土) 23:19 
オフライン
Site Admin

登録日時: 2005年5月30日(月) 15:08
記事: 535
ご報告ありがとうございます。
次回のバージョンアップで修正しますので、今しばらくお待ちください。


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

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


オンラインデータ

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


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

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