'タイマー
#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

タグ:

+ タグ編集
  • タグ:
最終更新:2010年01月21日 23:02