1.[易语言]易语言关机源码
2.易语言做键盘记录器的简易源码
3.CRC16校验算法源码(易语言)
4.易语言——如何写计算器源码?
[易语言]易语言关机源码
详细展示易语言关机源码,包括易语言定时关机源码及倒计时关机源码。易单源
打开易语言
安装易语言,语言源码易语言简使易语言软件可以正常运行及编译。简易打开易语言。易单源
关机源码,语言源码易语言简sdl2.0 源码可2选1使用
使用“关闭系统”命令来进行关闭。简易此命令属于“操作系统界面功能支持库” 命令源码: 关闭系统 (#关机,易单源 真)
使用“运行”命令来调用shutdown.exe实现关机。此命令属于“系统核心支持库” 命令源码: 运行 (“shutdown.exe -s -t 0”,语言源码易语言简 假, )
定时关机源码
在这里使用“运行”的关机方法来进行演示。 先做界面,简易6个编辑框,易单源6个标签,语言源码易语言简一个按钮。简易命理网源码
在界面编辑窗口双击按钮进入按钮的易单源单击事件代码编写代码。
编写代码。语言源码易语言简见图,代码后有说明。 代码: .版本 2 .子程序 _按钮1_被单击 .局部变量 当前时间, 日期时间型, , , 用来存放点击按钮时的时间变量 .局部变量 设置时间, 日期时间型, , , 用来存放点在软件上设置的时间变量 .局部变量 剩余秒数, 整数型, , , 用来存放离关机时间的秒数 当前时间 = 取现行时间 () 设置时间 = 到时间 (编辑框1.内容 + “年” + 编辑框2.内容 + “月” + 编辑框3.内容 + “日” + 编辑框4.内容 + “时” + 编辑框5.内容 + “分” + 编辑框6.内容 + “秒”) 剩余秒数 = 取时间间隔 (设置时间, 当前时间, #秒) 延时 (剩余秒数 × ) 运行 (“shutdown.exe -s -t 0”, 假, )
倒计时关机源码
先做界面,并进入代码编辑窗口。图像源码这两步可见上一步骤同样的方法。 界面为一个编辑框,一个标签,一个按钮
编写代码:(注意一下延迟与延时的区别,用法是一样的。) .版本 2 .支持库 spec .子程序 _按钮1_被单击 .局部变量 剩余秒数,dlib 源码 整数型, , , 用来存放离关机时间的秒数 剩余秒数 = 到整数 (编辑框1.内容) 延迟 (剩余秒数 × ) 运行 (“shutdown.exe -s -t 0”, 假, )
易语言做键盘记录器的源码
易语言做键盘记录器的源码如下:
程序集
窗口程序集1
子程序
__启动窗口_创建完毕
SkinH_Attach
()
编辑框1禁止
=
真
停止按钮禁止
=
真
信息框
(“欢迎使用小天键盘记录系统,在关闭此记录系统后,会自动保存记录的内容到运行目录!”,
#信息图标,
“欢迎使用!”)
子程序
_停止按钮_被单击
开始按钮禁止
=
假
编辑框1禁止
=
真
时钟1时钟周期
=
0
停止按钮禁止
=
真
子程序
_开始按钮_被单击
开始按钮禁止
=
真
编辑框1禁止
=
假
时钟1时钟周期
=
停止按钮禁止
=
假
子程序
_时钟1_周期事件
编辑框1加入文本
(看看按键
())
子程序
_按钮1_被单击
编辑框1内容
=
“
”
子程序
__启动窗口_可否被关闭,
逻辑型
写到文件
(取运行目录
()
+
“\记录内容txt”,
到字节集
(编辑框1内容))
销毁
()
子程序
_按钮2_被单击
删除文件
(取运行目录
()
+
“\记录内容txt”)
CRC校验算法源码(易语言)
CRC校验算法源码在易语言中的实现如下:
版本 2
子程序 _CRC校验计算, 参数 预校验内容, 预校验内容为字节型数组
局部变量 crc, 用于存储校验值,初始值为 "2"
局部变量 返回数据, 用于存储最终的校验值,类型为整数型
局部变量 j,layoutinflater 源码 用于数组索引,类型为整数型
局部变量 被校验内容, 用于存储数组中的每个字节,类型为字节型
局部变量 i, 用于循环计数,类型为整数型
局部变量 CY, 用于判断当前位是否为1,类型为整数型
局部变量 crc高位, 用于存储高位校验值,类型为文本型
局部变量 crc低位, 用于存储低位校验值,类型为文本型
初始化crc为 { , }
计次循环首 (取数组成员数 (预校验内容), j)
被校验内容 = 预校验内容 [j]
crc [2] = 位异或 (被校验内容, crc [2])
计次循环首 (8, i)
CY = 位与 (crc [2], 1) ' 检查CRC[2]与1有没有共同位
如果 (CY = 1) ' 如果CRC[2]与1有共同位
crc [2] = 右移 (crc [2], 1) ' 低位右移一位
如果真 (位与 (crc [1], 1) = 1) ' 如果校验高位与1有共同位
crc [2] = 位或 (crc [2], ) ' 给crc低位最高位补1
如果真结束
crc [1] = 右移 (crc [1], 1) ' crc高位右移一位
crc [2] = 位异或 (crc [2], 1) ' CRC低位与生成多项式0XA求异或
crc [1] = 位异或 (crc [1], ) ' CRC高位与生成多项式0XA求异或
否则
crc [2] = 右移 (crc [2], 1) ' 低为右移一位
如果真 (位与 (crc [1], 1) = 1) ' 如果校验高位与1有共同位
crc [2] = 位或 (crc [2], ) ' 给crc低位最高位补1
如果真结束
crc [1] = 右移 (crc [1], 1) ' 高位右移1位
否则结束
计次循环尾 ()
计次循环尾 ()
如果真 (取文本长度 (到文本 (crc [1])) = 1)
crc高位 = “” + 到文本 (crc [1])
如果真结束
如果真 (取文本长度 (到文本 (crc [1])) = 2)
crc高位 = “0” + 到文本 (crc [1])
如果真结束
如果真 (取文本长度 (到文本 (crc [1])) = 3)
crc高位 = 到文本 (crc [1])
如果真结束
如果真 (取文本长度 (到文本 (crc [2])) = 1)
crc低位 = “” + 到文本 (crc [2])
如果真结束
如果真 (取文本长度 (到文本 (crc [2])) = 2)
crc低位 = “0” + 到文本 (crc [2])
如果真结束
如果真 (取文本长度 (到文本 (crc [2])) = 3)
crc低位 = 到文本 (crc [2])
如果真结束
返回 (crc高位 + crc低位)
易语言——如何写计算器源码?
关于易语言编写计算器,方法有很多,这里要编写的源码比较简单,适合初学者学习。效果如下:
一、绘制窗体。
第一步不用说,打开易语言,新建……
然后分别用编辑框和按钮绘制软件框架。
再是对绘制好的编辑框和按钮进行设置。 先是设置编辑框的 名称 和 标题。
然后设置数字按钮(为方便也可以边绘制边设置)。为方便数字按钮可以不用改名称。
为符号按钮设置 名称 和 标题。
二、写代码。
分别双击 0--9的数字键 和 点 的按钮为其编写代码: .版本 2 .子程序 _按钮1_被单击 显示框.加入文本 (“1”) .子程序 _按钮2_被单击 显示框.加入文本 (“2”) .子程序 _按钮3_被单击 显示框.加入文本 (“3”) .子程序 _按钮4_被单击 显示框.加入文本 (“4”) .子程序 _按钮5_被单击 显示框.加入文本 (“5”) .子程序 _按钮6_被单击 显示框.加入文本 (“6”) .子程序 _按钮7_被单击 显示框.加入文本 (“7”) .子程序 _按钮8_被单击 显示框.加入文本 (“8”) .子程序 _按钮9_被单击 显示框.加入文本 (“9”) .子程序 _按钮_被单击 显示框.加入文本 (“0”) .子程序 _dian_被单击 显示框.加入文本 (“.”)
分别双击 + - * /的按钮为其编写代码: .版本 2 .子程序 _jia_被单击 数一.内容 = 显示框.内容 符号.内容 = “+” 显示框.内容 = “” .子程序 _jian_被单击 数一.内容 = 显示框.内容 符号.内容 = “-” 显示框.内容 = “” .子程序 _chen_被单击 数一.内容 = 显示框.内容 符号.内容 = “*” 显示框.内容 = “” .子程序 _chu_被单击 数一.内容 = 显示框.内容 符号.内容 = “/” 显示框.内容 = “”
然后双击 = 按钮编写代码(这里是计算器运算的的核心)。 .版本 2 .子程序 _dengyu_被单击 .如果 (符号.内容 = “+”) 显示框.内容 = 到文本 (到数值 (数一.内容) + 到数值 (显示框.内容)) .否则 .如果 (符号.内容 = “-”) 显示框.内容 = 到文本 (到数值 (数一.内容) - 到数值 (显示框.内容)) .否则 .如果 (符号.内容 = “*”) 显示框.内容 = 到文本 (到数值 (数一.内容) × 到数值 (显示框.内容)) .否则 .如果 (显示框.内容 ≠ “ 0”) .如果 (符号.内容 = “/”) 显示框.内容 = 到文本 (到数值 (数一.内容) ÷ 到数值 (显示框.内容)) .否则 .如果结束 .否则 .如果结束 信息框 (“错误,被除数不能为0”, 0, , ) .如果结束
最后就是清空键和删除键的代码。(删除键代码着实让人费解!~~~乍一看,就那么回事!!~~) .版本 2 .子程序 _C_被单击 显示框.内容 = “” 数一.内容 = “” 符号.内容 = “” .子程序 _删除_被单击 显示框.内容 = 取文本左边 (显示框.内容, 取文本长度 (显示框.内容) - 1)