?? 微帶線設計.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 ("計算的微帶線太寬?。?quot;)
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 + -