> My VB6 code is working fine, I want to change this code in

Amit Bhawsar

Private Sub bttCalculate_Click(){
    Calculations

    With crlReport
        .ReportFileName = App.Path & "\Output.rpt"
        .Action = 1
    End With
    End Sub

    Private Sub Calculations()
    'On Error Resume Next
    Dim strRead, strFatigue, strInsert, strDelete, strMaterial As String
    Dim Sf, Re, ModElasticity, MaxWorkStress, StrouhalNum, MatDensity, Ns, fs, Ro, Haf, Da, Ros, Has1, Has2, Has, I, M, Fa1, Fa, Hf1, Hf2, Hf, Fn, Hc, Fnc As Double
    Dim Delta, Nsc1, Nsc2, Nsc3, Nsc, Vir, Gsp1, Gsp2, Gsp3, Gsp, Pd, Sd, ABRatio, Kt, Somax, Ft, FtFeSf, Sr, St1, St2, St, Sa, Pd1, Sd1, Smax, LHS, RHS As Double
    Dim r, Fm, r1, Fm1, Pd2, Pt, Sd2, St3, Smax1, FtFeSf1, Pc, Pt1 As Double

    Set recRead = New ADODB.Recordset
    Set recFatigue = New ADODB.Recordset
    Set recInsert = New ADODB.Recordset
    Set recDelete = New ADODB.Recordset
    Set recMaterial = New ADODB.Recordset

    If recRead.State = 1 Then recRead.Close
    strRead = "select * from Simplex order by SNO"
    recRead.Open strRead, conThermowell, adOpenDynamic, adLockPessimistic

    If recDelete.State = 1 Then recDelete.Close
    strDelete = "Truncate table OutputRes"
    recDelete.Open strDelete, conThermowell, adOpenDynamic, adLockPessimistic

    Do While Not (recRead.EOF)
        If recFatigue.State = 1 Then recFatigue.Close
        strFatigue = "select value from Fatigue where FatigueID='" & Trim(recRead(21)) & "'"
        recFatigue.Open strFatigue, conThermowell, adOpenDynamic, adLockPessimistic

        MatDensity = 0.22
        Ros = 169
        Ro = 0.499
        Delta = 0.0005
        Ft = 0.9386
        Sf = 0
        Re = 0
        E = 0
        S = 0
        Rom = 0
        ModElasticity = 0
        MaxWorkStress = 0
        StrouhalNum = 0
        Ns = 0
        fs = 0
        Haf = 0
        Da = 0
        Has = 0
        M = 0
        Fa = 0
        Hf = 0
        Fn = 0
        Hc = 0
        Fnc = 0
        Nsc = 0
        Vir = 0
        Gsp = 0
        Pd = 0
        Sd = 0
        ABRatio = 0
        Kt = 0
        Somax = 0
        FtFeSf = 0
        Sr = 0
        St = 0
        Sa = 0
        Pd1 = 0
        Sd1 = 0
        Smax = 0
        LHS = 0
        RHS = 0
        r = 0
        Fm = 0
        r1 = 0
        Fm1 = 0
        Pd2 = 0
        Pt = 0
        Sd2 = 0
        St3 = 0
        Smax1 = 0
        FtFeSf1 = 0
        Pc = 0
        Pt1 = 0

        Call Modulous(recRead(4), recRead(5))
        Call Stress(recRead(4), recRead(5))
        Call SpecificWeight(recRead(4), recRead(5))

        Sf = recFatigue(0)
        Re = (recReadZ(7) * recRead(17) * recRead(9)) / (recRead(10) * 6.7197 * 0.0001 * 12)

        ModElasticity = 0.22 * (1 - (22 / Re))
        MaxWorkStress = 0.213 - 0.0248 * Math.Log((Re / 1300) ^ 2) / Math.Log(10) + 0.0095 * Math.Log((Re / 1300) ^ 3) / Math.Log(10)

        If Re > 21.999 And Re < 1300 Then
            StrouhalNum = ModElasticity
        ElseIf Re > 1299.9999 And Re < 500000 Then
            StrouhalNum = MaxWorkStress
        Else
            StrouhalNum = MatDensity
        End If

        Ns = StrouhalNum

        fs = Ns * 12 * (recRead(7) / recRead(17))

        Haf = 1 - ((Ro) / (2 * Rom * 1728))

        If recRead(11) = 1 Then
            Da = (recRead(16) + recRead(17)) / 2
        Else
            Da = recRead(16)
        End If

        Has1 = (Ros) / (2 * Rom * 1728)
        Has2 = 1 / (((Da / recRead(15)) ^ 2) - 1)
        Has = 1 - (Has1 * Has2)

        I = 3.14 * (Da ^ 4 - recRead(15) ^ 4) / 64

        M = Rom * 3.14 * (Da ^ 2 - recRead(15) ^ 2) / 4

        Fa1 = ((1.875 ^ 2) / 6.28) * (((E * I * 386.088) / M) ^ 0.5)
        Fa = Fa1 / (recRead(12) ^ 2)

        Hf1 = 0.99 * (1 + (1 - (recRead(17) / recRead(16))) + ((1 - (recRead(17) / recRead(16))) ^ 2))
        Hf2 = 1 + 1.1 * ((Da / recRead(12)) ^ (3 * (1 - 0.8 * (recRead(15) / Da))))
        Hf = Hf1 / Hf2

        Fn = Hf * Fa * Haf * Has

        Hc = 1 - (0.61 * (recRead(16) / recRead(12)))

        Fnc = Hc * Fn

        Nsc1 = (3.14 ^ 2) * Delta
        Nsc2 = Rom / ((Ro * 5.787 * (10 ^ -4)))
        Nsc3 = 1 - (recRead(15) / recRead(17)) ^ 2
        Nsc = Nsc1 * Nsc2 * Nsc3

        Vir = (recRead(17) / 12 * Fnc) / (2 * Ns)

        Gsp1 = 16 * (recRead(12) ^ 2)
        Gsp2 = (3 * 3.14 * (recRead(16) ^ 2)) * (1 - (recRead(15) / recRead(16)) ^ 4)
        Gsp3 = 1 + 2 * (recRead(17) / recRead(16))
        Gsp = (Gsp1 * Gsp3) / Gsp2

        Pd = (0.5 * Ro * 5.787 * 10 ^ -4 * Vir ^ 2 * 0.1 * 12 ^ 2) / 386.088

        Sd = Gsp * Pd * 1000

        ABRatio = recRead(16) / recRead(17)

        If ABRatio > 1.2992 Then
            Kt = 2.2
        Else
            Kt = 1.1 + 0.033 * ABRatio
        End If

        Somax = Kt * Sd

        FtFeSf = Ft * Sf

        Sr = recRead(6)

        St1 = 1 + (recRead(15) / recRead(16)) ^ 2
        St2 = 1 - (recRead(15) / recRead(16)) ^ 2
        St = Sr * (St1 / St2)

        Sa = Sr / St2

        Pd1 = (0.5 * Ro * 5.787 * 10 ^ -4 * 1.4 * (recRead(7) ^ 2) * 12 ^ 2) / 386.088

        Sd1 = Gsp * Pd1

        Smax = Sd1 + Sa

        LHS = Sqr(((Smax - Sr) ^ 2 + (Smax - St) ^ 2 + (St - Sr) ^ 2) / 2)

        RHS = 1.5 * S

        r = fs / Fnc

        Fm = 1 / (1 - (r ^ 2))

        r1 = 2 * r

        Fm1 = 1 / (1 - (r1 ^ 2))

        Pd2 = (0.5 * Ro * 5.787 * 10 ^ -4 * recRead(7) ^ 2 * 12 ^ 2 * 0.1) / 386.088

        Pt = (0.5 * Ro * 5.787 * 10 ^ -4 * recRead(7) ^ 2 * 12 ^ 2 * 1) / 386.088

        Sd2 = Fm1 * Pd2 * Gsp

        St3 = Gsp * Fm * Pt

        Smax1 = 2.2 * ((Sd2 ^ 2 + St3 ^ 2) ^ 0.5)

        FtFeSf1 = Ft * Sf

        Pc = (0.66 * S) * (2.167 / ((2 * recRead(17)) / (recRead(17) - recRead(15)))) - 0.0833

        Pt1 = (S / 0.13) * (recRead(18) / recRead(15)) ^ 2

        If recMaterial.State = 1 Then recMaterial.Close
        strMaterial = "select MatDesc from Materials where [ID]='" & recRead(4) & "'"
        recMaterial.Open strMaterial, conThermowell, adOpenDynamic, adLockPessimistic

        If recInsert.State = 1 Then recInsert.Close
        strInsert = "insert into OutputRes values ('" & recRead(1) & "','" & recRead(2) & "','" & recRead(3) & "','" & recMaterial(0) & "'," & _
        "" & recRead(5) & "," & recRead(6) & "," & recRead(7) & "," & recRead(8) & "," & recRead(9) & "," & recRead(10) & "," & recRead(11) & "," & _
        "" & recRead(12) & "," & recRead(13) & "," & recRead(14) & "," & recRead(15) & "," & recRead(16) & "," & recRead(17) & "," & recRead(18) & "," & _
        "" & recRead(19) & "," & recRead(20) & ",'" & recRead(21) & "','" & recRead(22) & "','" & recRead(23) & "'," & Sf & "," & Re & "," & E & "," & S & "," & Rom & "," & _
        "" & ModElasticity & "," & MaxWorkStress & "," & StrouhalNum & "," & Ns & "," & fs & "," & Haf & "," & Da & "," & Has & "," & _
        "" & M & "," & Fa & "," & Hf & "," & Fn & "," & Hc & "," & Fnc & "," & Nsc & "," & Vir & "," & Gsp & "," & Pd & "," & Sd & "," & _
        "" & ABRatio & "," & Kt & "," & Somax & "," & FtFeSf & "," & Sr & "," & St & "," & Sa & "," & Pd1 & "," & Sd1 & "," & Smax & "," & _
        "" & LHS & "," & RHS & "," & r & "," & Fm & "," & r1 & "," & Fm1 & "," & Pd2 & "," & Pt & "," & Sd2 & "," & St3 & "," & Smax1 & "," & _
        "" & FtFeSf1 & "," & MatDensity & "," & Ro & "," & Ros & "," & Delta & "," & Ft & "," & Pc & "," & Pt1 & ")"
        recInsert.Open strInsert, conThermowell, adOpenDynamic, adLockPessimistic

        recRead.MoveNext
    Loop
    End Sub

4 Replies

Know the answer? Post it — somebody with the same question will find it here.

Salman Beg7y ago
Hey.
You can simply use these tools to convert vb to c# and vice versa.

http://converter.telerik.com/

https://www.carlosag.net/tools/codetranslator/

https://codeconverter.icsharpcode.net/

https://www.developerfusion.com/tools/convert/vb-to-csharp/

https://www.mindfusion.eu/convert-cs-vb.html

Thanks.
Sanwar Ranwa7y ago
1. class SurroundingClass
2. {
3. private void bttCalculate_Click()/* TODO ERROR: Skipped SkippedTokensTrivia */
4. {
5. Calculations();
7. {
8. var withBlock = crlReport;
9. withBlock.ReportFileName = App.Path + @"\Output.rpt";
10. withBlock.Action = 1;
11. }
12. }
14. private void Calculations()
15. {
16. // On Error Resume Next
17. string strRead, strFatigue, strInsert, strDelete, strMaterial;
18. double Sf, Re, ModElasticity, MaxWorkStress, StrouhalNum, MatDensity, Ns, fs, Ro, Haf, Da, Ros, Has1, Has2, Has, I, M, Fa1, Fa, Hf1, Hf2, Hf, Fn, Hc, Fnc;
19. double Delta, Nsc1, Nsc2, Nsc3, Nsc, Vir, Gsp1, Gsp2, Gsp3, Gsp, Pd, Sd, ABRatio, Kt, Somax, Ft, FtFeSf, Sr, St1, St2, St, Sa, Pd1, Sd1, Smax, LHS, RHS;
20. double r, Fm, r1, Fm1, Pd2, Pt, Sd2, St3, Smax1, FtFeSf1, Pc, Pt1;
21. ;/* Cannot convert EmptyStatementSyntax, CONVERSION ERROR: Conversion for EmptyStatement not implemented, please report this issue in '' at character 735
22. at ICSharpCode.CodeConverter.CSharp.VisualBasicConverter.MethodBodyVisitor.DefaultVisit(SyntaxNode node)
23. at Microsoft.CodeAnalysis.VisualBasic.VisualBasicSyntaxVisitor`1.VisitEmptyStatement(EmptyStatementSyntax node)
24. at Microsoft.CodeAnalysis.VisualBasic.Syntax.EmptyStatementSyntax.Accept[TResult](VisualBasicSyntaxVisitor`1 visitor)
25. at Microsoft.CodeAnalysis.VisualBasic.VisualBasicSyntaxVisitor`1.Visit(SyntaxNode node)
26. at ICSharpCode.CodeConverter.CSharp.CommentConvertingMethodBodyVisitor.ConvertWithTrivia(SyntaxNode node)
27. at ICSharpCode.CodeConverter.CSharp.CommentConvertingMethodBodyVisitor.DefaultVisit(SyntaxNode node)
29. Input:
31. Set recRead = New ADODB.Recordset
33. */
34. ;/* Cannot convert EmptyStatementSyntax, CONVERSION ERROR: Conversion for EmptyStatement not implemented, please report this issue in '' at character 778
35. at ICSharpCode.CodeConverter.CSharp.VisualBasicConverter.MethodBodyVisitor.DefaultVisit(SyntaxNode node)
36. at Microsoft.CodeAnalysis.VisualBasic.VisualBasicSyntaxVisitor`1.VisitEmptyStatement(EmptyStatementSyntax node)
37. at Microsoft.CodeAnalysis.VisualBasic.Syntax.EmptyStatementSyntax.Accept[TResult](VisualBasicSyntaxVisitor`1 visitor)
38. at Microsoft.CodeAnalysis.VisualBasic.VisualBasicSyntaxVisitor`1.Visit(SyntaxNode node)
39. at ICSharpCode.CodeConverter.CSharp.CommentConvertingMethodBodyVisitor.ConvertWithTrivia(SyntaxNode node)
40. at ICSharpCode.CodeConverter.CSharp.CommentConvertingMethodBodyVisitor.DefaultVisit(SyntaxNode node)
42. Input:
43. Set recFatigue = New ADODB.Recordset
45. */
46. ;/* Cannot convert EmptyStatementSyntax, CONVERSION ERROR: Conversion for EmptyStatement not implemented, please report this issue in '' at character 819
47. at ICSharpCode.CodeConverter.CSharp.VisualBasicConverter.MethodBodyVisitor.DefaultVisit(SyntaxNode node)
48. at Microsoft.CodeAnalysis.VisualBasic.VisualBasicSyntaxVisitor`1.VisitEmptyStatement(EmptyStatementSyntax node)
49. at Microsoft.CodeAnalysis.VisualBasic.Syntax.EmptyStatementSyntax.Accept[TResult](VisualBasicSyntaxVisitor`1 visitor)
50. at Microsoft.CodeAnalysis.VisualBasic.VisualBasicSyntaxVisitor`1.Visit(SyntaxNode node)
51. at ICSharpCode.CodeConverter.CSharp.CommentConvertingMethodBodyVisitor.ConvertWithTrivia(SyntaxNode node)
52. at ICSharpCode.CodeConverter.CSharp.CommentConvertingMethodBodyVisitor.DefaultVisit(SyntaxNode node)
54. Input:
55. Set recInsert = New ADODB.Recordset
57. */
58. ;/* Cannot convert EmptyStatementSyntax, CONVERSION ERROR: Conversion for EmptyStatement not implemented, please report this issue in '' at character 859
59. at ICSharpCode.CodeConverter.CSharp.VisualBasicConverter.MethodBodyVisitor.DefaultVisit(SyntaxNode node)
60. at Microsoft.CodeAnalysis.VisualBasic.VisualBasicSyntaxVisitor`1.VisitEmptyStatement(EmptyStatementSyntax node)
61. at Microsoft.CodeAnalysis.VisualBasic.Syntax.EmptyStatementSyntax.Accept[TResult](VisualBasicSyntaxVisitor`1 visitor)
62. at Microsoft.CodeAnalysis.VisualBasic.VisualBasicSyntaxVisitor`1.Visit(SyntaxNode node)
63. at ICSharpCode.CodeConverter.CSharp.CommentConvertingMethodBodyVisitor.ConvertWithTrivia(SyntaxNode node)
64. at ICSharpCode.CodeConverter.CSharp.CommentConvertingMethodBodyVisitor.DefaultVisit(SyntaxNode node)
66. Input:
67. Set recDelete = New ADODB.Recordset
69. */
70. ;/* Cannot convert EmptyStatementSyntax, CONVERSION ERROR: Conversion for EmptyStatement not implemented, please report this issue in '' at character 899
71. at ICSharpCode.CodeConverter.CSharp.VisualBasicConverter.MethodBodyVisitor.DefaultVisit(SyntaxNode node)
72. at Microsoft.CodeAnalysis.VisualBasic.VisualBasicSyntaxVisitor`1.VisitEmptyStatement(EmptyStatementSyntax node)
73. at Microsoft.CodeAnalysis.VisualBasic.Syntax.EmptyStatementSyntax.Accept[TResult](VisualBasicSyntaxVisitor`1 visitor)
74. at Microsoft.CodeAnalysis.VisualBasic.VisualBasicSyntaxVisitor`1.Visit(SyntaxNode node)
75. at ICSharpCode.CodeConverter.CSharp.CommentConvertingMethodBodyVisitor.ConvertWithTrivia(SyntaxNode node)
76. at ICSharpCode.CodeConverter.CSharp.CommentConvertingMethodBodyVisitor.DefaultVisit(SyntaxNode node)
78. Input:
79. Set recMaterial = New ADODB.Recordset
81. */
82. if (recRead.State == 1)
83. recRead.Close();
84. strRead = "select * from Simplex order by SNO";
85. recRead.Open(strRead, conThermowell, adOpenDynamic, adLockPessimistic);
86. if (recDelete.State == 1)
87. recDelete.Close();
88. strDelete = "Truncate table OutputRes";
89. recDelete.Open(strDelete, conThermowell, adOpenDynamic, adLockPessimistic);
90. while (!(recRead.EOF))
91. {
92. if (recFatigue.State == 1)
93. recFatigue.Close();
94. strFatigue = "select value from Fatigue where FatigueID='" + Trim(recRead(21)) + "'";
95. recFatigue.Open(strFatigue, conThermowell, adOpenDynamic, adLockPessimistic);
96. MatDensity = 0.22;
97. Ros = 169;
98. Ro = 0.499;
99. Delta = 0.0005;
100. Ft = 0.9386;
101. Sf = 0;
102. Re = 0;
103. E = 0;
104. S = 0;
105. Rom = 0;
106. ModElasticity = 0;
107. MaxWorkStress = 0;
108. StrouhalNum = 0;
109. Ns = 0;
110. fs = 0;
111. Haf = 0;
112. Da = 0;
113. Has = 0;
114. M = 0;
115. Fa = 0;
116. Hf = 0;
117. Fn = 0;
118. Hc = 0;
119. Fnc = 0;
120. Nsc = 0;
121. Vir = 0;
122. Gsp = 0;
123. Pd = 0;
124. Sd = 0;
125. ABRatio = 0;
126. Kt = 0;
127. Somax = 0;
128. FtFeSf = 0;
129. Sr = 0;
130. St = 0;
131. Sa = 0;
132. Pd1 = 0;
133. Sd1 = 0;
134. Smax = 0;
135. LHS = 0;
136. RHS = 0;
137. r = 0;
138. Fm = 0;
139. r1 = 0;
140. Fm1 = 0;
141. Pd2 = 0;
142. Pt = 0;
143. Sd2 = 0;
144. St3 = 0;
145. Smax1 = 0;
146. FtFeSf1 = 0;
147. Pc = 0;
148. Pt1 = 0;
150. Modulous(recRead(4), recRead(5));
151. Stress(recRead(4), recRead(5));
152. SpecificWeight(recRead(4), recRead(5));
154. Sf = recFatigue(0);
155. Re = (recReadZ(7) * recRead(17) * recRead(9)) / (double)(recRead(10) * 6.7197 * 0.0001 * 12);
157. ModElasticity = 0.22 * (1 - (22 / Re));
158. MaxWorkStress = 0.213 - 0.0248 * Math.Log(Math.Pow((Re / 1300), 2)) / Math.Log(10) + 0.0095 * Math.Log(Math.Pow((Re / 1300), 3)) / Math.Log(10);
160. if (Re > 21.999 & Re < 1300)
161. StrouhalNum = ModElasticity;
162. else if (Re > 1299.9999 & Re < 500000)
163. StrouhalNum = MaxWorkStress;
164. else
165. StrouhalNum = MatDensity;
167. Ns = StrouhalNum;
169. fs = Ns * 12 * (recRead(7) / (double)recRead(17));
171. Haf = 1 - ((Ro) / (2 * Rom * 1728));
173. if (recRead(11) == 1)
174. Da = (recRead(16) + recRead(17)) / (double)2;
175. else
176. Da = recRead(16);
178. Has1 = (Ros) / (2 * Rom * 1728);
179. Has2 = 1 / (double)((Math.Pow((Da / recRead(15)), 2)) - 1);
180. Has = 1 - (Has1 * Has2);
182. I = 3.14 * (Math.Pow(Da, 4) - Math.Pow(recRead(15), 4)) / (double)64;
184. M = Rom * 3.14 * (Math.Pow(Da, 2) - Math.Pow(recRead(15), 2)) / (double)4;
186. Fa1 = ((Math.Pow(1.875, 2)) / 6.28) * (Math.Pow(((E * I * 386.088) / M), 0.5));
187. Fa = Fa1 / (Math.Pow(recRead(12), 2));
189. Hf1 = 0.99 * (1 + (1 - (recRead(17) / (double)recRead(16))) + (Math.Pow((1 - (recRead(17) / (double)recRead(16))), 2)));
190. Hf2 = 1 + 1.1 * (Math.Pow((Da / recRead(12)), (3 * (1 - 0.8 * (recRead(15) / Da)))));
191. Hf = Hf1 / Hf2;
193. Fn = Hf * Fa * Haf * Has;
195. Hc = 1 - (0.61 * (recRead(16) / (double)recRead(12)));
197. Fnc = Hc * Fn;
199. Nsc1 = (Math.Pow(3.14, 2)) * Delta;
200. Nsc2 = Rom / ((Ro * 5.787 * (Math.Pow(10, -4))));
201. Nsc3 = 1 - Math.Pow((recRead(15) / (double)recRead(17)), 2);
202. Nsc = Nsc1 * Nsc2 * Nsc3;
204. Vir = (recRead(17) / (double)12 * Fnc) / (2 * Ns);
206. Gsp1 = 16 * (Math.Pow(recRead(12), 2));
207. Gsp2 = (3 * 3.14 * (Math.Pow(recRead(16), 2))) * (1 - Math.Pow((recRead(15) / (double)recRead(16)), 4));
208. Gsp3 = 1 + 2 * (recRead(17) / (double)recRead(16));
209. Gsp = (Gsp1 * Gsp3) / Gsp2;
211. Pd = (0.5 * Ro * 5.787 * Math.Pow(10, -4) * Math.Pow(Vir, 2) * 0.1 * Math.Pow(12, 2)) / 386.088;
213. Sd = Gsp * Pd * 1000;
215. ABRatio = recRead(16) / (double)recRead(17);
217. if (ABRatio > 1.2992)
218. Kt = 2.2;
219. else
220. Kt = 1.1 + 0.033 * ABRatio;
222. Somax = Kt * Sd;
224. FtFeSf = Ft * Sf;
226. Sr = recRead(6);
228. St1 = 1 + Math.Pow((recRead(15) / (double)recRead(16)), 2);
229. St2 = 1 - Math.Pow((recRead(15) / (double)recRead(16)), 2);
230. St = Sr * (St1 / St2);
232. Sa = Sr / St2;
234. Pd1 = (0.5 * Ro * 5.787 * Math.Pow(10, -4) * 1.4 * (Math.Pow(recRead(7), 2)) * Math.Pow(12, 2)) / 386.088;
236. Sd1 = Gsp * Pd1;
238. Smax = Sd1 + Sa;
240. LHS = Sqr((Math.Pow((Smax - Sr), 2) + Math.Pow((Smax - St), 2) + Math.Pow((St - Sr), 2)) / 2);
242. RHS = 1.5 * S;
244. r = fs / Fnc;
246. Fm = 1 / (1 - (Math.Pow(r, 2)));
248. r1 = 2 * r;
250. Fm1 = 1 / (1 - (Math.Pow(r1, 2)));
252. Pd2 = (0.5 * Ro * 5.787 * Math.Pow(10, -4) * Math.Pow(recRead(7), 2) * Math.Pow(12, 2) * 0.1) / 386.088;
254. Pt = (0.5 * Ro * 5.787 * Math.Pow(10, -4) * Math.Pow(recRead(7), 2) * Math.Pow(12, 2) * 1) / 386.088;
256. Sd2 = Fm1 * Pd2 * Gsp;
258. St3 = Gsp * Fm * Pt;
260. Smax1 = 2.2 * (Math.Pow((Math.Pow(Sd2, 2) + Math.Pow(St3, 2)), 0.5));
262. FtFeSf1 = Ft * Sf;
264. Pc = (0.66 * S) * (2.167 / ((2 * recRead(17)) / (double)(recRead(17) - recRead(15)))) - 0.0833;
266. Pt1 = (S / 0.13) * Math.Pow((recRead(18) / (double)recRead(15)), 2);
268. if (recMaterial.State == 1)
269. recMaterial.Close();
270. strMaterial = "select MatDesc from Materials where [ID]='" + recRead(4) + "'";
271. recMaterial.Open(strMaterial, conThermowell, adOpenDynamic, adLockPessimistic);
272. if (recInsert.State == 1)
273. recInsert.Close();
274. strInsert = "insert into OutputRes values ('" + recRead(1) + "','" + recRead(2) + "','" + recRead(3) + "','" + recMaterial(0) + "'," + "" + recRead(5) + "," + recRead(6) + "," + recRead(7) + "," + recRead(8) + "," + recRead(9) + "," + recRead(10) + "," + recRead(11) + "," + "" + recRead(12) + "," + recRead(13) + "," + recRead(14) + "," + recRead(15) + "," + recRead(16) + "," + recRead(17) + "," + recRead(18) + "," + "" + recRead(19) + "," + recRead(20) + ",'" + recRead(21) + "','" + recRead(22) + "','" + recRead(23) + "'," + Sf + "," + Re + "," + E + "," + S + "," + Rom + "," + "" + ModElasticity + "," + MaxWorkStress + "," + StrouhalNum + "," + Ns + "," + fs + "," + Haf + "," + Da + "," + Has + "," + "" + M + "," + Fa + "," + Hf + "," + Fn + "," + Hc + "," + Fnc + "," + Nsc + "," + Vir + "," + Gsp + "," + Pd + "," + Sd + "," + "" + ABRatio + "," + Kt + "," + Somax + "," + FtFeSf + "," + Sr + "," + St + "," + Sa + "," + Pd1 + "," + Sd1 + "," + Smax + "," + "" + LHS + "," + RHS + "," + r + "," + Fm + "," + r1 + "," + Fm1 + "," + Pd2 + "," + Pt + "," + Sd2 + "," + St3 + "," + Smax1 + "," + "" + FtFeSf1 + "," + MatDensity + "," + Ro + "," + Ros + "," + Delta + "," + Ft + "," + Pc + "," + Pt1 + ")";
275. recInsert.Open(strInsert, conThermowell, adOpenDynamic, adLockPessimistic);
276. recRead.MoveNext();
277. }
278. }
279. }

Amit Bhawsar7y ago

i want to change in C# windows form application

Sanwar Ranwa7y ago

Hello,

In which format or technology you want to change this code