易语言小程序源码(用c++或易语言或VB编一个小程序)
本文目录
- 用c++或易语言或VB编一个小程序
- 求易语言一个简单的小程序
- 我用易语言写了个小程序,现在想把它做成开机自动启动的 那个代码怎么写,最好详细点,本人小白
- 请人用易语言帮忙做个小程序,要源码
- 求高手用VB6或者易语言帮忙写个小程序,就几行代码
- 求高手用易语言帮忙写个小程序,就几行代码
- 我用易语言编个小程序,想把一段JS代码嵌入程序里,应该怎么做呢
- 用易语言编写个小程序.
- 易语言猜数字小程序
用c++或易语言或VB编一个小程序
.版本 2.子程序 整理IP.局部变量 IP分割, 文本型, , "0".局部变量 i, 整数型.局部变量 IP, 文本型IP分割 = 分割文本 (#IP, #换行符, ).计次循环首 (取数组成员数 (IP分割), i) IP = 取文本右边 (IP分割 ) - 2) IP = 取文本左边 (IP, 寻找文本 (IP, “H”, , 假) - 2) IP = 文本替换 (IP, 寻找文本 (IP, “ ”, , 假), 1, “:”) 框1.加入文本 (IP + #换行符).计次循环尾 ()
求易语言一个简单的小程序
.版本 2
.支持库 iext
.程序集 窗口程序集1
.程序集变量 姓名, 文本型
.程序集变量 记录, 整数型
.子程序 __启动窗口_创建完毕
按钮1.标题 = “显示”
按钮2.标题 = “查找”
标签1.标题 = “姓名”
标签2.标题 = “姓别”
列表.整行选择 = 真
.如果真 (文件是否存在 (取运行目录 () + “\名单.edb”) = 假)
按钮2.标题 = “加入”
创建名单数据库 ()
.如果真结束
打开 (取运行目录 () + “\名单.edb”, “md”, , , , , )
.子程序 创建名单数据库, 逻辑型
.局部变量 字段, 字段信息, , "2"
字段 .名称 = “姓名”
字段 .类型 = #文本型
字段 .最大文本长度 = 8
字段 .名称 = “姓别”
字段 .类型 = #文本型
字段 .最大文本长度 = 2
创建 (取运行目录 () + “\名单.edb”, 字段)
返回 (真)
.子程序 _按钮2_被单击
.如果真 (按钮2.标题 = “查找”)
到首记录 ()
姓名 = “”
.计次循环首 (取记录数 (), 记录)
.如果真 (读 (“姓名”) = 框1.内容)
姓名 = 框1.内容
框2.内容 = 读 (“姓别”)
跳出循环 ()
.如果真结束
跳过 ()
.计次循环尾 ()
.如果真 (姓名 = “”)
.如果真 (信息框 (“数据库中查找不到该名字,是否加入人员!”, 4, “提示”) = 5)
.如果 (信息框 (“姓别是《男》吗?”, 4, “确认”) = 5)
框2.内容 = “男”
.否则
框2.内容 = “女”
.如果结束
按钮2.标题 = “加入”
_按钮2_被单击 ()
.如果真结束
返回 ()
.如果真结束
.如果真 (信息框 (“是否删除该名字?”, 4, ) = 5)
按钮1.标题 = “删除”
删除名字 ()
.如果真结束
返回 ()
.如果真结束
.如果真 (框2.内容 ≠ “男” 且 框2.内容 ≠ “女”)
信息框 (“姓别输入错误!”, 0, )
框2.获取焦点 ()
返回 ()
.如果真结束
加记录 (框1.内容, 框2.内容)
读数据库 ()
.子程序 _按钮1_被单击
.如果真 (按钮1.标题 = “删除”)
删除名字 ()
信息框 (“姓名:” + 框1.内容 + “ 已删除”, 0, )
.如果真结束
读数据库 ()
.子程序 删除名字, 逻辑型
跳到 (记录)
删除 ()
彻底删除 ()
返回 (真)
.子程序 _列表_左键单击表项
框1.内容 = 列表.取标题 (列表.现行选中项, 0)
框2.内容 = 列表.取标题 (列表.现行选中项, 1)
记录 = 列表.取表项数值 (列表.现行选中项)
按钮1.标题 = “删除”
.子程序 读数据库
框1.内容 = “”
框2.内容 = “”
列表.全部删除 ()
到首记录 ()
.循环判断首 ()
记录 = 列表.插入表项 (, , , , , )
列表.置标题 (记录, 0, 读 (“姓名”))
列表.置标题 (记录, 1, 读 (“姓别”))
列表.置表项数值 (记录, 记录 + 1)
跳过 ()
.循环判断尾 (尾记录后 () = 假)
.子程序 _列表_右键单击表项
按钮1.标题 = “显示”
按钮2.标题 = “查找”
读数据库 ()
我用易语言写了个小程序,现在想把它做成开机自动启动的 那个代码怎么写,最好详细点,本人小白
方法一:可以手动把写好的程序放到系统启动组下。方法二:启动时自动复制自身到启动组 .版本 2.支持库 shell.子程序 __启动窗口_创建完毕复制文件 (取运行路径 (), 取特定目录 (7)).版本 2.子程序 取运行路径, 文本型, 公开, 返回程序自身运行路径。如:C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\EDV4E.tmp.局部变量 文件名, 文本型文件名 = 取空白文本 (256)GetModuleFileNameA (0, 文件名, 256)返回 (文件名).版本 2.DLL命令 GetModuleFileNameA, 整数型, "kernel32.dll", "GetModuleFileNameA", , 获取一个已装载模板的完整路径名称 如执行成功,返回复制到lpFileName的实际字符数量;零表示失败。会设置GetLastError .参数 模块句柄, 整数型, , 一个模块的句柄。可以是一个DLL模块,或者是一个应用程序的实例句柄 .参数 文件名缓冲区, 文本型, , 指定一个字串缓冲区,要在其中容纳文件的用NULL字符中止的路径名,hModule模块就是从这个文件装载进来的 .参数 缓冲区大小, 整数型, , 装载到缓冲区lpFileName的最大字符数量;
请人用易语言帮忙做个小程序,要源码
程序代码{.版本 2.支持库 shellEx.支持库 eAPI.程序集 窗口程序集1.程序集变量 热键句柄, 整数型.程序集变量 计次, 整数型.子程序 __启动窗口_创建完毕热键句柄 = 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F10键).子程序 _时钟1_周期事件.局部变量 数字, 文本型.局部变量 计次B, 整数型计次 = 计次 + 1模拟按键 (#A键, #键2, #空格键).计次循环首 (取文本长度 (到文本 (计次)), 计次B) 数字 = 取文本中间 (到文本 (计次), 计次B, 1) .如果真 (数字 = “0”) 模拟按键 (#键0, , ) .如果真结束 .如果真 (数字 = “1”) 模拟按键 (#键1, , ) .如果真结束 .如果真 (数字 = “2”) 模拟按键 (#键2, , ) .如果真结束 .如果真 (数字 = “3”) 模拟按键 (#键3, , ) .如果真结束 .如果真 (数字 = “4”) 模拟按键 (#键4, , ) .如果真结束 .如果真 (数字 = “5”) 模拟按键 (#键5, , ) .如果真结束 .如果真 (数字 = “6”) 模拟按键 (#键6, , ) .如果真结束 .如果真 (数字 = “7”) 模拟按键 (#键7, , ) .如果真结束 .如果真 (数字 = “8”) 模拟按键 (#键8, , ) .如果真结束 .如果真 (数字 = “9”) 模拟按键 (#键9, , ) .如果真结束.计次循环尾 ()模拟按键 (#回车键, , )标题 = 到文本 (计次).如果真 (计次 = 10) _标签1_反馈事件 (0, 0).如果真结束.子程序 _标签1_反馈事件, 整数型.参数 参数一, 整数型.参数 参数二, 整数型.如果 (时钟1.时钟周期 = 0) 时钟1.时钟周期 = 1000 标签1.标题 = “已开启”.否则 时钟1.时钟周期 = 0 标签1.标题 = “已关闭” 标题 = “已关闭”.如果结束.子程序 __启动窗口_将被销毁撤销热键 (取窗口句柄 (), 热键句柄)}END控件就俩 一个时钟 一个标签不用其他设置 想测试稳定性你就打开笔记本 代码里的时钟周期设置为 =1速度高 稳定性强 代码也简便如果还有什么请百度HI ----------------------补充一下 如果你想控制次数的话 就在时钟周期子程序里加个代码补充代码{.如果真 (计次 = 100000)‘这个100000是你所限制的次数 _标签1_反馈事件 (0,0)}
求高手用VB6或者易语言帮忙写个小程序,就几行代码
.版本2.支持库eAPI.判断循环首(真).如果真(文件是否存在(“E:\123\456.txt”))’检测E:\123\456.txt终止进程(“789.exe”)’如果文件存在,则关闭789.exe.如果真结束延时(10×1000)’延时10秒后再次检测456.txt的存在....如果真(取运行目录()=“”)’此处代码用于建立死循环跳出循环().如果真结束.判断循环尾()
求高手用易语言帮忙写个小程序,就几行代码
.版本 2.程序集 窗口程序集1.子程序 __启动窗口_创建完毕.判断开始 (文件是否存在 (取运行目录 () + “\patcher\patcher.exe”) 且 文件是否存在 (取运行目录 () + “\element\elementskill.dll”)) 可视 = 真 运行 (取运行目录 () + “\patcher\patcher.exe”, 假, ).默认 信息框 (“程序不存在或请将此程序放在目录下再运行!”, #错误图标, “性感提示:”) 销毁 ().判断结束
我用易语言编个小程序,想把一段JS代码嵌入程序里,应该怎么做呢
汗,你那个是日历阿? 易语言那里有阿。
《script》//------------------------------------------------------//function GetTime(){ RRS("《span id=’CNlock’》《/span》"); PrintTime();}function PrintTime(){ var cha=document.getElementById(’CNlock’); var Daty=new Date(); var year=Daty.getYear(); var month=Daty.getMonth()+1; var day=Daty.getDate(); var hours=Daty.getHours(); var minutes=Daty.getMinutes(); var seconds=Daty.getSeconds(); if(minutes《=9){minutes="0"+minutes;} if(seconds《=9){seconds="0"+seconds;} myclock=year+’年’+month+’月’+day+’日 ’+hours+’:’+minutes+’:《span style="color:#F00"》’+seconds+’《/span》’; cha.innerHTML=myclock; setTimeout(’PrintTime()’,1000);}《/script》《body》《div》现在时间:《script.GetTime();《/script》《/div》《/body》
用易语言编写个小程序.
方法如下:
1、安装完成后,双击易语言图标打开易语言。这里弹出了一个对话框。
2、双击中间的“windows窗口程序”新建一个程序。界面如图所示。
菜单栏:程序的各种操作及设置。
窗口区:绘制界面
属性设置区:设置组件、窗口的各种属性
组件框:选择各种组件
提示区:显示当前程序的运行、编译情况。显示对于某一命令的帮助提示。
3、在右侧组件框找到“标签”组件 选择后在界面上拖动,松开鼠标,就画出了一个标签。
4、在左侧属性栏找到“标题”属性,修改为“我的第一个程序”并敲下回车。标签的标题就更改了
5、接下来用同样的方法创建一个框和一个按钮。
打出如图中的代码。或者复制以下。
.版本 2
框1.内容 = “你好,世界”
信息框 (“我的第一个易语言程序”, 0, )
6、双击按钮进入代码页面。把输入法调为英文状态。
打出如图中的代码。或者复制以下。
.版本 2
框1.内容 = “你好,世界”
信息框 (“我的第一个易语言程序”, 0, )
7、点击上方三角按钮,或者单击F5运行程序查看效果。效果如图所示
8、点击按钮。弹出了一个信息框,框的标题也变为了“你好,世界”我们的第一个易语言程序制作完成!
易语言猜数字小程序
.版本 2.程序集 窗口程序集1.程序集变量 程序集_随机数, 整数型.子程序 _按钮1_被单击程序集_随机数 = 取随机数 (1, 100).如果 (到整数 (框1_输入内容.内容) > 程序集_随机数)输出调试文本 (1).否则输出调试文本 (2)
本文相关文章:
易语言小程序源码(求高手用VB6或者易语言帮忙写个小程序,就几行代码)
2024年9月26日 22:30
易语言小程序源码(我用易语言编个小程序,想把一段JS代码嵌入程序里,应该怎么做呢)
2024年7月24日 12:37
更多文章:
人类创造的极限速度,仅比光慢了3.6毫米/秒!加速器的工作原理?我玩一个网络游戏私服,要用什么加速器呢
2024年5月25日 14:25
穿越火线手游体验服申请(该怎么填写加入精英体验服的理由玩穿越火线手游的说个理)
2024年7月24日 09:28
google地图卫星图像(为什么google地图上的卫星图像把海洋照成这样)
2024年7月23日 10:02
疯狂猜图答案及图片(关于疯狂猜图绿色帽子上插了一根羽毛答案是什么)
2024年6月29日 09:11
广东移动掌上服务厅(苹果手机怎样下载广东移动掌上营业厅App)
2024年8月13日 12:51
赛车游戏大全免费下载(求赛车游戏手游排行,有哪些比较推荐的)
2024年7月20日 09:45
用友软件免费版(用友财务软件T3试用版哪里可以免费下载怎么安啊)
2024年6月20日 04:41
搜狗影视下载(请问在哪里有纯英文的电影碟卖,下载也行要电影对白和字幕都是英文的(可以调节是中文还是英文的最好)
2024年6月27日 17:14
居住地村庄被暴力拆除应该怎么办哪些途径可以查询拆迁是否合法?强拆房屋构成什么罪呢
2024年5月12日 01:47
WOW 一个等级的战场有几个?酷狗里面有首:《战歌 2小时指挥战歌》,第44分30秒开始的那首歌曲叫什么名字
2024年5月17日 15:28
wifi万能查看器怎样查看别人的wifi?谁知道“hao123万能查询网址之家“网站
2024年6月12日 03:53