——以Text11控件作为标志，在MSFLexGrid得到焦点时先判断该标志，仅当标志符合设定条件时，自动选择程序才执行。否则，跳过自动选择程序。
TOPSwitch芯片选择的主流程图如图5所示。TOPSwitch芯片的自动选择功能是通过下述程序来实现的：
图5 TOPSwitch选 择 流 程 图
PrivateSubGrid1_GotFocus（）
Dim KRP
Dim i
Dim IP1
Dim Tj
Dim IRMS
Dim Pcxt
If Val(Text11.Text)=1 Then Goto Loop99
'根据输入交流电压类型来选择KRP的初始值
If Form2.Option3.Value=True Then Goto Loop2
Loop1 KRP=0.4
Goto Loop3
Loop2 KRP=0.6
Loop3 If KRP>=1 Then Goto Loop10
'设定循环范围
For i=1 To Form5.Grid1.Rows-2
Grid1.Row=i
Grid1.Col=5
'计算结温Tj值
Irms=Text5.Text＊Sqr(Text3.Text＊(KRP^2/3-KRP＋1))
Pcxt=0.1245＊(Text7.Text＋Form6.Text3.Text)^2/
1000000_
＊Form6.Text2.Text/1000000
Tj=(Irms^2＊Grid1.Text＋Pcxt)＊20
'判断结温Tj是否符合要求，若不符合则重新选择芯片
If Tj140 Then Goto Loop4
Next i
'在当前KRP值下若找不到合适的芯片，则对KRP进行迭代
KRP=KRP＋0.05
Goto Loop3
'找到合适的芯片后检查是否超出电流极限
Loop4 IP1=Text10.Text/(1－0.5＊KRP)/Text3.Text_
/0.8/Text8.Text
Grid1.Col=1
Grid1.Row=i
If Val(0.9＊Grid1.Text)IP1 Then
Else:Goto Loop12
End If
Loop8 KRP=KRP＋0.05
Loop9 Goto Loop3
Loop10 MsgBox提示“未找到合适芯片，请手动选择或修改基本参数！”
Loop11 Goto Loop99
'设定光标所在位置，将相关参数填入相应的文本框
Loop12 Grid1.Row=i
Loop13 Text11.Text=1
Loop14 Text4.Text=KRP
Loop99 End Sub
2.4 磁芯选择面板的设计
高频变压器磁芯选择面板如图6所示。
图6 高 频 变 压 器 磁 芯 选 择 面 板
——该面板利用Data控件调用了位于C:\Windows\1目录下的core.xls库文件，该库文件用Excel制作完成。库中包括2个电子数据表格，其中，设有安全边界的磁芯库见表2。
表2 设 有 安 全 边 距 的 磁 芯 库
| 磁芯型号 | 主要技术参数 |
|---|
| Pmax/W | SJ/mm2 | l/cm | AL/μH·匝－2 | b/mm | S/mm2 |
|---|
| E16/8/5/(EF?16）M | 3.5 | 0.201 | 3.76 | 0.95 | 10.0 | 22.3 |
|---|
| E20/10/6/(EF?20)M | 12.4 | 0.321 | 4.63 | 1.30 | 12.5 | 41.2 |
|---|
| E25/13/7(EF?25)M | 30.2 | 0.525 | 5.75 | 1.75 | 15.3 | 61.0 |
|---|
| E30/15/7M | 62.7 | 0.600 | 6.70 | 1.70 | 17.3 | 90.0 |
|---|
| ETD29/16/10M | 81.8 | 0.760 | 7.04 | 2.10 | 19.4 | 97.0 |
|---|
| E32/16/9(EF32)M | 95.1 | 0.830 | 7.40 | 1.77 | 20.1 | 108.5 |
|---|
| ETD34/17/11M | 116.0 | 0.971 | 7.86 | 2.45 | 20.9 | 122.0 |
|---|
| E36/18/11M | 135.0 | 1.200 | 8.10 | 2.33 | 21.5 | 122.5 |
|---|
| ETD39/20/13M | 182.0 | 1.250 | 12.30 | 2.55 | 25.7 | 178.0 |
|---|
| E42/22/15M | 227.0 | 1.780 | 9.70 | 3.80 | 26.3 | 177.0 |
|---|
| ETD44/22/15M | 251.0 | 1.730 | 10.30 | 3.30 | 29.5 | 210.0 |
|---|
| E42/21/20M | 266.0 | 2.340 | 9.70 | 4.75 | 26.1 | 177.0 |
|---|
| E55/28/21M | 455.0 | 3.540 | 12.40 | 4.50 | 33.4 | 280.0 |
|---|
※ S代 表 骨 架 横 截 面 积 。 参考文献
[1]PowerIntegrations公司产品手册，1997～2001
[2]李于东.VisualBasic6.0中文版[M].北京：电子工业出版社，2000.
[3]（美）JeffreyP.McManus，赵军锁(译).Database
AceesswitchVisualBasic6[M].北京：机械工业出版社，1999.
