新雪花飘飘播放器易语言源码

系统结构:Rnd,InitP,GetContrast,GetDC,GetPixel,SetPixel,ReleaseDC,InvalidateRect,

======窗口程序集1
           |  |
           |  |------ Rnd
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ InitP
           |  |
           |  |------ GetContrast
           |  |
           |  |------ _调整速度_周期事件
           |  |
           |  |------ _画雪花_周期事件
           |  |
           |  |------ _退出_被选择
           |  |
           |  |------ _关于_被选择
           |  |
           |  |------ __启动窗口_托盘事件
           |  |
           |  |------ __启动窗口_位置被改变
           |  |
           |  |------ _Music_被选择
           |  |
           |  |------ _歌曲暂停_被选择
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _编辑框1_内容被改变
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _窗口1_将被销毁
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   GetPixel
           |  |
           |  |---[dll]------   SetPixel
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   InvalidateRect

调用的DLL命令:

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

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

.DLL命令 SetPixel, 整数型, "gdi32"
    .参数 hdc, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 crColor, 整数型

.DLL命令 ReleaseDC, 整数型, "user32"
    .参数 hwnd, 整数型
    .参数 hdc, 整数型

.DLL命令 InvalidateRect, 整数型, "user32"
    .参数 hwnd, 整数型
    .参数 lpRect, 整数型, 传址
    .参数 bErase, 整数型