include   windows.inc

include   user32.inc

includelib      user32.lib

include   kernel32.inc

includelib      kernel32.lib

include   Gdi32.inc

includelib      Gdi32.lib

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

; Equ 等值定義

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

ICO_MAIN     equ   1000h

ID_TIMER     equ   1

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

; 數據段

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

    .data?

hInstance   dd    ?

hWinMain       dd    ?

dwCenterX dd   ? ;圓心X

dwCenterY dd   ? ;圓心Y

dwRadius   dd   ? ;半徑

    .const

szClassName   db   ~Clock~,0

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

; 代碼段

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

      .code

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

; 計算時鐘的位置、大小等參數

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

_CalcClockParam   proc

    local @stRect:RECT

 

    invoke  GetClientRect,hWinMain,addr @stRect

      mov   eax,@stRect.right

  sub eax,@stRect.left   ;eax = 寬度

    mov   ecx,@stRect.bottom

  sub ecx,@stRect.top ;ecx = 高度

;********************************************************************

; 比較客戶區寬度和高度，以小的值用做時鐘的直徑

;********************************************************************

    .if   ecx > eax

  mov edx,eax   ;高度 > 寬度

      sub   ecx,eax

      shr   ecx,1

      mov   dwCenterX,0

      mov   dwCenterY,ecx

    .else

      mov   edx,ecx

      sub   eax,ecx

      shr   eax,1

      mov   dwCenterX,eax

      mov   dwCenterY,0

    .endif

      shr   edx,1

    mov   dwRadius,edx

    add   dwCenterX,edx

    add   dwCenterY,edx

    ret

 

_CalcClockParam   endp

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

; 計算時鐘圓周上某個角度對應的 X 坐標

; X = 圓心X + Sin(角度) * 半徑

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

_dwPara180     dw    180

_CalcX      proc     _dwDegree,_dwRadius

      local @dwReturn

 

    fild     dwCenterX

    fild     _dwDegree

      fldpi

  fmul   ;角度*Pi

    fild     _dwPara180

  fdivp st(1),st   ;角度*Pi/180

    fsin     ;Sin(角度*Pi/180)

    fild     _dwRadius

  fmul   ;半徑*Sin(角度*Pi/180)

  fadd   ;X+半徑*Sin(角度*Pi/180)

    fistp @dwReturn

    mov   eax,@dwReturn

    ret

 

_CalcX      endp

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

; 計算時鐘圓周上某個角度對應的 Y 坐標

; Y = 圓心Y - Cos(角度) * 半徑

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

_CalcY     proc     _dwDegree,_dwRadius

    local @dwReturn

 

    fild     dwCenterY

    fild     _dwDegree

    fldpi

      fmul

      fild     _dwPara180

      fdivp st(1),st

      fcos
    



      fild     _dwRadius

    fmul

      fsubp st(1),st

      fistp @dwReturn

      mov   eax,@dwReturn

      ret

 

_CalcY      endp

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

; 按照 _dwDegreeInc 的步進角度，畫 _dwRadius 為半徑的小圓點

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

_DrawDot     proc     _hDC,_dwDegreeInc,_dwRadius

    local @dwNowDegree,@dwR

      local @dwX,@dwY

 

    mov   @dwNowDegree,0

    mov   eax,dwRadius

      sub   eax,10

    mov   @dwR,eax

    .while  @dwNowDegree <= 360

    finit

;********************************************************************

; 計算小圓點的圓心坐標

;********************************************************************

      invoke  _CalcX,@dwNowDegree,@dwR

      mov   @dwX,eax

      invoke  _CalcY,@dwNowDegree,@dwR

      mov   @dwY,eax

  

  mov eax,@dwX   ;畫點

      mov   ebx,eax

      mov   ecx,@dwY

      mov   edx,ecx

      sub   eax,_dwRadius

      add   ebx,_dwRadius

        sub   ecx,_dwRadius

      add   edx,_dwRadius

      invoke  Ellipse,_hDC,eax,ecx,ebx,edx

  

      mov   eax,_dwDegreeInc

      add   @dwNowDegree,eax

      .endw

      ret

_DrawDot     endp

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

; 畫 _dwDegree 角度的線條，半徑=時鐘半徑-參數_dwRadiusAdjust

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

_DrawLine   proc     _hDC,_dwDegree,_dwRadiusAdjust

    local @dwR

    local @dwX1,@dwY1,@dwX2,@dwY2

      mov eax,dwRadius

      sub eax,_dwRadiusAdjust

      mov @dwR,eax

;********************************************************************

; 計算線條兩端的坐標

;********************************************************************

      invoke  _CalcX,_dwDegree,@dwR

      mov   @dwX1,eax

      invoke  _CalcY,_dwDegree,@dwR

    mov   @dwY1,eax

      add   _dwDegree,180

    invoke  _CalcX,_dwDegree,10

    mov   @dwX2,eax

    invoke  _CalcY,_dwDegree,10