ab.com コミュニティ

#N88BASIC
Dim Time
Dim pA As *Function()
pA=AddressOf(A)

SetTimer(_PromptSys_hWnd,100,5000,pA)
Print "aaa"

Function A()
    Print "bbb"
End Function

Time=GetTickCount()
Do
    if (GetTickCount()-Time)\1000>=100 then Exit Do'100秒後に抜ける
Loop
KillTimer(_PromptSys_hWnd,1)
End

改良したらうまくいきました。
[hide]
[code]
#N88BASIC
Dim Time
Dim pA As *Function()
pA=AddressOf(A)

SetTimer(_PromptSys_hWnd,100,5000,pA)
Print "aaa"

Function A()
Print "bbb"
End Function

Time=GetTickCount()
Do
if (GetTickCount()-Time)\1000>=100 then Exit Do'100秒後に抜ける
Loop
KillTimer(_PromptSys_hWnd,1)
End
[/code]
[/hide]
というか、関数のポインタと関数自体は違うんですねぇ。
変数と変数のポインタが同じように扱えるので混同してました。

#N88BASIC
Dim Time
SetTimer(_PromptSys_hWnd,1,1000,A())
Print "aaa"

Function A()
	Print "bbb"
End Function

Time=GetTickCount()
Do
	if (GetTickCount()-Time)\1000>=100 then Exit Do'100秒後に抜ける
Loop
KillTimer(_PromptSys_hWnd,1)
End

SetTimerってどーやって使うんですか?
ためしにコードを書いてみてもまるで意味がないのですが。
[code]
#N88BASIC
Dim Time
SetTimer(_PromptSys_hWnd,1,1000,A())
Print "aaa"

Function A()
Print "bbb"
End Function

Time=GetTickCount()
Do
if (GetTickCount()-Time)\1000>=100 then Exit Do'100秒後に抜ける
Loop
KillTimer(_PromptSys_hWnd,1)
End
[/code]
デバッグもやってみましたが、SetTimerの対象の関数がSetTimerで指定したときに発動、その後ずっと変化無しです。

Windowsアプリ作成時に、某Sub内からこの関数を使って5秒位後にウインドウの表示内容を変えつつ他のボタンも待ち時間以内に反応するようなコードが書きたいのですが、どーも思う通りに動作しないのでその部分を切り取って別ファイルにしてみた結果がこれですが、それでも思った通りに動作しません。
誰かサンプル書いて(汗