質問編集履歴
2
全部
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,15 +1,18 @@
|
|
|
1
|
+
### ヘディングのテキスト
|
|
1
|
-
以下のようにストップウォッチを作ったのですが、ストップを押しても時間が進んでしまいます。
|
|
2
|
+
**以下のようにストップウォッチを作ったのですが、ストップを押しても時間が進んでしまいます。
|
|
2
|
-
解決策を教えて下さい。
|
|
3
|
+
解決策を教えて下さい。**
|
|
3
4
|
|
|
5
|
+
```visual basicコード```
|
|
6
|
+
|
|
4
7
|
Public Class Form2
|
|
5
|
-
Private datstart1 As Date 'nowを入れる変数
|
|
8
|
+
Private datstart1 As Date > 'nowを入れる変数
|
|
6
9
|
Private datstart2 As Date
|
|
7
10
|
Dim beforin As String
|
|
8
11
|
Dim rtime As TimeSpan
|
|
9
12
|
Dim bb As String
|
|
10
13
|
Dim ts As TimeSpan
|
|
11
14
|
|
|
12
|
-
|
|
15
|
+
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
|
13
16
|
|
|
14
17
|
|
|
15
18
|
Dim dd As Integer = Math.Floor(ts.Milliseconds / 10)
|
|
@@ -19,22 +22,22 @@
|
|
|
19
22
|
|
|
20
23
|
Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click
|
|
21
24
|
|
|
22
|
-
If btn1.Text = "スタート" Then 'もしbtn1にスタートと表示されていたら
|
|
25
|
+
If btn1.Text = "スタート" Then > 'もしbtn1にスタートと表示されていたら
|
|
23
|
-
Timer1.Enabled = True 'btn1は可能
|
|
26
|
+
Timer1.Enabled = True > 'btn1は可能
|
|
24
27
|
If Not beforin = "ストップ " Then
|
|
25
28
|
datstart1 = Now
|
|
26
29
|
|
|
27
30
|
End If
|
|
28
31
|
|
|
29
|
-
btn1.Text = "ストップ" 'btn1がストップになる
|
|
32
|
+
btn1.Text = "ストップ" > 'btn1がストップになる
|
|
30
|
-
Me.btn3.Enabled = False 'btn1は不可能
|
|
33
|
+
Me.btn3.Enabled = False > 'btn1は不可能
|
|
31
34
|
beforin = "スタート "
|
|
32
35
|
Else
|
|
33
|
-
Me.btn2.Enabled = True 'btn1は可能
|
|
36
|
+
Me.btn2.Enabled = True > 'btn1は可能- リスト
|
|
34
|
-
btn1.Text = "ストップ " 'btn1は不可能
|
|
37
|
+
btn1.Text = "ストップ " > 'btn1は不可能
|
|
35
38
|
Timer1.Enabled = False
|
|
36
|
-
Me.btn3.Enabled = True 'btn1は可能
|
|
39
|
+
Me.btn3.Enabled = True > 'btn1は可能
|
|
37
|
-
btn1.Text = "スタート"
|
|
40
|
+
btn1.Text = "スタート" > 'btn1がスタートになる
|
|
38
41
|
beforin = "ストップ "
|
|
39
42
|
|
|
40
43
|
End If
|
|
@@ -43,8 +46,8 @@
|
|
|
43
46
|
Private Sub btn3_Click(sender As Object, e As EventArgs) Handles btn3.Click
|
|
44
47
|
|
|
45
48
|
lbl1.Text = "00:00:00.00"
|
|
46
|
-
Me.btn1.Enabled = True 'btn1は可能
|
|
49
|
+
Me.btn1.Enabled = True > 'btn1は可能
|
|
47
|
-
txt1.Text = "" 'クリアされる
|
|
50
|
+
txt1.Text = "" > 'クリアされる
|
|
48
51
|
a = 0
|
|
49
52
|
beforin = "キャンセル"
|
|
50
53
|
bb = "キャンセル"
|
|
@@ -55,7 +58,7 @@
|
|
|
55
58
|
Dim St As String = txt1.Text
|
|
56
59
|
|
|
57
60
|
If beforin = "スタート " Then
|
|
58
|
-
a = a + 1 'これで押された回数を求める
|
|
61
|
+
a = a + 1 '> これで押された回数を求める
|
|
59
62
|
ts = DateTime.op_Subtraction(Now, datstart1)
|
|
60
63
|
If bb = "キャンセル" Then
|
|
61
64
|
rtime = Nothing
|
|
@@ -69,4 +72,5 @@
|
|
|
69
72
|
End If
|
|
70
73
|
End Sub
|
|
71
74
|
End Class
|
|
75
|
+
|
|
72
|
-
どうぞよろしくお願いいたします。
|
|
76
|
+
**どうぞよろしくお願いいたします。**
|
1
質問内容の変更
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
以下のようにストップウォッチを作ったのですが、
|
|
1
|
+
以下のようにストップウォッチを作ったのですが、ストップを押しても時間が進んでしまいます。
|
|
2
2
|
解決策を教えて下さい。
|
|
3
3
|
|
|
4
4
|
Public Class Form2
|