关于vb.net初学者，倒计时器的开发

此文章已过期！！！

请移步：(15条消息) vb.net倒计时器（3.0，版本优化，不熟练的配置文件）_大Mod制造者abfun的博客-CSDN博客

上次我写了一次记事本，毛病百出，想想也不行，那这一次小虞又出花样了，此灵感来源于班主任组织考试，却在希沃白板上找不到计时器（其实闹钟和时钟也可以使用）

下来开始安排代码：

form1

Public Class Form1Dim k As StringDim h As IntegerDim m As IntegerDim s As IntegerPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickForm2.Show()End SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Clickk = 1Timer1.Interval = 1000 '每秒执行一次Timer1.Enabled = TrueEnd SubPrivate Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.ClickEndEnd SubPrivate Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.ClickTextBox1.Text = 0TextBox2.Text = 0TextBox3.Text = 0Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.TickTextBox3.Text = TextBox3.Text - 1End SubPrivate Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChangedDim a, b, c As Stringa = Val(TextBox1.Text)b = Val(TextBox2.Text)c = Val(TextBox3.Text)TextBox1.Text = aTextBox2.Text = bTextBox3.Text = cIf c = -1 ThenTextBox3.Text = 59TextBox2.Text -= 1End IfIf k = 1 Then 'load checkIf a = 0 ThenIf b = 0 ThenIf c = 0 ThenMy.Computer.Audio.Play("C:\Windows\Media\Ring10.wav")Timer1.Enabled = FalseEnd IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Button6_Click(sender As Object, e As EventArgs)End SubPrivate Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.ClickTimer1.Enabled = FalseEnd SubPrivate Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChangedDim a, b, c As Stringa = Val(TextBox1.Text)b = Val(TextBox2.Text)TextBox1.Text = aTextBox2.Text = bIf b = -1 ThenTextBox2.Text = 59TextBox1.Text -= 1End IfEnd SubPrivate Sub Button6_Click_1(sender As Object, e As EventArgs) Handles Button6.Clickform3.show()End SubEnd Class

form2（设置计时器）

Public Class Form2Dim h As StringDim m As StringDim s As StringDim a As StringPrivate Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.ClickEnd SubPrivate Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Clicka = TextBox1.Texta = a + 1TextBox1.Text = (a)End SubPrivate Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Clicka = TextBox2.Texta = a + 1TextBox2.Text = (a)End SubPrivate Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChangedIf TextBox1.Text < 0 ThenTextBox1.Text = 2End IfIf TextBox1.Text > 2 ThenTextBox1.Text = 0End IfEnd SubPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Clicka = TextBox1.Texta = a - 1TextBox1.Text = (a)End SubPrivate Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Clicka = TextBox3.Texta = a + 1TextBox3.Text = (a)End SubPrivate Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Clicka = TextBox4.Texta = a + 1TextBox4.Text = (a)End SubPrivate Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Clicka = TextBox5.Texta = a + 1TextBox5.Text = (a)End SubPrivate Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Clicka = TextBox6.Texta = a + 1TextBox6.Text = (a)End SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Clicka = TextBox2.Texta = a - 1TextBox2.Text = (a)End SubPrivate Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Clicka = TextBox3.Texta = a - 1TextBox3.Text = (a)End SubPrivate Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Clicka = TextBox4.Texta = a - 1TextBox4.Text = (a)End SubPrivate Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Clicka = TextBox5.Texta = a - 1TextBox5.Text = (a)End SubPrivate Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Clicka = TextBox6.Texta = a - 1TextBox6.Text = (a)End SubPrivate Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChangedIf TextBox2.Text < 0 ThenTextBox2.Text = 3End IfIf TextBox2.Text > 3 ThenTextBox2.Text = 0End IfEnd SubPrivate Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChangedIf TextBox3.Text < 0 ThenTextBox3.Text = 5End IfIf TextBox3.Text > 5 ThenTextBox3.Text = 0End IfEnd SubPrivate Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChangedIf TextBox4.Text < 0 ThenTextBox4.Text = 9End IfIf TextBox4.Text > 9 ThenTextBox4.Text = 0End IfEnd SubPrivate Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChangedIf TextBox5.Text < 0 ThenTextBox5.Text = 5End IfIf TextBox5.Text > 5 ThenTextBox5.Text = 0End IfEnd SubPrivate Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChangedIf TextBox6.Text < 0 ThenTextBox6.Text = 9End IfIf TextBox6.Text > 9 ThenTextBox6.Text = 0End IfEnd SubPrivate Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.ClickTextBox1.Text = 0TextBox2.Text = 0TextBox3.Text = 0TextBox4.Text = 5TextBox5.Text = 0TextBox6.Text = 0End SubPrivate Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.ClickTextBox1.Text = 0TextBox2.Text = 0TextBox3.Text = 0TextBox4.Text = 0TextBox5.Text = 0TextBox6.Text = 0End SubPrivate Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Clickh = Val(TextBox1.Text & TextBox2.Text)m = Val(TextBox3.Text & TextBox4.Text)s = Val(TextBox5.Text & TextBox6.Text)Form1.TextBox1.Text = hForm1.TextBox2.Text = mForm1.TextBox3.Text = sEnd SubPrivate Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.LoadEnd Sub
End Class

这一次源码文件就不放了，自己探索八！！（还需要一个timer控件）

花了我2个小时，淦哪，

关于vb.net初学者，倒计时器的开发相关推荐

C#上位机开发串口通信编程——倒计时器开发
C#上位机开发串口通信编程--倒计时器开发一.介绍这是我按照B站上的一个上位机开发视频教程开发的倒计时器开发,本来只有开始计时功能,没有停止计时功能,停止计时功能后面我自己添加了. 视频网址:C# ...
arduino彩灯计时器电路_基于Arduino开发板的倒计时器
Arduino-based-Countdown-Timer.jpg (54.03 KB, 下载次数: 86) 2018-4-18 17:18 上传计时器是一种时钟形式,通常用于测量时间间隔.有两种类 ...
VS 2019中利用C#语言在.Net Framework 4.5框架上开发简易倒计时器
0. 环境搭建首先要确保你的VS安装了.Net桌面开发,安装了之后直接新建项目. 未安装的话打开VS Installer,勾选上.Net桌面开发后,开始安装. 安装成功后新建项目. 1. 新建项目 ...
Android 开发挑战赛 | 第 2 周: 倒计时器
3...2...1- 是时候开启新的挑战了!欢迎您挑战 #AndroidDevChallenge 第二周的题目!我们很高兴看到很多开发者在上周的挑战中提交的创意作品: 其中不乏来自中国开发者的精彩作品 ...
Android开发实例——倒计时器——Android多线程编程
文章目录一.倒计时器功能描述二.实现步骤 1.新建Activity,命名为ThreadDemo 2.设计ThreadDemo 的布局文件 3.编写ThreadDemo.java 文件代码 3.1 ...
Android课程设计倒计时app,单片机课程设计-可调倒计时器.doc
PAGE PAGE 2 课程设计设计名称单片机可调倒计时器全套设计加扣?3012250582 学年学期 2013 -2014学年第二学期课程名称单片机原理及应用专业年级电气11 ...
python 倒计时_Excel制作竞答倒计时器
微信号: Excel-Python 微信名: 实用办公编程技能前几天,单位搞年庆,中间有一个环节是有奖竞答,当时会务组长让我来负责控制竞答计时,当时我就自己用Excel做了一个竞答倒计时器. 那么, ...
非常有用的并发控制－倒计时器CountDownLatc
转载自非常有用的并发控制-倒计时器CountDownLatch CountDownLatch见名思义,即倒计时器,是多线程并发控制中非常有用的工具类,它可以控制线程等待,直到倒计时器归0再继续执行. ...
单片机float数发给上位机_上位机倒计时器
1. 设置窗口在VS2019新建一个Windows窗体应用(.NET Framework)项目,新建之后出现一个可视化页面(From1.cs[设计])设置窗口. 在左侧的工具箱里面拉拽控件到操作面板 ...
C#学习记录——实例练习：倒计时器
1.实现功能简介本小练习是在学习<C#上位机开发串口通信编程>课程时的一个倒计时器的小样例,本样例可以实现设置倒计时时长1-99秒,然后点击开始计时按钮,然后倒计时显示剩余时间,以及时长 ...

关于vb.net初学者，倒计时器的开发

关于vb.net初学者，倒计时器的开发相关推荐

最新文章

热门文章