• 当前位置: 首页 > 等阶教程源码 > 高级教程源码易语言半黑月自绘时钟源码
  • 易语言半黑月自绘时钟源码

    • 软件授权:
      开源软件
    • 软件大小:
      118.58 KB
    • 文件类型:
      .zip,.e
    • 下载次数:
    • 上传用户:
      心脏
    • 发布时间:
      2018-10-23 14:53
    • 软件等阶:
    • 运行环境:
      Winall,Win2003,WinXP,Win7,Win8
    • 软件评级:

    软件介绍             



     

    易语言半黑月自绘时钟源码


    系统结构:创建完毕,时钟周期事件,处理子程序,BeginPaint,DeleteObject,FillRect,CreateSolidBrush,SelectObject,GetStockObject,Ellipse,CreatePen,LineTo,MoveToEx,DrawText,SetTimer,EndPaint,


    ======程序集1
               |  |
               |  |------ _启动子程序
               |  |
               |  |------ 创建完毕
               |  |
               |  |------ 时钟周期事件
               |  |
               |  |------ 处理子程序
               |  |
               |  |
    ======调用的Dll
               |  |
               |  |---[dll]------   BeginPaint
               |  |
               |  |---[dll]------   DeleteObject
               |  |
               |  |---[dll]------   FillRect
               |  |
               |  |---[dll]------   CreateSolidBrush
               |  |
               |  |---[dll]------   SelectObject
               |  |
               |  |---[dll]------   GetStockObject
               |  |
               |  |---[dll]------   Ellipse
               |  |
               |  |---[dll]------   CreatePen
               |  |
               |  |---[dll]------   LineTo
               |  |
               |  |---[dll]------   MoveToEx
               |  |
               |  |---[dll]------   DrawText
               |  |
               |  |---[dll]------   SetTimer
               |  |
               |  |---[dll]------   EndPaint

      


    易语言半黑月自绘时钟源码


    调用的DLL命令:


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


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


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


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


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


    .DLL命令 GetStockObject, 整数型, "gdi32", "GetStockObject", , 取得一个固有对象(Stock)。这是可由任何应用程序使用的windows标准对象之一  指向指定对象的一个句柄。零表示出错
        .参数 类型, 整数型, , 下述表格中定义的任何常数之一BLACK_BRUSH黑色刷子DKGRAY_BRUSH黑灰色刷子GRAY_BRUSH灰色刷子HOLLOW_BRUSH凹刷子LTGRAY_BRUSH浅灰色刷子NULL_BRUSH空刷子WHITE_BRUSH白色刷子BLACK_PEN黑色画笔NULL_PEN空画笔WHITE_PEN白色画笔ANSI_FIXED_FONT采用windows(ANSI)字符集的等宽字体ANSI_VAR_FONT采用windows(ANSI)字符集的不等宽字体DEVICE_DEFAULT_FONT设备使用的默认字体(NT)DEFAULT_GUI_FONT用户界面的默认字体,包括菜单和对话框字体(Windows 95)OEM_FIXED_FONTOEM字符集的固有字体SYSTEM_FONT屏幕系统字体。这是用于菜单、对话框等等的默认不等宽字体SYSTEM_FIXED_FONT屏幕系统字体。这是用于菜单、对话框等等的默认等宽字体(在windows 3.0之前使用)DEFAULT_PALETTE默认调色板;


    .DLL命令 Ellipse, 整数型, "gdi32", "Ellipse", , 描绘一个椭圆,由指定的矩形围绕。椭圆用当前选择的画笔描绘,并用当前选择的刷子填充  非零表示成功,零表示失败。会设置GetLastError
        .参数 hdc, 整数型
        .参数 X1, 整数型
        .参数 Y1, 整数型
        .参数 X2, 整数型
        .参数 Y2, 整数型


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


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


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


    .DLL命令 DrawText, 整数型, "user32", "DrawTextA", , 将文本描绘到指定的矩形中  描绘文字的高度
        .参数 hdc, 整数型, , 欲在其中显示文字的一个设备场景的句柄
        .参数 lpStr, 文本型, , 欲描绘的文本字串
        .参数 nCount, 整数型, , 欲描绘的字符数量。如果要描绘整个字串(直到空中止符),则可将这个参数设为-1
        .参数 lpRect, 黑月矩形, , RECT,指定用于绘图的一个格式化矩形(采用逻辑坐标)
        .参数 wFormat, 整数型, , 一个标志位数组,决定了以何种形式执行绘图。参考下面总结的常数类型列表标志常数说明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命令 SetTimer, 整数型, "user32", "SetTimer", , 安装系统定时器
        .参数 hWnd, 整数型
        .参数 nIDEvent, 整数型
        .参数 uElapse, 整数型
        .参数 lpTimerFunc, 整数型


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

    相关软件

    下载说明

    本站目前主要提供易语言源码、模块、支持库等下载大部分源码均为ZIP打包,
    注:本站源码主要来源于网络收集。如有侵犯您的利益,请联系我们,我们将及时删除!
    部分源码可能含有危险代码,(如关机、格式化磁盘等),请看清代码在运行。
    由此产生的一切后果本站均不负责。源码仅用于学习使用,如需运用到商业场景请咨询原作者。

    使用本站源码开发的产品均与本站无任何关系,请大家遵守国家相关法律。

     

    推荐排行

    • 易语言小程序解密源码

      原贴 [易语言首发]PCVX小程序解密 因为 我也不懂 就看了下这个 PC小程序解密.e 发出来不知道怎么用,所以 度娘一步步找答案得到 的 自行研究捉摸了下 仅供学习参考 1.打开 PC小程序解...

    • 易语言模块基址获取源码

      易语言模块基址获取源码,模块基址获取,GetModuleBaseAddress...

    • 易语言流程控制编译原理

      易语言流程控制编译原理源码,流程控制编译原理,是否汉字,读字符,是否运算符,是否逻辑运算符,指针回溯,跳过空格,跳过注释,代码块,取程序返回值,外部接口_代码块执行,外部接口_表达式计算,表达式计算,逻辑判断,文本到逻辑,函数调用,函数_位或,函数_测试,函数_信...

    • 易语言搜索程序隐藏代码

      易语言搜索程序隐藏代码源码,搜索程序隐藏代码,枚举子程序...

    • 易语言打鱼学习链表源码

      易语言打鱼学习链表源码,打鱼学习链表,入栈,出栈,清空链表,取顶数据,取索引处值,取长度,取值处索引,插入,删除,倒置,是否为空,到八,入队,出队...

    • 易语言脚本解析类源码

      易语言脚本解析类源码,脚本解析类,子程序1,QEHash,创建进入许可证_,进入许可区_,退出许可区_,删除进入许可证_,启动线程_,销毁线程_,寻找字节集_,内存_申请,内存_释放,内存_尺寸,内存_读整数,内存_写整数,内存_复制,内存_写字节集,内存_写文本,内存_读字节集,...

    • 易语言核心算术计算解析

      易语言核心算术计算解析源码,核心算术计算解析,信息框3,信息框2...

    • 易语言获取网页和密码例

      易语言获取网页和密码例程源码,获取网页和密码例程,取文档对象,取浏览器文档对象_API,注册消息_API,发送消息_API,置鼠标捕获窗口_API,取消鼠标捕获窗口_API,取窗口类名_API,取座标窗口句柄_API,取光标位置_API...

    • 易语言置入代码调用子程

      易语言置入代码调用子程序办法源码,置入代码调用子程序办法,普通写法,置入写法...