设计一个vb程序,要求如下:(代码越简单越好)

实现按秒计时,要求具有“开始计时”和“停止计时”功能。例如:执行开始计时功能后,经过2分钟,用户执行停止计时功能,屏幕显示120秒... 实现按秒计时,要求具有“开始计时”和“停止计时”功能。
例如:执行开始计时功能后,经过2分钟,用户执行停止计时功能,屏幕显示120秒
展开
 我来答
华仔钓鱼2022
2010-08-24 · 分享钓点,分享钓鱼,分享快乐!
华仔钓鱼2022
采纳数:95 获赞数:891

向TA提问 私信TA
展开全部

代码太简单了,截图你看,呵呵

================================

Private Sub Command1_Click()

'开始计时代码

    Timer1.Enabled = True

    Timer1.Interval = 1000

    Command1.Enabled = False

End Sub

Private Sub Command2_Click()

'停止计时代码

    Timer1.Enabled = False

    Label1.Caption = 120

    Command1.Enabled = True

End Sub

Private Sub Timer1_Timer()

'时钟周期代码

    Label1.Caption = Label1.Caption - 1

    If Label1.Caption <= 0 Then

        Command2.Enabled = False

        Command1.Enabled = True

        Timer1.Enabled = False

        Label1.Caption = 120

    End If

End Sub

================================

百度网友d1ed4a9430
2010-08-24 · TA获得超过1.6万个赞
知道大有可为答主
回答量:6236
采纳率:73%
帮助的人:3637万
展开全部
添加两个命令按钮,一个Label,一个Timer控件。

添加如下代码:
Private Sub form_load()
Me.Label1.Caption = 0
Me.Timer1.Interval = 1000
Me.Timer1.Enabled = False
End Sub
Private Sub Timer1_timer()
Me.Label1 = Me.Label1 + 1
End Sub
Private Sub command1_click()
Me.Timer1.Enabled = True
End Sub
Private Sub command2_click()
Me.Timer1.Enabled = False
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
风的誓言21
2010-08-24 · TA获得超过614个赞
知道小有建树答主
回答量:844
采纳率:0%
帮助的人:532万
展开全部
太简单的问题了,懒得和他们抢分了,如果下次有难一点的问题,就加我为好友,我来帮你答吧。一般的免费,很难的就要分哟。。多回答别人的问题吧。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友2db262e5f
2010-08-24 · TA获得超过1496个赞
知道大有可为答主
回答量:1814
采纳率:0%
帮助的人:1468万
展开全部
一个form,里面放一个timer……
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式