📄 byq.frm
字号:
Height = 255
Left = 5160
TabIndex = 4
Top = 1560
Width = 1095
End
Begin VB.Label Label3
Caption = "订货单位："
Height = 255
Left = 240
TabIndex = 3
Top = 1560
Width = 975
End
Begin VB.Line Line4
X1 = 10680
X2 = 10680
Y1 = 6840
Y2 = 1440
End
Begin VB.Line Line3
X1 = 120
X2 = 10680
Y1 = 1440
Y2 = 1440
End
Begin VB.Line Line2
X1 = 120
X2 = 120
Y1 = 1440
Y2 = 6840
End
Begin VB.Line Line1
X1 = 10680
X2 = 240
Y1 = 6840
Y2 = 6840
End
Begin VB.Label Label2
Caption = "输出功率（瓦）"
Height = 255
Left = 240
TabIndex = 1
Top = 960
Width = 1335
End
Begin VB.Label Label1
Caption = "变压器技术数据单"
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3360
TabIndex = 0
Top = 240
Width = 3735
End
Begin VB.Label Label8
Caption = "P1"
Height = 255
Index = 14
Left = 600
TabIndex = 54
Top = 4080
Width = 255
End
Begin VB.Label Label8
Caption = "P2"
Height = 255
Index = 15
Left = 600
TabIndex = 55
Top = 4440
Width = 255
End
Begin VB.Label Label8
Caption = "P3"
Height = 255
Index = 16
Left = 600
TabIndex = 56
Top = 4800
Width = 255
End
Begin VB.Label Label9
Caption = "导线重量(g)"
Height = 255
Index = 4
Left = 9600
TabIndex = 57
Top = 3720
Width = 1095
End
Begin VB.Label Label9
Caption = "阻值(Ω)"
Height = 255
Index = 5
Left = 8400
TabIndex = 59
Top = 3720
Width = 855
End
Begin VB.Label Label9
Caption = "线径(mm)"
Height = 255
Index = 6
Left = 7320
TabIndex = 64
Top = 3720
Width = 855
End
Begin VB.Label Label9
Caption = "引线长度"
Height = 255
Index = 8
Left = 5280
TabIndex = 66
Top = 3720
Width = 855
End
Begin VB.Label Label9
Caption = "电流(A)"
Height = 255
Index = 10
Left = 2160
TabIndex = 74
Top = 5160
Width = 855
End
Begin VB.Label Label9
Caption = "抽头匝数"
Height = 255
Index = 12
Left = 2160
TabIndex = 76
Top = 4800
Width = 855
End
Begin VB.Label Label9
Caption = "抽头匝数"
Height = 255
Index = 11
Left = 2160
TabIndex = 75
Top = 4440
Width = 855
End
End
Attribute VB_Name = "Label8"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdcaculate_Click(Index As Integer)
Dim G11 As String
Dim h11 As String
U1 = cboU1(2).Text '初级电压
U2 = cboU2(9).Text '次级电压
E5 = cboE5(1).Text '电压调整率
F1 = cboF1(0).Text '工作频率
H = TxtH(0).Text '铁心叠厚
EI = cboEI(0).Text 'EI片实际宽度
d10 = Textd10(11).Text '初级线径
d20 = Textd20(18).Text '次级线径
B = txtB(1).Text '磁感应强度
I1 = cboI1(0).Text '初级电流
I2 = cboI2(10).Text '次级电流
20 P2 = U2 * I2 '计算输出功率
txtP2.Text = P2
25 F1 = 50
cboF1(0).Text = F1
30 GoSub 17000 '查铁心常用叠厚
TxtH(0).Text = H
35 E6 = E5
40 GoSub 3000 '查铁心尺寸
45 g91 = 0.02 * ((W + 3.1416 * Z1) * Y + 2 * W * Z1 + 3.1416 * Z1 ^ 2) '计算线圈散热面积
50 d91 = 0.01 * (2 * (A + B1O) * H - B10 * H + 2 * (B10 * A - Y * (W + 2 * Z1)))
'计算铁心散热面积
55 h11 = d91 / g91
60 G11 = (0.001 * (Int(1000 * ((A * B10 - 2 * (Z1 * Y)) * H * 7.85 * 10 ^ -6)))) '计算铁心重量
65 GoSub 4000 '查骨架尺寸表
70 GoTo 80
75 E5 = E15
80 If B <> O Then GoTo 85 '原来为95
85 If EI < 29 Then B = 1.918
If EI >= 29 And EI < 36 Then B = 1.7
90 If EI >= 36 And EI < 67 Then B = 1.55
If EI > 85 Then B = 1.2
txtB(1).Text = B
95 V1 = ((4.44 * F1 * B * 0.96 * W * H)) * 10 ^ 6 '计算每伏匝数
100 N1 = Int(U1 * V1 + 0.5) '计算初级匝数
105 N2 = Int(U2 * V1 * (1 + 0.01 * E5) + 0.5) '计算次级匝数
110 TextN1(12).Text = N1
115 TextN2(17).Text = N2
120 I10 = (N2 / N1) * I2
B1 = B
125 GoSub 28000 '查磁化曲线
130 Pc = 0.001 * (Int(1000 * (K6 * G11 * ((B / 1.5) ^ 2))))
txtPc(6).Text = Pc
I1 = Sqr((I1O + Pc / U1) ^ 2 + 18 ^ 2) '计算初级电流
135 E30 = E30 + 1
140 If E20 > 2 Then GoTo 150
145 GoSub 28000
150 If d1O <> 0 Then GoTo 190
155 d = Sqr(SO / N1) '计算初级带绝缘线径
160 GoSub 29000 '查线规表得裸线直径
165 If E30 > 2 Then GoTo 340
170 d1 = d7
175 d = d1
180 d10 = d1
185 If d1O = d1 Then GoTo 195
190 d1O = Textd10(11).Text
195 d = d1O
200 GoSub 7000 '查线规表
205 d1 = d0
210 LO = 0.1 * ((3 * C11 + 2 * H - A1) + (3.5 * ((d1 ^ 2) * N1 / A2))) '计算初级平均匝长
215 L1 = L0 * N1 * 0.001
220 R1 = 0.001 * Int(10000 * L1 * X11 + 5) '计算初级直流电阻
225 G1 = 0.01 * Int(L1 * G + 0.5) '计算初级导线重量
GoSub 28000
txtI7(4).Text = 0.1 * Int(10000 * H1 * Lc / (N1 + NO)) '计算初级空载电流
U51 = Sqr(U1 ^ 2 - (0.001 * 7 * R1) ^ 2)
230 UO = U1 - (I1 * R1)
B1 = (u0 / (4.44 * F1 * N1 * 0.96 * W * H)) * 10 ^ 6
GoSub 28000
I8 = H1 * Lc / N1
Pc2 = 0.001 * (Int(1000 * (K6 * G11 * (B1 / 1.5) ^ 2) * (F1 / 50) ^ 1.33))
'修正铁损
I1 = Sqr((110 + Pc2 / U1) ^ 2 + I8 ^ N2)
If E20 > 4 Then GoTo 235
GoTo 230
235 Textd10(11).Text = d1O
240 TextR1(10).Text = R1
245 TextG1(9).Text = G
250 If d20 <> 0 Then GoTo 285
255 d = Sqr(SO1 * U2 * I2 / (P2 * N2)) '计算次级带绝缘线径
260 GoSub 29000 '查线规表得裸线直径.
265 d2 = d7
270 d = d2
275 d20 = d2
280 If d20 = d2 Then GoTo 290
285 d20 = Textd20(18).Text
290 d = d20
295 GoSub 7000
300 d2 = d0
305 LO = 0.1 * ((3 * C11 + 2 * H - A1) + (3.5 * (d2 ^ 2) * N2 / A2)) '计算次级平均匝长
310 L2 = L0 * N2 * 10 ^ -3
315 R2 = 0.001 * Int(10000 * L2 * X11 + 5) '计算次级直流电阻
320 G2 = 0.01 * Int(L2 * G + 0.5) '计算次级导线重量
325 Textd20(18).Text = d20
330 TextR2(19).Text = R2
335 textG2(20).Text = G2
340 B1 = (u0 / (4.44 * F1 * N1 * 0.96 * W * H)) * 10 ^ 6
345 O = 1
350 Pm = 0.01 * (Int(100 * (0 * ((I1 ^ 2) * R1 + (I2 ^ 2) * R2 + (I3 ^ 2) * R3 + (I4 ^ 2) * R4 + (I5 ^ 2) * R5 + (I6 ^ 2) * R6 + (I11 ^ 2) * R7) + (I12 ^ 2) * R8)))
'计算铁损
355 txtPm(2).Text = Pm '计算铜损
360 Pc2 = Pc * ((U1 - I1 * R1) / U1) ^ 2 '计算负载时铁损
365 I1 = (P2 + Pc2 + Pm) / U1
370 I8 = H1 * Lc / N1 '计算负载时激磁电流
375 I1 = Sqr((I12 + 18 ^ 2)) '计算负载电流
380 TxtI1(7).Text = 0.0001 * (Int(10000 * (Sqr(I1 ^ 2))))
385 N2 = Int((U2 + 0 * I2 * R2) * N1 / (U1 - 0 * I1 * R1) + 0.5)
390 H21 = 1.5 * h11 * Pm / Pc2
395 If H21 = 1 Then GoTo 410
400 If H21 < 1 Then GoTo 420
405 If H21 > 1 Then GoTo 430
410 K = 1
415 GoTo 435
420 K = 0.707 * (Sqr(1 + H21))
425 GoTo 435
430 K = 1.414 * (Sqr(1 / (1 + 1 / H21)))
435 Gm = G1 + G2 + G3 + G4 + G5 + G6 + G7 + G8
440 T = 0.01 * (Int(100 * ((Pc2 + Pm) / (g91 * M * (10 ^ -3) * (1 + 1.5 * h11) / K))))
'计算线圈温升
445 txtT(8).Text = T
450 Tc = 0.01 * (Int(100 * (T / K))) '计算铁心温升
460 If E16 > 0.7 Then GoTo 505
490 O = (274.5 + T) / 254.5
495 Q1O = Q1O + 1
500 If Q1O < 4 Then GoTo 350
505 K1 = 0.01 * (Int(100 * ((d1 ^ 2) * N1 / SO))) '计算初级槽满率
510 K2 = 0.01 * (Int(100 * ((d2 ^ 2) * N2 / SO1))) '计算次级槽满率
520 If E18 = 1 Then GoTo 550
530 If K1 >= 1 Then GoTo 545
535 If K2 >= 1 Then GoTo 545
540 GoTo 555
545 Print "绕不下"
550 GoTo 625
555 U20 = 0.01 * (Int(100 * (U1 * U2 / N1))) '计算次级空载电压
560 U21 = 0.01 * (Int(100 * ((U20 - U2) * 100 / U20))) '计算电压调整率
565 TextK1(5).Text = K1
570 TextK2(6).Text = K2
575 TxtU21(5).Text = U21
580 E15 = Int(((U20 - U2) * 100 / U20) + 0.5)
585 E16 = Abs(E5 - E15)
590 E17 = E17 + 1
595 If E17 > 3 Then GoTo 610
600 If E20 < 10 Then GoTo 75 '电压调整率可重复计算10次
605 If E16 > 0.7 Then GoTo 75 '设定电压调整率与计算相差>0.7％重新计算
610 Print "能绕下"
615 R0 = FormatDateTime(Now(), 1)
620 TxtR0(0).Text = R0
625 GoTo 28900
3000: '铁心尺寸表
3001 If EI = 28 Then A = 25: W = 8: Z1 = 6: Y = 17: B10 = 28: Lc = 5.85
3010 If EI = 35 Then A = 29.5: W = 9.6: Z1 = 7.7: Y = 19.5: B10 = 35: Lc = 6.81
3020 If EI = 41 Then A = 33: W = 13: Z1 = 8: Y = 21: B10 = 41: Lc = 8.15
3030 If EI = 48 Then A = 40: W = 16: Z1 = 8: Y = 24: B10 = 48: Lc = 8.91
3040 If EI = 54 Then A = 45: W = 8: Z1 = 9: Y = 27: B10 = 54: Lc = 10
3050 If EI = 57 Then A = 47.5: W = 19: Z1 = 9.5: Y = 28.5: B10 = 57: Lc = 10.58
3060 If EI = 60 Then A = 50: W = 20: Z1 = 10: Y = 30: B10 = 60: Lc = 11.14
3070 If EI = 66 Then A = 55: W = 22: Z1 = 11: Y = 33: B10 = 66: Lc = 12.26
3080 If EI = 76.2 Then A = 63.5: W = 25.4: Z1 = 12.7: Y = 38.1: B10 = 76.2: Lc = 14.15
3090 If EI = 85.8 Then A = 71.5: W = 28.6: Z1 = 14.3: Y = 42.9: B10 = 85.8: Lc = 15.93
3100 If EI = 96 Then A = 80: W = 32: Z1 = 16: Y = 48: B10 = 96: Lc = 17.83
3110 If EI = 105 Then A = 87.5: W = 35: Z1 = 17.5: Y = 52.5: B10 = 105: Lc = 19.5
3120 If EI = 114 Then A = 95: W = 38: Z1 = 19: Y = 57: B10 = 114: Lc = 21.17
3130 If EI = 133.2 Then A = 111: W = 44.4: Z1 = 22.2: Y = 66.6: B10 = 133.2: Lc = 24.7
3200 Return
4000: '骨架尺寸表
4005 If EI = 28 Then M = 1.7: C11 = 10.3: C10 = 4.55: A1 = 8.5: A2 = 6.2
4010 If EI = 35 Then M = 1.43: C11 = 12.3: C10 = 5.5: A1 = 10.3: A2 = 7.4
4012 If EI = 41 Then M = 1.4: C11 = 15.5: C10 = 5.8: A1 = 13.5: A2 = 7.7
4014 If EI = 48 Then M = 1.4: C11 = 18.8: C10 = 5.8: A1 = 16.6: A2 = 9
4016 If EI = 54 Then M = 1.3: C11 = 21: C10 = 6.2: A1 = 18.5: A2 = 10.2
4018 If EI = 57 Then M = 1.3: C11 = 21.8: C10 = 6.9: A1 = 19.8: A2 = 11
4020 If EI = 60 Then M = 1.25: C11 = 22.6: C10 = 7.3: A1 = 20.6: A2 = 11.7
4022 If EI = 66 Then M = 1.17: C11 = 24.5: C10 = 8.3: A1 = 22.7: A2 = 13
4024 If EI = 76.2 Then M = 1.07: C11 = 29: C10 = 8.9: A1 = 26.5: A2 = 15.4
4026 If EI = 85.8 Then M = 1: C11 = 32: C10 = 11.3: A1 = 29.3: A2 = 7.5
4028 If EI = 96 Then M = 0.95: C11 = 35.7: C10 = 12.45: A1 = 33: A2 = 20
4030 If EI = 105 Then M = 0.9: C11 = 39: C10 = 14: A1 = 36: A2 = 23
4032 If EI = 114 Then M = 0.87: C11 = 43: C10 = 15: A1 = 39.5: A2 = 25
4034 If EI = 133.2 Then M = 0.82: C11 = 50: C10 = 16: A1 = 40: A2 = 28
4130 SO = C10 * A2
4133 SO1 = SO
4135 K11 = 0.9
4140 Return
7000:
7001 X = 0: G = 0 '线规
7004 If d <= 0.045 Then GoTo 19003
7005 If d <= 0.05 Then GoTo 19005
7007 If d <= 0.056 Then GoTo 19007
7010 If d <= 0.06 Then GoTo 19010
7017 If d <= 0.063 Then GoTo 19017
7020 If d <= 0.07 Then GoTo 19020
7030 If d <= 0.08 Then GoTo 19030
7040 If d <= 0.094 Then GoTo 19040
7050 If d <= 0.104 Then GoTo 19050
7060 If d <= 0.114 Then GoTo 19060
7070 If d <= 0.124 Then GoTo 19070
7077 If d <= 0.129 Then GoTo 19077
7080 If d <= 0.134 Then GoTo 19080
7090 If d <= 0.144 Then GoTo 19090
7100 If d <= 0.154 Then GoTo 19100
7110 If d <= 0.164 Then GoTo 19110
7120 If d <= 0.175 Then GoTo 19120
7130 If d <= 0.185 Then GoTo 19130
7140 If d <= 0.195 Then GoTo 19140
7150 If d <= 0.205 Then GoTo 19147
7160 If d <= 0.215 Then GoTo 19160
7170 If d <= 0.225 Then GoTo 19170
7180 If d <= 0.235 Then GoTo 19180
7190 If d <= 0.245 Then GoTo 19190
7200 If d <= 0.255 Then GoTo 19200
7210 If d <= 0.265 Then GoTo 19210
7220 If d <= 0.275 Then GoTo 19220
7230 If d <= 0.285 Then GoTo 19230
7240 If d <= 0.295 Then GoTo 19240
7250 If d <= 0.305 Then GoTo 19245
7255 If d <= 0.315 Then GoTo 19255
7262 If d <= 0.325 Then GoTo 19262
7265 If d <= 0.335 Then GoTo 19265
7266 If d <= 0.345 Then GoTo 19267
7270 If d <= 0.335 Then GoTo 19270
7275 If d <= 0.365 Then GoTo 19275
7280 If d <= 0.375 Then GoTo 19280
7285 If d <= 0.385 Then GoTo 19286
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -