Private Sub Command1_Click ()
Dim Pd, r0, r1, Hz, Zb, Tb, Tt, Vg, I, r, Va, Zt, PLo, Q, Vd, Te, Po, t1, t2, t, H1, H2, Rzw and Rzn, Rsn, Rjn, rg, Dz, Ds, Dj, Pp, Pm, Pg, Hg, Hgt, Pati As Single
Pd=Val (Form1. Text1. Text)
R0=Val (Form1. Text2. Text)
Hz=Val (Form1. Text4. Text)
Zb=Val (Form1. Text5. Text)
Tb=Val (Form1. Text6. Text)
Tt=Val (Form1. Text7. Text)
Vg=Val (Form1. Text8. Text)
Zt=Val (Form1) Text10) Text)
PLo=Val (Form1. Text11. Text)
Q=Val (Form1. Text12. Text)
Te=Val (Form1. Text14. Text)
Po=Val (Form1. Text15. Text)
H1=Val (Form1. Text18. Text)
The H2=Val (Form1. Text19. Text)
Rzw=Val (Form1. Text20. Text)
Rzn=Val (Form1. Text21. Text)
Rsn=Val (Form1. Text29. Text)
Rjn=Val (Form1. Text27. Text)
Ds=Val (Form1. Text30. Text)
Dj=Val (Form1. Text28. Text)
Rg=Val (Form1. Text33. Text)
T=Val (Form1. Text31. Text)
Text3. Text=(Pd + 9.8 * 10 ^ 3 * r0 * H1)/9.8 * 10 ^ - 3/H1
R1=Text3. Text
R=Val (r1) - Val (Text3. Text)
Text9. Text=(Dj * 3.141 * (Rjn ^ 2 - Rzw ^ 2)/4/H2 + Ds * 3.141 * (Rsn ^ 2 - Rzw ^ 2)/4/H2) * 10 ^ 6
-Va=Text9. Text
Text13. Text=(Rzn ^ 2/4) H2/H2 * * 3.141 * 10 ^ - 6
Vd=Text13. Text
Text16. Text=((Rzn ^ 2/4) * 3.141 * H2/60/Q) * 10 ^ - 3
T1=Text16. Text
Text17. Text=((Rzn ^ 2/4) H2 * * 3.141 * 10 ^ 3/60/Q + ((Dj * 3.141 * (Rjn ^ 2 - Rzw ^ 2) * * 3.141 * 10 ^ - 3/4 + Ds (Rsn ^ 2 - Rzw ^ 2) * 10 ^ 3)/4)/(60 * Q))
T2=Text17. Text
Text22. Text=Pd + (9.8 * 10 ^ 3) * * Hz r0
Pp=Text22. Text
Text26. Text=Vg/Va
Hg=Text26. Text
If the t & gt; Then=Val (Form1. Text16. Text)
I=2
The Else
I=1
End the If
Text34. Text=I
Dim K, K1, K2, K3, X, Y, Y1, A, A1, B As Single
Y=10 ^ (6 * 2) * (Q * t/Va)
X=10 ^ (6 * 2) * Q * (t - K * t1)/(DVD + K * (Va - Vd))
If t - t1 & lt;=0 Then
K=0
The Else
K=1
End the If
A=Pp + Po - 9.8 * 10 ^ (3) * K * * r - (X - Hz) Pg
B=Zt Hg (Pp + Po) * * * Tt/* Zb (Tb)
A1=A + (9.8 * 10 ^ 3) * Ro * Hz
Y1=(A1 - Sqr (A1 ^ 2-39.2 * 10 ^ r0-3 * * * H (A - B)))/(19.6 * 10 ^ 3)/r0
If Y & gt; Y1 Then
K1=0
The Else
K1=1
End the If
If Y1 & lt; Y & lt;=H Then
K2=1
The Else
K2=0
End the If
If I=1 Then
K3=1
The Else
K3=0
End the If
Text25. Text=K3 * (((K1 * B)/(A - r0 (9.8 * 10 ^ 3 * * Y))) + (K2 * (Hz - Y)))
Hgt=Text25. Text
Text23. Text=9.8 * 10 ^ 3 * (r0 + K (Hz - Hgt) * * * r (X - Hz))
Pm=Text23. Text
Text24. Text=(9.8 * 10 ^ 3) Hg gr * * * K3 * (K1 + (K2 * (Hz - Y)/(Hz - Y1)))
Pg=Text24. Text
Text32. Text=Po + Pp - Pg - Pm
Pati=Text32. Text
Dim Pdi, Pbi company, PL1, Pdti, Pdii, Pd1, d0, c, V As Single
V=Val (Va) + Val (Vd)
D0=Val (Form1. Text40. Text)
C=Val (Form1. Text41. Text)
Pd1=Pd * (1 - r/(r1 * H1) * (X - K * H (X -))) * 10 ^ 6
If I=1 Then
Pdii=Pd
The Else
Pdii=Pd1
End the If
Text35. Text=Pdii * (1 - r/(r1 * H1) * (X - K * H (X -)))
Pdi=Text35. Text
Text36. Text=(8.11 * 10 ^ - 2) * Q ^ 2 * (r0 + K * r/c ^ 2/(d0 * 10 ^ - 2) ^ 4
Pbi company=Text36. Text
Text38. Text=(* r1/H2/r0) (PLo) * (X + K * (Hz - K) + Vd/V * (2 * K * (X - Hz) - X))
PL1=Text38. Text
Text39. Text=Po + Pdi + Pbi company + PL0 + PL1
Pbti=Text39. Text
End Sub
CodePudding user response:
CodePudding user response:
Write a for loop inside take DoEventsFor Test1 ~ 33 different values, called Command1_Click, from
Pati=Text32. Text
Pbti=Text39. Text
Out corresponding to different Pati and Pbti value, using the Line in a PictureBox statement draw curve,
CodePudding user response:
Bosses, in fact, I know what you mean but I just... Less likely to...CodePudding user response:
Function of calculation and interface interaction together, it is to see not bottom go to,CodePudding user response:
To tell the truth, posted a lot of messy code, the building Lord and did not take specific questions, the details of "process", says,Who has the "leisure interest" to analyze the size of your code is doing, how to "work"...
CodePudding user response:
The