VB变压器设计程序分析(1)
八）主要的编程语句
1. 循环结构
Do 循环结构 Do While | Until 条件 语句块 [Exit Do] 语句块 Loop For 循环结构 For 计数器 = 初始值 To 终止值 [Step 步长] 语句块 [Exit For] Exit [计数器]
VB变压器设计程序分析(1)
1.本设计程序使用VB6.0编写，采用循环遍数法。选择合理的跳 出运行出口，节省运行时间。 2.从满足性能参数（PO，PK，UK，温升等）约束条件出发，先 在选定的铁心尺寸范围内从设定的最高磁密、最高电密开始 计算，无解时逐渐降低磁密和电密进行循环计算。 3.循环变量：铁心尺寸（或直径）、磁密、电抗高度系数、高 压层数、低压层数、最高高压电密、最高低压电密。 4.磁密以铁心截面和低压匝数实现。 5.为满足阻抗UK要求，输入电抗高度系数，由程序估算绕组高 度。
VB变压器设计程序分析(1)
四）循环变量
循环变量的设置可参看《输 入数据参考》，运行后再作 调整。原则是看最优解是否 在所设定的范围中部，如最 优解在设定铁心的边缘，则 应调整铁心的设置。 因高压是圆线，不需改线 宽，故无需优化层数。
VB变压器设计程序分析(1)
五）电抗高度系数
For KEE = KEE1 To KEE2 Step 0.02 '电抗高度循环 HH0 = KEE * 1.85 * I2 * N2 * DOO / (ET * UD * 10000!) * (DOO / 80 + 2 * UD + 4 + CZ1) ‘电抗高度估算公式
Yes
No
UK判断
Yes
No
温升判断
Yes
No
VB变压器设计程序分析(1)
设计程序框图说明： 1.磁密循环：实际上是低压匝数循环。 2.高压线宽循环：实际上是高压层数循环。 3.低压线宽循环：实际上是低压层数循环。 4.在取不到线规时，自动跳出进入下一循环。 5.人工调整计算时跳出循环和约束条件的限制。
这些是从线规的数列得出的公式。有了起始线规的数组下 标，以后的循环计算中每次数组下标加1就可以了。
VB变压器设计程序分析(1) 七）绕组高确定原则
1.先算出次级线圈高H2； 2.由次级高H2加两线圈高差HGD（即两倍的高低端绝缘 差），初步确定高压线圈高H1； H1 = H2 - HGD * 2 3.由H1算出高压每层匝数N9，由N9最后确定高压线圈高 H1； 4.由H1加高压端绝缘H11D确定线圈总高H21： H21=H1+H11D*2 同时确定低压端绝缘H22D： H22D = H11D - HGD
VB变压器设计程序分析(1)
举例： M = " 标准:PO=" & POT & " PK=" & PKS & NL M=M& "********************************************** ****************" & NL & NL M = M & "NO" & "报价 " & " DOOL " & " DOOS " & "N2 " & " M2 " & " CZ11 " & " M1 " & " M1n " & " PK " & " PO " & " UK " & " A1 " & " B1 " & " A2 " & " B2 " & " KEE " & NL & NL For I = 0 To 9 M = M & I & KOG1$ & MM(I) & KOG1$ & D(I) & KOG$ & DD(I) & KOG$ & N(I) & KOG$ & III(I) & KOG$ & C(I) & KOG$ & II(I) & KOG$ & M1n0(I) & KOG$ & K(I) & KOG$ & O(I) & KOG$ & Format(U(I), "#.##") & KOG$ & aa(I) & KOG$ & bb(I) & KOG$ & E(I) & KOG$ & F(I) & KOG$ & KOG$ & KE1(I) & NL Next M = M & NL & "方案数：" & Q MsgBox M, , "10个优化方案主要数据"
KEE是电抗高度的循环系数，一般从0.8到1.2， Step步长的大小应小于导线宽的变化率，也就是绕组高度的 变化率应小于导线宽的变化率，否则就会漏掉线规的组 合，可能漏掉最优解。 1.85是经验系数，铜线和铝线不同，不同结构的绕组也有差 别。解决的办法是从最优解的列表中看KEE 值的范围。
VB变压器设计程序分析(1)
VB变压器设计程序分析(1)
5.电密以导线截面实现，在绕组高度和设定的层数下导线的 宽度也就确定。然后以最小的导线厚度为起点开始运算， 每一次循环增加一级导线厚度，直到有解时跳出这一次循 环。高、低压导线均如此，要求每一种导线的组合都不放 过。 6.在循环运算过程中要显示可行解的信息。使设计者了解循 环变量范围选取是否合适。 7.运算无解时显示计算到什么阶段，便于设计者调整输入数 据。 8.优化设计后应有人工调整功能。 9.设计结果能存于数据库，便于查阅。 10.设计结果输出一份详细的计算单，作为技术文件保存。
VB变压器设计程序分析(1)
VB变压器设计程序分析(1)
九）方案优化排队
Rem 可行解方案排队，选取10个最优方案。 3010 If Z > 11 Then Z = 11 For I = 1 To Z: If JI = MM(I) Then Return Next I MM(Z) = JI: aa(Z) = A1: AA0(Z) = A01: bb(Z) = B1: C(Z) = CZ11: D(Z) = DOOL: DD(Z) = DOOS If Z = 11 Then GoSub 3090 Z = Z + 1: Q = Q + 1 Return 3090 For I = 0 To 9 For J = I + 1 To 11 If MM(I) <= MM(J) Then GoTo 3270 H = MM(I): MM(I) = MM(J): MM(J) = H H = aa(I): aa(I) = aa(J): aa(J) = H H = AA0(I): AA0(I) = AA0(J): AA0(J) = H H = bb(I): bb(I) = bb(J): bb(J) = H H = C(I): C(I) = C(J): C(J) = H H = D(I): D(I) = D(J): D(J) = H H = DD(I): DD(I) = DD(J): DD(J) = H 3270 Next J Next I Return
select case 结构
3.联接模块，例如：
Call XGJM1 '线规截面计算
VB变压器设计程序分析(1)
八）信息的输入和输出
1.输入 InputBox 函数 InputBox（对话框字符串S[，标题S][，文本框字符串][， 横坐标值N][，纵横坐标值N][，帮助文件S][，帮助主题 号N]） 如：U1 = InputBox("请输入导变高压（V）：", , "10500")
VB变压器设计程序分析(1)
2.输出 MsgBox 函数 MsgBox（消息文本S[，显示按钮N][，标题S][，帮助文件 S][，帮助主题号N]） 消息文本——作为消息显示的字符串，超过一行时插入回车 符Chr(13)或换行符Chr(10)进行换行。 标题——对话框标题 显示按钮——是C1+C2+C3+C4的总和，用来指定显示按 钮的数目、形式、使用的图标样式。 C1：显示按钮的数目（0～5），0—显示OK 按钮；1— 0—显示OK 及Cancel按钮。 C2：使用的图标样式16—显示关键信息图标；32—显示 疑问图标；48—显示警告图标；64—显示通知图标。
VB变压器设计程序分析(1)二Fra bibliotek优化设计程序框图
输入数据 铁心尺寸循环 磁密循环 电抗高度循环 高压线宽循环 高压线厚循环 低压线厚循环 低压线宽循环 绕组计算 PO判断
Yes No
材料成本计算 方案比较排队 下一个循环 显示十个最优 选择方案 人工调整
保存方案 保存计算单 绘制铁心图 结束
PK判断
六）由最高电密确定线规的步骤
BD = HH0 / ((N2 / M2 + 1) * B4 * KH2) – JBA2 ’确定线宽 AD = S22 / BD ’确定线厚 AB = Int(Log(AD) * 17.452 + 2.5) ’ 扁线厚数组下标 BZ = Int(Log(BD) * 17.452 - 15.5) ’ 扁线宽数组下标 如果是圆线则： AC = Int(Log(AG * 10) * 17.17 - 18) ’ 圆线宽数组下标
VB变压器设计程序分析(1)