//  __________________ // |                  | // | おじゃま時計           | // | デスクトップ上を動きます     | // | クリックで終了します       | // | あまり役に立つものではありません | // |__________________| // TIMER { // ウインドウを移動 SetWinPos(px,py,1) ; px = px + move ; // はじまで行ったら移動方向反転 if(px > SCR_X - WIN_X){ move = -20 ; } if(px < 0){ move = 20 ; } // 水色で塗りつぶし Box(0,0,WIN_X,WIN_Y,5,5) ; // 時刻を表示 x = 4 ; y = 4 ; PrintData(x,y,0,8,16,1,0,HOUR) ; x = x + 16 ; Print(x,y,0,8,16,1,":") ; x = x + 16 ; PrintData(x,y,0,8,16,1,0,MIN) ; x = x + 16 ; Print(x,y,0,8,16,1,":") ; x = x + 16 ; PrintData(x,y,0,8,16,1,0,SEC) ; } // クリックで終了 LBUTTONDOWN { end ; } RBUTTONDOWN { end ; } INIT { SetFont("MS ゴシック",1) ; // MS ゴシックの斜体を指定 px = 0 ; // 初期X座標(移動する) py = SCR_Y/2 ; // 初期Y座標(中央に固定) move = 20 ; // 初期移動方向(右へ) } CREATE { SetWinStyle(3) ; SetWinSize(94,24) ; SetWinPos(0,SCR_Y/2,1) ; SetTimer(1000) ; // 1秒タイマー }