form1.frm

波浪作用下潜堤透浪系数计算程序（VB编写）

d50 = Val(Text7.Text)
If r / hi >= 1.5 Then
temp = MsgBox("数据超出取值范围", 16 + vbOKOnly)
Else
k = 1 / (1 + ((1 - (r / h)) ^ (1.188)) * ((f / (h * L)) ^ (0.261)) * (Exp(((-0.529) * (r / hi)) + 0.00551 * ((f ^ 1.5) / ((d50 ^ 2) * L)))))
Text8.Text = CStr(k)
End If
End Sub



Private Sub Command10_Click()
Text8.Text = ""
Text3.Text = ""
End Sub

Private Sub Command11_Click()
Text9.Text = ""
End Sub

Private Sub Command12_Click()
Text12.Text = ""
Text13.Text = ""
End Sub

Private Sub Command13_Click()
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
End Sub

Private Sub Command14_Click()
Text18.Text = ""
End Sub

Private Sub Command15_Click()
Text19.Text = ""
End Sub

Private Sub Command16_Click()
Text20.Text = ""
End Sub

Private Sub Command17_Click()
Text21.Text = ""
End Sub

Private Sub Command18_Click()
Text4.Text = ""
Text11.Text = ""
Text22.Text = ""
End Sub

Private Sub Command19_Click()
Dim tp As Single, a As Single, e As Single
b = Val(Text10.Text)
r = Val(Text1.Text)
h = Val(Text2.Text)
hi = Val(Text6.Text)
tp = Val(Text27.Text)
a = Val(Text28.Text)
e = a / (((2 * 3.14 * hi) / (9.81 * (tp ^ 2))) ^ 0.5)
If Option3.Value = True Then
k = (-0.35 * (r / hi)) + ((0.51 * ((b / hi) ^ (-0.65))) * (1 - (Exp(-0.41 * e))))
Text24.Text = CStr(k)
End If
If Option4.Value = True Then
k = (-0.4 * (r / hi)) + ((0.64 * ((b / hi) ^ (-0.31))) * (1 - (Exp(-0.5 * e))))
Text24.Text = CStr(k)
End If
If Option5.Value = True Then
k = (-0.4 * (r / hi)) + ((0.8 * ((b / hi) ^ (-0.31))) * (1 - (Exp(-0.5 * e))))
Text24.Text = CStr(k)
End If
If k > 0.8 Then
k = 0.8
Text24.Text = CStr(k)
End If
If k < 0.075 Then
k = 0.075
Text24.Text = CStr(k)
End If
End Sub

Private Sub Command2_Click()
r = Val(Text1.Text)
hi = Val(Text6.Text)
k = 0.46 - 0.3 * (r / hi)
Text9.Text = CStr(k)
If k > 0.8 Then
k = 0.8
Text9.Text = CStr(k)
End If
If k < 0.1 Then
k = 0.1
Text9.Text = CStr(k)
End If
End Sub

Private Sub Command20_Click()
Text28.Text = ""
Text27.Text = ""
Text24.Text = ""
Option3.Value = False
Option4.Value = False
Option5.Value = False
End Sub

Private Sub Command21_Click()
Dim tp As Single, a As Single, e As Single
b = Val(Text10.Text)
r = Val(Text1.Text)
h = Val(Text2.Text)
hi = Val(Text6.Text)
tp = Val(Text25.Text)
a = Val(Text26.Text)
e = a / (((2 * 3.14 * hi) / (9.81 * (tp ^ 2))) ^ 0.5)
If Option1.Value = True Then
k = (-0.4 * (r / hi)) + ((0.64 * ((b / hi) ^ (-0.31))) * (1 - (Exp(-0.5 * e))))
Text23.Text = CStr(k)
End If
If Option2.Value = True Then
k = (-0.4 * (r / hi)) + ((0.8 * ((b / hi) ^ (-0.31))) * (1 - (Exp(-0.5 * e))))
Text23.Text = CStr(k)
End If
If k > 0.8 Then
k = 0.8
Text23.Text = CStr(k)
End If
If k < 0.075 Then
k = 0.075
Text23.Text = CStr(k)
End If
End Sub

Private Sub Command22_Click()
Text23.Text = ""
Text25.Text = ""
Text26.Text = ""
Option1.Value = False
Option2.Value = False
End Sub

Private Sub Command23_Click()
Dim tp As Single, a As Single, e As Single, p As Single
b = Val(Text10.Text)
r = Val(Text1.Text)
h = Val(Text2.Text)
hi = Val(Text6.Text)
tp = Val(Text29.Text)
a = Val(Text30.Text)
p = Val(Text31.Text)
e = a / (((2 * 3.14 * hi) / (9.81 * (tp ^ 2))) ^ 0.5)
k = (((-0.3) * (r / hi)) + (0.75 * (1 - (Exp(-0.5 * e))))) * ((Cos(p)) ^ (2 / 3))
Text32.Text = CStr(k)
If k > 0.8 Then
k = 0.8
Text32.Text = CStr(k)
End If
If k < 0.075 Then
k = 0.075
Text32.Text = CStr(k)
End If
End Sub

Private Sub Command24_Click()
Text29.Text = ""
Text30.Text = ""
Text31.Text = ""
Text32.Text = ""
End Sub

Private Sub Command25_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text10.Text = ""
Text8.Text = ""
Text9.Text = ""
Text36.Text = ""
Text37.Text = ""
Text38.Text = ""
Text13.Text = ""
Text12.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
Text20.Text = ""
Text18.Text = ""
Text19.Text = ""
Text21.Text = ""
Text4.Text = ""
Text11.Text = ""
Text22.Text = ""
Text26.Text = ""
Text25.Text = ""
Text23.Text = ""
Text28.Text = ""
Text27.Text = ""
Text24.Text = ""
Text32.Text = ""
Text31.Text = ""
Text30.Text = ""
Text29.Text = ""
Text34.Text = ""
Text35.Text = ""
Text33.Text = ""
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Option5.Value = False
End Sub

Private Sub Command26_Click()
End
End Sub

Private Sub Command27_Click()
Dim w As Single, M As Single, n As Single
w = Val(Text34.Text)
hi = Val(Text6.Text)
M = 0.05
Text33.Text = CStr(M)
n = (-0.006 * (w / hi)) + 0.93
Text35.Text = CStr(n)
End Sub

Private Sub Command28_Click()
Text34.Text = ""
Text35.Text = ""
Text33.Text = ""
End Sub

Private Sub Command29_Click()
Text1.Text = ""
Text2.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text10.Text = ""
End Sub

Private Sub Command3_Click()
Dim Y As Single, tpi As Single, M As Single, n As Single
b = Val(Text10.Text)
r = Val(Text1.Text)
h = Val(Text2.Text)
f = Val(Text3.Text)
L = Val(Text5.Text)
hi = Val(Text6.Text)
d50 = Val(Text7.Text)
tpi = Val(Text13.Text)
Y = (2 * 3.14 * hi) / (9.81 * (tpi ^ 2))
M = (0.031 * (hi / d50)) - 0.24
n = (5.24 * Y) + (0.0323 * (hi / d50)) - (0.0017 * ((b / d50) ^ 1.84)) + 0.51
If Y <= 0.01 And Y >= 0.05 And hi / d50 >= 6 And hi / d50 <= 1 Then
temp = MsgBox("数据超出取值范围", 16 + vbOKOnly)
Else
k = (M * (r / b)) + n
Text12.Text = CStr(k)
End If
If k < 0.075 Then
k = 0.075
Text12.Text = CStr(k)
End If
If k > 0.75 Then
k = 0.75
Text12.Text = CStr(k)
End If
End Sub

Private Sub Command30_Click()
Dim d As Single, t As Single, L As Single, k As Single, M As Single
d = Val(Text36.Text)
t = Val(Text37.Text)
L = 10
Do
k = (2 * 3.14) / L
M = ((9.81 * (t ^ 2)) / (2 * 3.14)) * ((Exp(k * d) - Exp(-k * d)) / (Exp(k * d) + Exp(-k * d)))
L = L + ((M - L) / 2)
Loop Until Abs(L - M) < 0.01
Text38.Text = CStr(L)
End Sub

Private Sub Command31_Click()
Text36.Text = ""
Text37.Text = ""
Text38.Text = ""
End Sub

Private Sub Command4_Click()
Dim c As Single, e As Single, a As Single, tp As Single
a = Val(Text14.Text)
tp = Val(Text15.Text)
c = Val(Text16.Text)
b = Val(Text10.Text)
r = Val(Text1.Text)
hi = Val(Text6.Text)
If r / hi >= 2.5 And r / hi <= -2.5 Then
temp = MsgBox("数据超出取值范围", 16 + vbOKOnly)
Else
e = a / (((2 * 3.14 * hi) / (9.81 * (tp ^ 2))) ^ 0.5)
k = (-0.4 * (r / hi)) + (((b / hi) ^ (-0.31)) * (1 - (Exp(-0.5 * e))) * c)
Text17.Text = CStr(k)
End If
End Sub

Private Sub Command5_Click()
b = Val(Text10.Text)
r = Val(Text1.Text)
h = Val(Text2.Text)
f = Val(Text3.Text)
L = Val(Text5.Text)
hi = Val(Text6.Text)
d50 = Val(Text7.Text)
If (b * r) / (L * d50) < 0 And (b * r) / (L * d50) > 7.08 And (r * hi) / (b * d50) > 2.14 And (r * hi) / (b * d50) < 0 Then
temp = MsgBox("数据超出取值范围", 16 + vbOKOnly)
Else
k = 1 - ((Exp(((-0.65) * (r / hi)) - (1.09 * (hi / b)))) + (0.047 * ((b * r) / (L * d50))) - (0.067 * ((r * hi) / (b * d50))))
Text18.Text = CStr(k)
End If
End Sub
Private Sub Command6_Click()
r = Val(Text1.Text)
hi = Val(Text6.Text)
k = 1 - (0.83 * (Exp((-0.72) * (r / hi))))
Text19.Text = CStr(k)
End Sub
Private Sub Command7_Click()
b = Val(Text10.Text)
r = Val(Text1.Text)
h = Val(Text2.Text)
L = Val(Text5.Text)
hi = Val(Text6.Text)
k = ((-0.4969) * (Exp(r / hi))) - (0.0292 * (b / h)) - (0.4257 * (1 - (r / h))) - (0.0696 * (Log(b / L))) + (0.1359 * (r / b)) + 1.0905
Text20.Text = CStr(k)
End Sub
Private Sub Command8_Click()
b = Val(Text10.Text)
r = Val(Text1.Text)
L = Val(Text5.Text)
hi = Val(Text6.Text)
d50 = Val(Text7.Text)
k = ((-0.869) * (Exp(-(r / hi)))) + (1.049 * (Exp(-0.003 * (b / hi)))) - (0.026 * (hi / b) * (r / d50)) - (0.005 * ((b ^ 2) / (L * d50)))
Text21.Text = CStr(k)
End Sub
Private Sub Command9_Click()
Dim a As Single, b As Single, M As Single, n As Single, e As Single, tp As Single, q As Single
b = Val(Text10.Text)
r = Val(Text1.Text)
h = Val(Text2.Text)
hi = Val(Text6.Text)
tp = Val(Text4.Text)
q = Val(Text11.Text)
e = q / (((2 * 3.14 * hi) / (9.81 * (tp ^ 2))) ^ 0.5)
M = 1 - 0.562 * (Exp(-0.0507 * e))
n = (0.6975 * (hi / h)) - 0.7021
a = n * (Exp(0.2568 * (b / hi)))
b = M * (Exp(-0.0845 - (b / hi)))
If r / b > 0.3 And r / b < -0.4 And b / hi > 8.13 And b / hi < 1.06 And hi / h > 0.61 And hi / h < 0.31 And e > 5.2 And e < 3 Then
temp = MsgBox("数据超出取值范围", 16 + vbOKOnly)
Else
k = (a * (r / b)) + b
Text22.Text = CStr(k)
End If
End Sub









































Private Sub HScroll1_Change()

End Sub

Private Sub Label2_Click()
End Sub