/**************/
/*  画面時計  */
/*     GUI版  */
/**************/
#include <stdio.h>
#include <string.h>
#include <time.h>
#include <windows.h>

HWND  hWnd=NULL;                                    // ｳｨﾝﾄﾞｳのﾊﾝﾄﾞﾙ
MSG   msg;                                          // ｳｨﾝﾄﾞｳ ﾒｯｾｰｼﾞ
int   endFG=0;                                      // 終了ﾌﾗｸﾞ

void  SETwindow(void);                              // ｳｨﾝﾄﾞｳ初期設定
void  byouga(unsigned long);                        // 時計描画
LRESULT CALLBACK WndProc(HWND,UINT,WPARAM,LPARAM);  // ｳｨﾝﾄﾞｳﾌﾟﾛｼｰｼﾞｬ

void  main( )
{
    unsigned long t,tO=0;
    int  ir;

    SETwindow( );                                   // ｳｨﾝﾄﾞｳ初期設定

    tO=time(NULL);                                  // 現在の時刻(秒)
    byouga(tO);                                     // 時計描画

    while( endFG==0 )
      {
        t=time(NULL);                               // 現在の時刻(秒)

        if ( t!=tO )
          {
            byouga(t); tO=t;                        // 時計描画
            Sleep(990);
          }

        ir=PeekMessage(&msg,hWnd,0,0,PM_REMOVE);    // windowsﾒｯｾｰｼﾞ取得
        if ( ir==0 ) continue;                      // ﾒｯｾｰｼﾞなし
        TranslateMessage(&msg);                     // ﾒｯｾｰｼﾞ変換
        DispatchMessage (&msg);                     // ﾒｯｾｰｼﾞ送出
        if ( endFG!=0 ) break;
      }

    DestroyWindow(hWnd);                            // ｳｨﾝﾄﾞｳ破棄
}


void  SETwindow( )
/*----------------------*/
/*  ウィンドウ初期設定  */
/*----------------------*/
{
  WNDCLASS wc;        // ｳｨﾝﾄﾞｳ ｸﾗｽ
  DWORD    Wstyle;    // ｳｨﾝﾄﾞｳ･ｽﾀｲﾙ

    //--ｳｨﾝﾄﾞｳｸﾗｽ設定--
    wc.lpszClassName="画面時計";                    // ｳｨﾝﾄﾞｳ･ｸﾗｽ名
    wc.lpszMenuName =NULL;                          // ｸﾗｽ･ﾒﾆｭｰ･ﾘｿｰｽ名
    wc.hInstance    =GetModuleHandle(NULL);         // ｲﾝｽﾀﾝｽ･ﾊﾝﾄﾞﾙ
    wc.lpfnWndProc  =WndProc;                       // ｳｨﾝﾄﾞｳ･ﾌﾟﾛｼｰｼﾞｬ関数名
    wc.hCursor      =LoadCursor(NULL,IDC_ARROW);    // ｸﾗｽ･ｶｰｿﾙ
    wc.hIcon        =NULL;                          // ｸﾗｽ･ｱｲｺﾝ
    wc.hbrBackground=GetStockObject(BLACK_BRUSH);   // ｸﾗｽ背景ﾌﾞﾗｼ
    wc.style        =CS_OWNDC|                      // ｸﾗｽ･ｽﾀｲﾙ
                     CS_BYTEALIGNCLIENT|
                     CS_BYTEALIGNWINDOW;
    wc.cbClsExtra   =0;                             // 補足ｸﾗｽ･ﾒﾓﾘ
    wc.cbWndExtra   =0;                             // 補足ｳｨﾝﾄﾞｳ･ﾒﾓﾘ

    //--ｳｨﾝﾄﾞｳ･ｽﾀｲﾙ設定--
    Wstyle= WS_OVERLAPPED|                          // 自動表示位置
            WS_SYSMENU|                             // 閉じる可能
            WS_MINIMIZEBOX;                         // 最小化可

    RegisterClass(&wc);                             // ｳｨﾝﾄﾞｳ･ｸﾗｽ登録

    //--ｳｨﾝﾄﾞｳ生成--
    hWnd=CreateWindow(wc.lpszClassName,             // ｸﾗｽ名
                      wc.lpszClassName,             // ｳｨﾝﾄﾞｳ名(実行ﾌｧｲﾙ)
                      Wstyle,                       // ｳｨﾝﾄﾞｳ･ｽﾀｲﾙ
                      0,                            // ｳｲﾝﾄﾞｳ水平位置
                      0,                            // ｳｲﾝﾄﾞｳ垂直位置
                      300,                          // ｳｨﾝﾄﾞｳXｻｲｽﾞ(枠含)
                      100,                          // ｳｨﾝﾄﾞｳYｻｲｽﾞ(枠含)
                      NULL,                         // 親ｳｨﾝﾄﾞｳ･ﾊﾝﾄﾞﾙ
                      NULL,                         // ﾒﾆｭｰﾊﾝﾄﾞﾙ
                      wc.hInstance,                 // ｱﾌﾟﾘｹｰｼｮﾝ･ｲﾝｽﾀﾝｽ･ﾊﾝﾄﾞﾙ
                      NULL);                        // ｳｨﾝﾄﾞｳ作成ﾃﾞｰﾀ

    ShowWindow(hWnd,SW_SHOWDEFAULT);                // ｳｨﾝﾄﾞｳ表示状態設定
}

void  byouga(
/*------------*/
/*  時計描画  */
/*------------*/
unsigned long t)
{
    HDC  hdc;                                       // ﾃﾞﾊﾞｲｽｺﾝﾃｷｽﾄﾊﾝﾄﾞﾙ
    HFONT  hfont;                                   // 論理ﾌｫﾝﾄﾊﾝﾄﾞﾙ
    char  c[128];

    //--表示--
    hdc=GetDC(hWnd);                                // ｳｨﾝﾄﾞｳのDC取得

    SetBkMode(hdc,OPAQUE);                          // 文字の背景=不透明
    SetTextColor(hdc,RGB(255,128,  0));             // ﾃｷｽﾄ色設定
    SetBkColor  (hdc,RGB(  0,  0,  0));             // 背景色=黒

    //--ﾌｫﾝﾄ--
    hfont=CreateFont(                               // ﾌｫﾝﾄ･ｵﾌﾞｼﾞｪｸﾄ生成
            32,                                     // ﾌｫﾝﾄの論理高
            28,                                     // 文字の論理幅
            0,                                      // ﾃｷｽﾄ行の角度
            0,                                      // ﾍﾞｰｽﾗｲﾝとx軸の角度
            FW_THIN,                                // ﾌｫﾝﾄ太さ(標準)
            FALSE,                                  // ｲﾀﾘｯｸ体ﾌﾗｸﾞ
            0,                                      // ｱﾝﾀﾞｰﾗｲﾝﾌﾗｸﾞ
            FALSE,                                  // ﾊﾞｰﾁｶﾙﾗｲﾝﾌﾗｸﾞ
            SHIFTJIS_CHARSET,                       // 文字ｾｯﾄ識別子
            OUT_TT_PRECIS,                          // 出力精度
            CLIP_TT_ALWAYS,                         // ｸﾘｯﾋﾟﾝｸﾞ精度
            PROOF_QUALITY,                          // 出力品質
            FIXED_PITCH|FF_MODERN,                  // ﾋﾟｯﾁ
            "ＭＳ ゴシック");                       // ﾀｲﾌﾟﾌｪｲｽ名
//          "ＭＳ 明朝");                           // ﾀｲﾌﾟﾌｪｲｽ名
    SelectObject(hdc,hfont);                        // ﾌｫﾝﾄ設定

    sprintf(c,"%.8s",ctime(&t)+11);                 // 時分秒(8文字)
    TextOut(hdc,30,20,c,strlen(c));                 // 文字列描画

    DeleteObject(hfont);                            // ﾌｫﾝﾄｵﾌﾞｼﾞｪｸﾄ削除
    ReleaseDC(hWnd,hdc);                            // ｳｨﾝﾄﾞｳのDC解放
}


LRESULT CALLBACK  WndProc(
/*--------------------------*/
/*  ウィンドウプロシージャ  */
/*--------------------------*/
HWND    hwnd,      // ｳｨﾝﾄﾞｳ･ﾊﾝﾄﾞﾙ
UINT    uMsg,      // ﾒｯｾｰｼﾞID
WPARAM  wParam,    // 第1ﾒｯｾｰｼﾞ･ﾊﾟﾗﾒｰﾀ(無符号)
LPARAM  lParam)    // 第2ﾒｯｾｰｼﾞ･ﾊﾟﾗﾒｰﾀ(有符号)
{
  PAINTSTRUCT hpaint;                               // 描画情報
  BOOL        ir=0;

    switch( uMsg )
      {
        case WM_CLOSE://--ｳｨﾝﾄﾞｳ閉--
                PostQuitMessage(0);                 // 実行終了
                endFG=1;
                break;

        case WM_PAINT://--ｳｨﾝﾄﾞｳ更新--
        case WM_SETFOCUS://--ﾌｫｰｶｽ取得--
                break;

        default://--その他--
                ir=DefWindowProc(hwnd,uMsg,wParam,lParam);
      }

    return(ir);
}