易语言模拟心电图源码

系统结构:创建字体,CreateCompatibleBitmap,CreateCompatibleDC,GetDC,DeleteDC,DeleteObject,SelectObject,BitBlt,CreatePen,SetBkColor,MoveToEx,LineTo,ReleaseDC,SetBkMode,CreateSolidBrush,GetWindowRect,CreateFontA,FillRect,TextOut,SetTextColor,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _按钮_停止_被单击
           |  |
           |  |------ _按钮_开始_被单击
           |  |
           |  |------ _窗口1_将被销毁
           |  |
           |  |------ 创建字体
           |  |
           |  |------ _时钟_计时_周期事件
           |  |
           |  |------ _时钟_画线_周期事件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateCompatibleBitmap
           |  |
           |  |---[dll]------   CreateCompatibleDC
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   DeleteDC
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   BitBlt
           |  |
           |  |---[dll]------   CreatePen
           |  |
           |  |---[dll]------   SetBkColor
           |  |
           |  |---[dll]------   MoveToEx
           |  |
           |  |---[dll]------   LineTo
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   SetBkMode
           |  |
           |  |---[dll]------   CreateSolidBrush
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   CreateFontA
           |  |
           |  |---[dll]------   FillRect
           |  |
           |  |---[dll]------   TextOut
           |  |
           |  |---[dll]------   SetTextColor

调用的DLL命令:

.DLL命令 CreateCompatibleBitmap, 整数型, "gdi32", "CreateCompatibleBitmap"
    .参数 hDC, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型

.DLL命令 CreateCompatibleDC, 整数型, "gdi32", "CreateCompatibleDC"
    .参数 hDC, 整数型

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

.DLL命令 DeleteDC, 整数型, "gdi32", "DeleteDC"
    .参数 hDC, 整数型

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

.DLL命令 SelectObject, 整数型, "gdi32", "SelectObject"
    .参数 hDC, 整数型
    .参数 hObject, 整数型

.DLL命令 BitBlt, 整数型, "gdi32", "BitBlt"
    .参数 hDC, 整数型
    .参数 X, 整数型
    .参数 Y, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型
    .参数 hSrcDC, 整数型
    .参数 xSrc, 整数型
    .参数 ySrc, 整数型
    .参数 dwRop, 整数型

.DLL命令 CreatePen, 整数型, "gdi32", "CreatePen"
    .参数 风格, 整数型
    .参数 宽度, 整数型
    .参数 颜色, 整数型

.DLL命令 SetBkColor, 整数型, , "SetBkColor"
    .参数 hdc, 整数型
    .参数 crColor, 整数型

.DLL命令 MoveToEx, 整数型, , "MoveToEx"
    .参数 hdc, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 lpPoint, 坐标_

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

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

.DLL命令 SetBkMode, , , "SetBkMode"
    .参数 hdc, 整数型
    .参数 nBkMode, 整数型

.DLL命令 CreateSolidBrush, 整数型, "gdi32", "CreateSolidBrush", , 用纯色创建一个刷子　如执行成功，返回新刷子的一个句柄；否则返回零
    .参数 crColor, 整数型, , 数字的RGB彩色;  

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

.DLL命令 CreateFontA, 整数型, , "CreateFontA", , 创建逻辑字体，执行成功则返回逻辑字体的句柄，零表示失败。会设置GetLastError
    .参数 nHeight, 整数型, , 所创建字体的字符高度
    .参数 nWidth, 整数型, , 字体的字符平均宽度
    .参数 nEscapement, 整数型, , 字符输出方向与水平向右的方向所成角度，以0.1度为单位
    .参数 nOrientation, 整数型, , 字符与基线的角度，以0.1度为单位
    .参数 nWeight, 整数型, , 字符颜色的深浅度
    .参数 bItalic, 字节型, , 斜体属性标志(0:正常字体，非0:斜体)
    .参数 bUnderline, 字节型, , 下划线属性标志(0:无下划线，非0:有下划线)
    .参数 cStrikeOut, 字节型, , 删除线属性标志(0:无删除线，非0:有删除线) 
    .参数 nCharSet, 字节型, , 字符集标识0:ANSI字符集，1:系统缺省字符集
    .参数 nOutPrecision, 字节型, , 输出精度
    .参数 nClipPrecision, 字节型, , 剪切精度
    .参数 nQuality, 字节型, , 输出品质
    .参数 nPitchAndFamily, 字节型, , 字符间距
    .参数 lpszFacename, 文本型, , 现有系统TrueType字体名称

.DLL命令 FillRect, 整数型, "user32", "FillRect", , 用指定的刷子填充一个矩形　非零表示成功，零表示失败。会设置GetLastError
    .参数 hdc, 整数型, , 设备场景的句柄
    .参数 lpRect, 矩形_, , RECT，对填充区域进行描述的一个矩形，采用逻辑坐标
    .参数 hBrush, 整数型, , 欲使用的刷子的句柄;  

.DLL命令 TextOut, 整数型, "gdi32", "TextOutA"
    .参数 hdc, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 lpString, 文本型
    .参数 nCount, 整数型

.DLL命令 SetTextColor, 整数型, "gdi32"
    .参数 hdc, 整数型
    .参数 crColor, 整数型