jsdg.frm

本程序是本人在设计无线通信产品时的工具软件

      Top             =   3360
      Width           =   1695
   End
   Begin VB.Label Label8 
      Caption         =   "空芯线圈电感计算"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   720
      TabIndex        =   12
      Top             =   3000
      Width           =   2295
   End
   Begin VB.Label Label7 
      Caption         =   "根据 TI 公式 RFID天线设计资料计算电感"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   600
      TabIndex        =   11
      Top             =   360
      Width           =   4935
   End
   Begin VB.Line Line1 
      BorderColor     =   &H000000FF&
      BorderWidth     =   5
      X1              =   120
      X2              =   4440
      Y1              =   2760
      Y2              =   2760
   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            =   3720
      TabIndex        =   10
      Top             =   1920
      Width           =   615
   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       =   &H000080FF&
      Height          =   375
      Left            =   120
      TabIndex        =   8
      Top             =   2040
      Width           =   2295
   End
   Begin VB.Label Label4 
      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            =   3720
      TabIndex        =   7
      Top             =   1440
      Width           =   375
   End
   Begin VB.Label Label3 
      Caption         =   "CM"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3720
      TabIndex        =   6
      Top             =   960
      Width           =   375
   End
   Begin VB.Label Label2 
      Caption         =   "天 线 铜管的 直 径"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   120
      TabIndex        =   4
      Top             =   1560
      Width           =   2415
   End
   Begin VB.Label Label1 
      Caption         =   "矩形天线外边的距离"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   120
      TabIndex        =   3
      Top             =   1080
      Width           =   2415
   End
End
Attribute VB_Name = "DG电感计算"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Private Sub CancelButton_Click()
   Unload Me
End Sub

Private Sub Command1_Click()
Dim Curpath As String
Dim TaskID As Double

    Curpath = App.Path
    TaskID = Shell(Curpath + "\电感计算.exe", vbNormalFocus)

End Sub

Private Sub Form_Load()
    Text1.Text = 0
    Text2.Text = 0
    Text3.Text = 0
    Text4.Text = 0
    Text5.Text = 0
    Text6.Text = 0
    Text7.Text = 0
End Sub

Private Sub OKButton_Click()
Dim LL As Double
Dim DD As Double
Dim LI As Double


    DD = Val(Text2.Text) / 10
    LL = Val(Text1.Text) - DD
    
    LI = LL * 0.008 * (Log((LL * 1.414) / (2 * DD)) + 0.379)
    
    Text3.Text = Int(LI * 1000) / 1000

End Sub
'L = K * u0 * N^2 * S/H   S=3.12156*(D/2)^2  u0=4*3.14156*1E-7 空气的蹈磁率
Private Sub 计算_Click()
Dim D As Double
Dim N As Integer
Dim H As Double
Dim L As Double
Dim u0 As Double
Dim K(0 To 13) As Double
Dim Kk As Double
Dim DH(0 To 13) As Double
Dim Rt As Double
Dim i As Integer

    K(0) = 0.96
    K(1) = 0.92
    K(2) = 0.88
    K(3) = 0.85
    K(4) = 0.79
    K(5) = 0.74
    K(6) = 0.69
    K(7) = 0.6
    K(8) = 0.52
    K(9) = 0.43
    K(10) = 0.37
    K(11) = 0.32
    K(12) = 0.2
    K(13) = 0.12
    
    DH(0) = 0.1
    DH(1) = 0.2
    DH(2) = 0.3
    DH(3) = 0.4
    DH(4) = 0.6
    DH(5) = 0.8
    DH(6) = 1
    DH(7) = 1.5
    DH(8) = 2
    DH(9) = 3
    DH(10) = 4
    DH(11) = 5
    DH(12) = 10
    DH(13) = 20
    
    u0 = 4 * 3.14156 * 0.0000001
    D = Val(Text4.Text) / 1000
    N = Val(Text5.Text)
    H = Val(Text6.Text) / 1000
    
    If D <= 0 Or N <= 0 Or H <= 0 Then
       MsgBox ("输入参数不能为负数和0！！")
       Exit Sub
    End If
    
    Rt = D / H
    Kk = 0.12
    For i = 0 To 13
        If Rt >= DH(i) Then
            Kk = K(i)
        End If
    Next
    
     'L = K * u0 * N^2 * S/H
     
    L = Kk * u0 * (N ^ 2)
    L = L * 3.12156 * ((D / 2) ^ 2)
    L = L / H
    L = L * 1000000000#
    Text7.Text = Int(L * 1000) / 1000
    
End Sub