啊啊啊灰 发表于 2020-3-6 21:17:50

作业-第五课-成品+源码-啊啊啊灰

.版本 2
.支持库 HtmlView

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕, , , '软件被打开 窗口载入

时钟1.时钟周期 = 1000' 设置第一个标题随机数时钟为1秒一次,第二个时钟不运行
时钟2.时钟周期 = 0
超文本浏览框1.地址 = “www.baidu.com”' 超文本浏览框载入网址

.子程序 _时钟1_周期事件, , , ’控制窗口标题和随机数的时钟-----例此时钟周期是1000则为1秒重复一次该时钟周期里的的命令

置随机数种子 ()' 为随机数生成器初始化一个种子值,不同的种子值将导致“取随机数”命令返回不同的随机数系列。'留空将默认使用当前计算机系统的时钟值。
_启动窗口.标题 = “第五课” + 到文本 (取随机数 (0, 99999))' _启动 窗口.标题=    ←给启动窗口标题赋值,内容为第五课 +   本次 取到的随机数
' 到文本   (讲此命令后括号内的指定数值 时间等转换为 文本型 用于显示)
' 取随机数(0,99999) 取回一个 整数型 随机数字,最小值为0最大值为99999

.子程序 _编辑框1_内容被改变, , , '网址编辑框内容被改变,超文本浏览器跟着刷新,实现实时预览效果

超文本浏览框1.地址 = 编辑框1.内容

.子程序 _按钮2_被单击, , , ’刷新按钮被点击

时钟2.时钟周期 = 到数值 (编辑框2.内容)' 时钟2周期=编辑框2里填写的数字
' 到数值   (讲此命令后括号内的指定文本 等转换为 数值型 用于比较.计算.等)

.子程序 _时钟2_周期事件, , , 实现自动刷新效果

超文本浏览框1.地址 = 编辑框1.内容

.子程序 _按钮3_被单击, , , 停止时钟2运行

时钟2.时钟周期 = 0

.子程序 _编辑框1_获得焦点, , , 清空编辑框1内容

编辑框1.内容 = “”

.子程序 _编辑框2_获得焦点, , , 清空编辑框2内容

编辑框2.内容 = “”



yyz860723 发表于 2021-5-28 23:02:23

楼主发贴辛苦了,谢谢楼主分享!我觉得易语言吧是注册对了!
页: [1]
查看完整版本: 作业-第五课-成品+源码-啊啊啊灰