質問編集履歴
2
全部
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,12 +1,18 @@
|
|
|
1
|
-
|
|
1
|
+
### ヘディングのテキスト
|
|
2
2
|
|
|
3
|
+
**以下のようにストップウォッチを作ったのですが、ストップを押しても時間が進んでしまいます。
|
|
4
|
+
|
|
3
|
-
解決策を教えて下さい。
|
|
5
|
+
解決策を教えて下さい。**
|
|
6
|
+
|
|
7
|
+
|
|
8
|
+
|
|
9
|
+
```visual basicコード```
|
|
4
10
|
|
|
5
11
|
|
|
6
12
|
|
|
7
13
|
Public Class Form2
|
|
8
14
|
|
|
9
|
-
Private datstart1 As Date 'nowを入れる変数
|
|
15
|
+
Private datstart1 As Date > 'nowを入れる変数
|
|
10
16
|
|
|
11
17
|
Private datstart2 As Date
|
|
12
18
|
|
|
@@ -20,7 +26,7 @@
|
|
|
20
26
|
|
|
21
27
|
|
|
22
28
|
|
|
23
|
-
|
|
29
|
+
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
|
24
30
|
|
|
25
31
|
|
|
26
32
|
|
|
@@ -40,9 +46,9 @@
|
|
|
40
46
|
|
|
41
47
|
|
|
42
48
|
|
|
43
|
-
If btn1.Text = "スタート" Then 'もしbtn1にスタートと表示されていたら
|
|
49
|
+
If btn1.Text = "スタート" Then > 'もしbtn1にスタートと表示されていたら
|
|
44
50
|
|
|
45
|
-
Timer1.Enabled = True 'btn1は可能
|
|
51
|
+
Timer1.Enabled = True > 'btn1は可能
|
|
46
52
|
|
|
47
53
|
If Not beforin = "ストップ " Then
|
|
48
54
|
|
|
@@ -54,23 +60,23 @@
|
|
|
54
60
|
|
|
55
61
|
|
|
56
62
|
|
|
57
|
-
btn1.Text = "ストップ" 'btn1がストップになる
|
|
63
|
+
btn1.Text = "ストップ" > 'btn1がストップになる
|
|
58
64
|
|
|
59
|
-
Me.btn3.Enabled = False 'btn1は不可能
|
|
65
|
+
Me.btn3.Enabled = False > 'btn1は不可能
|
|
60
66
|
|
|
61
67
|
beforin = "スタート "
|
|
62
68
|
|
|
63
69
|
Else
|
|
64
70
|
|
|
65
|
-
Me.btn2.Enabled = True 'btn1は可能
|
|
71
|
+
Me.btn2.Enabled = True > 'btn1は可能- リスト
|
|
66
72
|
|
|
67
|
-
btn1.Text = "ストップ " 'btn1は不可能
|
|
73
|
+
btn1.Text = "ストップ " > 'btn1は不可能
|
|
68
74
|
|
|
69
75
|
Timer1.Enabled = False
|
|
70
76
|
|
|
71
|
-
Me.btn3.Enabled = True 'btn1は可能
|
|
77
|
+
Me.btn3.Enabled = True > 'btn1は可能
|
|
72
78
|
|
|
73
|
-
btn1.Text = "スタート" 'btn1がスタートになる
|
|
79
|
+
btn1.Text = "スタート" > 'btn1がスタートになる
|
|
74
80
|
|
|
75
81
|
beforin = "ストップ "
|
|
76
82
|
|
|
@@ -88,9 +94,9 @@
|
|
|
88
94
|
|
|
89
95
|
lbl1.Text = "00:00:00.00"
|
|
90
96
|
|
|
91
|
-
Me.btn1.Enabled = True 'btn1は可能
|
|
97
|
+
Me.btn1.Enabled = True > 'btn1は可能
|
|
92
98
|
|
|
93
|
-
txt1.Text = "" 'クリアされる
|
|
99
|
+
txt1.Text = "" > 'クリアされる
|
|
94
100
|
|
|
95
101
|
a = 0
|
|
96
102
|
|
|
@@ -112,7 +118,7 @@
|
|
|
112
118
|
|
|
113
119
|
If beforin = "スタート " Then
|
|
114
120
|
|
|
115
|
-
a = a + 1 'これで押された回数を求める
|
|
121
|
+
a = a + 1 '> これで押された回数を求める
|
|
116
122
|
|
|
117
123
|
ts = DateTime.op_Subtraction(Now, datstart1)
|
|
118
124
|
|
|
@@ -140,4 +146,6 @@
|
|
|
140
146
|
|
|
141
147
|
End Class
|
|
142
148
|
|
|
149
|
+
|
|
150
|
+
|
|
143
|
-
どうぞよろしくお願いいたします。
|
|
151
|
+
**どうぞよろしくお願いいたします。**
|
1
質問内容の変更
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
以下のようにストップウォッチを作ったのですが、
|
|
1
|
+
以下のようにストップウォッチを作ったのですが、ストップを押しても時間が進んでしまいます。
|
|
2
2
|
|
|
3
3
|
解決策を教えて下さい。
|
|
4
4
|
|