「タイマー」の編集履歴(バックアップ)一覧はこちら

タイマー」(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

表示オプション

横に並べて表示:
変化行の前後のみ表示: