欢迎访问
这里是荆棘的私人博客
螓首蛾眉
寒假作业:VB闹钟

初学VB,写的很菜,大佬勿喷

前言

众所周知,在课改没有波及到的上海信息课还在用早已淘汰VB授课实名羡慕Lime

所以就有了寒假作业

https://upyun.jsun.limecho.net/2021/01/image-1.png!/format/webp/lossless/true
截取自钉钉

教程视频源自Bilibili,地址为BV1C7411e7pt

解析&小改

指出几个视频内的弊端改进措施

瞎写缩进

https://upyun.jsun.limecho.net/2021/01/image-2.png!/format/webp/lossless/true
smjbwy

不清楚VB是不是有某种规范是这种缩进方式,但是这个缩进我看起来是真的不爽,所以稍作改进应该是这样

https://upyun.jsun.limecho.net/2021/01/image-3.png!/format/webp/lossless/true
爽了

其他地方同理

判断嵌套

https://upyun.jsun.limecho.net/2021/01/image-4.png!/format/webp/lossless/true
让我想到了NASA火箭代码梗

其实不是大问题,但是可以改成And更加简洁

硬核开关

https://upyun.jsun.limecho.net/2021/01/image-5.png!/format/webp/lossless/true
跟上面是同一段

这个判断也没问题,但是看起来属实太

综上所述,这块代码可以成这样

https://upyun.jsun.limecho.net/2021/01/image-6.png!/format/webp/lossless/true
又爽了

了一个alarmOn的变量记录状态

大改

https://upyun.jsun.limecho.net/2021/01/image-7.png!/format/webp/lossless/true
成绩太菜,就不展示了

本来想用C#的WinForm写的,但是考试考的是VB,不如练练手

https://upyun.jsun.limecho.net/2021/01/image-8.png!/format/webp/lossless/true
成果图

说说写代码时候的几个难点其实是我太菜了

输入限制

判断文本再弹窗用户体验太差,所以我从根源尝试解决问题

https://upyun.jsun.limecho.net/2021/01/image-12.png!/format/webp/lossless/true

思路是在按下按键的时候只允许数字删除/退格,并把文本限制改为2
接着限制数字大小让其符合时间格式,只有符合了才允许其加入闹钟时间

保存时间

因为用了两个窗口,所以用到了全局变量,然后用循环将其导入数组,最后每次打开设置的时候再导出一下就行

https://upyun.jsun.limecho.net/2021/01/image-10-1024x439.png!/format/webp/lossless/true

总结

VB写起来属实麻烦,可能这正是它逐渐淘汰的原因吧

代码不发了怕被老师说是给同学抄作业

既然你已经看到这里了,还有一个小彩蛋送给你

https://upyun.jsun.limecho.net/2021/01/image-11-1024x700.png!/format/webp/lossless/true
懂的都懂

祝大家寒假愉快!!

赞赏

发表评论

textsms
account_circle
email

螓首蛾眉

寒假作业:VB闹钟
 初学VB,写的很菜,大佬勿喷 前言 众所周知,在课改没有波及到的上海,信息课还在用早已淘汰的VB授课实名羡慕Lime 所以就有了寒假作业 截取自钉钉 教程视频源自Bilibili…
扫描二维码继续阅读
2021-01-23