「タイマー」の編集履歴(バックアップ)一覧はこちら
「タイマー」(2010/01/21 (木) 23:02:33) の最新版変更点
追加された行は緑色になります。
削除された行は赤色になります。
'タイマー
#N88BASIC
Dim cx As Single
Dim hwnd As HWND
hwnd = GetForegroundWindow()
SetTimer(hwnd,1,300,AddressOf(TimerProc))
While cx < 10
Sleep(222)
Wend
KillTimer(hwnd,1)
Print "owari"
Sub TimerProc(hwnd As HWND,uMsg As DWOrd,idEvent As *DWord,dwTime As DWord)
If idEvent = 1 Then
Print "cx=";cx
cx = cx + 1
End If
End Sub