smith圆图visual basic程序.docx
- 文档编号:11637235
- 上传时间:2023-03-29
- 格式:DOCX
- 页数:32
- 大小:19.69KB
smith圆图visual basic程序.docx
《smith圆图visual basic程序.docx》由会员分享,可在线阅读,更多相关《smith圆图visual basic程序.docx(32页珍藏版)》请在冰豆网上搜索。
smith圆图visualbasic程序
Smith圆图源程序
学生姓名:
张玉一扶旭富
Dimflag,tAsInteger
Dimmouse,delate,shubiaoAsBoolean
Dimx,y,z0,f0,i,pAsSingle
Dimh!
(10),k(10)AsSingle
Dimyuanjian(5)AsInteger
Dimpp(8,4)AsSingle
Dimqq(8,4)AsSingle
Constpi=3.14159265358979
PublicSubgenzong()
Line2.Visible=True
Shape1(9).Visible=True
Shape1(8).Visible=True
Shape1(7).Visible=True
Shape1(9).BorderColor=RGB(148,0,211)
Shape1(8).BorderColor=RGB(0,0,255)
Shape1(7).BorderColor=RGB(0,139,139)
Shape1(9).Height=2*Sqr(x*x+y*y)
Shape1(9).Width=2*Sqr(x*x+y*y)
Shape1(9).Left=-Sqr(x*x+y*y)
Shape1(9).Top=-Sqr(x*x+y*y)
'Shape1(7).Width=2*5500/(d1-1)
'Shape1(7).Height=2*5500/(2*(5500-x)/((1-x)*(1-x)+y*y))
'Shape1(7).Left=(d1-1)/(2*(5500-x)/((1-x)*(1-x)+y*y))*5500
'Shape1(7).Top=-5500/(d1-1)
Shape1(7).Width=((1-x/5500)*(1-x/5500)+(y*y/5500/5500))/(1-x/5500)*5500
Shape1(7).Height=((1-x/5500)*(1-x/5500)+(y*y/5500/5500))/(1-x/5500)*5500
Shape1(7).Left=5500-((1-x/5500)*(1-x/5500)+(y*y/5500/5500))/(1-x/5500)*5500
Shape1(7).Top=-((1-x/5500)*(1-x/5500)+(y*y/5500/5500))/(1-x/5500)/2*5500
Line2.x1=0
Line2.X2=x
Line2.y1=0
Line2.y2=y
Ify=0Andd2=0Then
Line2.x1=-5500
Line2.X2=5500
Line2.y1=0
Line2.y2=0
EndIf
Ify<0Then
Shape1(8).Height=-(y+(5500-x)*(5500-x)/y)
Shape1(8).Width=-(y+(5500-x)*(5500-x)/y)
Shape1(8).Left=5500+y/2+(5500-x)*(5500-x)/2/y
Shape1(8).Top=2*(y/2+(5500-x)*(5500-x)/2/y)
EndIf
Ify>0Then
Shape1(8).Height=(y+(5500-x)*(5500-x)/y)
Shape1(8).Width=(y+(5500-x)*(5500-x)/y)
Shape1(8).Left=5500-y/2-(5500-x)*(5500-x)/2/y
Shape1(8).Top=0
EndIf
'EndIf
'EndIf
EndSub
'ok
PublicSubzukang()
Picture1.Line(-5500,0)-(5500,0),vbRed
Picture1.Circle(0,0),5500,vbRed
'归一化电阻圆
Picture1.Circle(0+5500/6,0),5500*5/6,vbRed'r=1/5
Picture1.Circle(0+5500/3,0),5500*2/3,vbRed'r=1/2
Picture1.Circle(0+5500/2,0),5500/2,vbRed'r=1
Picture1.Circle(0+5500*2/3,0),5500/3,vbRed'r=2
Picture1.Circle(0+5500*4/5,0),5500/5,vbRed'r=4
Picture1.Circle(0+5000,0),500,vbRed'r=10
'归一化电抗圆
Picture1.Circle(5500,0-5500/10),5500/10,vbRed,pi*3/2-2*Atn(10),3*pi/2'x=10
Picture1.Circle(5500,0-5500/4),5500/4,vbRed,pi*3/2-2*Atn(4),3*pi/2'x=4
Picture1.Circle(5500,0-5500/2),5500/2,vbRed,pi*3/2-2*Atn
(2),3*pi/2'x=2
Picture1.Circle(5500,0-5500/1),5500/1,vbRed,pi*3/2-2*Atn
(1),3*pi/2'x=1
Picture1.Circle(5500,0-5500/0.5),5500/0.5,vbRed,pi*3/2-2*Atn(0.5),3*pi/2'x=0.5
Picture1.Circle(5500,0-5500/0.2),5500/0.2,vbRed,pi*3/2-2*Atn(0.2),3*pi/2'x=0.2
Picture1.Circle(5500,0+5500/10),5500/10,vbRed,pi/2,pi/2+2*Atn(10)'x=-10
Picture1.Circle(5500,0+5500/4),5500/4,vbRed,pi/2,pi/2+2*Atn(4)'x=-4
Picture1.Circle(5500,0+5500/2),5500/2,vbRed,pi/2,pi/2+2*Atn
(2)'x=-2
Picture1.Circle(5500,0+5500/1),5500/1,vbRed,pi/2,pi/2+2*Atn
(1)'x=-1
Picture1.Circle(5500,0+5500/0.5),5500/0.5,vbRed,pi/2,pi/2+2*Atn(0.5)'x=-0.5
Picture1.Circle(5500,0+5500/0.2),5500/0.2,vbRed,pi/2,pi/2+2*Atn(0.2)'x=-0.2
EndSub
'ok
PublicSubdaona()
Picture1.Line(-5500,0)-(5500,0),vbBlue
Picture1.Circle(0,0),5500,vbBlue
Picture1.Circle(0-5500/6,0),5500*5/6,vbBlue'r=1/5
Picture1.Circle(0-5500/3,0),5500*2/3,vbBlue'r=1/2
Picture1.Circle(0-5500/2,0),5500/2,vbBlue'r=1
Picture1.Circle(0-5500*2/3,0),5500/3,vbBlue'r=2
Picture1.Circle(0-5500*4/5,0),5500/5,vbBlue'r=4
Picture1.Circle(0-5000,0),500,vbBlue'r=10
Picture1.Circle(-5500,0-5500/10),5500/10,vbBlue,pi*3/2,2*Atn(10)-pi/2'x=10
Picture1.Circle(-5500,0-5500/4),5500/4,vbBlue,pi*3/2,2*Atn(4)-pi/2'x=4
Picture1.Circle(-5500,0-5500/2),5500/2,vbBlue,pi*3/2,2*Atn
(2)-pi/2'x=2
Picture1.Circle(-5500,0-5500/1),5500/1,vbBlue,pi*3/2,2*Atn
(1)-pi/2'x=1
Picture1.Circle(-5500,0-5500/0.5),5500/0.5,vbBlue,pi*3/2,pi*3/2+2*Atn(0.5)'x=0.5
Picture1.Circle(-5500,0-5500/0.2),5500/0.2,vbBlue,pi*3/2,pi*3/2+2*Atn(0.2)'x=0.2
Picture1.Circle(-5500,0+5500/10),5500/10,vbBlue,pi*5/2-2*Atn(10),pi/2'x=-10
Picture1.Circle(-5500,0+5500/4),5500/4,vbBlue,pi*5/2-2*Atn(4),pi/2'x=-4
Picture1.Circle(-5500,0+5500/2),5500/2,vbBlue,pi*5/2-2*Atn
(2),pi/2'x=-2
Picture1.Circle(-5500,0+5500/1),5500/1,vbBlue,pi*5/2-2*Atn
(1),pi/2'x=-1
Picture1.Circle(-5500,0+5500/0.5),5500/0.5,vbBlue,pi/2-2*Atn(0.5),pi/2'x=-0.5
Picture1.Circle(-5500,0+5500/0.2),5500/0.2,vbBlue,pi/2-2*Atn(0.2),pi/2'x=-0.2
EndSub
'ok
PublicSubfanshexishu()
'反射系数圆
Picture1.Circle(0,0),5500*0.25,vbWhite
Picture1.Circle(0,0),5500*0.5,vbWhite
Picture1.Circle(0,0),5500*0.75,vbWhite
Picture1.Circle(0,0),5500*1,vbWhite
EndSub
'ok
PublicSubinit_image()
Picture1.ScaleTop=-6000
Picture1.ScaleLeft=-6000
Picture1.Circle(0,0),5500,vbbrown
Picture1.Line(-5500,0)-(5500,0),vbbrown
Picture1.Line(0,-5500)-(0,5500),vbbrown
EndSub
'ok
PrivateSubCheck1_Click()'导纳圆
Picture1.Cls
Callinit_image
IfCheck1.Value=1Then
Calldaona
EndIf
IfCheck2.Value=1Then
Callzukang
EndIf
IfCheck3.Value=1Then
Callfanshexishu
EndIf
EndSub
'ok
PrivateSubCheck2_Click()'阻抗圆
Picture1.Cls
Callinit_image
IfCheck1.Value=1Then
Calldaona
EndIf
IfCheck2.Value=1Then
Callzukang
EndIf
IfCheck3.Value=1Then
Callfanshexishu
EndIf
EndSub
PrivateSubCheck3_Click()
Picture1.Cls
Callinit_image
IfCheck1.Value=1Then
Calldaona
EndIf
IfCheck2.Value=1Then
Callzukang
EndIf
IfCheck3.Value=1Then
Callfanshexishu
EndIf
EndSub
PrivateSubCommand10_Click()
Dimy1,y2AsSingle
yuanjian(i)=9
Ifi>4Then
MsgBox"只能添加5个元件!
"
Else
p1(i).Line(0,320)-(1000,320),vbBlack
p1(i).Line(500,320)-(500,1000),vbBlack
p1(i).Line(450,500)-(550,500),vbBlack
p1(i).Line(450,800)-(550,800),vbBlack
p1(i).Line(450,500)-(450,800),vbBlack
p1(i).Line(550,500)-(550,800),vbBlack
p1(i).Line(350,1000)-(650,1000),vbBlack
p1(i).Line(400,1100)-(600,1100),vbBlack
p1(i).Line(450,1200)-(550,1200),vbBlack
Text8(i).Text=Format(50,"0.0000")+Format("pF")
y1=h(i)
y2=k(i)
Shape2(i).Visible=True
Shape2(i).BorderColor=vbRed
Shape2(i).Width=-((-1-y1/5500)*(-1-y1/5500)+(y2*y2/5500/5500))/(-1-y1/5500)*5500
Shape2(i).Height=-((-1-y1/5500)*(-1-y1/5500)+(y2*y2/5500/5500))/(-1-y1/5500)*5500
Shape2(i).Left=-5500'-((-1-y1/5500)*(-1-y1/5500)+(y2*y2/5500/5500))/(-1-y1/5500)*5500
Shape2(i).Top=((-1-y1/5500)*(-1-y1/5500)+(y2*y2/5500/5500))/(-1-y1/5500)/2*5500
i=i+1
EndIf
EndSub
'PrivateSubCommand1_Click()
'Dimy1,y2AsSingle
'Ifi>4Then
'MsgBox"只能添加5个元件!
"
'Else
'p1(i).Line(0,320)-(450,320),vbBlack
'p1(i).Line(450,220)-(450,420),vbBlack
'p1(i).Line(550,220)-(550,420),vbBlack
'p1(i).Line(550,320)-(1000,320),vbBlack
'
'y1=h(t)
'y2=k(t)
'Shape2(i).BorderColor=vbGreen
'Shape2(i).Width=((1-y1/5500)*(1-y1/5500)+(y2*y2/5500/5500))/(1-y1/5500)*5500
'Shape2(i).Height=((1-y1/5500)*(1-y1/5500)+(y*y/5500/5500))/(1-y1/5500)*5500
'Shape2(i).Left=5500-((1-y1/5500)*(1-x/5500)+(y2*y2/5500/5500))/(1-y1/5500)*5500
'Shape2(i).Top=-((1-y1/5500)*(1-y1/5500)+(y2*y2/5500/5500))/(1-y1/5500)/2*5500
'i=i+1
'EndIf
'EndSub
PrivateSubCommand11_Click()
t=0
Shape1(0).BorderColor=vbBlack
Shape1
(1).BorderColor=vbBlack
Shape1
(2).BorderColor=vbBlack
Shape1(3).BorderColor=vbBlack
Shape1(4).BorderColor=vbBlack
Shape1(5).BorderColor=vbBlack
Shape1(6).BorderColor=vbBlack
Label14(0).Caption=""
Label14
(1).Caption=""
Label14
(2).Caption=""
Label14(3).Caption=""
Label14(4).Caption=""
Label14(5).Caption=""
Label14(6).Caption=""
'Picture1.Cls
'Callinit_image
'IfCheck1.Value=1Then
'Calldaona
'EndIf
'IfCheck2.Value=1Then
'Callzukang
'EndIf
'
'IfCheck3.Value=1Then
'Callfanshexishu
'EndIf
Text6.Visible=False
Text7.Visible=False
EndSub
PrivateSubCommand12_Click()
Text6.Visible=True
Text7.Visible=True
'Picture1.Cls
'Callinit_image
'IfCheck1.Value=1Then
'Calldaona
'EndIf
'IfCheck2.Value=1Then
'Callzukang
'EndIf
'
'IfCheck3.Value=1Then
'Callfanshexishu
'EndIf
EndSub
PrivateSubCommand13_Click()
Ifi>0Then
p1(i-1).Cls
Shape2(i-1).BorderColor=vbBlack
Shape2(i-1).Visible=False
i=i-1
Text8(i).Text=""
EndIf
EndSub
PrivateSubCommand14_Click()
shubiao=Notshubiao
Ifshubiao=FalseThen
Command14.Caption="鼠标跟踪"
EndIf
Ifshubiao=TrueThen
Command14.Caption="鼠标不跟踪"
Line2.Visible=False
Shape1(9).Visible=False
Shape1(7).Visible=False
Shape1(8).Visible
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- smith圆图visual basic程序 smith 圆图 visual basic 程序