作者tshin (勛勛勛)
看板Visual_Basic
標題[VB6 ] 一個簡單的程式但就是跑不出想要的值
時間Thu Dec 17 13:06:53 2009
最近為了一個科目寫一個簡單的程式
全部都用IF...then在寫
不知道哪裡出了問題
Private Sub Command7_Click()
If List1.ListIndex = -1 Or List1.ListIndex = -1 Then MsgBox "請選擇水帶種類或
口徑"
If List1.ListIndex = 0 And List1.ListIndex = 0 Then
Text4.Text = (Val(Text3.Text) / (1 + 0.00343 * 1.59 ^ 4 * Val(Text1.Text)))
Text5.Text = Val(Text3.Text) - Val(Text4.Text)
y = 0.805 * Val(Text1.Text)
z = Val(Text5.Text) / Val(y)
Text2.Text = Val(z) ^ 0.5 * 1000
Text6.Text = 1.5 * 1.59 ^ 2 * Val(Text4.Text)
End If
以上是某一段
似乎在TEXT4.text=時就是值錯誤的開始了
但不知道為什麼錯了
這是消防水力學的東西
想藉由此做一個能夠取代送水基準版的東西
描述的可能有點不清楚
以下為原程式碼
http://www.badongo.com/cn/file/19098247
感激不盡XD
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 203.71.2.194
1F：推 UniFish:因為計算出來結果是數值，textbox.text是字串 12/17 14:52
2F：→ nobody1:textbox1.text不為數字就爆了 12/17 15:06
3F：推 nobody1:textbox1.text 約 -45.6也會 12/17 15:09
全部的textbox.text都為數字,text1.text是水帶數量所以一定是正整數XD
不過一樓的我看不懂...謝謝樓上們的回答了!!
※ 編輯: tshin 來自: 203.71.2.194 (12/17 15:19)
※ 編輯: tshin 來自: 203.71.2.194 (12/17 15:19)
4F：→ nobody1:有bug時 最好都檢查一下型別的問題... vb方便但不嚴謹~ 12/24 02:09