找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 32511|回复: 29
收起左侧

第一次使用易语言写的控制台程序

  [复制链接]
ID:51090 发表于 2014-9-17 23:49 | 显示全部楼层 |阅读模式




.版本 2

.程序集 窗口程序集1
.程序集变量 全局变量1, 文本型
.程序集变量 全局变量2, 整数型

.子程序 _按钮10_被单击

编辑框10.内容 = “”


.子程序 _按钮18_被单击

编辑框7.内容 = “”
编辑框5.内容 = “”

.子程序 _图形按钮35_被单击

.如果 (图形按钮35.选中 = 真)
选择框3.选中 = 真
选择框4.选中 = 真
选择框5.选中 = 真
选择框6.选中 = 真
.否则
选择框3.选中 = 假
选择框4.选中 = 假
选择框5.选中 = 假
选择框6.选中 = 假
.如果结束


.子程序 _选择框1_被单击

.如果 (选择框1.选中 = 真)
图片框6.可视 = 假
信息框 (“电机1已开启”, 0, )
.否则
图片框6.可视 = 真
.如果结束


.子程序 _选择框2_被单击

.如果 (选择框2.选中 = 真)
图片框7.可视 = 假
信息框 (“电机2已开启”, 0, )
.否则
图片框7.可视 = 真
.如果结束


.子程序 _组合框1_列表项被选择

端口1.波特率 = 组合框1.现行选中项

.子程序 _组合框2_列表项被选择

端口1.端口号 = 组合框2.现行选中项 + 1

.子程序 _组合框3_列表项被选择

端口1.数据位数 = 组合框3.现行选中项 + 5

.子程序 _组合框4_列表项被选择

端口1.停止位数 = 组合框4.现行选中项 × 0.5 + 1

.子程序 _组合框5_列表项被选择

端口1.奇偶校验方案 = 组合框5.现行选中项

.子程序 _按钮14_被单击

.如果 (端口1.发送数据 (编辑框7.内容) = 假)
编辑框5.内容 = “发送失败!”
图片框4.可视 = 假
编辑框7.内容 = “”
.否则
编辑框5.内容 = “发送成功!”
图片框4.可视 = 真
编辑框7.内容 = “”
.如果结束


.子程序 _图形按钮2_被单击


.如果 (图形按钮2.选中 = 假)
.如果 (端口1.启动 () = 假)
.如果 (信息框 (“端口被侵占!”, 0, ) = 0)
图形按钮2.选中 = 假
.否则

.如果结束
图形按钮2.选中 = 真
.否则

.如果结束

.否则

.如果结束

.如果 (图形按钮2.选中 = 真)
端口1.停止 ()
.否则

.如果结束


.子程序 _按钮1_被单击

.如果 (图形按钮37.选中 = 假)
编辑框7.加入文本 (“1”)
.否则
编辑框7.内容 = “1”

.如果结束


.子程序 _按钮2_被单击

编辑框7.加入文本 (“2”)

.子程序 _按钮3_被单击

编辑框7.加入文本 (“3”)

.子程序 _按钮11_被单击

编辑框7.加入文本 (“#”)

.子程序 _编辑框7_内容被改变

.如果 (编辑框7.内容 = “#”)
编辑框5.内容 = “”
.否则

.如果结束
.如果 (取文本长度 (编辑框7.内容) > 22)
信息框 (“停停停停停!”, 0, )
.否则

.如果结束


.子程序 _按钮5_被单击

编辑框7.加入文本 (“4”)

.子程序 _按钮4_被单击

编辑框7.加入文本 (“5”)

.子程序 _按钮6_被单击

编辑框7.加入文本 (“6”)

.子程序 _按钮12_被单击

编辑框7.加入文本 (“0”)

.子程序 _按钮7_被单击

编辑框7.加入文本 (“7”)

.子程序 _按钮8_被单击

编辑框7.加入文本 (“8”)

.子程序 _按钮9_被单击

编辑框7.加入文本 (“9”)

.子程序 _按钮13_被单击

编辑框7.加入文本 (“*”)

.子程序 _按钮15_被单击

全局变量2 = 取文本长度 (编辑框7.内容)
全局变量1 = 取文本左边 (编辑框7.内容, 全局变量2 - 1)
编辑框7.内容 = 全局变量1

.子程序 __启动窗口_创建完毕
.局部变量 RET, 整数型

RET = GetWindowLong (取窗口句柄 (), -20)
RET = 位或 (RET, 524288)
SetWindowLong (取窗口句柄 (), -20, RET)
SetLayeredWindowAttributes (_启动窗口.取窗口句柄 (), 0, 255, 2)



.子程序 _滑块条3_位置被改变

SetLayeredWindowAttributes (_启动窗口.取窗口句柄 (), 0, 滑块条3.位置, 2)


.子程序 _端口1_收到信号
.参数 信号类型, 整数型

编辑框10.加入文本 (“接收到数据”)

.子程序 _编辑框10_内容被改变



.子程序 _编辑框5_内容被改变



.子程序 _外形框3_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型



.子程序 _分组框6_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型



.子程序 _编辑框11_内容被改变



.子程序 _按钮14_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型

.如果 (键代码 = 13)
.如果 (端口1.发送数据 (编辑框7.内容) = 假)
编辑框5.内容 = “发送失败!”
图片框4.可视 = 假
编辑框7.内容 = “”
.否则
编辑框5.内容 = “发送成功!”
图片框4.可视 = 真
编辑框7.内容 = “”
.如果结束


.否则
回复

使用道具 举报

ID:67573 发表于 2014-10-18 11:06 | 显示全部楼层
先顶一个看
回复

使用道具 举报

ID:19715 发表于 2014-10-18 11:28 | 显示全部楼层
程序功能挺多!
易语言,一般人都很容易上手
回复

使用道具 举报

ID:59403 发表于 2014-12-19 13:10 | 显示全部楼层
能不能发个给我
回复

使用道具 举报

ID:59403 发表于 2014-12-19 13:11 | 显示全部楼层
我正在学习这方面的东西
回复

使用道具 举报

ID:71238 发表于 2014-12-27 21:33 | 显示全部楼层
你好,请师傅可以发这个控制台源码过来吗?
回复

使用道具 举报

ID:75246 发表于 2015-3-29 14:07 | 显示全部楼层
易语言,我也用,多联系!向您学习!
回复

使用道具 举报

ID:33544 发表于 2015-10-7 23:49 | 显示全部楼层
你好,请师傅可以发这个控制台源码给我学习一下好吗?先谢谢了。
回复

使用道具 举报

ID:90136 发表于 2015-10-8 15:52 | 显示全部楼层
师傅您好,提一次听说易语言,可以发给我这个资料了解一下么谢谢!
回复

使用道具 举报

ID:71508 发表于 2016-4-29 18:16 | 显示全部楼层
不错  不错 支持国产易语言
回复

使用道具 举报

ID:130762 发表于 2016-7-17 10:03 来自手机 | 显示全部楼层
631872348@qq. com,一直在学这个…谢谢楼主了
回复

使用道具 举报

ID:137700 发表于 2016-8-27 12:44 来自手机 | 显示全部楼层
我一直在找易语言与单片机的通信,老师能不能将您的易码与单片机的源码发一份给我,向您学习学习,先谢谢了。
回复

使用道具 举报

ID:138125 发表于 2016-9-1 09:12 | 显示全部楼层
很想了解一下   向您学习知识  很是感谢  
回复

使用道具 举报

ID:154881 发表于 2017-3-19 16:32 | 显示全部楼层
楼主!麻烦您也给我发一份源码吧!  最近在学单片机串口通信,只是想用易语言 比较简单点
回复

使用道具 举报

ID:66287 发表于 2018-2-12 10:29 | 显示全部楼层
谢谢楼主分享
回复

使用道具 举报

ID:66287 发表于 2018-3-2 10:34 | 显示全部楼层
正在学习易语言,谢谢楼主分享。但串口通讯一直卡壳,请楼主发份完整程序给我,谢谢!

回复

使用道具 举报

ID:344176 发表于 2018-6-4 05:46 | 显示全部楼层
我也是学易语言的,以前弄辅助,现在学单片机视频小车,给我来一份源码吧兄弟。
回复

使用道具 举报

ID:168971 发表于 2018-7-22 18:55 来自手机 | 显示全部楼层
更高级啊,,,学习一下
回复

使用道具 举报

ID:387700 发表于 2018-8-28 23:00 | 显示全部楼层
易语言不错
回复

使用道具 举报

ID:66287 发表于 2018-8-29 09:37 | 显示全部楼层
不错,在学习,谢了!
回复

使用道具 举报

ID:484474 发表于 2019-3-4 20:25 | 显示全部楼层
不错,其实我还是一个小白,学习一下吧
回复

使用道具 举报

ID:231666 发表于 2019-5-14 05:14 | 显示全部楼层
学习中,楼主辛苦
回复

使用道具 举报

ID:637044 发表于 2019-11-6 21:25 来自手机 | 显示全部楼层
您好   很想学习关于易语言控制单片机方面的知识   很是感谢
回复

使用道具 举报

ID:698680 发表于 2020-2-26 18:12 | 显示全部楼层
能发个源码不?
回复

使用道具 举报

ID:841782 发表于 2020-11-10 23:43 | 显示全部楼层
05年接触了易语言, 也是接触的第一门编程语言, 很亲切!
回复

使用道具 举报

ID:855908 发表于 2020-12-12 17:51 来自手机 | 显示全部楼层
能给我发一份源代码吗,我好学习一下
回复

使用道具 举报

ID:963585 发表于 2021-9-2 00:39 | 显示全部楼层
求大神给个源代码,我想开发个机械视觉
回复

使用道具 举报

ID:3802 发表于 2021-12-10 16:34 | 显示全部楼层

好资料,51黑有你更精彩!!!
回复

使用道具 举报

ID:590050 发表于 2021-12-10 16:51 | 显示全部楼层
只是听说易语音,还不会用
回复

使用道具 举报

ID:382174 发表于 2021-12-15 18:42 | 显示全部楼层
中文编程,读着很顺,赞!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表