Code tự động hóa thiết kế chân vịt tàu thủy dùng VB

Private Sub Command1_Click() Dim vantoc As Single Dim lucday As Single Dim vongquay As Single Dim tysodia As Single Dim socanh As Single vantoc = Val(Text1) lucday = Val(Text2) vongquay = Val(Text3) tysodia = Val(Text4) socanh = Val(Text5) Dim c1(1 To 39) As Single Dim s1(1 To 39) As Single Dim t1(1 To 39) As Single Dim u1(1 To 39) As Single Dim v1(1 To 39) As Single Dim c2(1 To 47) As Single Dim s2(1 To 47) As Single Dim t2(1 To 47) As Single Dim u2(1 To 47) As Single Dim v2(1 To 47) As Single c1(1) = 0.00880496 c1(2) = -0.204554 c1(3) = 0.166351 c1(4) = 0.158114 c1(5) = -0.147581 c1(6) = -0.481497 c1(7) = 0.415437 c1(8) = 0.0144043 c1(9) = -0.0530054 c1(10) = 0.0143481 c1(11) = 0.0606826 c1(12) = -0.0125894 c1(13) = 0.0109689 c1(14) = -0.133698 c1(15) = 0.00638407 c1(16) = -0.00132718 c1(17) = 0.168496 c1(18) = -0.0507214 c1(19) = 0.0854559 c1(20) = -0.0504475 c1(21) = 0.010465 c1(22) = -0.00648272 c1(23) = -0.00841728 c1(24) = 0.0168424 c1(25) = -0.00102296 c1(26) = -0.0317791 c1(27) = 0.018604 c1(28) = -0.00410798 c1(29) = -0.000606848 c1(30) = -0.0049819 c1(31) = 0.0025983 c1(32) = -0.000560528 c1(33) = -0.00163652 c1(34) = -0.000328787 c1(35) = 0.000116502 c1(36) = 0.000690904 c1(37) = 0.00421749 c1(38) = 0.0000565229 c1(39) = -0.00146564 s1(1) = 0 s1(2) = 1 s1(3) = 0 s1(4) = 0 s1(5) = 2 s1(6) = 1 s1(7) = 0

Private Sub Command1_Click()Dim vantoc As Single

Dim lucday As SingleDim vongquay As SingleDim tysodia As SingleDim socanh As Singlevantoc = Val(Text1)lucday = Val(Text2)vongquay = Val(Text3)tysodia = Val(Text4)socanh = Val(Text5)Dim c1(1 To 39) As SingleDim s1(1 To 39) As SingleDim t1(1 To 39) As SingleDim u1(1 To 39) As SingleDim v1(1 To 39) As SingleDim c2(1 To 47) As SingleDim s2(1 To 47) As SingleDim t2(1 To 47) As SingleDim u2(1 To 47) As SingleDim v2(1 To 47) As Singlec1(1) = 0.00880496c1(2) = -0.204554c1(3) = 0.166351c1(4) = 0.158114c1(5) = -0.147581

c1(6) = -0.481497c1(7) = 0.415437c1(8) = 0.0144043c1(9) = -0.0530054c1(10) = 0.0143481c1(11) = 0.0606826c1(12) = -0.0125894c1(13) = 0.0109689c1(14) = -0.133698c1(15) = 0.00638407c1(16) = -0.00132718c1(17) = 0.168496c1(18) = -0.0507214c1(19) = 0.0854559c1(20) = -0.0504475c1(21) = 0.010465c1(22) = -0.00648272c1(23) = -0.00841728c1(24) = 0.0168424c1(25) = -0.00102296c1(26) = -0.0317791c1(27) = 0.018604c1(28) = -0.00410798c1(29) = -0.000606848c1(30) = -0.0049819c1(31) = 0.0025983c1(32) = -0.000560528c1(33) = -0.00163652

c1(34) = -0.000328787c1(35) = 0.000116502c1(36) = 0.000690904c1(37) = 0.00421749c1(38) = 0.0000565229c1(39) = -0.00146564s1(1) = 0

s1(2) = 1s1(3) = 0s1(4) = 0s1(5) = 2s1(6) = 1s1(7) = 0s1(8) = 0s1(9) = 2s1(10) = 0s1(11) = 1s1(12) = 0s1(13) = 1s1(14) = 0s1(15) = 0s1(16) = 2s1(17) = 3s1(18) = 0s1(19) = 2s1(20) = 3s1(21) = 1s1(22) = 2

s1(23) = 0s1(24) = 1s1(25) = 3s1(26) = 0s1(27) = 1s1(28) = 0s1(29) = 0s1(30) = 1s1(31) = 2s1(32) = 3s1(33) = 1s1(34) = 1s1(35) = 2s1(36) = 0s1(37) = 0s1(38) = 3s1(39) = 0t1(1) = 0t1(2) = 0t1(3) = 1t1(4) = 2t1(5) = 0t1(6) = 1t1(7) = 2t1(8) = 0t1(9) = 0t1(10) = 1t1(11) = 1

t1(12) = 0t1(13) = 0t1(14) = 3t1(15) = 6t1(16) = 6t1(17) = 0t1(18) = 0t1(19) = 0t1(20) = 0t1(21) = 6t1(22) = 6t1(23) = 3t1(24) = 3t1(25) = 3t1(26) = 3t1(27) = 0t1(28) = 2t1(29) = 0t1(30) = 0t1(31) = 0t1(32) = 0t1(33) = 2t1(34) = 6t1(35) = 6t1(36) = 0t1(37) = 3t1(38) = 6t1(39) = 3

u1(1) = 0u1(2) = 0u1(3) = 0u1(4) = 0u1(5) = 1u1(6) = 1u1(7) = 1u1(8) = 0u1(9) = 0u1(10) = 0u1(11) = 0u1(12) = 1u1(13) = 1u1(14) = 0u1(15) = 0u1(16) = 0u1(17) = 1u1(18) = 2u1(19) = 2u1(20) = 2u1(21) = 2u1(22) = 2u1(23) = 0u1(24) = 0u1(25) = 0u1(26) = 1u1(27) = 2u1(28) = 2

u1(29) = 0u1(30) = 0u1(31) = 0u1(32) = 0u1(33) = 0u1(34) = 0u1(35) = 0u1(36) = 1u1(37) = 1u1(38) = 1u1(39) = 2v1(1) = 0v1(2) = 0v1(3) = 0v1(4) = 0v1(5) = 0v1(6) = 0v1(7) = 0v1(8) = 1v1(9) = 1v1(10) = 1v1(11) = 1v1(12) = 1v1(13) = 1v1(14) = 0v1(15) = 0v1(16) = 0v1(17) = 0

v1(18) = 0v1(19) = 0v1(20) = 0v1(21) = 0v1(22) = 0v1(23) = 1v1(24) = 1v1(25) = 1v1(26) = 1v1(27) = 1v1(28) = 1v1(29) = 2v1(30) = 2v1(31) = 2v1(32) = 2v1(33) = 2v1(34) = 2v1(35) = 2v1(36) = 2v1(37) = 2v1(38) = 2v1(39) = 2

c2(1) = 0.00379368c2(2) = 0.00886523c2(3) = -0.032241c2(4) = 0.00344778c2(5) = -0.0408811c2(6) = -0.108009

c2(7) = -0.0885381c2(8) = 0.188561c2(9) = -0.00370871c2(10) = 0.00513696c2(11) = 0.0209449c2(12) = 0.00474319c2(13) = -0.00723408c2(14) = 0.00438388c2(15) = -0.0269403c2(16) = 0.0558082c2(17) = 0.0161886c2(18) = 0.00318086c2(19) = 0.015896c2(20) = 0.0471729c2(21) = 0.0196283c2(22) = -0.0502782c2(23) = -0.030055c2(24) = 0.0417122c2(25) = -0.0397722c2(26) = -0.00350024c2(27) = -0.0106854c2(28) = 0.00110903c2(29) = -0.000313912c2(30) = 0.0035985c2(31) = -0.00142121c2(32) = -0.00383637c2(33) = 0.0126803c2(34) = -0.00318278

c2(35) = 0.00334268c2(36) = -0.00183491c2(37) = 0.000112451c2(38) = -0.0000297228c2(39) = 0.000269551c2(40) = 0.00083265c2(41) = 0.00155334c2(42) = 0.000302683c2(43) = -0.0001843c2(44) = -0.000425399c2(45) = 0.0000869243c2(46) = -0.0004659c2(47) = 0.0000554194

s2(1) = 0s2(2) = 2s2(3) = 1s2(4) = 0s2(5) = 0s2(6) = 1s2(7) = 2s2(8) = 0s2(9) = 1s2(10) = 0s2(11) = 1s2(12) = 2s2(13) = 2s2(14) = 1

s2(15) = 0s2(16) = 3s2(17) = 0s2(18) = 1s2(19) = 0s2(20) = 1s2(21) = 3s2(22) = 0s2(23) = 3s2(24) = 2s2(25) = 0s2(26) = 0s2(27) = 3s2(28) = 3s2(29) = 0s2(30) = 3s2(31) = 0s2(32) = 1s2(33) = 0s2(34) = 2s2(35) = 0s2(36) = 1s2(37) = 3s2(38) = 3s2(39) = 1s2(40) = 2s2(41) = 0s2(42) = 0

s2(43) = 0s2(44) = 0s2(45) = 3s2(46) = 0s2(47) = 1

t2(1) = 0t2(2) = 0t2(3) = 1t2(4) = 2t2(5) = 1t2(6) = 1t2(7) = 1t2(8) = 2t2(9) = 0t2(10) = 1t2(11) = 1t2(12) = 1t2(13) = 0t2(14) = 1t2(15) = 2t2(16) = 0t2(17) = 3t2(18) = 3t2(19) = 0t2(20) = 0t2(21) = 0t2(22) = 1

t2(23) = 1t2(24) = 2t2(25) = 3t2(26) = 6t2(27) = 0t2(28) = 3t2(29) = 6t2(30) = 0t2(31) = 6t2(32) = 0t2(33) = 2t2(34) = 3t2(35) = 6t2(36) = 1t2(37) = 2t2(38) = 6t2(39) = 0t2(40) = 0t2(41) = 2t2(42) = 6t2(43) = 0t2(44) = 3t2(45) = 3t2(46) = 6t2(47) = 6

u2(1) = 0u2(2) = 0

u2(3) = 0u2(4) = 0u2(5) = 1u2(6) = 1u2(7) = 1u2(8) = 1u2(9) = 0u2(10) = 0u2(11) = 0u2(12) = 0u2(13) = 1u2(14) = 1u2(15) = 1u2(16) = 1u2(17) = 1u2(18) = 1u2(19) = 2u2(20) = 2u2(21) = 2u2(22) = 2u2(23) = 2u2(24) = 2u2(25) = 2u2(26) = 2u2(27) = 0u2(28) = 0u2(29) = 0u2(30) = 1

u2(31) = 1u2(32) = 2u2(33) = 2u2(34) = 2u2(35) = 2u2(36) = 0u2(37) = 0u2(38) = 0u2(39) = 1u2(40) = 1u2(41) = 1u2(42) = 1u2(43) = 2u2(44) = 2u2(45) = 2u2(46) = 2u2(47) = 2v2(1) = 0v2(2) = 0v2(3) = 0v2(4) = 0v2(5) = 0v2(6) = 0v2(7) = 0v2(8) = 0v2(9) = 1v2(10) = 1v2(11) = 1

v2(12) = 1v2(13) = 1v2(14) = 1v2(15) = 1v2(16) = 0v2(17) = 0v2(18) = 0v2(19) = 0v2(20) = 0v2(21) = 0v2(22) = 0v2(23) = 0v2(24) = 0v2(25) = 0v2(26) = 0v2(27) = 1v2(28) = 1v2(29) = 1v2(30) = 1v2(31) = 1v2(32) = 1v2(33) = 1v2(34) = 1v2(35) = 1v2(36) = 2v2(37) = 2v2(38) = 2v2(39) = 2

v2(40) = 2v2(41) = 2v2(42) = 2v2(43) = 2v2(44) = 2v2(45) = 2v2(46) = 2v2(47) = 2

Dim kt As Single, kq As Single, heso3 As Single, hieusuat As Single, hieusuattrunggian As Single, ktcantim As Single, kqcantim As Single, i As Single, j As Single, k As Integer, h As Integer, a As Single, b As Single, c As Single, d As Single, kttrunggian As Single

heso3 = (vongquay / 60) ^ 2 * lucday / (1.025 * (vantoc * 0.5144) ^ 4)For i = 0.5 To 1.4 Step 0.01

For j = 0.1 To 1.5 Step 0.01 For k = 1 To 39

kt = kt + c1(k) * (j) ^ s1(k) * (i) ^ t1(k) * tysodia ^ u1(k) * socanh ^ v1(k) Next k

For h = 1 To 47

kq = kq + c2(h) * (j) ^ s2(h) * (i) ^ t2(h) * tysodia ^ u2(h) * socanh ^ v2(h) Next h

hieusuattrunggian = (kt * j) / (kq * 2 * 3.14159265358979) a = Round(Abs(Round(kt / j ^ 4, 2) - Round(heso3, 2)), 2) If kt > 0 And kq > 0 Then

If a = 0 Then

If hieusuattrunggian >= hieusuat Then hieusuat = hieusuattrunggian ktcantim = kt

kqcantim = kq

c = j d = i End If End If End If kt = 0 kq = 0

hieusuattrunggian = 0 Next j

Next iText6 = cText7 = dText8 = hieusuat

Text9 = 0.97 * vantoc * 0.5144 / (vongquay / 60 * c)

End Sub