<![CDATA[电子设计http://electron.]]> http://yh315430489.blog.163.com zh-CN Wed, 19 Nov 2008 10:36:57 +0800 Wed, 19 Nov 2008 10:36:57 +0800 http://blogs.law.harvard.edu/tech/rss 120 <![CDATA[电子设计http://electron.]]> http://ava.blog.163.com/photo/FekXURzZsros5hXGJ20LbA==/169447935980169893.jpg http://yh315430489.blog.163.com <![CDATA[发射机电路设计软件]]> http://yh315430489.blog.163.com/blog/static/290710392008101910357875
Private Sub Command1_Click()
Text1.Text = "0dBm"
End Sub

Private Sub Command2_Click()
Text1.Text = "3.6dBm"
End Sub

Private Sub Form_Load()
Form1.Caption = "发射机电路设计软件"
Text1.Text = ""
Label1.Caption = "作者联系电话：15812463588"
Command1.Caption = "200兆末级推动"
Command2.Caption = "500兆末级推动"
End Sub

]]> http://yh315430489.blog.163.com/blog/static/290710392008101910357875 0 http://yh315430489.blog.163.com/blog/static/290710392008101910357875 Wed, 19 Nov 2008 10:35:07 +0800 2008-11-19T10:35:07+08:00 <![CDATA[OrCAD Capture 零件库解析]]> http://yh315430489.blog.163.com/blog/static/290710392008101781922233 ORCAD CAPTURE 零件库解析

1' AMPLIFIER.OLB
共182个零件，存放模拟放大器IC，如CA3280，TL027C，EL4093等。

2' ARITHMETIC.OLB
共182个零件，存放逻辑运算IC，如TC4032B，74LS85等。

3' ATOD.OLB
共618个零件，存放A/D转换IC，如ADC0804，TC7109等。

4' BUS DRIVERTRANSCEIVER.OLB
共632个零件，存放汇流排驱动IC，如74LS244，74LS373等数字IC。

5' CAPSYM.OLB
共35个零件，存放电源，地，输入输出口，标题栏等。

6' CONNECTOR.OLB
共816个零件，存放连接器，如4 HEADER，CON AT62，RCA JACK等。

7' COUNTER.OLB
共182个零件，存放计数器IC，如74LS90，CD4040B。

8' DISCRETE.OLB
共872个零件，存放分立式元件，如电阻，电容，电感，开关，变压器等常用零件。

9' DRAM.OLB
共623个零件，存放动态存储器，如TMS44C256，MN41100-10等。

10' ELECTRO MECHANICAL.OLB
共6个零件，存放马达，断路器等电机类元件。

11' FIFO.OLB
共177个零件，存放先进先出资料暂存器，如40105，SN74LS232。

12' FILTRE.OLB
共80个零件，存放滤波器类元件，如MAX270，LTC1065等。

13' FPGA.OLB
存放可编程逻辑器件，如XC6216/LCC。

14' GATE.OLB
共691个零件，存放逻辑门（含CMOS和TLL）。

15' LATCH.OLB
共305个零件，存放锁存器，如4013，74LS73，74LS76等。

16' LINE DRIVER RECEIVER.OLB
共380个零件，存放线控驱动与接收器。如SN75125，DS275等。

17' MECHANICAL.OLB
共110个零件，存放机构图件，如M HOLE 2，PGASOC-15-F等。

18' MICROCONTROLLER.OLB
共523个零件，存放单晶片微处理器，如68HC11，AT89C51等。

19' MICRO PROCESSOR.OLB
共288个零件，存放微处理器，如80386，Z80180等。

20' MISC.OLB
共1567个零件，存放杂项图件，如电表（METER MA），微处理器周边（Z80-DMA）等未分类的零件。

21' MISC2.OLB
共772个零件，存放杂项图件，如TP3071，ZSD100等未分类零件。

22' MISCLINEAR.OLB
共365个零件，存放线性杂项图件（未分类），如14573，4127，VFC32等。

23' MISCMEMORY.OLB
共278个零件，存放记忆体杂项图件（未分类），如28F020，X76F041等。

24' MISCPOWER.OLB
共222个零件，存放高功率杂项图件（未分类），如REF-01，PWR505，TPS67341等。

25' MUXDECODER.OLB
共449个零件，存放解码器，如4511，4555，74AC157等。

26' OPAMP.OLB
共610个零件，存放运放，如101，1458，UA741等。

27' PASSIVEFILTER.OLB
共14个零件，存放被动式滤波器，如DIGNSFILTER，RS1517T，LINE FILTER等。

28' PLD.OLB
共355个零件，存放可编程逻辑器件，如22V10，10H8等。

29' PROM.OLB
共811个零件，存放只读记忆体运算放大器，如18SA46，XL93C46等。

30' REGULATOR.OLB
共549个零件，存放稳压IC，如78xxx，79xxx等。

31' SHIFTREGISTER.OLB
共610个零件，存放移位寄存器，如4006，SNLS91等。

32' SRAM.OLB
共691个零件，存放静态存储器，如MCM6164，P4C116等。

33' TRANSISTOR.OLB
共210个零件，存放晶体管（含FET，UJT，PUT等），如2N2222A，2N2905等。

34'.DEVICE.OLB

MICROPHONE ,SPEAKER  杂元件

]]> http://yh315430489.blog.163.com/blog/static/290710392008101781922233 0 http://yh315430489.blog.163.com/blog/static/290710392008101781922233 Mon, 17 Nov 2008 08:19:22 +0800 2008-11-17T08:55:02+08:00 <![CDATA[从PROTEL到ALLEGRO的过渡]]> http://yh315430489.blog.163.com/blog/static/29071039200872585313358 从PROTEL到ALLEGRO的过渡




随着PCB设计的复杂程度和高速PCB设计需求的不断增加，越来越多的PCB设计者、设计团队选择Cadence的设计平台和工具。但是，由于没有 Protel数据到Cadence数据直接转换工具，长期以来如何将现有的基于Protel平台的设计数据转化到Cadence平台上来一直是处于平台转化期的设计者所面临的难题。
在长期实际的基础上，结合现有工具的特点，提供一种将Protel原理图、PCB转化到Cadence平台上的方法。
． 使用的工具
a) Protel DXP SP2
b) Cadence Design Systems Inc. Capture CIS
c) Cadence Design Systems Inc. Orcad Layout
d) Cadence Design Systems Inc. Layout2allegro
e) Cadence Design Systems Inc. Allegro
f) Cadence Design Systems Inc. Specctra



2． Protel 原理图到Cadence Design Systems Inc. Capture CIS
在Protel原理图的转化上我们可以利用Protel DXP SP2的新功能来实现。通过这一功能我们可以直接将Protel的原理图转化到Capture CIS中。
这里，我们仅提出几点通过实践总结出来的注意事项。



1) Protel DXP在输出Capture DSN文件的时候，没有输出封装信息，在Capture中我们会看到所以元件的PCB Footprint属性都是空的。这就需要我们手工为元件添加封装信息，这也是整个转化过程中最耗时的工作。在添加封装信息时要注意保持与Protel PCB设计中的封装一致性，以及Cadence在封装命名上的限制。例如一个电阻，在Protel中的封装为AXIAL0.4，在后面介绍的封装库的转化中，将被修改为AXIAL04，这是由于Cadence不允许封装名中出现“.”；再比如DB9接插件的封装在Protel中为DB9RA/F，将会被改为DB9RAF。因此我们在Capture中给元件添加封装信息时，要考虑到这些命名的改变。



2) 一些器件的隐藏管脚或管脚号在转化过程中会丢失，需要在Capture中使用库编辑的方法添加上来。通常易丢失管脚号的器件时电阻电容等离散器件。



3) 在层次化设计中，模块之间连接的总线需要在Capture中命名。即使在Protel中已经在父设计中对这样的总线命名了，还是要在Capture中重新来过，以确保连接。



4) 对于一个封装中有多个部分的器件，要注意修改其位号。例如一个74ls00，在protel中使用其中的两个门，位号为U8A，U8B。这样的信息在转化中会丢失，需要重新添加。
基本上注意到上述几点，借助Protel DXP，我们就可以将Protel的原理图转化到Capture中。进一步推广，这也为现有的Protel原理图符号库转化到Capture提供了一个途径。



3． Protel 封装库的转化
长期使用Protel作PCB设计，我们总会积累一个庞大的经过实践检验的Protel封装库，当设计平台转换时，如何保留这个封装库总是令人头痛。这里，我们将使用Orcad Layout，和免费的Cadence工具Layout2allegro来完成这项工作。



1) 在Protel中将PCB封装放置到一张空的PCB中，并将这个PCB文件用Protel PCB 2.8 ASCII的格式输出出来；
2) 使用Orcad Layout导入这个Protel PCB 2.8 ASCII文件；
3) 使用Layout2allegro将生成的Layout MAX文件转化为Allegro的BRD文件；
4) 接下来，我们使用Allegro的Export功能将封装库，焊盘库输出出来，就完成了Protel封装库到Allegro转化。



4． Protel PCB到Allegro的转化
有了前面两步的基础，我们就可以进行Protel PCB到Allegro的转化了。这个转化过程更确切的说是一个设计重现过程，我们将在Allegro中重现Protel PCB的布局和布线。



1) 将第二步Capture生成的Allegro格式的网表传递到Allegro BRD中，作为我们重现工作的起点；
2) 首先，我们要重现器件布局。在Protel中输出Place & Pick文件，这个文件中包含了完整的器件位置，旋转角度和放置层的信息。我们通过简单的手工修改，就可以将它转化为Allegro的Placement 文件。在Allegro中导入这个Placement文件，我们就可以得到布局了。
3) 布线信息的恢复，要使用Specctra作为桥梁。首先，从Protel中输出包含布线信息的Specctra DSN文件。对于这个DSN文件我们要注意以下2点：
4) Protel中的层命名与Allegro中有所区别，要注意使用文本编辑器作适当的修改，例如Protel中顶层底层分别为Toplayer和Bottomlayer，而在Allegro中这两层曾称为TOP和BOTTOM；
5) 注意在Specctra中查看过孔的定义，并添加到Allegro的规则中。在allegro中定义过孔从Specctra中输出布线信息，可以使用 session wires 和route文件，建议使用route文件，然后将布线信息导入到我们以及重现布局的Allegro PCB中，就完成了我们从Protel PCB到Allegro BRD的转化工作。

Protel到Allegro转化的方法



当今IT产业的发展日新月异，对硬件设备的要求也越来越高，硬件设计师们面临如何设计高速高密度PCB的难题。常言道，工欲善其事，必先利其器，这也是越来越多的设计师放弃低端的PCB设计工具，进而选择Cadence等公司提供的高性能PCB EDA软件的原因。
　　但是这种变革必然会带来这样或那样的问题。由于接触和使用较早等原因，国内的Protel用户为数众多，他们在选择Cadence高速PCB解决方案的同时，都面临着如何将手头的Protel设计移植到Cadence PCB设计软件中的问题。
　　在这个过程当中碰到的问题大致可分为两种：一是设计不很复杂，设计师只想借助Cadence CCT的强大自动布线功能完成布线工作；二是设计复杂，设计师需要借助信噪分析工具来对设计进行信噪仿真，设置线网的布线拓扑结构等工作。
　　对于第一种情况，要做的转化工作比较简单，可以使用Protel或Cadence提供的Protel到CCT的转换工具来完成这一工作。对于第二种情况，要做的工作相对复杂一些，下面将这种转化的方法作一简单的介绍。
　　Cadence信噪分析工具的分析对象是Cadence Allegro的brd文件，而Allegro可以读入合乎其要求的第三方网表，Protel输出的Telexis格式的网表满足Allegro对第三方网表的要求，这样就可以将Protel文件注入Allegro。
　　这里有两点请读者注意。首先，Allegro第三方网表在$PACKAGE段不允许有“．”；其次，在Protel中，我们用BasName[0:N]的形式表示总线，用BasName[x]表示总线中的一根信号，Allegro 第三方网表中总线中的一根信号的表示形式为Bas NameX，读者可以通过直接修改Protel输出的Telexis网表的方法解决这些问题。
　　Allegro在注入第三方网表时还需要每种类型器件的设备描述文件Device.txt文件，它的格式如下：
Package: package type
Class: classtype
Pincount: total pinnumber
Pinused: ...
　　其中常用的是PACKAGE，CLASS，PINCOUNT这几项。PACKAGE描述了器件的封装，但Allegro在注入网表时会用网表中的 PACKAGE项而忽略设备描述文件中的这一项。CLASS确定器件的类型，以便信噪分折，Cadence将器件分为IC IO，DISCRETE三类。PINCOUNT说明器件的管脚数目。对于大多数器件，Device.txt文件中包含有这三项就足够了。
　　有了第三方网表和设备描述文件，我们就可以将Protel中原理图设计以网表的形式代入到Cadence PCB设计软件中，接下来，设计师就可以借助Cadence PCB软件在高速高密度PCB设计方面的强大功能完成自己的设计。
　　如果已经在Protel作了PCB布局的工作，Allegro的script功能可以将Protcl中的布局在Allegro中重现出来。在 Protel中，设计师可以输出一个Place & Pick文件，这个文件中包含了每个器件的位置、旋转角度和放在PCB顶层还是底层等信息，可以通过这个文件很方便的生成一个Allegro的 script文件，在Allegro中执行这个script就能够重现Protel中的布局了，下面给出了完成Place & Pick文件到Allegro Script文件转化的C++代码，笔者使用这段代码，仅用了数分钟就将一个用户有800多个器件的PCB板布局在Allegro重现出来。
FILE *fp1 *fp2;
::AfxMessageBox("hello");
fp1=fopen("pick.txt" rt );
if (fp1==NULL) ::AfxMessageBox("Can not open the file!!!");
fp2=fopen("place.txt" wt );
if (fp2==NULL) ::AfxMessageBox("Can not create the file!!!");
char refdes[5] Pattern[5];
float midx midy refx refy padx pady rotation;
char tb[1];
char tmp='"';
fprintf(fp2 %s\n # Allegro script );
fprintf(fp2 %s\n version 13.6 );
fprintf(fp2 %s\n place refdes );
while (!feof(fp1)) {
fscanf(fp1 %s refdes);
fscanf(fp1 %s Pattern);
fscanf(fp1 %f &midx);
fscanf(fp1 %f &midy);
fscanf(fp1 %f &refx);
fscanf(fp1 %f &refy);
fscanf(fp1 %f &padx);
fscanf(fp1 %f &pady);
]]> http://yh315430489.blog.163.com/blog/static/29071039200872585313358 0 http://yh315430489.blog.163.com/blog/static/29071039200872585313358 Mon, 25 Aug 2008 08:53:13 +0800 2008-11-12T20:49:05+08:00 <![CDATA[ORCAD CAPTURE 9.0 零件库解析capture v9.0 component library]]> http://yh315430489.blog.163.com/blog/static/29071039200872234139818

ORCAD CAPTURE 9.0 零件库解析capture v9.0 component libraryEDA中国门户网站 f k h3v6_0z ]
1' AMPLIFIER.OLB
*B)_$^$G$z?i$c0共182个零件，存放模拟放大器IC，如CA3280，TL027C，EL4093等。

2' ARITHMETIC.OLBEDA中国门户网站 W o j r E a;E L
共182个零件，存放逻辑运算IC，如TC4032B，74LS85等。

3' ATOD.OLBEDA中国门户网站 Q E*\(t1m A
共618个零件，存放A/D转换IC，如ADC0804，TC7109等。

4' BUS DRIVERTRANSCEIVER.OLB
&[:`,R _(]-N0共632个零件，存放汇流排驱动IC，如74LS244，74LS373等数字IC。

5' CAPSYM.OLBEDA中国门户网站 J9D A d,k&l V(m$R Z
共35个零件，存放电源，地，输入输出口，标题栏等。

6' CONNECTOR.OLBEDA中国门户网站 @9I g [ ^/S H a
共816个零件，存放连接器，如4 HEADER，CON AT62，RCA JACK等。

7' COUNTER.OLBEDA中国门户网站 o7{ u(f t
共182个零件，存放计数器IC，如74LS90，CD4040B。

8' DISCRETE.OLBEDA中国门户网站!@(@ w m U t
共872个零件，存放分立式元件，如电阻，电容，电感，开关，变压器等常用零件。

9' DRAM.OLB
%U#N6X u Z&c%~/Z+~-m0共623个零件，存放动态存储器，如TMS44C256，MN41100-10等。

10' ELECTRO MECHANICAL.OLBEDA中国门户网站 i)r z)| e&w"t0I H
共6个零件，存放马达，断路器等电机类元件。

11' FIFO.OLBEDA中国门户网站 c K;|'x.O
共177个零件，存放先进先出资料暂存器，如40105，SN74LS232。

12' FILTRE.OLB
y/b a2k8a @ D0共80个零件，存放滤波器类元件，如MAX270，LTC1065等。

13' FPGA.OLB
? X l-c:g @ a.N1s g0存放可编程逻辑器件，如XC6216/LCC。

14' GATE.OLBEDA中国门户网站3H L+` ` x q g(M5[
共691个零件，存放逻辑门（含CMOS和TLL）。

15' LATCH.OLBEDA中国门户网站 T o;_:?7{
共305个零件，存放锁存器，如4013，74LS73，74LS76等。

16' LINE DRIVER RECEIVER.OLBEDA中国门户网站 U$C ^$?%Q%D C
共380个零件，存放线控驱动与接收器。如SN75125，DS275等。

17' MECHANICAL.OLBEDA中国门户网站.I/v }.G2Z f
共110个零件，存放机构图件，如M HOLE 2，PGASOC-15-F等。

18' MICROCONTROLLER.OLBEDA中国门户网站6_$r)a s y
共523个零件，存放单晶片微处理器，如68HC11，AT89C51等。

19' MICRO PROCESSOR.OLB
$v?o x0o j,E)X i E a0共288个零件，存放微处理器，如80386，Z80180等。

20' MISC.OLB
o P+@ [!] J/m2O0共1567个零件，存放杂项图件，如电表（METER MA），微处理器周边（Z80-DMA）等未分类的零件。

21' MISC2.OLB
p m s C$}$m Z P0共772个零件，存放杂项图件，如TP3071，ZSD100等未分类零件。

22' MISCLINEAR.OLBEDA中国门户网站)^ B z?l0w
共365个零件，存放线性杂项图件（未分类），如14573，4127，VFC32等。

23' MISCMEMORY.OLBEDA中国门户网站$X U9s j I#A p D,v
共278个零件，存放记忆体杂项图件（未分类），如28F020，X76F041等。

24' MISCPOWER.OLB
0i1t A A,Q e2S L k0共222个零件，存放高功率杂项图件（未分类），如REF-01，PWR505，TPS67341等。

25' MUXDECODER.OLB
y2H#d q/Q(s }#U:J ` d0共449个零件，存放解码器，如4511，4555，74AC157等。

26' OPAMP.OLB
0I"H*r y/v {0共610个零件，存放运放，如101，1458，UA741等。

27' PASSIVEFILTER.OLB
F-|!i&H:I0K U,v#^0共14个零件，存放被动式滤波器，如DIGNSFILTER，RS1517T，LINE FILTER等。

28' PLD.OLBEDA中国门户网站 t x @!g B q h X y
共355个零件，存放可编程逻辑器件，如22V10，10H8等。

29' PROM.OLB
-G L ] `;] k/`0共811个零件，存放只读记忆体运算放大器，如18SA46，XL93C46等。

30' REGULATOR.OLB
N F5^?Z z)q V0共549个零件，存放稳压IC，如78xxx，79xxx等。

31' SHIFTREGISTER.OLB
x?X%v T i6V:G0?0共610个零件，存放移位寄存器，如4006，SNLS91等。

32' SRAM.OLBEDA中国门户网站;O;Q M v3P/U g'w j/h
共691个零件，存放静态存储器，如MCM6164，P4C116等。

33' TRANSISTOR.OLBEDA中国门户网站 f b/t D9W;] x;t
共210个零件，存放晶体管（含FET，UJT，PUT等），如2N2222A，2N2905等。

]]> http://yh315430489.blog.163.com/blog/static/29071039200872234139818 0 http://yh315430489.blog.163.com/blog/static/29071039200872234139818 Fri, 22 Aug 2008 15:41:39 +0800 2008-11-12T20:48:18+08:00 <![CDATA[Protel 原理图/PCB到Cadence的数据转换]]> http://yh315430489.blog.163.com/blog/static/29071039200872233644702




随着PCB设计的复杂程度和高速PCB设计需求的不断增加，越来越多的PCB设计者、设计团队选择Cadence的设计平台和工具。但是，由于没有 Protel数据到Cadence数据直接转换工具，长期以来如何将现有的基于Protel平台的设计数据转化到Cadence平台上来一直是处于平台转化期的设计者所面临的难题。
在长期实际的基础上，结合现有工具的特点，提供一种将Protel原理图、PCB转化到Cadence平台上的方法。
1． 使用的工具
a) Protel DXP SP2
b) Cadence Design Systems, Inc. Capture CIS
c) Cadence Design Systems, Inc. Orcad Layout
d) Cadence Design Systems, Inc. Layout2allegro
e) Cadence Design Systems, Inc. Allegro
f) Cadence Design Systems, Inc. Specctra
2． Protel 原理图到Cadence Design Systems, Inc. Capture CIS
在Protel原理图的转化上我们可以利用Protel DXP SP2的新功能来实现。通过这一功能我们可以直接将Protel的原理图转化到Capture CIS中。

这里，我们仅提出几点通过实践总结出来的注意事项。
1) Protel DXP在输出Capture DSN文件的时候，没有输出封装信息，在Capture中我们会看到所以元件的PCB Footprint属性都是空的。这就需要我们手工为元件添加封装信息，这也是整个转化过程中最耗时的工作。在添加封装信息时要注意保持与Protel PCB设计中的封装一致性，以及Cadence在封装命名上的限制。例如一个电阻，在Protel中的封装为AXIAL0.4，在后面介绍的封装库的转化中，将被修改为AXIAL04，这是由于Cadence不允许封装名中出现“.”；再比如DB9接插件的封装在Protel中为DB9RA/F，将会被改为DB9RAF。因此我们在Capture中给元件添加封装信息时，要考虑到这些命名的改变。
2) 一些器件的隐藏管脚或管脚号在转化过程中会丢失，需要在Capture中使用库编辑的方法添加上来。通常易丢失管脚号的器件时电阻电容等离散器件。
3) 在层次化设计中，模块之间连接的总线需要在Capture中命名。即使在Protel中已经在父设计中对这样的总线命名了，还是要在Capture中重新来过，以确保连接。
4) 对于一个封装中有多个部分的器件，要注意修改其位号。例如一个74ls00，在protel中使用其中的两个门，位号为U8A，U8B。这样的信息在转化中会丢失，需要重新添加。
基本上注意到上述几点，借助Protel DXP，我们就可以将Protel的原理图转化到Capture中。进一步推广，这也为现有的Protel原理图符号库转化到Capture提供了一个途径。
3． Protel 封装库的转化
长期使用Protel作PCB设计，我们总会积累一个庞大的经过实践检验的Protel封装库，当设计平台转换时，如何保留这个封装库总是令人头痛。这里，我们将使用Orcad Layout，和免费的Cadence工具Layout2allegro来完成这项工作。
a) 在Protel中将PCB封装放置到一张空的PCB中，并将这个PCB文件用Protel PCB 2.8 ASCII的格式输出出来；
b) 使用Orcad Layout导入这个Protel PCB 2.8 ASCII文件；
c) 使用Layout2allegro将生成的Layout MAX文件转化为Allegro的BRD文件；
d) 接下来，我们使用Allegro的Export功能将封装库，焊盘库输出出来，就完成了Protel封装库到Allegro转化。
4． Protel PCB到Allegro的转化
有了前面两步的基础，我们就可以进行Protel PCB到Allegro的转化了。这个转化过程更确切的说是一个设计重现过程，我们将在Allegro中重现Protel PCB的布局和布线。
1) 将第二步Capture生成的Allegro格式的网表传递到Allegro BRD中，作为我们重现工作的起点；
2) 首先，我们要重现器件布局。在Protel中输出Place & Pick文件，这个文件中包含了完整的器件位置，旋转角度和放置层的信息。我们通过简单的手工修改，就可以将它转化为Allegro的Placement 文件。在Allegro中导入这个Placement文件，我们就可以得到布局了。

3) 布线信息的恢复，要使用Specctra作为桥梁。首先，从Protel中输出包含布线信息的Specctra DSN文件。对于这个DSN文件我们要注意以下2点：
a) Protel中的层命名与Allegro中有所区别，要注意使用文本编辑器作适当的修改，例如Protel中顶层底层分别为Toplayer和Bottomlayer，而在Allegro中这两层曾称为TOP和BOTTOM；
b) 注意在Specctra中查看过孔的定义，并添加到Allegro的规则中。



在allegro中定义过孔
从Specctra中输出布线信息，可以使用session, wires, 和route文件，建议使用route文件，然后将布线信息导入到我们以及重现布局的Allegro PCB中，就完成了我们从Protel PCB到Allegro BRD的转化工作。
]]> http://yh315430489.blog.163.com/blog/static/29071039200872233644702 3 http://yh315430489.blog.163.com/blog/static/29071039200872233644702 Fri, 22 Aug 2008 15:36:44 +0800 2008-11-12T20:49:43+08:00 <![CDATA[Protel 原理图/PCB到Cadence的数据转换]]> http://yh315430489.blog.163.com/blog/static/29071039200872222439729




随着PCB设计的复杂程度和高速PCB设计需求的不断增加，越来越多的PCB设计者、设计团队选择Cadence的设计平台和工具。但是，由于没有 Protel数据到Cadence数据直接转换工具，长期以来如何将现有的基于Protel平台的设计数据转化到Cadence平台上来一直是处于平台转 化期的设计者所面临的难题。
在长期实际的基础上，结合现有工具的特点，提供一种将Protel原理图、PCB转化到Cadence平台上的方法。
1． 使用的工具
a) Protel DXP SP2
b) Cadence Design Systems, Inc. Capture CIS
c) Cadence Design Systems, Inc. Orcad Layout
d) Cadence Design Systems, Inc. Layout2allegro
e) Cadence Design Systems, Inc. Allegro
f) Cadence Design Systems, Inc. Specctra
2． Protel 原理图到Cadence Design Systems, Inc. Capture CIS
在Protel原理图的转化上我们可以利用Protel DXP SP2的新功能来实现。通过这一功能我们可以直接将Protel的原理图转化到Capture CIS中。

这里，我们仅提出几点通过实践总结出来的注意事项。
1) Protel DXP在输出Capture DSN文件的时候，没有输出封装信息，在Capture中我们会看到所以元件的PCB Footprint属性都是空的。这就需要我们手工为元件添加封装信息，这也是整个转化过程中最耗时的工作。在添加封装信息时要注意保持与Protel PCB设计中的封装一致性，以及Cadence在封装命名上的限制。例如一个电阻，在Protel中的封装为AXIAL0.4，在后面介绍的封装库的转化 中，将被修改为AXIAL04，这是由于Cadence不允许封装名中出现“.”；再比如DB9接插件的封装在Protel中为DB9RA/F，将会被改 为DB9RAF。因此我们在Capture中给元件添加封装信息时，要考虑到这些命名的改变。
2) 一些器件的隐藏管脚或管脚号在转化过程中会丢失，需要在Capture中使用库编辑的方法添加上来。通常易丢失管脚号的器件时电阻电容等离散器件。
3) 在层次化设计中，模块之间连接的总线需要在Capture中命名。即使在Protel中已经在父设计中对这样的总线命名了，还是要在Capture中重新来过，以确保连接。
4) 对于一个封装中有多个部分的器件，要注意修改其位号。例如一个74ls00，在protel中使用其中的两个门，位号为U8A，U8B。这样的信息在转化中会丢失，需要重新添加。
基本上注意到上述几点，借助Protel DXP，我们就可以将Protel的原理图转化到Capture中。进一步推广，这也为现有的Protel原理图符号库转化到Capture提供了一个途径。
3． Protel 封装库的转化
长期使用Protel作PCB设计，我们总会积累一个庞大的经过实践检验的Protel封装库，当设计平台转换时，如何保留这个封装库总是令人头痛。这里，我们将使用Orcad Layout，和免费的Cadence工具Layout2allegro来完成这项工作。
a) 在Protel中将PCB封装放置到一张空的PCB中，并将这个PCB文件用Protel PCB 2.8 ASCII的格式输出出来；
b) 使用Orcad Layout导入这个Protel PCB 2.8 ASCII文件；
c) 使用Layout2allegro将生成的Layout MAX文件转化为Allegro的BRD文件；
d) 接下来，我们使用Allegro的Export功能将封装库，焊盘库输出出来，就完成了Protel封装库到Allegro转化。
4． Protel PCB到Allegro的转化
有了前面两步的基础，我们就可以进行Protel PCB到Allegro的转化了。这个转化过程更确切的说是一个设计重现过程，我们将在Allegro中重现Protel PCB的布局和布线。
1) 将第二步Capture生成的Allegro格式的网表传递到Allegro BRD中，作为我们重现工作的起点；
2) 首先，我们要重现器件布局。在Protel中输出Place & Pick文件，这个文件中包含了完整的器件位置，旋转角度和放置层的信息。我们通过简单的手工修改，就可以将它转化为Allegro的Placement 文件。在Allegro中导入这个Placement文件，我们就可以得到布局了。

3) 布线信息的恢复，要使用Specctra作为桥梁。首先，从Protel中输出包含布线信息的Specctra DSN文件。对于这个DSN文件我们要注意以下2点：
a) Protel中的层命名与Allegro中有所区别，要注意使用文本编辑器作适当的修改，例如Protel中顶层底层分别为Toplayer和Bottomlayer，而在Allegro中这两层曾称为TOP和BOTTOM；
b) 注意在Specctra中查看过孔的定义，并添加到Allegro的规则中。



在allegro中定义过孔
从Specctra中输出布线信息，可以使用session, wires, 和route文件，建议使用route文件，然后将布线信息导入到我们以及重现布局的Allegro PCB中，就完成了我们从Protel PCB到Allegro BRD的转化工作。
]]> http://yh315430489.blog.163.com/blog/static/29071039200872222439729 0 http://yh315430489.blog.163.com/blog/static/29071039200872222439729 Fri, 22 Aug 2008 14:24:39 +0800 2008-08-22T14:24:39+08:00 <![CDATA[Me.Caption = "频率电感电容计算"]]> http://yh315430489.blog.163.com/blog/static/2907103920087482032197
Private Sub Command1_Click()
 Dim f As String
    Dim l As String
    Dim c As String
    Dim kf As String
    Dim pi As String
    Dim pp As String
    Dim fm As String
    Dim pl As String
    
 
   
    pi = 3.1415926
    
    If Text2.Text <= "0" Then
              MsgBox "输入错误！请重新输入！", 1, "错误！"
     
     ElseIf Text3.Text <= "0" Then
         MsgBox "输入错误！请重新输入！", 48, "错误！"
    Else
      'f = Text2.Text * (1 / (10 ^ 6)) 'MHz
      l = Text2.Text * (1 / (10 ^ 9)) 'nH
      c = Text3.Text * (1 / (10 ^ 12)) 'pf
      Text1.Text = Sqr(1 / (l * c)) / 2 / pi * (1 / (10 ^ 6))
      
    
    
    End If
End Sub

Private Sub Command2_Click()
   Dim f As String
    Dim l As String
    Dim c As String
    Dim kf As String
    Dim pi As String
    Dim pp As String
    Dim fm As String
    Dim pl As String
    

    pi = 3.1415926
    
    If Text1.Text <= "0" Then
              MsgBox "输入错误！请重新输入！", 1, "错误！"
     
     ElseIf Text3.Text <= "0" Then
         MsgBox "输入错误！请重新输入！", 48, "错误！"
    Else
      f = Text1.Text * (10 ^ 6)  'Hz
      'l = Text2.Text * (1 / (10 ^ 9)) 'nH
      c = Text3.Text * (1 / (10 ^ 12)) 'pf
      Text2.Text = 1 / (2 * pi * f) ^ 2 / c * (10 ^ 9)
      
    
    
    End If
End Sub

Private Sub Command3_Click()
 Dim f As String
    Dim l As String
    Dim c As String
    Dim kf As String
    Dim pi As String
    Dim pp As String
    Dim fm As String
    Dim pl As String
    

   
    pi = 3.1415926
    
    If Text2.Text <= "0" Then
              MsgBox "输入错误！请重新输入！", 1, "错误！"
     
     ElseIf Text1.Text <= "0" Then
         MsgBox "输入错误！请重新输入！", 48, "错误！"
    Else
      f = Text1.Text * (10 ^ 6)  'Hz
      l = Text2.Text * (1 / (10 ^ 9)) 'nH
      'c = Text3.Text * (1 / (10 ^ 12)) 'pf
      Text3.Text = (1 / (2 * pi * f)) ^ 2 / l * 10 ^ 12
      
    
    
    End If
End Sub

Private Sub Form_Load()

    Me.Caption = "频率电感电容计算"
   Command1.Caption = "频率="
   Command2.Caption = "电感="
   Command3.Caption = "电容="
   Text1.Text = ""
   Text1.FontSize = 16
   Text1.ForeColor = RGB(255, 0, 0)
   Text2.Text = ""
   Text2.FontSize = 16
   Text2.ForeColor = RGB(0, 255, 0)
   Text3.Text = ""
   Text3.FontSize = 16
   Text3.ForeColor = RGB(0, 0, 255)
   Label1.Caption = "MHz"
   Label2.Caption = "nH"
   Label3.Caption = "pf"
   Label4.Caption = "软件制作：袁华 15812463588 yh315430489@163.com"
   Label4.ForeColor = RGB(255, 0, 255)
End Sub

Private Sub mnu电感清零_Click()
  Text2.Text = ""
End Sub

Private Sub mnu电容清零_Click()
  Text3.Text = ""
End Sub

Private Sub mnu频率清零_Click()
  Text1.Text = ""
End Sub

Private Sub mnu退出_Click()
  Unload Me
End Sub

Me.Caption = 频率电感电容计算 - 电子设计 - 电子设计http://electron.]]> http://yh315430489.blog.163.com/blog/static/2907103920087482032197 0 http://yh315430489.blog.163.com/blog/static/2907103920087482032197 Mon, 4 Aug 2008 20:20:32 +0800 2008-11-18T22:45:39+08:00 <![CDATA[电脑开机自检出现故障的英文翻译 ]]> http://yh315430489.blog.163.com/blog/static/290710392008738312156
电脑开机自检出现故障的英文翻译
作者：无名   发布时间：2007-03-20 19:49:22   浏览次数：2477

 开机自检时出现问题后会出现各种各样的英文短句，短句中包含了非常重要的信息，读懂这些信息可以自己解决一些小问题，可是这些英文难倒了一部分朋友，下面是一些常见的BIOS短句的解释，是我在修电脑时，常出现的短句。大家可以参考一下。


　　1.CMOS battery failed

　　中文：CMOS电池失效。

　　解释：这说明CMOS电池已经快没电了，只要更换新的电池即可。

　　2.CMOS check sum error－Defaults loaded

　　中文：CMOS 执行全部检查时发现错误，要载入系统预设值。

　　解释：一般来说出现这句话都是说电池快没电了，可以先换个电池试试，如果问题还是没有解决，那么说明CMOS RAM可能有问题，如果没过一年就到经销商处换一块主板，过了一年就让经销商送回生产厂家修一下吧！

　　3.Press ESC to skip memory test 　　

　　中文：正在进行内存检查，可按ESC键跳过。

　　解释：这是因为在CMOS内没有设定跳过存储器的第二、三、四次测试，开机就会执行四次内存测试，当然你也可以按 ESC 键结束内存检查，不过每次都要这样太麻烦了，你可以进入COMS设置后选择BIOS FEATURS SETUP，将其中的Quick Power On Self Test设为Enabled，储存后重新启动即可。 　

　　4.Keyboard error or no keyboard present

　　中文：键盘错误或者未接键盘。

　　解释：检查一下键盘的连线是否松动或者损坏。

　　5.Hard disk install failure

　　中文：硬盘安装失败。

　　解释：这是因为硬盘的电源线或数据线可能未接好或者硬盘跳线设置不当。你可以检查一下硬盘的各根连线是否插好，看看同一根数据线上的两个硬盘的跳线的设置是否一样，如果一样，只要将两个硬盘的跳线设置的不一样即可（一个设为Master，另一个设为Slave）。
　　
　　6.Secondary slave hard fail 　

　　中文：检测从盘失败 　

　　解释：可能是CMOS设置不当，比如说没有从盘但在CMOS里设为有从盘，那么就会出现错误，这时可以进入COMS设置选择IDE HDD AUTO DETECTION进行硬盘自动侦测。也可能是硬盘的电源线、数据线可能未接好或者硬盘跳线设置不当，解决方法参照第5条。

　　7.Floppy Disk(s) fail 或 Floppy Disk(s) fail(80) 或Floppy Disk(s) fail(40)

　　中文：无法驱动软盘驱动器。

　　解释：系统提示找不到软驱，看看软驱的电源线和数据线有没有松动或者是接错，或者是把软驱放到另一台机子上试一试，如果这些都不行，那么只好再买一个了，好在软驱还不贵。

　　8.Hard disk(s) diagnosis fail

　　中文：执行硬盘诊断时发生错误。

　　解释：出现这个问题一般就是说硬盘本身出现故障了，你可以把硬盘放到另一台机子上试一试，如果问题还是没有解决，只能去修一下了。

　　9.Memory test fail

　　中文：内存检测失败。

　　解释：重新插拔一下内存条，看看是否能解决，出现这种问题一般是因为内存条互相不兼容,去换一条吧！

　　10.Override enable－Defaults loaded

　　中文：当前CMOS设定无法启动系统，载入BIOS中的预设值以便启动系统。 　　

　　解释：一般是在COMS内的设定出现错误，只要进入COMS设置选择LOAD SETUP DEFAULTS载入系统原来的设定值然后重新启动即可。　




#1 Advertisement



当你的系统出错，请记下来，并在这里按Ctrl+F进行关键字搜索

一、BIOS中的提示信息

　　 Drive A error 驱动器A错误

　　 System halt 系统挂起

　　 Keyboard controller error 键盘控制器错误

　　 Keyboard error or no keyboard present 键盘错误或者键盘不存在

　　 BIOS ROM checksum error BIOS　ROM 校验错误

　　 Single hardisk cable fail 当硬盘使用Cable选项时硬盘安装位置不正确

　　 FDD Controller Failure BIOS 软盘控制器错误

　　 HDD Controller Failure BIOS 硬盘控制器错误

　　 Driver Error 驱动器错误

　　 Cache Memory Bad, Do not Enable Cache 高速缓存Cache损坏，不能使用

　　 Error: Unable to control A20 line 错误提示：不能使用A20地址控制线

　　 Memory write/Read failure 内存读写失败

　　 Memory allocation error 内存定位错误

　　 CMOS Battery state Low CMOS没电了

　　 Keyboard interface error 键盘接口错误

　　 Hard disk drive failure 加载硬盘失败

　　 Hard disk not present 硬盘不存在

　　 Floppy disk(s) fail (40) 软盘驱动器加载失败，一般是数据线插反，电源线没有插接，CMOS内部软驱设置错误

　　 CMOS checksum error-efaults loaded. CMOS校验错误，装入缺省(默认)设置

二、BIOS刷新失败后，Bootblock启动时出现的提示信息

　　 Detecting floppy drive A media... 检测软驱A的格式

　　 Drive media is : 1.44Mb1.2Mb 720Kb 360K 驱动器格式是1.44Mb、12Mb、720kb、360kb的一种

　　 DISK BOOT FAILURE, INSERT SYSTEM DISK AND PRESS ENTER 磁盘引导失败，插入系统盘后按任意键继续

三、MBR主引导区提示信息

　　 Invalid partition table 无效的分区表

　　 Error loading operating sy stem 不能装入引导系统

　　 Missing operating system 系统引导文件丢失

　　说明：如果在计算机启动过程中，在硬件配置清单下方(也就时在平时正常启动时出现Starting Windows 98…的地方)出现不可识别字符，此时可判断硬盘分区表损坏。如果你的硬盘上有重要资料，这时你不要轻易进行分区，可找专业的数据恢复公司。

四、DOS活动分区中的提示信息

　　 Invalid system disk 无效的系统盘

　　 Disk I/O error, Replace the disk and press any key. 磁盘I/O错误，替换磁盘后按任意键(当C盘系统文件丢失或被破坏时出现该提示信息。这时可能SYS C:为修复系统文件)

　　 Invalid Media Type reaching Drive C: 无效的Ｃ盘媒体格式说明。也就是C盘没有格式化或者是其他作系统的磁盘格式如NTFS

　　 Invalid Boot Diskette Boot Failure 无效的启动盘，启动失败

五、IO.SYS中的提示信息

　　 Insert diskette for drive and press any key when ready 插入磁盘到驱动器中后按任意键

　　 Your program caused a divide overflow error

　　 If the problem persists, contact your program vendor 你的程序导致溢出错误。如果该问题还存在，请联系你的程序供应商

　　 Windows has disabled direct disk access to protect your long filenames Windows不能直接访问受保护的长文件名

　　 The system has been halted. Press Ctrl+Alt+Del to restart your computer 系统挂起，按Ctrl+Alt+Del重新启动你的计算机

　　 This version of Windows requires a 386 or better processor 该Windows版本需要386以后的CPU支持

　　 A20 hardware error. Contact technical support to identify the problem 地址线A20错误。联系技术支持来识别该问题

　　 Starting Windows 98... 正在启动Windows 98……

　　 Windows 98 is now starting your MS-DOS-based program Windows 98正在启动基于MS-DOS的程序

　　 There is an unrecognized command in your CONFIG.SYS file 在你的CONFIG.SYS文件中有不可识别的命令

　　 The following command in your CONFIG.SYS file is incorrect: 在你的CONFIG.SYS有下列错误命令

　　 The sector size specified in this file is too large: 该文件中指定的扇区太大

　　 The following file is missing or corrupted: WIN.COM COMMAND.COM 下列文件丢失或被破坏：WIN.COM和COMMAND.COM

　　 There is an invalid country code or code page in your CONFIG.SYS file 在你的CONFIG.SYS里有一个无效的国家代码

　　 There is an error in the COUNTRY command in your CONFIG.SYS file 在你的CONFIG.SYS里有一个错误的设置国家命令

　　 There is not enough memory for the COUNTRY.SYS file 没有足够的内存来加载COUNTRY.SYS文件

　　 Remove some drivers from your CONFIG.SYS file, and then try again 请从CONFIG.SYS文件中删除部分驱动程序，然后再试

　　 Remove some drivers, and then try again 去除一些驱动程序，然后再试。这里的驱动程序是指在CONFIG.SYS中使用device或devicehigh命令加载的程序文件

　　 Remove some disk drivers from your CONFIG.SYS file, and then try again 从你的(CONFIG.SYS)移去部分程序，然后再试

　　 The configuration specified in your CONFIG.SYS file is too large for memory 调整你的CONFIG.SYS文件以获得足够大的内存

　　 You have too many block devices specified in your CONFIG.SYS file 调整你的CONFIG.SYS文件以获得block devices

　　 The STACKS setting(s) in your CONFIG.SYS file are incorrect 在你的CONFIG.SYS中堆栈设置不正确

　　 Default stack settings will be used instead 缺省的堆栈设置将被替代使用

　　 There is an error in your CONFIG.SYS file on line XX 在你的CONFIG.SYS里XX行错误

　　 Warning: Logical drives past Z exist and will be ignored 警告：逻辑驱动器Z已经存在，将被忽略

　　 Type the name of the Command Interpreter (e.g., C:\WINDOWS\COMMAND.COM) Press any key to continue… 请输入命令解释器的文件名(如：C:\WIN DOWS\COMMAND.COM)后，按任意键继续

　　 Windows is bypassing your startup files

　　 Minimal network support will be loaded if available Windows正在跳过你的启动文件。如果网络可用，最小网络支持将被加载

　　 Windows is starting the command prompt only Windows正在启动命令字符模式

　　 Windows will prompt you to confirm each startup command Windows将提示你确认每一个启动命令

　　 The compression driver cannot be set up correctly 压缩驱动程序不能被正确加载

　　 Get a version from your vendor that is compatible with this version of Windows 从你的供应商那里获得一个与Windows版本相兼容的版本

　　 Process the system registry 运行系统注册表

　　 Create a startup log file (BOOTLOG.TXT) 创建启动日志BOOTLOG.TXT文件

　　 Process your startup device drivers (CONFIG.SYS) 运行CONFIG.SYS文件中的设备驱动

　　 Process your startup command file (AUTOEXEC.BAT) 运行AUTOEXEC.BAT中的启动命令

　　 Load the Windows graphical user interface 装入WINDOWS图形用户界面(GDI)

　　 Warning: Windows has detected a registry/configuration error. Choose, Command prompt only, and run SCANREG 警告：Windows检测到一个注册表或配置错误选择DOS作模式，运行SCANREG

　　 Warning: Windows multi-boot may not function correctly

　　 Check for system files in your root directory with conflicting extensions 警告：Windows不能够正确完成多系统启动，在你的ROOT目录里检查不一致的系统文件

　　 Stack overflow 堆栈溢出

　　 Integer divide by 0　 整数被0除

　　 Not enough space for environment　 没有足够的空间

　　 Run-time error 运行错误

　　 Floating-point support not loaded　 浮点运算支持没有装入

　　 Null pointer assignment　 无效的断点分配

六、COMMAND中的提示信息

　　 Stack overflow 堆栈溢出

　　 Integer divide by 0 分母是0

　　 Not enough space for environment 磁盘没有足够的空间

　　 Run-time error 时钟错误

　　 No fixed disks present 没有硬盘存在

　　 Insufficient memory 内存不足

　　 Invalid drive specification 无效的驱动器名

　　 Invalid characters in volume label 无效的盘符

　　 Invalid Volume ID 无效的卷标ID号

　　 No target drive specified 目标驱动器没有定义

　　 missing operating system 系统文件丢失

　　 Non system Disk or Disk Error 不是系统盘或磁盘错误

　　 Replace Disk and Press Anykey To Reboot 替换磁盘，按任意键重新启动

七、SYS传送系统文件时的提示信息

　　 Cannot find System Files 不能找到系统文件

　　 System transferred 系统传送完毕

　　 Disk unsuitable for system disk 目标磁盘不适合做系统盘

八、FORMAT中的提示信息

　　 Unable to write BOOT. 不能写引导扇区

　　 Invalid media type 无效的磁盘类型

　　 Parameters not supported 参数不支持

　　 Cannot format a network drive 不能格式化网络驱动器

　　 Invalid media or Track 0 bad - disk unusable 无效的磁盘或０磁道损坏，磁盘不可用

　　 Format terminated 格式化终止

　　 Disk Boot failure 磁盘BOOT区错误

　　 Invalid system disk 无效的系统磁盘

　　 Disk I/O error，Replace the disk, and then

　　 press any key 磁盘I/O错误，请换盘后按任意键。通常在读写软盘时出现此类错误

　　 Non-System disk or disk error，Replace and strike any key when ready 无系统的磁盘或磁盘错误，请替换后按任意键

　　 Too many open files 打开的文件太多

　　 Access denied Insufficient memory 没有足够的内存访问被拒绝

　　 Invalid drive specification 无效的盘符说明

　　 Parse Error XX 分析错误 XX

　　 Incorrect MS-DOS version 不正确的MS-DOS版本

　　 X％ percent completed 格式化正在进行，已经完成X%

　　 Format complete. 格式化完成

　　 XX bytes in bad sectors XX字节的坏扇区

　　 XX bytes total disk space 磁盘的全睰占湮猉X字节

　　 XX bytes available on disk 磁盘的可使用空间为XX字

　　 Volume label (11 characters, ENTER for none)? 请输入磁盘卷标(总共11个字符，按回车为空)

　　 Format not supported on drive X Format命令不支持驱动器X

　　 Invalid device parameters from device driver 无效的设备驱动参数

　　 Error writing FAT 写FAT表错误

　　 Error writing directory 写DIR目录表错误

　　 Cannot format an ASSIGN or SUBST drive 不能格式化ASSIGN和SUBST指定的驱动器

　　 Cannot find System Files 没有找到系统文件

　　 Cannot format a network drive 不能格式化网络驱动器

　　 Invalid characters in volume label 磁盘卷标中存在非法字符

　　 Parameters not supported 参数不支持

　　 Format terminated 格式化意外终止

　　 Disk unsuitable for system disk 这个磁盘不适合作为系统盘

　　 Unable to write BOOT 不能写BOOT区

　　 Error reading directory 读DIR目录区错误

　　 No target drive specified 目的驱动器没有说明

　　 and press ENTER when ready 准备好后按回车键

　　 System transferred 系统传送完毕

　　 Enter current volume label for drive X 请为驱动器X输入磁盘的卷标

　　 Parameters not compatible with fixed disk 参数与硬盘不兼容

　　 Volume Serial Number is XXXX 分区格式化时随机产生的序列号是：XXXX

　　 Format broken 格式化被强行终止

　　 Format not available on drive XX 不能在驱动器XX上使用格式化命令

　　 on-System disk or disk error 没有系统盘或磁盘错误

　　 Bad Partition Table 错误的硬盘分区表

　　 Parameters not supported by drive 该驱动器不支持这些参数

　　 Insert DOS disk in drive A 请在驱动器A中插入DOS系统盘

　　 WARNING, ALL DATA ON NON-REMOVABLE DISK DRIVE %1: WILL BE LOST! Proceed with 警告：硬盘分区X中的所有数据都将丢失，确定执行格式化命令吗?

　　 Format another (Y/N)?! 还格式化其他盘吗

　　 Error reading partition table 读硬盘分区表错误

　　 Error writing partition table 写硬盘分区表错误

　　 Parameters not compatible 参数不匹配

　　 XX allocation units available on disk 磁盘上有XX可用簇

　　 XX bytes in each allocation unit 每个簇有大小为XX字节

　　 Same parameter entered twice 相同的参数被输入两次

　　 Must enter both /T and /N parameters /T和/N参数必须同时使用

　　 There is not enough room to create a restore file 没有足够的空间来建立恢复文件

　　 You will not be able to use the UNFORMAT utility 你将不能使用UNFORMAT工具来恢复你的硬盘数据

　　 There is not enough disk space for system files 没有足够的空间来存储系统文件

　　 This disk cannot be unformatted 这个磁盘不能被反格式化

　　 There was an error creating the format recovery file 在建立恢复文件时产生了一个错误

　　 Volume label is not supported with /8 parameter 该驱动器不支持/8参数

　　 Insufficient memory to load system files 没有足够的内存装入系统文件

　　 Insufficient memory. 内存不足

　　 Calculating free space (this may take several minutes)... 正在统计磁盘空间(可能要花上几分钟时间)

九、FDISK中的提示信息

　　 Delete Primary DOS Partition 删除主DOS分区

　　 Delete Extended DOS Partition 删除扩展DOS分区

　　 Delete Logical DOS Drive(s) in the Extended DOS Partition 删除逻辑DOS分区

　　 WARNING! Data in the deleted Primary DOS Partition will be lost 警告：主DOS分区的数据将全部丢失

　　 WARNING! Data in the deleted Extended DOS Partition will be lost. Do you wish to continue (Y/N)? 警告：扩展分区中的数据将全部丢失，你真的继续吗

　　 Delete Logical DOS Drive(s) in the Extended DOS Partition 删除扩展分区下的逻辑分区

　　 WARNING! Data in a deleted Logical DOS Drive will be lost What drive do you want to delete? Are you sure (Y/N)? 警告：逻辑分区中的所有数据都将丢失，你删除哪个驱动器？你真的确定吗

　　 Display Partition Information 显示分区内容信息

　　 The Extended DOS Partition contains Logical DOS Drives. 扩展DOS分区中包含DOS逻辑分区

　　 Do you want to display the logical drive information (Y/N)? 你想显示逻辑分区的信息吗

　　 Display Logical DOS Drive Information 显示逻辑分区信息

　　 Enter partition size in Mbytes or percent of disk space (%) to create a Primary DOS Partition... 输入所建立主DOS分区的容量，单位是百分比

　　 Enter logical drive size in Mbytes or percent of disk space (%)... 请输入逻辑分区容量大小或磁盘空间的百分比

　　 Enter Volume Label? 请输入卷标

　　 Enter partition size in Mbytes or percent of disk space (%)to create an Extended DOS Partition.... 请输入扩展DOS分区的容量大小或磁盘空间的百分比

　　 Do you wish to use the maximum available size for a Primary DOS Partition 你想使用全部磁盘空间作为主DOS分区吗

　　 Change Current Fixed Disk Drive . Enter Fixed Disk Drive Number (X) 当你挂接两个以上硬盘时，在FDISK的系统菜单中将多一个第5项，选择第5项时，将提示：请输入硬盘的序号

　　 Fixed Disk Drive Status 硬盘状态

　　 Data in the deleted Primary DOS Partition will be lost.What primary partition do you want to delete?Do you wish to continue (Y/N)? DOS主分区中的数据将全部丢失。你准备删除哪个主分区？你想继续吗

　　 Data in the deleted Non-DOS Partition will be lost.What Non-DOS partition do you want to delete?Do you wish to continue (Y/N)? 非DOS分区的数据将全部丢失。你准备删除哪一个非DOS分区？你要继续吗

　　 You MUST restart your system for your changes to take effect 你必须重新启动你的计算机你所做的所有改变才有效

　　 Any drives you have created or changed must be formatted 你新建的分区或改变的分区必须被格式化后才可用

　　 Shut down Windows before restarting 在重启之前请关闭Windows

　　 Press Esc to exit FDISK 按Esc退出FDISK

　　 This drive is FAT16 by default, switch to FAT32 (Y/N)? 这个驱动器默认是FAT16模式，真的转换为FAT32模式吗

　　 This drive must be FAT32 because its size is > 2048 MB 当分区的空间大于2048MB时，这个分区必须使用FAT32磁盘数据格式

　　 This drive must be FAT16 because its size is too small to be FAT32 因为这个分区对于FAT32格式来说太小，所以这个分区只能使用FAT16格式

　　 Verifying drive integrity, complete 正在校验分区的完整性，完成

　　 Should NTFS partitions on all drives be treated as large (Y/N)? 对所有的NTFS分区使用大分区模式

　　 Drive deleted 驱动器被删除

　　 Partition made active 分区X被设置为活动

　　 Primary DOS Partition created 主DOS分区被建立

　　 Extended DOS Partition created 扩展DOS分区被建立

　　 Logical DOS Drive created, drive letters changed or added 逻辑分区被建立，驱动器的盘符可能被改变或有新的增加

　　 No partitions defined 没有分区被定义

　　 No logical drives defined 没有逻辑驱动器被说明

　　 Drive letters have been changed or deleted 驱动器盘符已经被改变或删除

　　 No active partitions 没有设置活动分区，该硬盘不能被启动

　　 No fixed disks present 没有硬盘

　　 Error reading fixed disk 读硬盘错误

　　 Error writing fixed disk 写硬盘错误

　　 Write protect error writing fixed disk 写硬盘写保护错误

　　 Incorrect DOS version 不正确的DOS版本

　　 Cannot FDISK with network loaded 不能对网络驱动器使用FDISK

　　 No space to create a DOS partition 没有足够的空间建立DOS分区

　　 Requested logical drive size exceeds the maximum available space 输入的逻辑驱动器的容量超过了最大可用的磁盘空间容量

　　 Requested partition size exceeds the maximum available space 输入的分区的容量超过了最大可用的磁盘空间容量

　　 No partitions to delete 已经没有分区可以被删除

　　 The only startable partition on Drive is already set active 硬盘X上的惟一的可启动分区已经被标记为活动(扩展分区不能被设置为活动)

　　 No partitions to make active 没有分区可以被标记为活动分区

　　 Partition selected is not startable, active partition not changed 输入的分区X不可启动，当前的活动分区没有被改变

　　 Cannot create Extended DOS Partition without Primary DOS Partition on disk　X 在硬盘X上没有主DOS分区时不能建立扩展DOS 分区

　　 All available space in the Extended DOS Partition is assigned to logical drives 扩展分区的全部有效空间都分配给逻辑驱动器吗？还可以再分为主分区或其他分区

　　 Cannot delete Extended DOS Partition while logical drives exist 因为扩展分区下有逻辑分区存在，所以扩展分区不能被删除

　　 All logical drives deleted in the Extended DOS Partition is not a choice. Please enter X 确定删除哪一个逻辑分区，请输入X

　　 WARNING! The partition set active is not startable 警告：被设置为活动的分区是不可启动的

　　 Only non-startable partitions exist 只有不可启动的分区存在

　　 Only partitions on Drive 1 can be made active 只有硬盘1上的分区可被设置为活动。当你挂接两个以上硬盘时，使用FDISK命令时只能设置硬盘1中的某个主分区为活动，其他硬盘上的主分区都不能设置为活动

　　 Maximum number of Logical DOS Drives installed 逻辑驱动器的所有盘符都使用，意思是你在分区时驱动器的盘符超过了Z

　　 Cannot create a zero size partition 不能建立大小空间为0的分区

　　 Unable to access Drive X 不能访问驱动器X

　　 Cannot delete Primary DOS Partition on drive 1 when an Extended DOS Partition exists 当扩展分区存在时不能删除硬盘1上的主DOS分区

　　 Invalid entry 无效的输入

　　 Volume label does not match 标不匹配。当你删除分区时，系统会提示输入该分区的卷标，如果输入的巻标和你要删除的分区的卷标不一致时，作将不能进行

　　 Cannot create Logical DOS Drive without an Extended DOS Partition on the current drive 没有扩展分区时不能在当前硬盘上建立逻辑驱动器

　　 Could not change partitions, because the disk could not be locked 不能改变分区，因为该硬盘不能被锁定

　　 Internal error 内部错误

　　 Incorrect MS-DOS version 不正确的MS-DOS版本

　　 Invalid parameter 无效的参数

　　 Cannot FDISK with network loaded 不能对网络驱动器进行FDISK

　　 The master boot code has NOT been updated

　　 /STATUS Displays partition information 主引导区代码没有被更新。显示分区信息

　　 /X Ignores extended disk-access support. Use this switch 不使用扩展磁盘访问指令支持。当你使用

　　 if you receive disk access or stack overflow messages 这个参数时你将看到堆栈溢出的信息

　　 /MBR and /CMBR cannot both be specified /MBR和/CMBR这两个参数不能同时使用

　　 /MBR only operates on drive 1,use /CMBR for other drives 只能对硬盘1使用，/CMBR对其他硬盘使用/MBR

　　 You must specify a drive number with /CMBR

　　 Invalid partition table 在使用/CMBR参数时必须说明硬盘的序号。无效的硬盘分区表

　　 Error loading operating system 在装入作系统时错误

　　 Missing operating system 作系统文件丢失

　　 stack overflow 堆栈溢出

　　 integer divide by 0 整数被0除

　　 run-time error 运行错误

　　 not enough space for environment 没有足够的空间 -----

]]> http://yh315430489.blog.163.com/blog/static/290710392008738312156 0 http://yh315430489.blog.163.com/blog/static/290710392008738312156 Sun, 3 Aug 2008 08:31:02 +0800 2008-08-03T08:31:02+08:00 <![CDATA[FLC谐振计算]]> http://yh315430489.blog.163.com/blog/static/2907103920087110372661

Private Sub Command1_Click()
          
             Dim l As String
             Dim c As String
             Dim f As String
             Dim kf As String
             Dim pi As String
             Dim pp As String
             Dim fm As String
             Dim pl As String
             pl = " MHz"
         
         

                          If Text2.Text = "" Then
              Beep
              MsgBox "吾系个,输入错误!", 48, "警告"
              Exit Sub
              End If
          If Text3.Text = "" Then
              Beep
              MsgBox "吾系个,输入错误!", 48, "警告"
              Exit Sub
              End If
            
        
                                 pi = 3.1415926
                                
                                 pp = 2 * pi
                                
                         l = Text2.Text * (1 / (10 ^ 9)) 'nH
                                
                    c = Text3.Text * (1 / (10 ^ 12)) 'pf
                               
                                  
                               
                

            
               
               
                 
                 
                kf = Sqr(l * c)
               
                fm = kf * pp
                f = Sqr(1 / (l * c)) / 2 / pi
               
                 Text1.Text = f * (1 / (10 ^ 6))
End Sub

Private Sub Command2_Click()
           '电感计算
    Dim l As String
             Dim c As String
             Dim f As String
             Dim kf As String
             Dim pi As String
             Dim pp As String
             Dim fm As String
             Dim pl As String
             pl = " MHz"
         
            
            
        
                                 pi = 3.1415926
                                
                                 pp = 2 * pi

                               
                
             If Text1.Text = "" Then
              Beep
              MsgBox "吾系个,输入错误!", 48, "警告"
              Exit Sub
              End If
         If Text3.Text = "" Then
             Beep
             MsgBox "吾系个,输入错误!", 48, "警告"
              Exit Sub
              End If
                           
                            f = Text1.Text * (10 ^ 6)  'Hz
                           ' l = Text5.Text * (1 / (10 ^ 9)) 'H
                                
                           c = Text3.Text * (1 / (10 ^ 12)) 'F
                           kf = 2 * pi * f
                           pp = 1 / kf
                          
                                  
               
               
                  l = pp ^ 2 / c
                 
                           
               'f = Sqr(1 / (l * c)) / 2 / pi
               Text2.Text = l * (10 ^ 9)
End Sub

Private Sub Command3_Click()
                       '电容计算
    Dim l As String
             Dim c As String
             Dim f As String
             Dim kf As String
             Dim pi As String
             Dim pp As String
             Dim fm As String
             Dim pl As String
             pl = " MHz"
         
            
            
        
                                 pi = 3.1415926
                                
                                 pp = 2 * pi

                               
                
             If Text1.Text = "" Then
              Beep
              MsgBox "吾系个,输入错误!", 48, "警告"
              Exit Sub
              End If
         If Text2.Text = "" Then
             Beep
             MsgBox "吾系个,输入错误!", 48, "警告"
              Exit Sub
              End If
                           
                            f = Text1.Text * (10 ^ 6)  'Hz
                            l = Text2.Text * (1 / (10 ^ 9)) 'H
                                
                           'c = Text6.Text * (1 / (10 ^ 12)) 'F
                           kf = 2 * pi * f
                           pp = 1 / kf
                          
                                  
               
               
                  c = pp ^ 2 / l
                 
                           
               'f = Sqr(1 / (l * c)) / 2 / pi
               Text3.Text = c * 10 ^ 12
End Sub

Private Sub Command4_Click()
   Unload Me
  
End Sub

Private Sub Label2_Click()
   Print Spc(15); "电话 15812463588"
     Print Spc(20); "湖北江陵"
       Print Spc(25); "免费软件！欢迎提出意见"
End Sub

]]> http://yh315430489.blog.163.com/blog/static/2907103920087110372661 1 http://yh315430489.blog.163.com/blog/static/2907103920087110372661 Fri, 1 Aug 2008 10:37:02 +0800 2008-11-12T20:50:53+08:00 <![CDATA[引向天线设计]]> http://yh315430489.blog.163.com/blog/static/2907103920086319152305

Public Class Form1
    Dim for1 As String = "多单元引向天线设计"
    Dim f1 As String = "低端工作频率f1"
    Dim f2 As String = "低端工作频率f2"
    Dim f As String = "MHz"
    Dim 密码 As String
    Dim 低频 As String
    Dim 高频 As String
    Dim dw As String
    Dim λ1 As String
    Dim λ2 As String
    Dim λ0 As String
    Dim f0 As String
    Dim L1 As Integer
    Dim L2 As Integer
    Dim L3 As Integer
    Dim L4 As Integer
    Dim L5 As Integer
    Dim L6 As Integer
    Dim L7 As Integer


    '在实际应用中，很多图形是由点和线构成的，vb.net的Graphics 类提供了很多画线图的方法，我们可以使用这些重载了的方法组合出丰富的图案来。
    '下面我们就来了解下这些绘线图的方法。
    '一、DrawLine 方法
    '该方法绘制一条连接由坐标对指定的两个点的线条，所以我们需要指定这两个点的坐标，如下所示：
    'DrawLine(mpen,x1,y1,x2,y2)或者DrawLine(mpen,Point1, Point2)
    '下面示例将在PictureBox控件表面绘制一条直线：
    '   Dim g As Graphics = Me.PictureBox1.CreateGraphics
    '  Dim mpen As New Pen(Color.Red)
    'g.DrawLine(mpen, 0, 80, 0, 160)
    '也可以使用如下代码来实现一样的效果：
    'Dim g As Graphics = Me.PictureBox1.CreateGraphics
    ' Dim mpen As New Pen(Color.Red)
    ' Dim p1 As Point = New Point(0, 80)
    ' Dim p2 As Point = New Point(0, 160)
    '当然，我们也可以使用DrawLine方法画出更加复杂的图形，如下代码所示：
    ' Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'Dim g As Graphics = Me.PictureBox1.CreateGraphics
    ' Dim mpen As New Pen(Color.Red)
    ' Dim i As Integer
    '  For i = 0 To 160 Step 10
    '     g.DrawLine(mpen, 0, 80, i, 0)
    '     g.DrawLine(mpen, 0, 80, i, 160)
    '     g.DrawLine(mpen, 160, 80, 160 - i, 160)
    '     g.DrawLine(mpen, 160, 80, 160 - i, 0)
    '  Next
    ' End Sub

    'g.DrawLine(mpen, p1, p2)

 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = for1
        dw = "cm"
        Label1.Text = "多单元引向天线设计 未注册版"
        Label1.ForeColor = Color.Blue
        Label2.Text = f1
        Label2.ForeColor = Color.Beige
        Label3.Text = f2
        Label3.ForeColor = Color.Beige
        Label4.Text = f
        Label4.ForeColor = Color.Goldenrod

        '①Label1的颜色属性是Label1.ForeColor，其取值是颜色对象Color的一个属性值，它的值形式是：Color.FromArgb(rVal, gVal, bVal)；其中的rVal、 gVal、 bVal分别是三元色的三个分量值（0…255)_
        '设置红色 Label1.ForeColor = Color.FromArgb(255, 0, 0)
        '设置绿色   Label1.ForeColor = Color.FromArgb(0，255，0)
        '设置蓝色   Label1.ForeColor = Color.FromArgb(0，0，255)

        ' Label1.Font = New Font(Label1.Font.Name, 36, _
        ' Label1.Font.Style)
        'Label1.Font = New Font(StrFont, Label1.Font.Size)
        '-------------------------------------------------------------------
        ' ⑶ListBox1的项目增加
        'ListBox1列表组件，它可以保存多个数据项并可进行只读方式的列表显示。可以通过ListBox1.Items.Add()方法向ListBox1添加数据项。在本实验中，当TextBox1中有数据被写入后，单击“增加”按钮可向ListBox1中作增加数据项的处理，“增加”按钮事件的参考代码如下：
        '  Dim StrItem As String
        '  StrItem = TextBox1.Text
        ' If StrItem.Trim.Length > 0 Then
        'ListBox1.Items.Add(StrItem)
        ' End If
        ' TextBox1.Text = ""

        Button1.Text = "用户登录"
        Button1.ForeColor = Color.FromArgb(255, 0, 0)

        TextBox2.Enabled = False
        TextBox3.Enabled = False


    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        密码 = TextBox1.Text
        低频 = TextBox2.Text
        高频 = TextBox3.Text
        If 密码 = "" Then
            MsgBox("请输入密码 ", , "您好！")
        ElseIf 密码 <> "1" Then
            Me.Close()
        ElseIf 密码 = "1" Then
            TextBox2.Enabled = True
            TextBox3.Enabled = True
            TextBox1.Text = "欢迎！"
            Label1.Text = "多单元引向天线设计 正式版"

        End If


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        f1 = TextBox2.Text

        dw = "cm"
        If 低频 >= 1 Then
            Button2.Text = "λ1 =" & 300 / f1 * 100 & dw
        End If
        Button3.Text = "高端波长=?"
        Button4.Text = "中心波长λ0 =?"
        Label5.Text = "λ1 /4=" & 300 / f1 * 100 / 4 & dw

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        f2 = TextBox3.Text

        dw = "cm"
        If 高频 >= 1 Then
            Button3.Text = "λ2 =" & 300 / f2 * 100 & dw
        End If
        Button2.Text = "低端波长=?"
        Button4.Text = "中心波长λ0=?"
        Label6.Text = "λ2 /4=" & 300 / f2 * 100 / 4 & dw
        TextBox6.Text = Math.Sqrt((300 / f1) * (300 / f2)) '波长
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        f1 = TextBox2.Text
        f2 = TextBox3.Text
        ' If 低频 >= 1 Then
        'λ1 = 300 / f1 * 100
        ' ElseIf 高频 >= 1 Then
        ' λ2 = 300 / f2 * 100


        Button4.Text = "λ0=" & Math.Sqrt((300 / f1) * (300 / f2)) * 100 & dw
        Button2.Text = "低端波长=?"
        Button3.Text = "高端波长=?"
        Label8.Text = "λ0 /4=" & Math.Sqrt((300 / f1) * (300 / f2)) * 100 / 4 & dw
        TextBox6.Text = Math.Sqrt((300 / f1) * (300 / f2)) '波长


        'Dim d As Double
        ' Dim returnValue As Double

        ' returnValue = Math.Sqrt(d)


        ' End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim SM As String

        Dim mpen As New Pen(Color.Red)
        SM = "八木天线又称为引向天线或波渠天线，由一个有源振子和若干无源振子组成。有源振子与馈线直接相连，引向器和反射器都是无源振子。频带一般在5%左右。由于八木天线的效率一般达90%以上，因此增益近似等于方向性系数。八木天线是慢波结构的行波天线，因此它的增益可用行波天线公式估算，即G=10L/λ。振子数目6-12个比较适宜，再增加引向器数目对提高增益没有显著效果。对于更高增益要求，可使用八木天线阵来实现。通常认为单个八木天线总长度取L=（3~3.5）λ较适宜，甚至有时为了使天线结构紧凑，阵中八木天线单元增益限制在10dB左右。"
        RichTextBox1.Text = SM


        dw = "cm"
        f1 = TextBox2.Text
        f2 = TextBox3.Text
        ' If 低频 >= 1 Then
        λ0 = Math.Sqrt((300 / f1) * (300 / f2)) * 100
        ' ElseIf 高频 >= 1 Then
        ' λ2 = 300 / f2 * 100
        Label7.Text = "反射器L1=" & 0.55 * λ0 & dw 'L1长度
        TextBox6.Text = Math.Sqrt((300 / f1) * (300 / f2)) '波长
        Label9.Text = 0.002 * λ0 & "至" & 0.01 * λ0  '导体直径a=（0.002~0.01）λ
        Label10.Text = "有源振子L0=" & 0.475 * λ0 & dw '有源振子L0=0.475λ0


        '-------------------------
        Dim g As System.Drawing.Graphics = Me.CreateGraphics
        Dim mypen As New System.Drawing.Pen(System.Drawing.Color.Red, 1)
        Dim x1 As Integer = 60
        Dim y1 As Integer = 500
        Dim x2 As Integer = 60
        Dim y2 As Integer = 600
        Dim d1 As Integer
        λ0 = Math.Sqrt((300 / f1) * (300 / f2)) * 100
        L1 = 0.55 * λ0   'L1长度
        L2 = 0.475 * λ0   'L2长度
        d1 = 0.2 * λ0 '反射器间距
        g.DrawLine(mypen, x1, y1, x1, y1 - L1) 'DrawLine(mpen,x1,y1,x2,y2)或者DrawLine(mpen,Point1, Point2) L1长度
        g.DrawLine(mypen, x1, y1, x1, y1 + L1) 'DrawLine(mpen,x1,y1,x2,y2)或者DrawLine(mpen,Point1, Point2)L1长度

        g.DrawLine(mypen, x1 + d1, y1, x1 + d1, y1 - L2) '
        g.DrawLine(mypen, x1 + d1, y1, x1 + d1, y1 + L2)

    End Sub

    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

    End Sub

    Private Sub Splitter1_SplitterMoved(ByVal sender As System.Object, ByVal e As System.Windows.Forms.SplitterEventArgs)

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click '增益计算


        If TextBox5.Text = "" Then
            MsgBox("输入错误", 48, "L错误")
        ElseIf TextBox6.Text = "" Then
            MsgBox("输入错误", 48, "λ错误")
        Else

            TextBox4.Text = 10 * TextBox5.Text / TextBox6.Text
        End If

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click '增益计算
        If TextBox5.Text = "" Then
            MsgBox("输入错误", 48, "L错误")
        ElseIf TextBox4.Text = "" Then
            MsgBox("输入错误", 48, "G错误")
        Else
            TextBox6.Text = (10 * TextBox5.Text) / TextBox4.Text
        End If

 

        '-------------------------------------------------------------

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click '增益计算
        If TextBox6.Text = "" Then
            MsgBox("输入错误", 48, "λ错误")
        ElseIf TextBox4.Text = "" Then
            MsgBox("输入错误", 48, "G错误")
        Else
            TextBox5.Text = TextBox4.Text * TextBox6.Text / 10
        End If
    End Sub

    Private Sub 单元ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 单元ToolStripMenuItem.Click
      
    End Sub

    Private Sub 单元ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 单元ToolStripMenuItem1.Click
      
    End Sub

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
      
    End Sub

    Private Sub 单元等距ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 单元等距ToolStripMenuItem.Click
        Dim SM As String

        Dim mpen As New Pen(Color.Red)
        SM = "八木天线又称为引向天线或波渠天线，由一个有源振子和若干无源振子组成。有源振子与馈线直接相连，引向器和反射器都是无源振子。频带一般在5%左右。由于八木天线的效率一般达90%以上，因此增益近似等于方向性系数。八木天线是慢波结构的行波天线，因此它的增益可用行波天线公式估算，即G=10L/λ。振子数目6-12个比较适宜，再增加引向器数目对提高增益没有显著效果。对于更高增益要求，可使用八木天线阵来实现。通常认为单个八木天线总长度取L=（3~3.5）λ较适宜，甚至有时为了使天线结构紧凑，阵中八木天线单元增益限制在10dB左右。"
        RichTextBox1.Text = SM


        dw = "cm"
        f1 = TextBox2.Text
        f2 = TextBox3.Text
        ' If 低频 >= 1 Then
        λ0 = Math.Sqrt((300 / f1) * (300 / f2)) * 100
        ' ElseIf 高频 >= 1 Then
        ' λ2 = 300 / f2 * 100
        Label7.Text = "反射器L1=" & 0.55 * λ0 & dw 'L1长度
        TextBox6.Text = Math.Sqrt((300 / f1) * (300 / f2)) '波长
        Label9.Text = 0.002 * λ0 & "至" & 0.01 * λ0  '导体直径a=（0.002~0.01）λ
        Label10.Text = "有源振子L0=" & 0.475 * λ0 & dw '有源振子L0=0.475λ0


        '-------------------------
        Dim g As System.Drawing.Graphics = Me.CreateGraphics
        Dim mypen As New System.Drawing.Pen(System.Drawing.Color.Red, 1)
        Dim x1 As Integer = 60
        Dim y1 As Integer = 500
        Dim x2 As Integer = 60
        Dim y2 As Integer = 600
        Dim d1 As Integer
        λ0 = Math.Sqrt((300 / f1) * (300 / f2)) * 100
        L1 = 0.55 * λ0   'L1长度
        L2 = 0.475 * λ0   'L2长度
        d1 = 0.2 * λ0 '反射器间距
        g.DrawLine(mypen, x1, y1, x1, y1 - L1) 'DrawLine(mpen,x1,y1,x2,y2)或者DrawLine(mpen,Point1, Point2) L1长度
        g.DrawLine(mypen, x1, y1, x1, y1 + L1) 'DrawLine(mpen,x1,y1,x2,y2)或者DrawLine(mpen,Point1, Point2)L1长度

        g.DrawLine(mypen, x1 + d1, y1, x1 + d1, y1 - L2) '
        g.DrawLine(mypen, x1 + d1, y1, x1 + d1, y1 + L2)
    End Sub

    Private Sub 单元等距ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 单元等距ToolStripMenuItem1.Click
        Dim SM As String
        SM = "八木天线又称为引向天线或波渠天线，由一个有源振子和若干无源振子组成。有源振子与馈线直接相连，引向器和反射器都是无源振子。频带一般在5%左右。由于八木天线的效率一般达90%以上，因此增益近似等于方向性系数。八木天线是慢波结构的行波天线，因此它的增益可用行波天线公式估算，即G=10L/λ。振子数目6-12个比较适宜，再增加引向器数目对提高增益没有显著效果。对于更高增益要求，可使用八木天线阵来实现。通常认为单个八木天线总长度取L=（3~3.5）λ较适宜，甚至有时为了使天线结构紧凑，阵中八木天线单元增益限制在10dB左右。"
        RichTextBox1.Text = SM


        dw = "cm"
        f1 = TextBox2.Text
        f2 = TextBox3.Text
        ' If 低频 >= 1 Then
        λ0 = Math.Sqrt((300 / f1) * (300 / f2)) * 100
        ' ElseIf 高频 >= 1 Then
        ' λ2 = 300 / f2 * 100
        Label7.Text = "反射器L1=" & 0.55 * λ0 & dw 'L1长度
        TextBox6.Text = Math.Sqrt((300 / f1) * (300 / f2)) '波长
        Label9.Text = 0.002 * λ0 & "至" & 0.01 * λ0  '导体直径a=（0.002~0.01）λ
        Label10.Text = "有源振子L2=" & 0.475 * λ0 & dw '有源振子L0=0.475λ0
        Label11.Text = "引向器L3=" & 0.44 * λ0 & dw 'L3长度

        '-------------------------
        Dim g As System.Drawing.Graphics = Me.CreateGraphics
        Dim mypen As New System.Drawing.Pen(System.Drawing.Color.Red, 1)
        Dim x1 As Integer = 60
        Dim y1 As Integer = 500
        Dim x2 As Integer = 60
        Dim y2 As Integer = 600
        Dim d1 As Integer
        Dim d2 As Integer
        λ0 = Math.Sqrt((300 / f1) * (300 / f2)) * 100
        L1 = 0.55 * λ0   'L1长度
        L2 = 0.475 * λ0   'L2长度
        L3 = 0.44 * λ0   'L3长度
        d1 = 0.23 * λ0 '反射器间距
        d2 = 0.42 * λ0 '引向器间距

        g.DrawLine(mypen, x1, y1, x1, y1 - L1) 'DrawLine(mpen,x1,y1,x2,y2)或者DrawLine(mpen,Point1, Point2) L1长度
        g.DrawLine(mypen, x1, y1, x1, y1 + L1) 'DrawLine(mpen,x1,y1,x2,y2)或者DrawLine(mpen,Point1, Point2)L1长度

        g.DrawLine(mypen, x1 + d1, y1, x1 + d1, y1 - L2) 'L2长度
        g.DrawLine(mypen, x1 + d1, y1, x1 + d1, y1 + L2)

        g.DrawLine(mypen, x1 + d2, y1, x1 + d2, y1 - L3) 'L3长度
        g.DrawLine(mypen, x1 + d2, y1, x1 + d2, y1 + L3)

    End Sub

    Private Sub 单元等距ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 单元等距ToolStripMenuItem2.Click
        Dim SM As String
        SM = "八木天线又称为引向天线或波渠天线，由一个有源振子和若干无源振子组成。有源振子与馈线直接相连，引向器和反射器都是无源振子。频带一般在5%左右。由于八木天线的效率一般达90%以上，因此增益近似等于方向性系数。八木天线是慢波结构的行波天线，因此它的增益可用行波天线公式估算，即G=10L/λ。振子数目6-12个比较适宜，再增加引向器数目对提高增益没有显著效果。对于更高增益要求，可使用八木天线阵来实现。通常认为单个八木天线总长度取L=（3~3.5）λ较适宜，甚至有时为了使天线结构紧凑，阵中八木天线单元增益限制在10dB左右。"
        RichTextBox1.Text = SM


        dw = "cm"
        f1 = TextBox2.Text
        f2 = TextBox3.Text
        ' If 低频 >= 1 Then
        λ0 = Math.Sqrt((300 / f1) * (300 / f2)) * 100
        ' ElseIf 高频 >= 1 Then
        ' λ2 = 300 / f2 * 100
        Label7.Text = "反射器L1=" & 0.55 * λ0 & dw 'L1长度
        TextBox6.Text = Math.Sqrt((300 / f1) * (300 / f2)) '波长
        Label9.Text = 0.002 * λ0 & "至" & 0.01 * λ0  '导体直径a=（0.002~0.01）λ
        Label10.Text = "有源振子L2=" & 0.475 * λ0 & dw '有源振子L0=0.475λ0
        Label11.Text = "引向器L3=" & 0.44 * λ0 & dw 'L3长度
        Label12.Text = "引向器L4=" & 0.44 * λ0 & dw 'L3长度


        '-------------------------
        Dim g As System.Drawing.Graphics = Me.CreateGraphics
        Dim mypen As New System.Drawing.Pen(System.Drawing.Color.Red, 1)
        Dim x1 As Integer = 60
        Dim y1 As Integer = 500
        Dim x2 As Integer = 60
        Dim y2 As Integer = 600
        Dim d1 As Integer
        Dim d2 As Integer
        Dim d3 As Integer


        λ0 = Math.Sqrt((300 / f1) * (300 / f2)) * 100
        L1 = 0.55 * λ0   'L1长度
        L2 = 0.475 * λ0   'L2长度
        L3 = 0.4 * λ0   'L3长度
        L4 = 0.4 * λ0   'L3长度

        d1 = 0.22 * λ0 '反射器间距
        d2 = 0.17 * λ0 '引向器间距
        d3 = 0.18 * λ0 '引向器间距


        g.DrawLine(mypen, x1, y1, x1, y1 - L1) 'DrawLine(mpen,x1,y1,x2,y2)或者DrawLine(mpen,Point1, Point2) L1长度
        g.DrawLine(mypen, x1, y1, x1, y1 + L1) 'DrawLine(mpen,x1,y1,x2,y2)或者DrawLine(mpen,Point1, Point2)L1长度

        g.DrawLine(mypen, x1 + d1, y1, x1 + d1, y1 - L2) 'L2长度
        g.DrawLine(mypen, x1 + d1, y1, x1 + d1, y1 + L2)

        g.DrawLine(mypen, x1 + d1 + d2, y1, x1 + d1 + d2, y1 - L3) 'L3长度
        g.DrawLine(mypen, x1 + d1 + d2, y1, x1 + d1 + d2, y1 + L3)

        g.DrawLine(mypen, x1 + d1 + d2 + d3, y1, x1 + d1 + d2 + d3, y1 - L3) 'L4长度
        g.DrawLine(mypen, x1 + d1 + d2 + d3, y1, x1 + d1 + d2 + d3, y1 + L3)

    End Sub

    Private Sub 单元等距ToolStripMenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 单元等距ToolStripMenuItem8.Click
        Dim SM As String
        SM = "八木天线又称为引向天线或波渠天线，由一个有源振子和若干无源振子组成。有源振子与馈线直接相连，引向器和反射器都是无源振子。频带一般在5%左右。由于八木天线的效率一般达90%以上，因此增益近似等于方向性系数。八木天线是慢波结构的行波天线，因此它的增益可用行波天线公式估算，即G=10L/λ。振子数目6-12个比较适宜，再增加引向器数目对提高增益没有显著效果。对于更高增益要求，可使用八木天线阵来实现。通常认为单个八木天线总长度取L=（3~3.5）λ较适宜，甚至有时为了使天线结构紧凑，阵中八木天线单元增益限制在10dB左右。"
        RichTextBox1.Text = SM


        dw = "cm"
        f1 = TextBox2.Text
        f2 = TextBox3.Text
        ' If 低频 >= 1 Then
        λ0 = Math.Sqrt((300 / f1) * (300 / f2)) * 100
        ' ElseIf 高频 >= 1 Then
        ' λ2 = 300 / f2 * 100
        Label7.Text = "反射器L1=" & 0.55 * λ0 & dw 'L1长度
        TextBox6.Text = Math.Sqrt((300 / f1) * (300 / f2)) '波长
        Label9.Text = 0.002 * λ0 & "至" & 0.01 * λ0  '导体直径a=（0.002~0.01）λ
        Label10.Text = "有源振子L2=" & 0.475 * λ0 & dw '有源振子L0=0.475λ0
        Label11.Text = "引向器L3=" & 0.44 * λ0 & dw 'L3长度
        Label12.Text = "引向器L4=" & 0.44 * λ0 & dw 'L4长度
        Label13.Text = "引向器L5=" & 0.44 * λ0 & dw 'L5长度


        '-------------------------
        Dim g As System.Drawing.Graphics = Me.CreateGraphics
        Dim mypen As New System.Drawing.Pen(System.Drawing.Color.Red, 1)
        Dim x1 As Integer = 60
        Dim y1 As Integer = 500
        Dim x2 As Integer = 60
        Dim y2 As Integer = 600
        Dim d1 As Integer
        Dim d2 As Integer
        Dim d3 As Integer
        Dim d4 As Integer


        λ0 = Math.Sqrt((300 / f1) * (300 / f2)) * 100
        L1 = 0.55 * λ0   'L1长度
        L2 = 0.475 * λ0   'L2长度
        L3 = 0.4 * λ0   'L3长度
        L4 = 0.4 * λ0   'L4长度


        d1 = 0.22 * λ0 '反射器间距
        d2 = 0.17 * λ0 '引向器间距
        d3 = 0.2 * λ0 '引向器间距
        d4 = 0.23 * λ0 '引向器间距


        g.DrawLine(mypen, x1, y1, x1, y1 - L1) 'DrawLine(mpen,x1,y1,x2,y2)或者DrawLine(mpen,Point1, Point2) L1长度
        g.DrawLine(mypen, x1, y1, x1, y1 + L1) 'DrawLine(mpen,x1,y1,x2,y2)或者DrawLine(mpen,Point1, Point2)L1长度

        g.DrawLine(mypen, x1 + d1, y1, x1 + d1, y1 - L2) 'L2长度
        g.DrawLine(mypen, x1 + d1, y1, x1 + d1, y1 + L2)

        g.DrawLine(mypen, x1 + d1 + d2, y1, x1 + d1 + d2, y1 - L3) 'L3长度
        g.DrawLine(mypen, x1 + d1 + d2, y1, x1 + d1 + d2, y1 + L3)

        g.DrawLine(mypen, x1 + d1 + d2 + d3, y1, x1 + d1 + d2 + d3, y1 - L3) 'L4长度
        g.DrawLine(mypen, x1 + d1 + d2 + d3, y1, x1 + d1 + d2 + d3, y1 + L3)

        g.DrawLine(mypen, x1 + d1 + d2 + d3 + d4, y1, x1 + d1 + d2 + d3 + d4, y1 - L3) 'L5长度
        g.DrawLine(mypen, x1 + d1 + d2 + d3 + d4, y1, x1 + d1 + d2 + d3 + d4, y1 + L3)
    End Sub

    Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click

    End Sub

    Private Sub 单元等距ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 单元等距ToolStripMenuItem3.Click
        Dim SM As String
        SM = "八木天线又称为引向天线或波渠天线，由一个有源振子和若干无源振子组成。有源振子与馈线直接相连，引向器和反射器都是无源振子。频带一般在5%左右。由于八木天线的效率一般达90%以上，因此增益近似等于方向性系数。八木天线是慢波结构的行波天线，因此它的增益可用行波天线公式估算，即G=10L/λ。振子数目6-12个比较适宜，再增加引向器数目对提高增益没有显著效果。对于更高增益要求，可使用八木天线阵来实现。通常认为单个八木天线总长度取L=（3~3.5）λ较适宜，甚至有时为了使天线结构紧凑，阵中八木天线单元增益限制在10dB左右。"
        RichTextBox1.Text = SM


        dw = "cm"
        f1 = TextBox2.Text
        f2 = TextBox3.Text
        ' If 低频 >= 1 Then
        λ0 = Math.Sqrt((300 / f1) * (300 / f2)) * 100
        ' ElseIf 高频 >= 1 Then
        ' λ2 = 300 / f2 * 100
        Label7.Text = "反射器L1=" & 0.55 * λ0 & dw 'L1长度
        TextBox6.Text = Math.Sqrt((300 / f1) * (300 / f2)) '波长
        Label9.Text = 0.002 * λ0 & "至" & 0.01 * λ0  '导体直径a=（0.002~0.01）λ
        Label10.Text = "有源振子L2=" & 0.475 * λ0 & dw '有源振子L0=0.475λ0
        Label11.Text = "引向器L3=" & 0.44 * λ0 & dw 'L3长度
        Label12.Text = "引向器L4=" & 0.44 * λ0 & dw 'L4长度
        Label13.Text = "引向器L5=" & 0.44 * λ0 & dw 'L5长度
        Label14.Text = "引向器L6=" & 0.44 * λ0 & dw 'L6长度

        '-------------------------
        Dim g As System.Drawing.Graphics = Me.CreateGraphics
        Dim mypen As New System.Drawing.Pen(System.Drawing.Color.Red, 1)
        Dim x1 As Integer = 60
        Dim y1 As Integer = 500
        Dim x2 As Integer = 60
        Dim y2 As Integer = 600
        Dim d1 As Integer
        Dim d2 As Integer
        Dim d3 As Integer
        Dim d4 As Integer
        Dim d5 As Integer

        λ0 = Math.Sqrt((300 / f1) * (300 / f2)) * 100
        L1 = 0.55 * λ0   'L1长度
        L2 = 0.475 * λ0   'L2长度
        L3 = 0.4 * λ0   'L3长度
        L4 = 0.4 * λ0   'L4长度
        L5 = 0.4 * λ0   'L4长度

        d1 = 0.2 * λ0 '反射器间距
        d2 = 0.17 * λ0 '引向器间距
        d3 = 0.25 * λ0 '引向器间距
        d4 = 0.3 * λ0 '引向器间距
        d5 = 0.32 * λ0 '引向器间距


        g.DrawLine(mypen, x1, y1, x1, y1 - L1) 'DrawLine(mpen,x1,y1,x2,y2)或者DrawLine(mpen,Point1, Point2) L1长度
        g.DrawLine(mypen, x1, y1, x1, y1 + L1) 'DrawLine(mpen,x1,y1,x2,y2)或者DrawLine(mpen,Point1, Point2)L1长度

        g.DrawLine(mypen, x1 + d1, y1, x1 + d1, y1 - L2) 'L2长度
        g.DrawLine(mypen, x1 + d1, y1, x1 + d1, y1 + L2)

        g.DrawLine(mypen, x1 + d1 + d2, y1, x1 + d1 + d2, y1 - L3) 'L3长度
        g.DrawLine(mypen, x1 + d1 + d2, y1, x1 + d1 + d2, y1 + L3)

        g.DrawLine(mypen, x1 + d1 + d2 + d3, y1, x1 + d1 + d2 + d3, y1 - L3) 'L4长度
        g.DrawLine(mypen, x1 + d1 + d2 + d3, y1, x1 + d1 + d2 + d3, y1 + L3)

        g.DrawLine(mypen, x1 + d1 + d2 + d3 + d4, y1, x1 + d1 + d2 + d3 + d4, y1 - L3) 'L5长度
        g.DrawLine(mypen, x1 + d1 + d2 + d3 + d4, y1, x1 + d1 + d2 + d3 + d4, y1 + L3)

        g.DrawLine(mypen, x1 + d1 + d2 + d3 + d4 + d5, y1, x1 + d1 + d2 + d3 + d4 + d5, y1 - L3) 'L6长度
        g.DrawLine(mypen, x1 + d1 + d2 + d3 + d4 + d5, y1, x1 + d1 + d2 + d3 + d4 + d5, y1 + L3)

    End Sub

    Private Sub 单元等距ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 单元等距ToolStripMenuItem4.Click
        Dim SM As String
        SM = "八木天线又称为引向天线或波渠天线，由一个有源振子和若干无源振子组成。有源振子与馈线直接相连，引向器和反射器都是无源振子。频带一般在5%左右。由于八木天线的效率一般达90%以上，因此增益近似等于方向性系数。八木天线是慢波结构的行波天线，因此它的增益可用行波天线公式估算，即G=10L/λ。振子数目6-12个比较适宜，再增加引向器数目对提高增益没有显著效果。对于更高增益要求，可使用八木天线阵来实现。通常认为单个八木天线总长度取L=（3~3.5）λ较适宜，甚至有时为了使天线结构紧凑，阵中八木天线单元增益限制在10dB左右。"
        RichTextBox1.Text = SM


        dw = "cm"
        f1 = TextBox2.Text
        f2 = TextBox3.Text
        ' If 低频 >= 1 Then
        λ0 = Math.Sqrt((300 / f1) * (300 / f2)) * 100
        ' ElseIf 高频 >= 1 Then
        ' λ2 = 300 / f2 * 100
        Label7.Text = "反射器L1=" & 0.55 * λ0 & dw 'L1长度
        TextBox6.Text = Math.Sqrt((300 / f1) * (300 / f2)) '波长
        Label9.Text = 0.002 * λ0 & "至" & 0.01 * λ0  '导体直径a=（0.002~0.01）λ
        Label10.Text = "有源振子L2=" & 0.475 * λ0 & dw '有源振子L0=0.475λ0
        Label11.Text = "引向器L3=" & 0.44 * λ0 & dw 'L3长度
        Label12.Text = "引向器L4=" & 0.44 * λ0 & dw 'L4长度
        Label13.Text = "引向器L5=" & 0.44 * λ0 & dw 'L5长度
        Label14.Text = "引向器L6=" & 0.44 * λ0 & dw 'L6长度
        Label15.Text = "引向器L7=" & 0.44 * λ0 & dw 'L7长度


        '-------------------------
        Dim g As System.Drawing.Graphics = Me.CreateGraphics
        Dim mypen As New System.Drawing.Pen(System.Drawing.Color.Red, 1)
        Dim x1 As Integer = 60
        Dim y1 As Integer = 500
        Dim x2 As Integer = 60
        Dim y2 As Integer = 600
        Dim d1 As Integer
        Dim d2 As Integer
        Dim d3 As Integer
        Dim d4 As Integer
        Dim d5 As Integer
        Dim d6 As Integer

        λ0 = Math.Sqrt((300 / f1) * (300 / f2)) * 100
        L1 = 0.55 * λ0   'L1长度
        L2 = 0.475 * λ0   'L2长度
        L3 = 0.4 * λ0   'L3长度
        L4 = 0.4 * λ0   'L4长度
        L5 = 0.4 * λ0   'L5长度
        L6 = 0.4 * λ0   'L6长度
        L7 = 0.4 * λ0   'L7长度

        d1 = 0.2 * λ0 '反射器间距
        d2 = 0.16 * λ0 '引向器间距
        d3 = 0.25 * λ0 '引向器间距
        d4 = 0.3 * λ0 '引向器间距
        d5 = 0.32 * λ0 '引向器间距
        d6 = 0.33 * λ0 '引向器间距

        g.DrawLine(mypen, x1, y1, x1, y1 - L1) 'DrawLine(mpen,x1,y1,x2,y2)或者DrawLine(mpen,Point1, Point2) L1长度
        g.DrawLine(mypen, x1, y1, x1, y1 + L1) 'DrawLine(mpen,x1,y1,x2,y2)或者DrawLine(mpen,Point1, Point2)L1长度

        g.DrawLine(mypen, x1 + d1, y1, x1 + d1, y1 - L2) 'L2长度
        g.DrawLine(mypen, x1 + d1, y1, x1 + d1, y1 + L2)

        g.DrawLine(mypen, x1 + d1 + d2, y1, x1 + d1 + d2, y1 - L3) 'L3长度
        g.DrawLine(mypen, x1 + d1 + d2, y1, x1 + d1 + d2, y1 + L3)

        g.DrawLine(mypen, x1 + d1 + d2 + d3, y1, x1 + d1 + d2 + d3, y1 - L3) 'L4长度
        g.DrawLine(mypen, x1 + d1 + d2 + d3, y1, x1 + d1 + d2 + d3, y1 + L3)

        g.DrawLine(mypen, x1 + d1 + d2 + d3 + d4, y1, x1 + d1 + d2 + d3 + d4, y1 - L3) 'L5长度
        g.DrawLine(mypen, x1 + d1 + d2 + d3 + d4, y1, x1 + d1 + d2 + d3 + d4, y1 + L3)

        g.DrawLine(mypen, x1 + d1 + d2 + d3 + d4 + d5, y1, x1 + d1 + d2 + d3 + d4 + d5, y1 - L3) 'L6长度
        g.DrawLine(mypen, x1 + d1 + d2 + d3 + d4 + d5, y1, x1 + d1 + d2 + d3 + d4 + d5, y1 + L3)

        g.DrawLine(mypen, x1 + d1 + d2 + d3 + d4 + d5 + d6, y1, x1 + d1 + d2 + d3 + d4 + d5 + d6, y1 - L3) 'L7长度
        g.DrawLine(mypen, x1 + d1 + d2 + d3 + d4 + d5 + d6, y1, x1 + d1 + d2 + d3 + d4 + d5 + d6, y1 + L3)
    End Sub

    Private Sub 单元等距ToolStripMenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 单元等距ToolStripMenuItem5.Click
        Dim SM As String
        SM = "八木天线又称为引向天线或波渠天线，由一个有源振子和若干无源振子组成。有源振子与馈线直接相连，引向器和反射器都是无源振子。频带一般在5%左右。由于八木天线的效率一般达90%以上，因此增益近似等于方向性系数。八木天线是慢波结构的行波天线，因此它的增益可用行波天线公式估算，即G=10L/λ。振子数目6-12个比较适宜，再增加引向器数目对提高增益没有显著效果。对于更高增益要求，可使用八木天线阵来实现。通常认为单个八木天线总长度取L=（3~3.5）λ较适宜，甚至有时为了使天线结构紧凑，阵中八木天线单元增益限制在10dB左右。"
        RichTextBox1.Text = SM


        dw = "cm"
        f1 = TextBox2.Text
        f2 = TextBox3.Text
        ' If 低频 >= 1 Then
        λ0 = Math.Sqrt((300 / f1) * (300 / f2)) * 100
        ' ElseIf 高频 >= 1 Then
        ' λ2 = 300 / f2 * 100
        Label7.Text = "反射器L1=" & 0.55 * λ0 & dw 'L1长度
        TextBox6.Text = Math.Sqrt((300 / f1) * (300 / f2)) '波长
        Label9.Text = 0.002 * λ0 & "至" & 0.01 * λ0  '导体直径a=（0.002~0.01）λ
        Label10.Text = "有源振子L2=" & 0.475 * λ0 & dw '有源振子L0=0.475λ0
        Label11.Text = "引向器L3=" & 0.44 * λ0 & dw 'L3长度
        Label12.Text = "引向器L4=" & 0.44 * λ0 & dw 'L4长度
        Label13.Text = "引向器L5=" & 0.44 * λ0 & dw 'L5长度
        Label14.Text = "引向器L6=" & 0.44 * λ0 & dw 'L6长度
        Label15.Text = "引向器L7=" & 0.44 * λ0 & dw 'L7长度
        Label16.Text = "引向器L8=" & 0.44 * λ0 & dw 'L8长度


        '-------------------------
        Dim g As System.Drawing.Graphics = Me.CreateGraphics
        Dim mypen As New System.Drawing.Pen(System.Drawing.Color.Red, 1)
        Dim x1 As Integer = 60
        Dim y1 As Integer = 500
        Dim x2 As Integer = 60
        Dim y2 As Integer = 600
        Dim d1 As Integer
        Dim d2 As Integer
        Dim d3 As Integer
        Dim d4 As Integer
        Dim d5 As Integer
        Dim d6 As Integer
        Dim d7 As Integer

        λ0 = Math.Sqrt((300 / f1) * (300 / f2)) * 100
        L1 = 0.55 * λ0   'L1长度
        L2 = 0.475 * λ0   'L2长度
        L3 = 0.4 * λ0   'L3长度
        L4 = 0.4 * λ0   'L4长度
        L5 = 0.4 * λ0   'L5长度
        L6 = 0.4 * λ0   'L6长度
        L7 = 0.4 * λ0   'L7长度

        d1 = 0.2 * λ0 '反射器间距
        d2 = 0.16 * λ0 '引向器间距
        d3 = 0.25 * λ0 '引向器间距
        d4 = 0.3 * λ0 '引向器间距
        d5 = 0.32 * λ0 '引向器间距
        d6 = 0.33 * λ0 '引向器间距
        d7 = 0.33 * λ0 '引向器间距

        g.DrawLine(mypen, x1, y1, x1, y1 - L1) 'DrawLine(mpen,x1,y1,x2,y2)或者DrawLine(mpen,Point1, Point2) L1长度
        g.DrawLine(mypen, x1, y1, x1, y1 + L1) 'DrawLine(mpen,x1,y1,x2,y2)或者DrawLine(mpen,Point1, Point2)L1长度

        g.DrawLine(mypen, x1 + d1, y1, x1 + d1, y1 - L2) 'L2长度
        g.DrawLine(mypen, x1 + d1, y1, x1 + d1, y1 + L2)

        g.DrawLine(mypen, x1 + d1 + d2, y1, x1 + d1 + d2, y1 - L3) 'L3长度
        g.DrawLine(mypen, x1 + d1 + d2, y1, x1 + d1 + d2, y1 + L3)

        g.DrawLine(mypen, x1 + d1 + d2 + d3, y1, x1 + d1 + d2 + d3, y1 - L3) 'L4长度
        g.DrawLine(mypen, x1 + d1 + d2 + d3, y1, x1 + d1 + d2 + d3, y1 + L3)

        g.DrawLine(mypen, x1 + d1 + d2 + d3 + d4, y1, x1 + d1 + d2 + d3 + d4, y1 - L3) 'L5长度
        g.DrawLine(mypen, x1 + d1 + d2 + d3 + d4, y1, x1 + d1 + d2 + d3 + d4, y1 + L3)

        g.DrawLine(mypen, x1 + d1 + d2 + d3 + d4 + d5, y1, x1 + d1 + d2 + d3 + d4 + d5, y1 - L3) 'L6长度
        g.DrawLine(mypen, x1 + d1 + d2 + d3 + d4 + d5, y1, x1 + d1 + d2 + d3 + d4 + d5, y1 + L3)

        g.DrawLine(mypen, x1 + d1 + d2 + d3 + d4 + d5 + d6, y1, x1 + d1 + d2 + d3 + d4 + d5 + d6, y1 - L3) 'L7长度
        g.DrawLine(mypen, x1 + d1 + d2 + d3 + d4 + d5 + d6, y1, x1 + d1 + d2 + d3 + d4 + d5 + d6, y1 + L3)

        g.DrawLine(mypen, x1 + d1 + d2 + d3 + d4 + d5 + d6 + d7, y1, x1 + d1 + d2 + d3 + d4 + d5 + d6 + d7, y1 - L3) 'L8长度
        g.DrawLine(mypen, x1 + d1 + d2 + d3 + d4 + d5 + d6 + d7, y1, x1 + d1 + d2 + d3 + d4 + d5 + d6 + d7, y1 + L3)
    End Sub
End Class

]]> http://yh315430489.blog.163.com/blog/static/2907103920086319152305 0 http://yh315430489.blog.163.com/blog/static/2907103920086319152305 Thu, 31 Jul 2008 09:01:52 +0800 2008-11-12T20:51:18+08:00 <![CDATA[asp.net教程 ]]> http://yh315430489.blog.163.com/blog/static/2907103920086318463738