• Home
 · 
• Math/Dates
 · 
• This application can be used to design turbines,can be used in the design of transition of a Foreba

This application can be used to design turbines,can be used in the design of transition of a Foreba

This application can be used to design turbines,can be used in the design of transition of a Forebay by Mitra's Method or also to calculate

Rate This application can be used to design turbines,can be used in the design of transition of a Foreba

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Command1_Click()
On Error Resume Next
ProgressBar1.Visible = True
Dim Lf, l, Q, power, H As Double
Dim CG, efficiency, e As Double
Q = Text5.Text
H = Text6.Text
e = Text7.Text
Lf = Text8.Text
Dim Counter As Integer
ProgressBar1.Value = 0
For Counter = 1 To 999
ProgressBar1.Value = ProgressBar1.Value + 0.1
Next Counter
ProgressBar1.Visible = False
power = (9.81 * e * Q * H)
CG = (power / Lf)
Text1.Text = CG
End Sub

Private Sub Command2_Click()
On Error Resume Next
ProgressBar1.Visible = True
Dim x, Bx1, Bx2, Bx, g, Bxx, e, m, N, Bf, Bc, Lf, xq, l, b, c As Double
x = Text4.Text
Lf = Text9.Text
Bf = Text10.Text
Bc = Text3.Text
m = (Bc ^ 1.5)
N = (Bf ^ 1.5)
Dim Counter As Integer
ProgressBar1.Value = 0
For Counter = 1 To 999
ProgressBar1.Value = ProgressBar1.Value + 0.1
Next Counter
ProgressBar1.Visible = False
Bxx = Lf * m
e = m - N
Bx1 = (x * e) / Bxx
Bx2 = ((1 - Bx1) ^ 0.666666666666667)
Bx = Bf / Bx2
Text2.Text = Bx
On Error Resume Next
End Sub

Private Sub Command3_Click()
On Error Resume Next
Load Form2
On Error Resume Next
Form2.Visible = True
On Error Resume Next
End Sub

Private Sub Command4_Click()
On Error Resume Next
ProgressBar1.Visible = True
Dim j, P, PF, Hmax, hr, z, N, a, b As Double
P = Text13.Text
N = Text14.Text
PF = Text18.Text
z = P / N
Hmax = Text19.Text
hr = Hmax * ((PF / 1.15) ^ 0.6666667)
Text11.Text = hr
Dim Counter As Integer
ProgressBar1.Value = 0
For Counter = 1 To 999
ProgressBar1.Value = ProgressBar1.Value + 0.1
Next Counter
ProgressBar1.Visible = False
Dim Ns, v, w As Double
hr = Text11.Text
Ns = 1700 / (hr ^ 0.5)
Text12.Text = Ns
On Error Resume Next
End Sub

Private Sub Command5_Click()
On Error Resume Next
ProgressBar1.Visible = True
Dim j, P, PF, Hmax, hr, z, N, a, b As Double
P = Text13.Text
N = Text14.Text
PF = Text18.Text
z = P / N
Hmax = Text19.Text
hr = Hmax * ((PF / 1.15) ^ 0.6666667)
Text11.Text = hr
Dim Counter As Integer
ProgressBar1.Value = 0
For Counter = 1 To 999
ProgressBar1.Value = ProgressBar1.Value + 0.1
Next Counter
ProgressBar1.Visible = False
Dim Ns, v, w As Double
hr = Text11.Text
Ns = 1640 / (hr ^ 0.5)
Text15.Text = Ns
On Error Resume Next
End Sub

Private Sub Command6_Click()
On Error Resume Next
ProgressBar1.Visible = True
Dim j, P, PF, Hmax, hr, z, N, a, b As Double
P = Text13.Text
N = Text14.Text
PF = Text18.Text
z = P / N
Hmax = Text19.Text
hr = Hmax * ((PF / 1.15) ^ 0.6666667)
Text11.Text = hr
Dim Counter As Integer
ProgressBar1.Value = 0
For Counter = 1 To 999
ProgressBar1.Value = ProgressBar1.Value + 0.1
Next Counter
ProgressBar1.Visible = False
Dim Ns, v, w As Double
hr = Text11.Text
Ns = (6780 / (hr + 9.5)) + 83.6
Text16.Text = Ns
On Error Resume Next
End Sub

Private Sub Command7_Click()
On Error Resume Next
ProgressBar1.Visible = True
Dim j, P, PF, Hmax, hr, z, N, a, b As Double
P = Text13.Text
N = Text14.Text
PF = Text18.Text
z = P / N
Hmax = Text19.Text
hr = Hmax * ((PF / 1.15) ^ 0.6666667)
Text11.Text = hr
Dim Counter As Integer
ProgressBar1.Value = 0
For Counter = 1 To 999
ProgressBar1.Value = ProgressBar1.Value + 0.1
Next Counter
ProgressBar1.Visible = False
Dim Ns1, Ns2, Ns3, Ns, v, w As Double
Ns1 = 1700 / (hr ^ 0.5)
Ns2 = 1640 / (hr ^ 0.5)
Ns3 = (6780 / (hr + 9.5)) + 83.6
Ns = (Ns1 + Ns2 + Ns3) / 3
Text17.Text = Ns
On Error Resume Next
End Sub

Private Sub Command8_Click()
On Error Resume Next
Load frmdam
frmdam.Visible = True
On Error Resume Next
End Sub

Private Sub Command9_Click()
On Error Resume Next
Load Form3
Form3.Visible = True
End Sub