我又做了一些改變
這樣好像比較接近答案
text2~4是看不見的
我把text4作為保留最後答案
text1是之後我們可以看到的
text4的答案會傳到text1顯示
text2和3是做運算的數字
也就是第一個輸入的數在text2
之後輸入第2個數字時
text2的數字會變到text3去
新數字一樣在text2
這樣也可做累加的計算
懂嗎> <
可是我按等於沒辦法出現答案
If Text4.Text = "" Then
Text1.Text = Val(Text1.Text & Index)
Text2.Text = Text1.Text
Else
Text1.Text = Val(Text1.Text & Index)
Text2.Text = Text1.Text
End If
End Sub
Private Sub Command2_Click(Index As Integer)
If Text3.Text = "" And Text4.Text = "" Then
Text1.Text = ""
Text3.Text = Text2.Text
End If
If Index = 4 Then
If Text4.Text = "" Then
Select Case Index
Case Index = 0
Text4.Text = LTrim(Str(Val(Text3.Text) + Val(Text2.Text)))
Text1.Text = Text4.Text
Case Index = 1
Text4.Text = LTrim(Str(Val(Text3.Text) - Val(Text2.Text)))
Text1.Text = Text4.Text
Case Index = 2
Text4.Text = LTrim(Str(Val(Text3.Text) * Val(Text2.Text)))
Text1.Text = Text4.Text
Case Index = 3
Text4.Text = LTrim(Str(Val(Text3.Text) / Val(Text2.Text)))
Text1.Text = Text4.Text
End Select
Text1.Text = Text4.Text
Else
Text3.Text = Text4.Text
Select Case Index
Case Index = 0
Text4.Text = LTrim(Str(Val(Text3.Text) + Val(Text2.Text)))
Text1.Text = Text4.Text
Case Index = 1
Text4.Text = LTrim(Str(Val(Text3.Text) - Val(Text2.Text)))
Text1.Text = Text4.Text
Case Index = 2
Text4.Text = LTrim(Str(Val(Text3.Text) * Val(Text2.Text)))
Text1.Text = Text4.Text
Case Index = 3
Text4.Text = LTrim(Str(Val(Text3.Text) / Val(Text2.Text)))
Text1.Text = Text4.Text
End Select
End If
End If
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Form_Load()
ne = ""
Text1.Text = ""
End Sub
※ 引述《a886759 (我的世界很美麗)》之銘言：
: 有看到版上有解答
: 可是以目前我所會的看不懂板上的計算機
: 我想要用if than或select case 做計算機
: 並且是顯示在text裡
: 我目前知道的是
: Command1 是0~9
: Command2 是+-*/=
: Command3 是清除鍵
: 貼上我目前寫的
: Private Sub Command1_Click(Index As Integer)
: If Text1.Text = "" Then
: Text1.Text = LTrim(Str(Index))
: Else
: Text1.Text = Text1.Text + LTrim(Str(Index))
: End If
: Text2.Text = Text1.Text
: End Sub
: Private Sub Command2_Click(Index As Integer)
: If Index = "0" Then
: Text1.Text = ""
: Text3.Text = Text2.Text + Text1.Text
: End If
: End Sub
: Private Sub Command3_Click()
: text1.text = ""
: text2.text = ""
: text3.text = ""
: End Sub
: Private Sub Form_Load()
: text1.text = ""
: text2.text = ""
: text3.text = ""
: End Sub
: command2運算還沒寫完
: 全部也都還不充足
: 我希望之後還可以加入小數點及x^2等等
: 不過打算先完成十位數及一般運算
: 不這樣就已經足以難倒我了> <
: 麻煩各位聰明的大大了
: 謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.168.131.240