简单的VB秒表`
今天老师教我们做秒表```可是我后面遇到一个问题因为老师叫我们用一个text文本控件和二个命令按纽一个是开始一个是暂停一个label```按暂停的时候label将显示您用...
今天老师教我们做秒表```可是我后面遇到一个问题
因为老师叫我们用一个text文本控件和二个命令按纽一个是开始一个是暂停
一个label```按暂停的时候 label将显示 您用了*秒
可是我不久后发现 label 不会显示 你用了*分*秒
timer上的代码是 text1.text=text1.text+1
可是我不会做 所以在这请求 高手们帮我做一个```我按我的要求哦
1楼的``运行错误
2楼的 成功运行``可是 我想让他 秒小于60的时候 不会显示 0分``*秒 展开
因为老师叫我们用一个text文本控件和二个命令按纽一个是开始一个是暂停
一个label```按暂停的时候 label将显示 您用了*秒
可是我不久后发现 label 不会显示 你用了*分*秒
timer上的代码是 text1.text=text1.text+1
可是我不会做 所以在这请求 高手们帮我做一个```我按我的要求哦
1楼的``运行错误
2楼的 成功运行``可是 我想让他 秒小于60的时候 不会显示 0分``*秒 展开
3个回答
展开全部
控件:一个text文本控件、二个命令按纽、一个label和一个Timer.
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Dim fen As Integer, miao As Integer
fen = Val(Text1.Text) \ 60
miao = (Val(Text1.Text) - 60 * fen)
Label1.Visible = True
Label1.Caption = "共使用了" & fen & "分" & miao & "秒"
End Sub
Private Sub Form_Load()
Label1.Visible = False
End Sub
Private Sub Timer1_Timer()
Text1.Text = Text1.Text + 1
End Sub
正在做着的时候,一刷新网页,就已经有网友做好了。
===============================汗!汗!====================================================
所以我只有做好只拿两分的心理准备.
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Dim fen As Integer, miao As Integer
fen = Val(Text1.Text) \ 60
miao = (Val(Text1.Text) - 60 * fen)
Label1.Visible = True
Label1.Caption = "共使用了" & fen & "分" & miao & "秒"
End Sub
Private Sub Form_Load()
Label1.Visible = False
End Sub
Private Sub Timer1_Timer()
Text1.Text = Text1.Text + 1
End Sub
正在做着的时候,一刷新网页,就已经有网友做好了。
===============================汗!汗!====================================================
所以我只有做好只拿两分的心理准备.
意法半导体(中国)投资有限公司
2023-06-12 广告
2023-06-12 广告
单片机的原理是比较复杂的,但是可以通过浅显易懂的语言来解释。单片机是一种集成电路芯片,通常包含处理器、存储器和各种输入输出(I/O)端口。处理器负责执行程序代码,并处理数据和指令;存储器用于存储程序代码和数据;输入输出端口用于与外部设备交互...
点击进入详情页
本回答由意法半导体(中国)投资有限公司提供
展开全部
Dim t1, t2, t As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
t1 = t
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
t2 = t
Label1.Caption = "您用了" & t2 - t1 & "秒"
End Sub
Private Sub Timer1_Timer()
Cls
t = t + 1
Text1.Text = Str(Val(Text1.Text) + 1)
End Sub
你的text1.text相加要是为了记录时间增加的话,他的类型是不正确的。必须修改成为数值型的。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
'显示多少秒
Label1.Caption = "您用了" & Text1.Text & "秒"
'显示多少分多少秒
Label2.Caption = "您用了" & CStr(CLng(Text1.Text) \ 60) & "分" & CStr(CLng(Text1.Text) Mod 60) & "秒"
End Sub
Private Sub Form_Load()
Text1.Text = "0"
End Sub
Private Sub Label1_Click()
Label1.Caption = "111"
End Sub
Private Sub Timer1_Timer()
Text1.Text = CStr(CLng(Text1.Text) + 1)
End Sub
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
'显示多少秒
Label1.Caption = "您用了" & Text1.Text & "秒"
'显示多少分多少秒
Label2.Caption = "您用了" & CStr(CLng(Text1.Text) \ 60) & "分" & CStr(CLng(Text1.Text) Mod 60) & "秒"
End Sub
Private Sub Form_Load()
Text1.Text = "0"
End Sub
Private Sub Label1_Click()
Label1.Caption = "111"
End Sub
Private Sub Timer1_Timer()
Text1.Text = CStr(CLng(Text1.Text) + 1)
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询