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

<span class="text_page_counter">Trang 1</span><div class="page_container" data-page="1">

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

</div><span class="text_page_counter">Trang 2</span><div class="page_container" data-page="2">

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

</div><span class="text_page_counter">Trang 3</span><div class="page_container" data-page="3">

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

</div><span class="text_page_counter">Trang 4</span><div class="page_container" data-page="4">

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

</div><span class="text_page_counter">Trang 5</span><div class="page_container" data-page="5">

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

</div><span class="text_page_counter">Trang 6</span><div class="page_container" data-page="6">

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

</div><span class="text_page_counter">Trang 7</span><div class="page_container" data-page="7">

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

</div><span class="text_page_counter">Trang 8</span><div class="page_container" data-page="8">

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

</div><span class="text_page_counter">Trang 9</span><div class="page_container" data-page="9">

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

</div><span class="text_page_counter">Trang 10</span><div class="page_container" data-page="10">

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

</div><span class="text_page_counter">Trang 11</span><div class="page_container" data-page="11">

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

</div><span class="text_page_counter">Trang 12</span><div class="page_container" data-page="12">

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

</div><span class="text_page_counter">Trang 13</span><div class="page_container" data-page="13">

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

</div><span class="text_page_counter">Trang 14</span><div class="page_container" data-page="14">

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

</div><span class="text_page_counter">Trang 15</span><div class="page_container" data-page="15">

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

</div><span class="text_page_counter">Trang 16</span><div class="page_container" data-page="16">

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

</div><span class="text_page_counter">Trang 17</span><div class="page_container" data-page="17">

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

</div><span class="text_page_counter">Trang 18</span><div class="page_container" data-page="18">

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

</div>