關於計算機(vb2010)

benny_2649

1. Public Class Form1
   
2.     Dim tmp As Integer
   
3.     Dim num1 As Integer
   
4.     Dim num2 As Integer
   
5.     Dim time As Integer
   
6.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
   
7. 
   
8.         If Val(TextBox1.Text) = 0 Then
   
9.             TextBox1.Text = 1
   
10.         Else
    
11.             TextBox1.Text &= 1
    
12.         End If
    
13.         num2 = 1
    
14.     End Sub
    
15. 
    
16.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    
17. 
    
18.         If Val(TextBox1.Text) = 0 Then
    
19.             TextBox1.Text = 2
    
20.         Else
    
21.             TextBox1.Text &= 2
    
22.         End If
    
23.         num2 = 2
    
24.     End Sub
    
25. 
    
26.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    
27. 
    
28.         If Val(TextBox1.Text) = 0 Then
    
29.             TextBox1.Text = 3
    
30.         Else
    
31.             TextBox1.Text &= 3
    
32.         End If
    
33.         num2 = 3
    
34.     End Sub
    
35. 
    
36.     Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    
37. 
    
38.         If Val(TextBox1.Text) = 0 Then
    
39.             TextBox1.Text = 4
    
40.         Else
    
41.             TextBox1.Text &= 4
    
42.         End If
    
43.         num2 = 4
    
44.     End Sub
    
45. 
    
46.     Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    
47. 
    
48.         If Val(TextBox1.Text) = 0 Then
    
49.             TextBox1.Text = 5
    
50.         Else
    
51.             TextBox1.Text &= 5
    
52.         End If
    
53.         num2 = 5
    
54.     End Sub
    
55. 
    
56.     Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    
57. 
    
58.         If Val(TextBox1.Text) = 0 Then
    
59.             TextBox1.Text = 6
    
60.         Else
    
61.             TextBox1.Text &= 6
    
62.         End If
    
63.         num2 = 6
    
64.     End Sub
    
65. 
    
66.     Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
    
67. 
    
68.         If Val(TextBox1.Text) = 0 Then
    
69.             TextBox1.Text = 7
    
70.         Else
    
71.             TextBox1.Text &= 7
    
72.         End If
    
73.         num2 = 7
    
74.     End Sub
    
75. 
    
76.     Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
    
77. 
    
78.         If Val(TextBox1.Text) = 0 Then
    
79.             TextBox1.Text = 8
    
80.         Else
    
81.             TextBox1.Text &= 8
    
82.         End If
    
83.         num2 = 8
    
84.     End Sub
    
85. 
    
86.     Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
    
87. 
    
88.         If Val(TextBox1.Text) = 0 Then
    
89.             TextBox1.Text = 9
    
90.         Else
    
91.             TextBox1.Text &= 9
    
92.         End If
    
93.         num2 = 9
    
94.     End Sub
    
95. 
    
96.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
97.         TextBox1.Text &= 0
    
98.         If Val(TextBox1.Text) = 0 Then
    
99.             TextBox1.Text = 0
    
100.         End If
     
101.         num2 = 0
     
102.     End Sub
     
103. 
     
104.     Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
     
105.         tmp = 1
     
106.         num1 = Val(TextBox1.Text)
     
107.         TextBox1.Text = ""
     
108.     End Sub
     
109. 
     
110.     Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
     
111.         tmp = 2
     
112.         num1 = Val(TextBox1.Text)
     
113.         TextBox1.Text = ""
     
114.     End Sub
     
115. 
     
116.     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
     
117.         tmp = 3
     
118.         num1 = Val(TextBox1.Text)
     
119.         TextBox1.Text = ""
     
120.     End Sub
     
121. 
     
122.     Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
     
123.         tmp = 4
     
124.         num1 = Val(TextBox1.Text)
     
125.         TextBox1.Text = ""
     
126.     End Sub
     
127. 
     
128.     Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
     
129.         time = 1 + time
     
130.         If 1 = tmp Then
     
131.             TextBox1.Text = num2 + num1
     
132.         ElseIf 2 = tmp Then
     
133.             TextBox1.Text = num1 - num2
     
134.         ElseIf 3 = tmp Then
     
135.             TextBox1.Text = num2 * num1
     
136.         ElseIf 4 = tmp Then
     
137.             TextBox1.Text = num1 / num2
     
138.         End If
     
139. 
     
140.         If 1 = tmp And time > 1 Then
     
141.             TextBox1.Text = num2 + Val(TextBox1.Text)
     
142.         ElseIf 2 = tmp And time > 1 Then
     
143.             TextBox1.Text = num1 - num2
     
144.         ElseIf 3 = tmp And time > 1 Then
     
145.             TextBox1.Text = num2 * num1
     
146.         ElseIf 4 = tmp And time > 1 Then
     
147.             TextBox1.Text = num1 / num2
     
148.         End If
     
149. 
     
150.     End Sub
     
151. 
     
152.     Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
     
153.         TextBox1.Text = ""
     
154.         num1 = 0
     
155.         num2 = 0
     
156.         tmp = 0
     
157.         time = 0
     
158.     End Sub
     
159. End Class

複製代碼

我的問題在於計算機"="的部分我希望它可以有連續計算的功能
我想要的功能是 按下"="後 A+B=C  再按一次就是C+B=C .........

可是用宣告一個全域變數"time"來計算我按了幾次"="
大於2次的化就開始用C+B=C

可是我在測試時，我也抓不到是哪邊有錯

time有一直往上加上去，tmp也一直保持在1 ←"+"的意思

可是我的"="判斷的地方還是沒有出來我要的功能
...

瀏覽完整內容，請先 註冊 或 登入會員

jlin0502

不好意思.
您所提供的程式碼還真的看得很模糊.
1.Button1~16各要代表哪個按鈕?
2.您是不是只有一個輸入欄位?
3.用Debug方式應該很容易找到問題吧.

benny_2649

jlin0502 發表於 2012-3-9 09:20 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

不好意思.
您所提供的程式碼還真的看得很模糊.
1.Button1~16各要代表哪個按鈕?

小弟不才  還沒有學會debug怎麼用= =...

瀏覽完整內容，請先 註冊 或 登入會員

jlin0502

.Net在每一行都可以下中斷點.
可以執行後一行一行跑.
藉此知道變數的變化.
這也是為什麼.Net比Java進入門檻低的原因之一.
現在連javascript的部分都可以debug.
如何使用可能您得上網Google一下,應該有貼圖說明.

超cute貓

我用了樓主的方法試著做出來了