易语言三维七夕图源码

系统结构:高精度等待,窗口新过程,时钟周期事件,重画_3D,创建自窗口句柄,点旋转运算,取低位,取高位,添加_粒子,按标识删除粒子,取轴x分量,取轴y分量,创建自窗口句柄,创建随机粒子,创建矩阵粒子,设置目标位置,计算,GetX,GetY,GetZ,SetPos,API_BitBlt,API_GetDC,API_SetWindowLong,API_CallWindowProc,API_SetTimer,API_GetWindowRect,API_BeginPaint,API_EndPaint,SetWaitableTimer,CreateWaitableTimerA,CloseHandle,MsgWaitForMultipleObjects,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_首次激活
           |  |
           |  |------ 高精度等待
           |  |
           |  |
======三维图形类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 窗口新过程
           |  |
           |  |------ 时钟周期事件
           |  |
           |  |------ 重画_3D
           |  |
           |  |------ 创建自窗口句柄
           |  |
           |  |------ 点旋转运算
           |  |
           |  |------ 取低位
           |  |
           |  |------ 取高位
           |  |
           |  |------ 添加_粒子
           |  |
           |  |------ 按标识删除粒子
           |  |
           |  |------ 取轴x分量
           |  |
           |  |------ 取轴y分量
           |  |
           |  |
======粒子动画类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 创建自窗口句柄
           |  |
           |  |------ 创建随机粒子
           |  |
           |  |------ 创建矩阵粒子
           |  |
           |  |
======质点运动类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 设置目标位置
           |  |
           |  |------ 计算
           |  |
           |  |------ GetX
           |  |
           |  |------ GetY
           |  |
           |  |------ GetZ
           |  |
           |  |------ SetPos
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_BitBlt
           |  |
           |  |---[dll]------   API_GetDC
           |  |
           |  |---[dll]------   API_SetWindowLong
           |  |
           |  |---[dll]------   API_CallWindowProc
           |  |
           |  |---[dll]------   API_SetTimer
           |  |
           |  |---[dll]------   API_GetWindowRect
           |  |
           |  |---[dll]------   API_BeginPaint
           |  |
           |  |---[dll]------   API_EndPaint
           |  |
           |  |---[dll]------   SetWaitableTimer
           |  |
           |  |---[dll]------   CreateWaitableTimerA
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   MsgWaitForMultipleObjects

调用的DLL命令:

.DLL命令 API_BitBlt, 整数型, "gdi32", "BitBlt", , 将一幅位图从一个设备场景复制到另一个。源和目标DC相互间必须兼容  非零表示成功，零表示失败。会设置GetLastError
    .参数 hDestDC, 整数型, , 目标设备场景
    .参数 x, 整数型, , 对目标DC中目标矩形左上角位置进行描述的那个点。用目标DC的逻辑坐标表示
    .参数 y, 整数型, , 同上
    .参数 nWidth, 整数型, , 欲传输图象的宽度和高度
    .参数 nHeight, 整数型, , 同上
    .参数 hSrcDC, 整数型, , 源设备场景。如光栅运算未指定源，则应设为0
    .参数 xSrc, 整数型, , 对源DC中源矩形左上角位置进行描述的那个点。用源DC的逻辑坐标表示
    .参数 ySrc, 整数型, , 同上
    .参数 dwRop, 整数型, , 传输过程要执行的光栅运算;

.DLL命令 API_GetDC, 整数型, "user32", "GetDC", , 获取指定窗口的设备场景  指定窗口的设备场景句柄，出错则为0
    .参数 hwnd, 整数型, , 将获取其设备场景的窗口的句柄。若为0，则要获取整个屏幕的DC;

.DLL命令 API_SetWindowLong, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息  指定数据的前一个值
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型

.DLL命令 API_CallWindowProc, 整数型, "user32", "CallWindowProcA", , 将消息传答窗口函数
    .参数 lpPrevWndFunc, 整数型
    .参数 hwnd, 整数型
    .参数 msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

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

.DLL命令 API_GetWindowRect, 整数型, "user32", "GetWindowRect", , 获得整个窗口的范围矩形，窗口的边框、标题栏、滚动条及菜单等都在这个矩形内  非零表示成功，零表示失败。会设置GetLastError
    .参数 hwnd, 整数型, , 想获得范围矩形的那个窗口的句柄
    .参数 lpRect, RECT, , RECT，屏幕坐标中随同窗口装载的矩形;

.DLL命令 API_BeginPaint, 整数型, "user32", "BeginPaint", , 准备一个画图窗
    .参数 hwnd, 整数型
    .参数 lpPaint, PAINTSTRUCT

.DLL命令 API_EndPaint, 整数型, "user32", "EndPaint", , 在指定窗口中标记图画结尾标志
    .参数 hwnd, 整数型
    .参数 lpPaint, PAINTSTRUCT

.DLL命令 SetWaitableTimer, 整数型, , "SetWaitableTimer"
    .参数 hTimer, 整数型
    .参数 pDueTime, LARGE_INTEGER
    .参数 lPeriod, 整数型
    .参数 pfnCompletionRoutine, 整数型
    .参数 lpArgToCompletionRoutine, 整数型
    .参数 fResume, 逻辑型

.DLL命令 CreateWaitableTimerA, 整数型, , "CreateWaitableTimerA"
    .参数 lpTimerAttributes, 整数型
    .参数 bManualReset, 逻辑型
    .参数 lpTimerName, 整数型

.DLL命令 CloseHandle, 逻辑型, , "CloseHandle"
    .参数 hObject, 整数型

.DLL命令 MsgWaitForMultipleObjects, 整数型, , "MsgWaitForMultipleObjects"
    .参数 nCount, 整数型
    .参数 pHandles, 整数型, 传址
    .参数 fWaitAll, 逻辑型
    .参数 dwMilliseconds, 整数型
    .参数 dwWakeMask, 整数型