ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2017年11月24日(金) 19:55

All times are UTC+09:00




新しいトピックを投稿する  トピックへ返信する  [ 1 件の記事 ] 
作成者 メッセージ
 記事の件名: 変数名
投稿記事Posted: 2008年9月25日(木) 23:30 
オフライン

登録日時: 2005年7月25日(月) 13:27
記事: 893
住所: 埼玉県東松山市
空白を含む名前を変数名として使えるようです。
AB313,424,AB5CP5で確認。
AB262でもエラーは出ませんでした。
コード:
Dim a b c As Long,x y z As Long
x y z=a b c
まぁ次のようなコードを書いて遊べるのでこれはこれで面白いのですが。
コード:
const a number=1
Dim b As Long
b=a number
コード:
Sub asm(a As Long,b As Long)
End Sub

const add eax	=1
const edx		=2

asm(add eax,edx)
[hide=p.s.]次は実行時に落ちる
コード:
Sub test(ByRef a As Long)
	a=a+1
End Sub

Dim ByVal eax As Long
Dim eax As Long
test(ByVal eax)
色々弄った結果、aをCで言う所の*aとして扱ってるのに引数として0とかを渡してるのが原因だと判明。
次のようにすると異常停止はしないようだ。(非常にトリッキーな動作をするが・・・。)
コード:
#prompt
Sub test(ByRef a As Long)
	a=a+1
End Sub

Sub cpy(ByRef dst As Long,ByRef src As Long)
	dst=src
End Sub

Dim ByVal eax As Long
Dim eax As Long
eax=VarPtr(ByVal eax)
test(ByVal eax)
Dim b As Long
cpy(b,ByVal eax)
Print b
Print eax
[/hide]

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

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


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

All times are UTC+09:00


オンラインデータ

このフォーラムを閲覧中のユーザー: なし & ゲスト[1人]


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

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