易语言简易红外线解码器源码

系统结构:API_BitBlt,API_CreateCompatibleBitmap,API_CreateCompatibleDC,API_GetDC,API_LineTo,API_DeleteDC,API_DeleteObject,API_ReleaseDC,API_CreateSolidBrush,API_FillRect,API_SelectObject,API_GetClientRect,API_InvalidateRect,API_BeginPaint,API_EndPaint,API_CallWindowProc,API_SetWindowLong,API_SetBkColor,API_CreatePen,API_MoveToEx,API_DrawText,API_SetTextColor,API_SetBkMode,API_CreateFont,API_GetDeviceCaps,API_MulDiv,

======窗口程序集1
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _check
           |  |
           |  |------ _drawScope
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_BitBlt
           |  |
           |  |---[dll]------   API_CreateCompatibleBitmap
           |  |
           |  |---[dll]------   API_CreateCompatibleDC
           |  |
           |  |---[dll]------   API_GetDC
           |  |
           |  |---[dll]------   API_LineTo
           |  |
           |  |---[dll]------   API_DeleteDC
           |  |
           |  |---[dll]------   API_DeleteObject
           |  |
           |  |---[dll]------   API_ReleaseDC
           |  |
           |  |---[dll]------   API_CreateSolidBrush
           |  |
           |  |---[dll]------   API_FillRect
           |  |
           |  |---[dll]------   API_SelectObject
           |  |
           |  |---[dll]------   API_GetClientRect
           |  |
           |  |---[dll]------   API_InvalidateRect
           |  |
           |  |---[dll]------   API_BeginPaint
           |  |
           |  |---[dll]------   API_EndPaint
           |  |
           |  |---[dll]------   API_CallWindowProc
           |  |
           |  |---[dll]------   API_SetWindowLong
           |  |
           |  |---[dll]------   API_SetBkColor
           |  |
           |  |---[dll]------   API_CreatePen
           |  |
           |  |---[dll]------   API_MoveToEx
           |  |
           |  |---[dll]------   API_DrawText
           |  |
           |  |---[dll]------   API_SetTextColor
           |  |
           |  |---[dll]------   API_SetBkMode
           |  |
           |  |---[dll]------   API_CreateFont
           |  |
           |  |---[dll]------   API_GetDeviceCaps
           |  |
           |  |---[dll]------   API_MulDiv

调用的DLL命令:

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

.DLL命令 API_CreateCompatibleBitmap, 整数型, "gdi32", "CreateCompatibleBitmap", , 创建一幅与设备有关位图，它与指定的设备场景兼容　执行成功返回位图句柄，零表示失败
    .参数 设备场景句柄, 整数型, , 设备场景的句柄
    .参数 宽度, 整数型, , 位图宽度，以像素为单位
    .参数 高度, 整数型, , 位图高度，以像素为单位;  

.DLL命令 API_CreateCompatibleDC, 整数型, "gdi32", "CreateCompatibleDC", , 创建一个与特定设备场景一致的内存设备场景　新设备场景句柄，若出错则为零
    .参数 设备场景句柄, 整数型, , 设备场景句柄。新的设备场景将与它一致。也可能为0以创建一个与屏幕一致的设备场景;  

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

.DLL命令 API_LineTo, 整数型, "gdi32", "LineTo", , 用当前画笔画一条线，从当前位置连到一个指定的点。这个函数调用完毕，当前位置变成x,y点　非零表示成功，零表示失败
    .参数 设备场景句柄, 整数型, , 设备场景的句柄
    .参数 终点横坐标, 整数型, , 线段终点位置，采用逻辑坐标表示。这个点不会实际画出来；它不属于线段的一部分;  
    .参数 终点纵坐标, 整数型, , 同上;

.DLL命令 API_DeleteDC, 整数型, "gdi32", "DeleteDC", , 删除专用设备场景或信息场景，释放所有相关窗口资源。不要将它用于GetDC函数取回的设备场景　执行成功则为非零，失败则为零
    .参数 设备场景句柄, 整数型, , 将要删除的设备场景  在vb里使用不要将它用于由vb hdc属性获取的设备场景句柄;

.DLL命令 API_DeleteObject, 整数型, "gdi32", "DeleteObject", , 用这个函数删除GDI对象，比如画笔、刷子、字体、位图、区域以及调色板等等。对象使用的所有系统资源都会被释放　非零表示成功，零表示失败
    .参数 对象句柄, 整数型, , 一个GDI对象的句柄;  

.DLL命令 API_ReleaseDC, 整数型, "user32", "ReleaseDC", , 释放由调用GetDC或GetWindowDC函数获取的指定设备场景。它对类或私有设备场景无效（但这样的调用不会造成损害）　执行成功为1，否则为0
    .参数 窗口句柄, 整数型, , 要释放的设备场景相关的窗口句柄
    .参数 设备场景, 整数型, , 要释放的设备场景句柄;  

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

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

.DLL命令 API_SelectObject, 整数型, "gdi32", "SelectObject", , 每个设备场景都可能有选入其中的图形对象。其中包括位图、刷子、字体、画笔以及区域等等。一次选入设备场景的只能有一个对象。选定的对象会在设备场景的绘图操作中使用。例如，当前选定的画笔决定了在设备场景中描绘的线段颜色及样式　与以前选入设备场景的相同hObject类型的一个对象的句柄，零表示出错。如选定的对象是一个区域（Region），结果就是下列常数之一：SIMPLEREGION， ;    COMPLEXREGION 或 NULLREGION 对区域进行描述， GDI_ERROR 表示出错
    .参数 设备场景句柄, 整数型, , 一个设备场景的句柄
    .参数 对象句柄, 整数型, , 一个画笔、位图、刷子、字体或区域的句柄;  

.DLL命令 API_GetClientRect, 整数型, "user32", "GetClientRect", , 返回指定窗口客户区矩形的大小　非零表示成功，零表示失败。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲计算大小的目标窗口
    .参数 矩形区域, RECT, , RECT，指定一个矩形，用客户区域的大小载入（以像素为单位）;  

.DLL命令 API_InvalidateRect, 整数型, "user32", "InvalidateRect", , 这个函数屏蔽一个窗口客户区的全部或部分区域。这会导致窗口在事件期间部分重画　非零表示成功，零表示失败
    .参数 窗口句柄, 整数型, , 待屏蔽窗口的句柄
    .参数 屏蔽矩形, RECT, , RECT，用于描述待屏蔽矩形部分的一个矩形结构。可用InvalidateRectBynum函数，同时将lpRect设为零（Long数据类型），从而屏蔽（或禁用）整个窗口
    .参数 重画前删除, 整数型, , TRUE（非零）导致指定的区域在重画前先删除;  

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

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

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

.DLL命令 API_SetWindowLong, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息　指定数据的前一个值
    .参数 hwnd, 整数型, , 欲为其取得信息的窗口的句柄
    .参数 nIndex, 整数型, , 请参考GetWindowLong函数的nIndex参数的说明
    .参数 dwNewLong, 整数型, , 由nIndex指定的窗口信息的新值;

.DLL命令 API_SetBkColor, 整数型, "gdi32", "SetBkColor", , 为指定的设备场景设置背景颜色。背景颜色用于填充阴影刷子、虚线画笔以及字符（如背景模式为OPAQUE）中的空隙。也在位图颜色转换期间使用。参考SetBkMode　前一个背景色，CLR_INVALID表示出错
    .参数 hdc, 整数型, , 设备场景的句柄
    .参数 crColor, 整数型, , 新背景颜色的RGB颜色值;  

.DLL命令 API_CreatePen, 整数型, "gdi32", "CreatePen", , 用指定的样式、宽度和颜色创建一个画笔　如函数执行成功，就返回指向新画笔的一个句柄；否则返回零
    .参数 风格, 整数型, , 指定画笔样式，可以是下述常数之一;PS_SOLID：画笔画出的是实线;PS_DASH：画笔画出的是虚线（nWidth必须是1）;PS_DOT：画笔画出的是点线（nWidth必须是1）;PS_DASHDOT：画笔画出的是点划线（nWidth必须是1）;PS_DASHDOTDOT：画笔画出的是点-点-划线（nWidth必须是1）;PS_NULL：画笔不能画图;PS_INSIDEFRAME：画笔在由椭圆、矩形、圆角矩形、饼图以及弦等生成的封闭对象框中画图。如指定的准确RGB颜色不存在，就进行抖动处理
    .参数 宽度, 整数型, , 以逻辑单位表示的画笔的宽度
    .参数 颜色, 整数型, , 画笔的RGB颜色;  

.DLL命令 API_MoveToEx, 整数型, "gdi32", "MoveToEx", , 为指定的设备场景指定一个新的当前画笔位置。前一个位置保存在lpPoint中　非零表示成功，零表示失败
    .参数 设备场景, 整数型, , 指向一个设备场景的句柄
    .参数 横坐标, 整数型, , 采用逻辑坐标表示的新画笔位置
    .参数 纵坐标, 整数型, , 同上
    .参数 画笔位置, 整数型, , POINTAPI，用于保存前一个画笔位置。可以为NULL（将参数改为ByVal As 以传递一个空参数）;  

.DLL命令 API_DrawText, 整数型, "user32", "DrawTextA", , 将文本描绘到指定的矩形中　描绘文字的高度
    .参数 设备场景句柄, 整数型, , 欲在其中显示文字的一个设备场景的句柄
    .参数 描绘的字串, 文本型, , 欲描绘的文本字串
    .参数 描绘的字串数量, 整数型, , 欲描绘的字符数量。如果要描绘整个字串（直到空中止符），则可将这个参数设为-1
    .参数 描绘文本区域, RECT, , RECT，指定用于绘图的一个格式化矩形（采用逻辑坐标）
    .参数 格式, 整数型, , 一个标志位数组，决定了以何种形式执行绘图。参考下面总结的常数类型列表标志常数说明DT_BOTTOM必须同时指定DT_SINGLE。指示文本对齐格式化矩形的底边DT_CALCRECT象下面这样计算格式化矩形：多行绘图时矩形的底边根据需要进行延展，以便容下所有文字；单行绘图时，延展矩形的右侧。不描绘文字。由lpRect参数指定的矩形会载入计算出来的值DT_CENTER文本垂直居中DT_EXPANDTABS描绘文字的时候，对制表站进行扩展。默认的制表站间距是8个字符。但是，可用DT_TABSTOP标志改变这项设定DT_EXTERNALLEADING计算文本行高度的时候，使用当前字体的外部间距属性（the external leading attribute）DT_LEFT文本左对齐DT_NOCLIP描绘文字时不剪切到指定的矩形DT_NOPREFIX通常，函数认为 & 字符表示应为下一个字符加上下划线。该标志禁止这种行为DT_RIGHT文本右对齐DT_SINGLELINE只画单行DT_TABSTOP指定新的制表站间距，采用这个整数的高8位DT_TOP必须同时指定DT_SINGLE。指示文本对齐格式化矩形的顶部DT_VCENTER必须同时指定DT_SINGLE。指示文本对齐格式化矩形的中部DT_WORDBREAK进行自动换行。如用SetTextAlign函数设置了TA_UPDATECP标志，这里的设置则无效;

.DLL命令 API_SetTextColor, 整数型, "gdi32", "SetTextColor", , 设置当前文本颜色。这种颜色也称为“前景色”　文本色的前一个RGB颜色设定。CLR_INVALID表示失败。会设置GetLastError
    .参数 设备场景, 整数型, , 设备场景的句柄
    .参数 颜色, 整数型, , 新的文本色在VB里使用如改变了这个设置，注意恢复VB窗体或控件原始的文本颜色;

.DLL命令 API_SetBkMode, 整数型, "gdi32", "SetBkMode", , 指定阴影刷子、虚线画笔以及字符中的空隙的填充方式　前一个背景模式的值
    .参数 hdc, 整数型, , 设备场景的句柄
    .参数 nBkMode, 整数型, , 下述常数之一：;OPAQUE：用当前的背景色填充虚线画笔、阴影刷子以及字符的空隙;TRANSPARENT：透明处理，即不作上述填充;  

.DLL命令 API_CreateFont, 整数型, "gdi32", "CreateFontA", , 用指定的属性创建一种逻辑字体　执行成功则返回逻辑字体的句柄，零表示失败。会设置GetLastError
    .参数 字体高度, 整数型, , IfHeight
    .参数 字体宽度, 整数型, , IfWidth
    .参数 旋转, 整数型, , IfEscapement
    .参数 Orientation, 整数型, , IfOrientation
    .参数 加粗, 整数型, , IfWeight
    .参数 倾斜, 整数型, , IfItalic
    .参数 下划线, 整数型, , IfUnderline
    .参数 删除线, 整数型, , IfStrikeOut
    .参数 内码, 整数型, , IfCharSet
    .参数 OutputPrecision, 整数型, , IfOutputPrecision
    .参数 CP, 整数型, , IfClipPrecision
    .参数 输出质量, 整数型, , IfQuality
    .参数 PAF, 整数型, , IfPitchAndFamily
    .参数 新字体名, 文本型, , IfFaceName;  

.DLL命令 API_GetDeviceCaps, 整数型, "gdi32", "GetDeviceCaps", , 根据指定设备场景代表的设备的功能返回信息　参见GetDeviceCaps索引表
    .参数 设备场景, 整数型, , 要查询其设备的信息的设备场景
    .参数 值, 整数型, , 根据GetDeviceCaps索引表所示常数确定返回信息的类型;

.DLL命令 API_MulDiv, 整数型, "kernel32", "MulDiv", , 将两数相乘并并除以结果　
    .参数 nNumber, 整数型
    .参数 nNumerator, 整数型
    .参数 nDenominator, 整数型