📄 微带线设计.frm
字号:
VERSION 5.00
Begin VB.Form 微带线设计
Caption = "微带线设计"
ClientHeight = 3120
ClientLeft = 60
ClientTop = 450
ClientWidth = 10005
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 3120
ScaleWidth = 10005
Begin VB.TextBox Text8
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8520
TabIndex = 19
Text = "Text8"
Top = 1320
Width = 1095
End
Begin VB.TextBox Text7
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5640
TabIndex = 17
Text = "Text7"
Top = 1320
Width = 1215
End
Begin VB.TextBox Text6
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3360
TabIndex = 15
Text = "1000"
Top = 1320
Width = 855
End
Begin VB.TextBox Text5
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8520
TabIndex = 13
Top = 720
Width = 1095
End
Begin VB.CommandButton 退出
Caption = "退出"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 8520
TabIndex = 11
Top = 2160
Width = 1335
End
Begin VB.CommandButton 根据阻抗
Caption = "根据阻抗计算微带线宽度"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 3360
TabIndex = 10
Top = 2160
Width = 3015
End
Begin VB.CommandButton 根据宽度
Caption = "根据微带线宽度计算阻抗"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 240
TabIndex = 9
Top = 2160
Width = 3135
End
Begin VB.TextBox Text4
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6720
TabIndex = 7
Top = 720
Width = 1095
End
Begin VB.TextBox Text3
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6720
TabIndex = 6
Text = "4.6"
Top = 240
Width = 1095
End
Begin VB.TextBox Text2
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3840
TabIndex = 5
Top = 720
Width = 975
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3840
TabIndex = 4
Top = 240
Width = 975
End
Begin VB.Label Label9
Caption = "1/4波长(MM)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6960
TabIndex = 18
Top = 1440
Width = 1455
End
Begin VB.Label Label8
Caption = "波长(MM)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4440
TabIndex = 16
Top = 1440
Width = 1095
End
Begin VB.Label Label7
Caption = "频率(MHz)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1800
TabIndex = 14
Top = 1440
Width = 1335
End
Begin VB.Label Label6
Caption = "等效介电系数"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8400
TabIndex = 12
Top = 240
Width = 1695
End
Begin VB.Label Label5
Caption = "输入参数:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 360
TabIndex = 8
Top = 480
Width = 1215
End
Begin VB.Label Label4
Caption = "特征阻抗(欧姆)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5040
TabIndex = 3
Top = 840
Width = 1935
End
Begin VB.Label Label3
Caption = "介电系数"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5040
TabIndex = 2
Top = 360
Width = 1455
End
Begin VB.Label Label2
Caption = "微带线宽度w(mm)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1800
TabIndex = 1
Top = 840
Width = 1935
End
Begin VB.Label Label1
Caption = "介质厚度d(mm)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1800
TabIndex = 0
Top = 360
Width = 1575
End
End
Attribute VB_Name = "微带线设计"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Me.Height = 3700
Me.Width = 10100
End Sub
Private Sub 根据宽度_Click()
Dim H As Double '基板厚度
Dim W As Double '微带线宽度
Dim Er As Double '基板相对介电系数
Dim Ee As Double '基板与空气共同的有效介电系数
Dim Z0 As Double '如果基板为空气的特征阻抗
Dim Zc As Double '计算出的特征阻抗
Dim Lmd As Double '波长
Dim Ff As Double '频率
Ff = Val(Text6.Text)
H = Val(Text1.Text)
If H <= 0 Then
MsgBox ("介质厚度不能为0或负数!!")
Exit Sub
End If
W = Val(Text2.Text)
If W <= 0 Then
MsgBox ("微带线宽度不能为0或负数!!")
Exit Sub
End If
Er = Val(Text3.Text)
If Er <= 0 Then
MsgBox ("特征阻抗不能为0或负数!!")
Exit Sub
End If
If (W / H <= 1) Then
Z0 = 60 * Log(8 * H / W - W / 4 / H)
Else
Z0 = (120 * 3.14156 / (W / H + 2.42 - 0.44 * H / W + (1 - H / W) ^ 6))
End If
Ee = (Er + 1) / 2 + ((Er - 1) / 2) * (1 / Sqr(1 + 10 * H / W))
Zc = Z0 / Sqr(Ee)
Lmd = 3000 * 100000000# / Ff / 1000000# / Sqr(Ee)
Text4.Text = Int(Zc * 1000) / 1000
Text4.BackColor = vbRed
Text5.Text = Int(Ee * 1000) / 1000
Text7.Text = Int(Lmd * 1000) / 1000
Text8.Text = Int(Text7.Text * 1000 / 4) / 1000
End Sub
Private Sub 根据阻抗_Click()
Dim H As Double
Dim W As Double
Dim Er As Double
Dim Ee As Double
Dim Z0 As Double
Dim Zc As Double
Dim Zz As Double
Ff = Val(Text6.Text)
H = Val(Text1.Text)
If H <= 0 Then
MsgBox ("介质厚度不能为0或负数!!")
Exit Sub
End If
Zz = Val(Text4.Text)
If Zz <= 0 Then
MsgBox ("微带线特征阻抗不能为0或负数!!")
Exit Sub
End If
Er = Val(Text3.Text)
If Er <= 0 Then
MsgBox ("介电系数不能为0或负数!!")
Exit Sub
End If
W = 0.2
Do While (1)
If (W / H <= 1) Then
Z0 = 60 * Log(8 * H / W - W / 4 / H)
Else
Z0 = (120 * 3.14156 / (W / H + 2.42 - 0.44 * H / W + (1 - H / W) ^ 6))
End If
Ee = (Er + 1) / 2 + ((Er - 1) / 2) * (1 / Sqr(1 + 10 * H / W))
Zc = Z0 / Sqr(Ee)
If Zc < Zz Then Exit Do
If W > 500 Then
MsgBox ("计算的微带线太宽！！")
Exit Do
End If
W = W + 0.01
Text2.Text = Int(W * 1000) / 1000
DoEvents
Loop
Lmd = 3000 * 100000000# / Ff / 1000000# / Sqr(Ee)
Text4.Text = Int(Zc * 1000) / 1000
Text5.Text = Int(Ee * 1000) / 1000
Text7.Text = Int(Lmd * 1000) / 1000
Text8.Text = Int(Text7.Text * 1000 / 4) / 1000
Text4.BackColor = vbRed
Text2.BackColor = vbGreen
End Sub
Private Sub 退出_Click()
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -