byq.frm

变压器设计软件

7288 If d <= 0.395 Then GoTo 19288
7290 If d <= 0.405 Then GoTo 19290
7293 If d <= 0.415 Then GoTo 19292
7295 If d <= 0.425 Then GoTo 19294
7296 If d <= 0.435 Then GoTo 19296
7298 If d <= 0.445 Then GoTo 19298
7300 If d <= 0.455 Then GoTo 19300
7303 If d <= 0.465 Then GoTo 19302
7305 If d <= 0.475 Then GoTo 19304
7307 If d <= 0.485 Then GoTo 19306
7309 If d <= 0.495 Then GoTo 19308
7310 If d <= 0.52 Then GoTo 19310
7315 If d <= 0.57 Then GoTo 19314
7320 If d <= 0.59 Then GoTo 19320
7330 If d <= 0.64 Then GoTo 19330
7335 If d <= 0.66 Then GoTo 19333
7337  If d <= 0.67 Then GoTo 19335
7339  If d <= 0.68 Then GoTo 19337
7340  If d <= 0.69 Then GoTo 19340
7345  If d <= 0.71 Then GoTo 19345
7350  If d <= 0.74 Then GoTo 19350
7355  If d <= 0.75 Then GoTo 19355
7360  If d <= 0.79 Then GoTo 19360
7370  If d <= 0.84 Then GoTo 19370
7380  If d <= 0.89 Then GoTo 19380
7390  If d <= 0.94 Then GoTo 19390
7400  If d <= 0.99 Then GoTo 19400
7410  If d <= 1.04 Then GoTo 19410
7420  If d <= 1.14 Then GoTo 19420
7425  If d <= 1.19 Then GoTo 19425
7430  If d <= 1.24 Then GoTo 19430
7440  If d <= 1.34 Then GoTo 19440
7450  If d <= 1.44 Then GoTo 19450
7460  If d <= 1.54 Then GoTo 19460
7470  If d <= 1.64 Then GoTo 19470
7480  If d <= 1.74 Then GoTo 19480
7490  If d <= 1.84 Then GoTo 19490
7500  If d <= 1.94 Then GoTo 19500
7510  If d <= 2.05 Then GoTo 19510
7520  If d <= 2.17 Then GoTo 19520
7530  If d <= 2.29 Then GoTo 19530
7540  If d <= 2.41 Then GoTo 19540
7550  If d <= 2.55 Then GoTo 19550
7560   Return
17000:     '铁心叠厚
  If H <> 0 Then Return
17001  If EI = 28 Then GoTo 18000
17015  If EI = 35 Then GoTo 18100
17025  If EI = 41 Then GoTo 18200
17035  If EI = 48 Then GoTo 18300
17045  If EI = 54 Then GoTo 18400
17055  If EI = 57 Then GoTo 18500
17060  If EI = 60 Then GoTo 18530
17065  If EI = 66 Then GoTo 18550
17070  If EI = 76.2 Then GoTo 18600
17071  If EI = 85.8 Then GoTo 18650
17072  If EI = 96 Then GoTo 18700
17073  If EI = 105 Then GoTo 18750
17074  If EI = 114 Then GoTo 18800
17075  If EI = 120 Then GoTo 18850
17076  If EI = 133.2 Then GoTo 18900
18000 H = InputBox("输人铁心叠厚H=(11.5)")
18020 Return
18100 H = InputBox("输人铁心叠厚H=(11.5，13.5，15.5)")
18170 Return
18200 H = InputBox("输入铁心叠厚H=(13.5，16.5，20，24.5，26.5)")
18290 Return
18300 H = InputBox("输入铁心叠厚H=(16，21，23.5，26.5，30.5，34，40)")
18370 Return
18400 H = InputBox("输入铁心叠厚EI-54 H=(18，22，25)")
18470 Return
18500 H = InputBox("输入铁心叠厚H=(19，22，25，30)")
18510 Return
18530 H = InputBox("输入铁心叠厚H=(19，22，25，30)")
18540 Return
18550 H = InputBox("输入铁心叠厚H=(25，28，32，36，45，50)")
18551 Return
18600 H = InputBox("输入铁心叠厚H=(24，33，35.5，40.5，42.5，50.5，56.5)")
18610 Return
18650 H = InputBox("输入铁心叠厚H=(42，45，50，57)")
18651 Return
18700 H = InputBox("输入铁心叠厚H=(30，40，45，50，55，60，65)")
18701 Return
18750 H = InputBox("输入铁心叠厚H=(50，65)")
18751 Return
18800 H = InputBox("输入铁心叠厚H=(40，50，60，70，80")
18801 Return
18850 H = InputBox("输人铁心叠厚H=(60，65，73)")
18851 Return
18900 H = InputBox("输入铁心叠厚H=(52，55，60，65，70，75，80，85)")
18901 Return
19000:   '线规
19003 X11 = 10.75: G = 18: d0 = 0.06: d7 = 0.045
19004 Return
19005 X11 = 8.706: G = 22: d0 = 0.064: d7 = 0.05
19006 Return
19007 X11 = 6.94: G = 25: d0 = 0.07: d7 = 0.056
19008 Return
19010 X11 = 6.0458: G = 29: d0 = 0.075: d7 = 0.06
19015 Return
19017 X11 = 5.484: G = 32: d0 = 0.078: d7 = 0.063
19018 Return
19020 X11 = 4.4418: G = 39: d0 = 0.085: d7 = 0.07
19025 Return
19030 X11 = 3.401: G = 50: d0 = 0.097: d7 = 0.08
19035 Return
19040 X11 = 2.678: G = 63: d0 = 0.107: d7 = 0.09
19045 Return
19050 X11 = 2.176: G = 76: d0 = 0.117: d7 = 0.1
19055 Return
19060 X11 = 1.799: G = 92: d0 = 0.128: d7 = 0.11
19065 Return
19070 X11 = 1.511: G = 108: d0 = 0.138: d7 = 0.12
19075 Return
19077 X11 = 1.393: G = 117: d0 = 0.143: d7 = 0.125
19078 Return
19080 X11 = 1.288: G = 126: d0 = 0.15: d7 = 0.13
19085 Return
19090 X11 = 1.11: G = 145: d0 = 0.159: d7 = 0.14
19095 Return
19100 X11 = 0.9673: G = 167: d0 = 0.171: d7 = 0.15
19105 Return
19110 X11 = 0.8502: G = 189: d0 = 0.182: d7 = 0.16
19115 Return
19120 X11 = 0.7531: G = 213: d0 = 0.194: d7 = 0.17
19125 Return
19130 X11 = 0.6718: G = 237: d0 = 0.204: d7 = 0.18
19135 Return
19140 X11 = 0.6029: G = 264: d0 = 0.216: d7 = 0.19
19142 Return
19147 X11 = 0.5441: G = 293: d0 = 0.226: d7 = 0.2
19148 Return
19160 X11 = 0.4935: G = 321: d0 = 0.238: d7 = 0.21
19165 Return
19170 X11 = 0.4497: G = 353: d0 = 0.248: d7 = 0.22
19176 Return
19180 X11 = 0.4114: G = 386: d0 = 0.261: d7 = 0.23
19185 Return
19190 X11 = 0.3779: G = 420: d0 = 0.271: d7 = 0.24
19191 Return
19200 X11 = 0.3482: G = 454: d0 = 0.281: d7 = 0.25
19205 Return
19210 X11 = 0.322: G = 491: d0 = 0.291: d7 = 0.26
19212 Return
19220 X11 = 0.2985: G = 529: d0 = 0.302: d7 = 0.27
19225 Return
19230 X11 = 0.2776: G = 369: d0 = 0.312: d7 = 0.28
19231 Return
19240 X11 = 0.2587: G = 608: d0 = 0.324: d7 = 0.29
19242 Return
19245 X11 = 0.2418: G = 651: d0 = 0.334: d7 = 0.3
19246 Return
19255 X11 = 0.2265: G = 694: d0 = 0.344: d7 = 0.31
19256 Return
19262 X11 = 0.2125: G = 739: d0 = 0.354: d7 = 0.32
19263 Return
19265 X11 = 0.1999: G = 786.5: d0 = 0.366: d7 = 0.33
19266 Return
19267 X11 = 0.1882: G = 834.9: d0 = 0.376: d7 = 0.34
19268 Return
19270 X11 = 0.1777: G = 884: d0 = 0.387: d7 = 0.35
19272 Return
19275 X11 = 0.1676: G = 935: d0 = 0.397: d7 = 0.36
19276 Return
19280 X11 = 0.159: G = 987: d0 = 0.409: d7 = 0.37
19285  Return
19286  X11 = 0.1512: G = 1040: d0 = 0.419: d7 = 0.38
19287  Return
19288  X11 = 0.1431: G = 1095: d0 = 0.429: d7 = 0.39
19289  Return
19290  X11 = 0.136: G = 1150: d0 = 0.439: d7 = 0.4
19291  Return
19292  X11 = 0.1295: G = 1208: d0 = 0.449: d7 = 0.41
19293  Return
19294  X11 = 0.1234: G = 1268: d0 = 0.459: d7 = 0.42
19295  Return
19296  X11 = 0.1177: G = 1329: d0 = 0.469: d7 = 0.43
19297  Return
19298  X11 = 0.1124: G = 1392: d0 = 0.479: d7 = 0.44
19299  Return
19300  X11 = 0.1075: G = 1450: d0 = 0.491: d7 = 0.45
19301  Return
19302  X11 = 0.1029: G = 1515: d0 = 0.501: d7 = 0.46
19303  Return
19304  X11 = 0.09853: G = 1537: d0 = 0.511: d7 = 0.47
19305 Return
19306 X11 = 0.0945: G = 1603: d0 = 0.521: d7 = 0.48
19307 Return
19308 X11 = 0.0906: G = 1670: d0 = 0.531: d7 = 0.49
19309 Return
19310 X11 = 0.08706: G = 1739: d0 = 0.544: d7 = 0.5
19311 Return
19312 X11 = 0.0837: G = 1873: d0 = 0.554: d7 = 0.51
19313 Return
19314 X11 = 0.0775: G = 2019: d0 = 0.574: d7 = 0.53
19315 Return
19320 X11 = 0.07195: G = 2170: d0 = 0.596: d7 = 0.55
19325 Return
19330 X11 = 0.06046: G = 2586: d0 = 0.649: d7 = 0.6
19331 Return
19333 X11 = 0.0566: G = 2757: d0 = 0.669: d7 = 0.62
19334 Return
19335 X11 = 0.0548: G = 2844: d0 = 0.679: d7 = 0.63
19336 Return
19337 X11 = 0.0531: G = 2933: d0 = 0.689: d7 = 0.64
19338 Return
19340 X11 = 0.0515: G = 3030: d0 = 0.702: d7 = 0.65
19341 Return
19345 X11 = 0.0485: G = 3214: d0 = 0.722: d7 = 0.67
19346 Return
19350 X11 = 0.04442: G = 3510: d0 = 0.746: d7 = 0.7
19351 Return
19355 X11 = 0.0432: G = 3608: d0 = 0.756: d7 = 0.71
19356 Return
19360 X11 = 0.03869: G = 4025: d0 = 0.798: d7 = 0.75
19365 Return
19370 X11 = 0.03401: G = 4580: d0 = 0.852: d7 = 0.8
19375 Return
19380 X11 = 0.03012: G = 5150: d0 = 0.904: d7 = 0.85
19385 Return
19390 X11 = 0.02689: G = 5780: d0 = 0.956: d7 = 0.9
19395 Return
19400 X11 = 0.02412: G = 6400: d0 = 1.008: d7 = 0.95
19405 Return
19410 X11 = 0.02176: G = 7140: d0 = 1.062: d7 = 1
19415 Return
19420 X11 = 0.01799: G = 8630: d0 = 1.164: d7 = 1.1
19421 Return
19425 X11 = 0.0165: G = 9394: d0 = 1.214: d7 = 1.15
19426 Return
19430 X11 = 0.01511: G = 10400: d0 = 1.266: d7 = 1.2
19435 Return
19440 X11 = 0.01288: G = 12000: d0 = 1.368: d7 = 1.3
19445 Return
19450 X11 = 0.0111: G = 14000: d0 = 1.468: d7 = 1.4
19455 Return
19460  X11 = 0.009673: G = 16000: d0 = 1.57: d7 = 1.5
19465  Return
19470  X11 = 0.008502: G = 18200: d0 = 1.67: d7 = 1.6
19475  Return
19480  X11 = 0.007531: G = 20700: d0 = 1.772: d7 = 1.7
19485  Return
19490 X11 = 0.006718: G = 23300: d0 = 1.872: d7 = 1.8
19495 Return
19500 X11 = 0.006029: G = 24700: d0 = 1.974: d7 = 1.9
19505 Return
19510 X11 = 0.005411: G = 28400: d0 = 2.074: d7 = 2
19515 Return
19520 X11 = 0.004843: G = 31900: d0 = 2.196: d7 = 2.12
19525 Return
19530 X11 = 0.004338: G = 36300: d0 = 2.316: d7 = 2.24
19535 Return
19540 X11 = 0.003908: G = 39660: d0 = 2.438: d7 = 2.36
19545 Return
19550 X11 = 0.003482: G = 44510: d0 = 2.578: d7 = 2.5
19600 Return
29000:    '根据带绝缘线径查裸线径
29001 If d >= 0.051 Then d7 = 0.045
29002  If d >= 0.061 Then d7 = 0.045
29003  If d >= 0.0684 Then d7 = 0.05
29005  If d >= 0.0744 Then d7 = 0.056
29010  If d >= 0.079 Then d7 = 0.06
29015  If d >= 0.082 Then d7 = 0.063
29020 If d >= 0.09 Then d7 = 0.07
29030 If d >= 0.101 Then d7 = 0.08
29040 If d >= 0.111 Then d7 = 0.09
29050 If d >= 0.121 Then d7 = 0.1
29060 If d >= 0.132 Then d7 = 0.11
29070 If d >= 0.143 Then d7 = 0.12
29075 If d >= 0.148 Then d7 = 0.125
29080 If d >= 0.154 Then d7 = 0.13
29090 If d >= 0.164 Then d7 = 0.14
29100 If d >= 0.175 Then d7 = 0.15
29110 If d >= 0.187 Then d7 = 0.16
29120 If d >= 0.202 Then d7 = 0.17
29125 If d >= 0.212 Then d7 = 0.18
29130 If d >= 0.225 Then d7 = 0.19
29135 If d >= 0.235 Then d7 = 0.2
29140 If d >= 0.247 Then d7 = 0.21
29145 If d >= 0.258 Then d7 = 0.22
29150 If d >= 0.269 Then d7 = 0.23
29155 If d >= 0.279 Then d7 = 0.24
29160 If d >= 0.289 Then d7 = 0.25
29165 If d >= 0.299 Then d7 = 0.26
29170 If d >= 0.311 Then d7 = 0.27
29175 If d >= 0.321 Then d7 = 0.28
29180 If d >= 0.332 Then d7 = 0.29
29185 If d >= 0.342 Then d7 = 0.3
29190 If d >= 0.353 Then d7 = 0.31
29193 If d >= 0.358 Then d7 = 0.315
29195 If d >= 0.364 Then d7 = 0.32
29200 If d >= 0.374 Then d7 = 0.33
29205 If d >= 0.379 Then d7 = 0.335
29206 If d >= 0.387 Then d7 = 0.34
29210 If d >= 0.396 Then d7 = 0.35
29215 If d >= 0.401 Then d7 = 0.355
29216 If d >= 0.411 Then d7 = 0.36
29220 If d >= 0.421 Then d7 = 0.37
29222 If d >= 0.426 Then d7 = 0.375
29224 If d >= 0.431 Then d7 = 0.38
29230 If d >= 0.445 Then d7 = 0.39
29240 If d >= 0.46 Then d7 = 0.4
29241 If d >= 0.47 Then d7 = 0.41
29242 If d >= 0.48 Then d7 = 0.42
29245 If d >= 0.485 Then d7 = 0.425
29246 If d >= 0.496 Then d7 = 0.43
29248 If d >= 0.507 Then d7 = 0.44
29250 If d >= 0.512 Then d7 = 0.45
29252 If d >= 0.522 Then d7 = 0.46
29255 If d >= 0.532 Then d7 = 0.47
29256 If d >= 0.543 Then d7 = 0.48
29258 If d >= 0.554 Then d7 = 0.49
29260 If d >= 0.565 Then d7 = 0.5
29262 If d >= 0.575 Then d7 = 0.51
29264 If d >= 0.595 Then d7 = 0.53
29270 If d >= 0.617 Then d7 = 0.55
29280 If d >= 0.671 Then d7 = 0.6
29282 If d >= 0.691 Then d7 = 0.62
29284 If d >= 0.701 Then d7 = 0.63
29286 If d >= 0.711 Then d7 = 0.64
29290 If d >= 0.72 Then d7 = 0.65
29292 If d >= 0.74 Then d7 = 0.67
29300 If d >= 0.767 Then d7 = 0.7
29305 If d >= 0.777 Then d7 = 0.71
29310 If d >= 0.82 Then d7 = 0.75
29320 If d >= 0.873 Then d7 = 0.8
29330 If d >= 0.925 Then d7 = 0.85
29340 If d >= 0.977 Then d7 = 0.9
29350 If d >= 1.03 Then d7 = 0.95
29360 If d >= 1.1 Then d7 = 1
29370 If d >= 1.21 Then d7 = 1.1
29375 If d >= 1.26 Then d7 = 1.15
29380 If d >= 1.307 Then d7 = 1.2
29390 If d >= 1.41 Then d7 = 1.3
29400 If d >= 1.51 Then d7 = 1.4
29410 If d >= 1.61 Then d7 = 1.5
29420 If d >= 1.71 Then d7 = 1.6
29430 If d >= 1.81 Then d7 = 1.7
29440 If d >= 1.91 Then d7 = 1.8
29450 If d >= 2.01 Then d7 = 1.9
29460 If d >= 2.12 Then d7 = 2
29470 If d >= 2.24 Then d7 = 2.12
29480 If d >= 2.36 Then d7 = 2.24
29490 If d >= 2.49 Then d7 = 2.36
29500 If d >= 2.6 Then d7 = 2.5
29600 Return
28000  '磁化曲线此处用EI-35为代表
28100 E20 = E20 + 1
28112 K6 = 8.1
28120 If B1 >= 1 Then H1 = 3
28122 If B1 >= 1.225 Then H1 = 3.6
28124 If B1 >= 1.275 Then H1 = 4.2
28126 If B1 >= 1.325 Then H1 = 4.7
28128 If B1 >= 1.375 Then H1 = 5.8
28130 If B1 >= 1.41 Then H1 = 6
28132 If B1 >= 1.425 Then H1 = 6.2
28134 If B1 >= 1.451 Then H1 = 6.5
28136 If B1 >= 1.475 Then H1 = 8.3
28138 If B1 >= 1.5 Then H1 = 8.2
28140 If B1 > 1.525 Then H1 = 8.7
28142 If B1 > 1.551 Then H1 = 9.4
28144 If B1 >= 1.575 Then H1 = 10
28146 If B1 >= 1.61 Then H1 = 10.5
28148 If B1 >= 1.625 Then H1 = 11.5
28150 If B1 >= 1.651 Then H1 = 12
28152 If B1 >= 1.675 Then H1 = 14
28155 If B1 >= 1.71 Then H1 = 15
28156 If B1 >= 1.751 Then H1 = 17.9
28162 Return
28900
End Sub

Private Sub cmdclear_Click(Index As Integer)
Cls
E20 = 0
E30 = 0
    Textd10(11).Text = 0
    Textd20(18).Text = 0
    TxtH(0).Text = 0
    cboEI(0).Text = 0
    txtB(1).Text = 0
End Sub

Private Sub cmdexit_Click(Index As Integer)
End
End Sub


Private Sub cmdprint_Click(Index As Integer)
Form.PrintForm
End Sub