易语言OpenGL教程第34课地形源码

系统结构:LoadRawFile,ReSizeGLScene,InitGL,Height,SetVertexColor,RenderHeightMap,DrawGLScene,KillGLWindow,CreateGLWindow,WndProc,WinMain,HIWORD,LOWORD,UnregisterClass,DestroyWindow,修改分辨率,获取分辨率,GetModuleHandle,LoadCursor,LoadIcon,ShowWindow,RegisterClass,SetForegroundWindow,SetFocus,CreateWindowEx,AdjustWindowRectEx,PostQuitMessage,DefWindowProc,PeekMessage,TranslateMessage,DispatchMessage,取错误信息_,GetStockObject,GetMessage,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ LoadRawFile
           |  |
           |  |------ ReSizeGLScene
           |  |
           |  |------ InitGL
           |  |
           |  |------ Height
           |  |
           |  |------ SetVertexColor
           |  |
           |  |------ RenderHeightMap
           |  |
           |  |------ DrawGLScene
           |  |
           |  |------ KillGLWindow
           |  |
           |  |------ CreateGLWindow
           |  |
           |  |------ WndProc
           |  |
           |  |------ WinMain
           |  |
           |  |
======程序集2
           |  |
           |  |------ HIWORD
           |  |
           |  |------ LOWORD
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   UnregisterClass
           |  |
           |  |---[dll]------   DestroyWindow
           |  |
           |  |---[dll]------   修改分辨率
           |  |
           |  |---[dll]------   获取分辨率
           |  |
           |  |---[dll]------   GetModuleHandle
           |  |
           |  |---[dll]------   LoadCursor
           |  |
           |  |---[dll]------   LoadIcon
           |  |
           |  |---[dll]------   ShowWindow
           |  |
           |  |---[dll]------   RegisterClass
           |  |
           |  |---[dll]------   SetForegroundWindow
           |  |
           |  |---[dll]------   SetFocus
           |  |
           |  |---[dll]------   CreateWindowEx
           |  |
           |  |---[dll]------   AdjustWindowRectEx
           |  |
           |  |---[dll]------   PostQuitMessage
           |  |
           |  |---[dll]------   DefWindowProc
           |  |
           |  |---[dll]------   PeekMessage
           |  |
           |  |---[dll]------   TranslateMessage
           |  |
           |  |---[dll]------   DispatchMessage
           |  |
           |  |---[dll]------   取错误信息_
           |  |
           |  |---[dll]------   GetStockObject
           |  |
           |  |---[dll]------   GetMessage

调用的DLL命令:

.DLL命令 UnregisterClass, 逻辑型, "user32.dll", "UnregisterClassA"
    .参数 lpClassName, 文本型, 传址
    .参数 hInstance, 整数型

.DLL命令 DestroyWindow, 逻辑型, "user32.dll", "DestroyWindow"
    .参数 hWnd, 整数型

.DLL命令 修改分辨率, 整数型, , "ChangeDisplaySettingsA"
    .参数 lpDevMode, 短整数型, 传址 数组
    .参数 dwFlags, 整数型, , 其中的参数二的值4为临时改变分辨率，1为永久改变。

.DLL命令 获取分辨率, 整数型, , "EnumDisplaySettingsA"
    .参数 lpszDeviceName
    .参数 iModeNum
    .参数 lpDevMode, 短整数型, 传址 数组

.DLL命令 GetModuleHandle, 整数型, , "GetModuleHandleA"
    .参数 程序名, 文本型

.DLL命令 LoadCursor, 整数型, "user32.dll", "LoadCursorA", , 从指定的模块或应用程序实例中载入一个鼠标指针
    .参数 实例句柄, 整数型, , hInstance,参见相关帮助
    .参数 鼠标指针标识, , , lpCursorName,参见相关帮助

.DLL命令 LoadIcon, 整数型, "user32.dll", "LoadIconA", , 从指定的模块或应用程序实例中载入一个图标
    .参数 实例句柄, 整数型, , hInstance,参见相关帮助
    .参数 图标标识, , , lpIconName,作为一个字串，指定欲载入的图标资源

.DLL命令 ShowWindow, 整数型, "user32.dll", "ShowWindow"
    .参数 hwnd, 整数型
    .参数 nCmdShow, 整数型

.DLL命令 RegisterClass, 整数型, "user32.dll", "RegisterClassA", , 注册窗口类
    .参数 Class, WNDCLASS, 传址, 窗口的类结构

.DLL命令 SetForegroundWindow, , , "SetForegroundWindow"
    .参数 hwnd

.DLL命令 SetFocus, , , "SetFocus"
    .参数 hwnd

.DLL命令 CreateWindowEx, 整数型, "user32.dll", "CreateWindowExA"
    .参数 扩展风格, 整数型
    .参数 类名, 文本型, , 刚才注册的类名
    .参数 窗口标题, 文本型
    .参数 风格, 整数型
    .参数 屏幕横坐标, 整数型
    .参数 屏幕纵坐标, 整数型
    .参数 宽度, 整数型
    .参数 高度, 整数型
    .参数 父窗口句柄, 整数型, , 没有就写0
    .参数 菜单句柄, 整数型
    .参数 模块句柄, 整数型
    .参数 参数, 整数型

.DLL命令 AdjustWindowRectEx, 逻辑型, , "AdjustWindowRectEx", , BOOL AdjustWindowRectEx(LPRECT lpRect, DWORD dwStyle, BOOL bMenu, DWORD dwExStyle);
    .参数 lpRect, RECT
    .参数 dwStyle
    .参数 bMenu, 逻辑型
    .参数 dwExStyle

.DLL命令 PostQuitMessage, , "user32.dll", "PostQuitMessage"
    .参数 nExitCode, 整数型

.DLL命令 DefWindowProc, 整数型, "user32.dll", "DefWindowProcA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 PeekMessage, 整数型, "user32.dll", "PeekMessageA", , BOOL PeekMessage（LPMSG IpMsg，HWND hWnd，UINT wMSGfilterMin，UINT wMsgFilterMax，UINT wRemoveMsg）
    .参数 lpMsg, MSG, 传址
    .参数 hwnd, 整数型
    .参数 wMsgFilterMin, 整数型
    .参数 wMsgFilterMax, 整数型
    .参数 wRemoveMsg, 整数型

.DLL命令 TranslateMessage, 整数型, "user32.dll", "TranslateMessage"
    .参数 lpMsg, MSG, 传址

.DLL命令 DispatchMessage, 整数型, "user32.dll", "DispatchMessageA"
    .参数 lpMsg, MSG, 传址

.DLL命令 取错误信息_, 整数型, "kernel32", "GetLastError"

.DLL命令 GetStockObject, 整数型, "gdi32.dll", "GetStockObject", , 获取系统提供的背景刷
    .参数 nIndex, 整数型, , 背景刷标示名

.DLL命令 GetMessage, 整数型, "user32", "GetMessageA", , 从线索消息队列中返回一条消息　
    .参数 lpMsg, MSG
    .参数 hwnd, 整数型
    .参数 wMsgFilterMin, 整数型
    .参数 wMsgFilterMax, 整数型