精易论坛

标题: 网红文本时钟PC版 [打印本页]

作者: 龍孞    时间: 2019-4-29 18:02
标题: 网红文本时钟PC版
前段时间看文本时钟比较火,无聊写了一个PC版的,代码不多,仅供新手学习。界面一般




  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
变量名类 型数组备 注
集_小时整数型0 
集_分钟整数型0 
集_秒整数型0 
集_内容整数型2 

子程序名返回值类型公开备 注
__启动窗口_创建完毕  
变量名类 型静态数组备 注
n1整数型 
其他内容 ()
计次循环首 (60, n1)
如果真 (n1 ≤ 24)
创建时间物体 (160, (n1 - 1) × 15, 0, 取文本小时 (n1 - 1, ))
创建时间物体 (220, (n1 - 1) × 6, 1, 取文本分钟 (n1 - 1, ))
创建时间物体 (280, (n1 - 1) × 6, 2, 取文本秒 (n1 - 1, ))
计次循环尾 ()
时钟1.时钟周期 = 1000
子程序名返回值类型公开备 注
其他内容  
变量名类 型静态数组备 注
标识整数型 
字体字体 
局_宽度整数型 
局_高度整数型 
字体.字体名称 = “隶书”
字体.字体大小 = 30
字体.加粗 = 真
动画框1.画矩形 (450, 425, 645, 450)
标识 = 动画框1.创建物体 (, 20, 20, 真, )
动画框1.置文本 (标识, “网红文本时钟”, 字体, #蓝色 )
局_宽度 = 动画框1.取物体宽度 (标识)
动画框1.趋向色变换 (标识, #红色, 50)
动画框1.置物体位置 (标识, (动画框1.宽度 - 局_宽度) ÷ 2, 20, )
字体.字体名称 = “楷体”
字体.字体大小 = 16
标识 = 动画框1.创建物体 (, 20, 80, 真, )
动画框1.置文本 (标识, “明明什么都没有干就已经:”, 字体, #褐绿 )
动画框1.趋向色变换 (标识, #蓝色, 30)
标识 = 动画框1.创建物体 (, 20, 110, 真, )
动画框1.置文本 (标识, 取文本小时 (0, )取文本分钟 (0, )取文本秒 (0, ), 字体, #墨绿 )
集_内容 [1] = 标识
标识 = 动画框1.创建物体 (, 440, 110, 真, )
字体.字体大小 = 128
字体.字体名称 = “华文行楷”
动画框1.置文本 (标识, “李”, 字体, #红褐 )
动画框1.趋向色变换 (标识, #深灰, 40)
局_宽度 = 动画框1.取物体宽度 (标识)
局_高度 = 动画框1.取物体高度 (标识)
动画框1.置物体位置 (标识, (动画框1.宽度 - 局_宽度) ÷ 2, (动画框1.高度 - 200) ÷ 2 - 局_高度 ÷ 2 + 120, )
集_内容 [2] = 标识
子程序名返回值类型公开备 注
创建时间物体  
参数名类 型参考可空数组备 注
半径整数型
角度整数型
类型整数型
内容文本型
变量名类 型静态数组备 注
X整数型 
Y整数型 
标识整数型 
字体字体 
字体.字体名称 = “宋体”
字体.字体大小 = 10
字体.加粗 = 真
X = 四舍五入 (300 + 半径 × 求余弦 (角度 × #pi ÷ 180), 0)
Y = 四舍五入 (430 + 半径 × 求正弦 (角度 × #pi ÷ 180), 0)
标识 = 动画框1.创建物体 (, X, Y, 真, )
动画框1.置文本 (标识, 内容, 字体, #橙黄 )
动画框1.趋向色变换 (标识, #红色, 30)
动画框1.置角度 (标识, 角度)
动画框1.置旋转跟随 (标识, )
判断 (类型 = 0)
加入成员 (集_小时, 标识)
判断 (类型 = 1)
加入成员 (集_分钟, 标识)
加入成员 (集_秒, 标识)

子程序名返回值类型公开备 注
取文本小时文本型 
参数名类 型参考可空数组备 注
小时整数型
加当前值逻辑型
变量名类 型静态数组备 注
局_小时文本型0
局_小时 = 分割文本 ( #常量_小时, #换行符, )
如果真 (加当前值)
小时 = 小时 + 取小时 (取现行时间 ())
如果 (小时 % 24 = 0)
返回 (局_小时 [1])
返回 (局_小时 [小时 % 24 + 1])

子程序名返回值类型公开备 注
取文本分钟文本型 
参数名类 型参考可空数组备 注
分钟整数型
加当前值逻辑型
变量名类 型静态数组备 注
局_分钟文本型0
局_分钟 = 分割文本 ( #常量_分钟, #换行符, )
如果真 (加当前值)
分钟 = 分钟 + 取分钟 (取现行时间 ())
如果 (分钟 % 60 = 0)
返回 (局_分钟 [1])
返回 (局_分钟 [分钟 % 60 + 1])

子程序名返回值类型公开备 注
取文本秒文本型 
参数名类 型参考可空数组备 注
整数型
加当前值逻辑型
变量名类 型静态数组备 注
局_秒文本型0
局_秒 = 分割文本 ( #常量_秒, #换行符, )
如果真 (加当前值)
秒 = 秒 + 取秒 (取现行时间 ())
如果 (秒 % 60 = 0)
返回 (局_秒 [1])
返回 (局_秒 [秒 % 60 + 1])

子程序名返回值类型公开备 注
置当前秒  
变量名类 型静态数组备 注
n1整数型 
局_秒整数型 
局_秒 = 取秒 (取现行时间 ())
计次循环首 (60, n1)
动画框1.置文本 (集_秒 [n1], 取文本秒 (局_秒 + n1 - 1), , )
计次循环尾 ()
子程序名返回值类型公开备 注
置当前分钟  
变量名类 型静态数组备 注
n1整数型 
局_分钟整数型 
局_分钟 = 取分钟 (取现行时间 ())
如果真 (取文本分钟 (局_分钟) = 动画框1.取文本 (集_分钟 [1]))
返回 ()
计次循环首 (60, n1)
动画框1.置文本 (集_分钟 [n1], 取文本分钟 (局_分钟 + n1 - 1), , )
计次循环尾 ()
子程序名返回值类型公开备 注
置当前小时  
变量名类 型静态数组备 注
n1整数型 
局_小时整数型 
局_小时 = 取小时 (取现行时间 ())
如果真 (取文本小时 (局_小时) = 动画框1.取文本 (集_小时 [1]))
返回 ()
计次循环首 (24, n1)
动画框1.置文本 (集_小时 [n1], 取文本小时 (局_小时 + n1 - 1), , )
计次循环尾 ()
子程序名返回值类型公开备 注
_时钟1_周期事件  
置当前秒 ()
置当前分钟 ()
置当前小时 ()
动画框1.置文本 (集_内容 [1], 动画框1.取文本 (集_小时 [1]) + 动画框1.取文本 (集_分钟 [1]) + 动画框1.取文本 (集_秒 [1]), , )
子程序名返回值类型公开备 注
_动画框1_物体左键被放开  
参数名类 型参考可空数组备 注
物体标识值整数型
已被按下物体整数型
变量名类 型静态数组备 注
姓名文本型 
如果真 (已被按下物体 = 集_内容 [2])
如果真 (输入框 (“请输入你的姓”, “信息”, 动画框1.取文本 (集_内容 [2]), 姓名, , ))
姓名 = 取文本左边 (姓名, 2)
动画框1.置文本 (集_内容 [2], 姓名, , )



i支持库列表   支持库注释   
iext2扩展界面支持库二


软件源码: 网红文本时钟.e (61.55 KB, 下载次数: 66)

作者: vhk    时间: 2019-4-29 19:25
666666
作者: 全村最帅    时间: 2019-4-29 19:31
有点欣赏不来啊
作者: linnianyo    时间: 2019-4-29 20:00
感谢分享  拿走了66
作者: 无夜    时间: 2019-4-29 23:00
”网红”???

你确定”网红”审美观是这样的???

作者: pkxt502    时间: 2019-4-29 23:16
美化下 会好看些
作者: Casyo    时间: 2019-4-30 09:21
6666666666666666666666666666
作者: 龍孞    时间: 2019-4-30 09:25
无夜 发表于 2019-4-29 23:00
”网红”???

你确定”网红”审美观是这样的???

讲了界面一般,仅供学习。
作者: jhai    时间: 2019-4-30 10:22
这东西要用自绘才漂亮
作者: zjkhzx    时间: 2019-4-30 11:21
感谢分享 6666666
作者: CICABEL    时间: 2019-4-30 13:28
多谢分享,学习一下
作者: 外星星人    时间: 2019-4-30 13:45
膜拜
作者: xiaoniu1230    时间: 2019-4-30 18:19
感谢分享!支持开源!
作者: dodge123    时间: 2019-5-5 17:07
支持开源!感谢分享!!!
作者: Smallhorse    时间: 2019-5-11 09:59
感谢分享,学习了!
作者: siwuxiaomu    时间: 2019-5-14 08:15
有特点,谢谢分享
作者: hong5209795    时间: 2019-9-16 14:24
欢迎常来帮助新人,谢谢~




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4