因為霧是新手
所以可能有不少錯誤
這裡的高手雲集 請不要笑霧 包函霧的生疏
這是霧的程式碼
可是函數上卻出現了沒傳回的問題
若將 PV改成P1 則會有"溢位"問題 查看結果是因為分母為0
可是霧擁筆算時 不會這樣ㄚ 想不出來之下
只好拿者不堪入目的簡單程式 希望眾家高手幫霧一個忙
看看好嗎 因為霧的vb資歷淺 說清楚一點好嗎 霧會認真學習
Public Sub Command1_click()
H = Val(Text1(0).Text)
L = Val(Text1(1).Text)
B = Val(Text1(2).Text)
A = Val(Text1(3).Text)
r = Val(Text1(4).Text)
Rc = Val(Text1(5).Text)
φ = Val(Text1(6).Text)
α = Val(Text1(7).Text)
FS = Val(Text1(8).Text)
K = ((cosα) ^ 2 - (cosφ) ^ 2) ^ 0.5
Ka = cosα((cosα1 - K) / (cosα + K))
Kp = cosα((cosα1 + K) / (cosα - K))
Pa = 1 / 2 * Ka * r * H ^ 2
Y = H / 3
PV = Pa * Sinα1
Ph = Pa * cosα1
Pp = 1 / 2 * Kp * r * A ^ 2
Y1 = A / 3
Mf = Ph * Y
W1 = (L - B) * H * 1 / 2 * Rc
W2 = B * H * Rc
Mr = W1 * (L - B) * 2 / 3 + W2 * (L - B / 2) + PV * L + Pp * Y1
FS = Mr / Mf
Text1(8).Text = FS
If FS ＞ 1.5 Then
Text1(9).Text = "OK"
Else
Text1(9).Text = "NG"
End If
End Sub
謝謝 不勝感激