-1
我開始我的第一個步驟到Visual Basic一定量後測量加班，並試圖建立某種秒錶。Visual Basic中 - 啓動秒錶分鐘
我的設計如下：
背後的想法是創建支持辯論的工具。人得到了一定的時間（7分鐘）展示他們的話題，此後將有設置爲13分鐘空間互動會話（Q & A）。這個想法是，7分鐘後蜂鳴器響起，停止提交時間並轉到交互部分。 20分鐘後，第二個秒錶以蜂鳴器和紅色閃爍背景開始，指示會話需要終止。
這是我已經得到了，我很舒爾它可以被編碼，否則，也許更容易。 我已經得到了它的第一個工作日，但秒錶我沒有得到其餘的工作：
Public Class Form1
Private Hundredths As Integer = 0
Private Seconds As Integer = 0
Private Minutes As Integer = 0
Private Hours As Integer = 0
Private OvertimeHundredths As Integer = 0
Private OvertimeSeconds As Integer = 0
Private OvertimeMinutes As Integer = 0
Private OvertimeHours As Integer = 0
Private Sub StartBtn_Click(sender As Object, e As EventArgs) Handles StartBtn.Click
If Timer1.Enabled Then
Timer1.Stop()
StartBtn.Text = "START"
Return
End If
If Not Timer1.Enabled Then
Timer1.Start()
StartBtn.Text = "STOP"
Return
End If
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Hundredths += 1
HundredthsTxB.Text = Hundredths.ToString
SecondsTxB.Text = Seconds.ToString
MinutesTxB.Text = Minutes.ToString
HoursTxB.Text = Hours.ToString
If Hundredths = 10 Then
Seconds += 1
Hundredths = 0
End If
If Seconds = 60 Then
Minutes += 1
Seconds = 0
End If
If Minutes = 60 Then
Hours += 1
Minutes = 0
End If
If Hours = 24 Then
Timer1.Stop()
End If
End Sub
Private Sub ResetBtn_Click(sender As Object, e As EventArgs) Handles ResetBtn.Click
Hundredths = 0
Seconds = 0
Minutes = 0
Hours = 0
HundredthsTxB.Text = Hundredths.ToString
SecondsTxB.Text = Seconds.ToString
MinutesTxB.Text = Minutes.ToString
HoursTxB.Text = Hours.ToString
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
OvertimeHundredths += 1
OvertimeHundredthsTxB.Text = OvertimeHundredths.ToString
OvertimeSecondsTxB.Text = OvertimeSeconds.ToString
OvertimeMinutesTxB.Text = OvertimeMinutes.ToString
OvertimeHoursTxB.Text = OvertimeHours.ToString
If OvertimeHundredths = 10 Then
OvertimeSeconds += 1
OvertimeHundredths = 0
End If
If OvertimeSeconds = 60 Then
OvertimeMinutes += 1
OvertimeSeconds = 0
End If
If OvertimeMinutes = 60 Then
OvertimeHours += 1
OvertimeMinutes = 0
End If
If OvertimeHours = 24 Then
Timer2.Stop()
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If Timer1.Interval = 2 Then
Timer2.Start()
End If
End Sub
End Class
因此，任何幫助是值得歡迎的。此外，我熱衷於學習其他大師的思維和編碼。
的問題是過於寬泛。請明確說明什麼不起作用，你嘗試了什麼。另外，考慮提出幾個問題，因爲據我所知，有幾件事情不起作用。 – Leo
我首先考慮的是要拿到秒的秒錶（定時器2）填寫介紹（7）和互動的時間（13）的文本框的分鐘數後觸發。這對我的第一個版本來說已經是一個很好的發展方向。 –
我建議只使用一個計時器。將其間隔設置爲小一點，如一秒鐘。每秒鐘，更新您的表格並將其添加到櫃檯。當計數器達到420時，這意味着7分鐘過去了。發出蜂鳴聲停止演示並開始交互部分。當計數器達到1200（13分鐘後，總計20分鐘）時，發出第二個蜂鳴器並開始閃爍紅光。 –