技术宅的结界

 找回密码
 立即注册→加入我们

QQ登录

只需一步,快速开始

搜索
热搜: 下载 VB C 实现 编写
查看: 267|回复: 1
收起左侧

【VB.NET】不停叫你的闹钟

[复制链接]

12

主题

26

回帖

608

积分

用户组: 大·技术宅

UID
5148
精华
3
威望
7 点
宅币
511 个
贡献
30 次
宅之契约
0 份
在线时间
49 小时
注册时间
2019-7-17
发表于 2023-1-15 21:35:55 | 显示全部楼层 |阅读模式

欢迎访问技术宅的结界,请注册或者登录吧。

您需要 登录 才可以下载或查看,没有账号?立即注册→加入我们

x
本帖最后由 陈布衣 于 2023-2-1 20:53 编辑

先祝大家新年快乐(如果你过农历新年的话)。

布衣的公司放年假了,我要在安全屋休息13天,基本也就是对着屏幕13天。
为了让自己不要盯太久屏幕,我写了个小软件来折磨自己(

它的功能是根据设定好的提醒间隔,时间一到就不停地每秒发出系统自带的提示音(Beep 和 Hand)。
需要手动点“重置计时器”,提示音才会停止。下一次循环就会开始。
如果把窗口直接关闭,它只是会退到任务栏小图标那。
软件会在目录下生成一个 txt ,用来存储上次使用的时间间隔。

现在我用这个,听到提示音的时候,我就会站起来看看窗外,看几十秒再继续使用屏幕。
如此,40分钟一个循环(
不想近视... 好烦... 感觉已经太迟了,加上在公司上班忙的时候也根本没法这样定时放松眼睛。

布衣使用的图标都是 Windows 自带的,在等待的时候是 Shield 图标,在时间到了之后,使用的是 Warning 和 Error 图标(闪烁)。

f1.JPG
f2.JPG
f3.JPG

软件是用 VB.NET 写的,运行需要 .NET Framework 4.7.2 (Windows 10 1803 及以上版本都已经自带)。
(其实我想过用 VB6 来写,但是想想还是放弃了,太久没有写已经不会了)


2023年2月1日更新:
修复了电脑时间变回过去的时候,等待时间反而变长的BUG,解决办法是就地报警。
修复了在 Linux Wine 运行的时候,最小化窗口会直接消失还没法恢复的 BUG 。解决办法是检测到 Wine 运行时,窗口显示的时候就在任务栏内显示出来。

源码下载:
(压缩包内也带了一个我编译好的 exe)
DontStayTooLong.7z (16.88 KB, 下载次数: 2)
回复

使用道具 举报

52

主题

231

回帖

8973

积分

用户组: 管理员

UID
77
精华
16
威望
237 点
宅币
7890 个
贡献
246 次
宅之契约
0 份
在线时间
229 小时
注册时间
2014-2-22
发表于 2023-1-16 03:02:38 | 显示全部楼层
我这几天闲得蛋疼,把手机里几个比较好用的时间功能在电脑上实现了一次。
.png

主体代码全部都是眼见功夫没有任何技术含量,我感觉对初学者稍微有点价值的是把N秒钟转换为HH:MM:SS的形式。
  1.     Dim v As Long, vv As Long, p1 As String, p2 As String, p3 As String
  2.     v = 任意秒数: vv = v Mod 3600
  3.     p1 = CStr(v \ 3600): p1 = IIf(Len(p1) = 1, "0" & p1, p1)
  4.     p2 = CStr(vv \ 60): p2 = IIf(Len(p2) = 1, "0" & p2, p2)
  5.     p3 = CStr(vv Mod 60): p3 = IIf(Len(p3) = 1, "0" & p3, p3)
  6.     输出 = p1 & ":" & p2 & ":" & p3
复制代码

本版积分规则

QQ|申请友链||Archiver|手机版|小黑屋|技术宅的结界 ( 滇ICP备16008837号 )|网站地图

GMT+8, 2023-2-5 22:34 , Processed in 0.033031 second(s), 31 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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