易语言GDI画CPU动态线源码

系统结构:GetBitmapHandleFromResource,子类化子程序,创建网格,时钟周期,绘画,创建时钟,销毁时钟,置时钟周期,API_SetTimer,API_KillTimer,SetWindowLongA,CallWindowProcA,BeginPaint,EndPaint,GetDC,ReleaseDC,CreateCompatibleDC,SelectObject,lstrcpyn,CreateDIBitmap,DeleteDC,DeleteObject,CreateCompatibleBitmap,BitBlt,SetBkMode,CreateSolidBrush,MoveToEx,LineTo,FrameRect,创建画笔_,api_取窗口状态,取鼠标位置_,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ GetBitmapHandleFromResource
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ 子类化子程序
           |  |
           |  |------ _窗口1_将被销毁
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ 创建网格
           |  |
           |  |------ 时钟周期
           |  |
           |  |------ 绘画
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _更换底图_被选择
           |  |
           |  |
======时钟_类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 创建时钟
           |  |
           |  |------ 销毁时钟
           |  |
           |  |------ 置时钟周期
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_SetTimer
           |  |
           |  |---[dll]------   API_KillTimer
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   BeginPaint
           |  |
           |  |---[dll]------   EndPaint
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   CreateCompatibleDC
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   lstrcpyn
           |  |
           |  |---[dll]------   CreateDIBitmap
           |  |
           |  |---[dll]------   DeleteDC
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   CreateCompatibleBitmap
           |  |
           |  |---[dll]------   BitBlt
           |  |
           |  |---[dll]------   SetBkMode
           |  |
           |  |---[dll]------   CreateSolidBrush
           |  |
           |  |---[dll]------   MoveToEx
           |  |
           |  |---[dll]------   LineTo
           |  |
           |  |---[dll]------   FrameRect
           |  |
           |  |---[dll]------   创建画笔_
           |  |
           |  |---[dll]------   api_取窗口状态
           |  |
           |  |---[dll]------   取鼠标位置_

调用的DLL命令:

.DLL命令 API_SetTimer, 整数型, "user32", "SetTimer", , 安装系统定时器
    .参数 hWnd, 整数型
    .参数 nIDEvent, 整数型
    .参数 uElapse, 整数型
    .参数 lpTimerFunc, 子程序指针

.DLL命令 API_KillTimer, 整数型, "user32", "KillTimer", , 中止定时器
    .参数 hwnd, 整数型
    .参数 nIDEvent, 整数型

.DLL命令 SetWindowLongA, 整数型, , "SetWindowLongA", 公开
    .参数 hWnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型

.DLL命令 CallWindowProcA, 整数型, , "CallWindowProcA", 公开
    .参数 lpPrevWndFunc, 整数型
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 BeginPaint, 整数型, , "BeginPaint", 公开
    .参数 hwnd, 整数型
    .参数 lpPaint, PAINTSTRUCT

.DLL命令 EndPaint, 逻辑型, , "EndPaint", 公开
    .参数 hWnd, 整数型
    .参数 lpPaint, PAINTSTRUCT

.DLL命令 GetDC, 整数型, , "GetDC", 公开
    .参数 hwnd, 整数型

.DLL命令 ReleaseDC, 整数型, , "ReleaseDC", 公开
    .参数 hWnd, 整数型
    .参数 hDC, 整数型

.DLL命令 CreateCompatibleDC, 整数型, , "CreateCompatibleDC", 公开
    .参数 hdc, 整数型

.DLL命令 SelectObject, 整数型, , "SelectObject", 公开
    .参数 hdc, 整数型
    .参数 hgdiobj, 整数型

.DLL命令 lstrcpyn, 整数型, , "lstrcpyn", 公开
    .参数 lpString1, 字节集, 传址
    .参数 lpString2, 字节集, 传址
    .参数 iMaxLength, 整数型

.DLL命令 CreateDIBitmap, 整数型, , "CreateDIBitmap", 公开
    .参数 hdc, 整数型
    .参数 lpbmih, 整数型
    .参数 fdwInit, 整数型
    .参数 lpbInit, 整数型
    .参数 lpbmi, 整数型
    .参数 fuUsage, 整数型

.DLL命令 DeleteDC, 整数型, , "DeleteDC", 公开
    .参数 hdc, 整数型

.DLL命令 DeleteObject, 整数型, , "DeleteObject", 公开
    .参数 hObject, 整数型

.DLL命令 CreateCompatibleBitmap, 整数型, , "CreateCompatibleBitmap", 公开
    .参数 hdc, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型

.DLL命令 BitBlt, 整数型, , "BitBlt", 公开
    .参数 hdcDest, 整数型
    .参数 nXDest, 整数型
    .参数 nYDest, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型
    .参数 hdcSrc, 整数型
    .参数 nXSrc, 整数型
    .参数 nYSrc, 整数型
    .参数 dwRop, 整数型

.DLL命令 SetBkMode, 整数型, , "SetBkMode", 公开
    .参数 hdc, 整数型
    .参数 iBkMode, 整数型

.DLL命令 CreateSolidBrush, 整数型, , "CreateSolidBrush", 公开
    .参数 crColor, 整数型

.DLL命令 MoveToEx, 整数型, "gdi32.dll", "MoveToEx"
    .参数 hdc, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 POINTAPI, POINTAPI

.DLL命令 LineTo, 整数型, "gdi32.dll", "LineTo"
    .参数 hdc, 整数型
    .参数 x, 整数型
    .参数 y, 整数型

.DLL命令 FrameRect, 整数型, , "FrameRect", 公开
    .参数 hDC, 整数型
    .参数 lprc, Rect_, , 可能为 RECT 结构。
    .参数 hbr, 整数型

.DLL命令 创建画笔_, 整数型, "gdi32", "CreatePen", , ,
    .参数 风格, 整数型
    .参数 宽度, 整数型
    .参数 颜色, 整数型

.DLL命令 api_取窗口状态, 整数型, "user32.dll", "GetWindowPlacement", 公开, 成功返回非0
    .参数 窗口句柄, 整数型
    .参数 窗口状态, 窗口状态结构, 传址

.DLL命令 取鼠标位置_, 整数型, "user32", "GetCursorPos", , ,
    .参数 位置, POINTAPI