form2.frm

某大学开发的一个用于对微波传输线状态进行模拟的软件

      Begin VB.Label Label13 
         Caption         =   "Ω"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   2940
         TabIndex        =   29
         Top             =   1680
         Width           =   255
      End
      Begin VB.Label Label6 
         Caption         =   "Zo ="
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   345
         Left            =   200
         TabIndex        =   19
         Top             =   1680
         Width           =   1575
      End
      Begin VB.Label Label10 
         Caption         =   "Er ="
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   345
         Left            =   200
         TabIndex        =   22
         Top             =   1065
         Width           =   1575
      End
      Begin VB.Label Label9 
         Caption         =   "Ur ="
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   345
         Left            =   200
         TabIndex        =   21
         Top             =   450
         Width           =   1575
      End
      Begin VB.Label Label7 
         Caption         =   "b/a="
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   345
         Left            =   200
         TabIndex        =   20
         Top             =   2295
         Width           =   1575
      End
   End
   Begin VB.OptionButton Option2 
      Caption         =   "综合"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   5460
      TabIndex        =   24
      Top             =   670
      Width           =   1395
   End
   Begin VB.OptionButton Option1 
      Caption         =   "分析"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3870
      TabIndex        =   23
      Top             =   670
      Value           =   -1  'True
      Width           =   1395
   End
   Begin ResizeLibCtl.ReSize ReSize1 
      Left            =   270
      Top             =   5430
      _Version        =   131072
      _ExtentX        =   741
      _ExtentY        =   741
      _StockProps     =   0
      Enabled         =   -1  'True
      FormMinWidth    =   0
      FormMinHeight   =   0
      FormDesignHeight=   5880
      FormDesignWidth =   7515
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定"
      Height          =   350
      Left            =   4620
      TabIndex        =   2
      Top             =   5340
      Width           =   1000
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消"
      Height          =   350
      Left            =   6180
      TabIndex        =   1
      Top             =   5340
      Width           =   1000
   End
   Begin ComctlLib.TabStrip TabStrip1 
      Height          =   5000
      Left            =   100
      TabIndex        =   0
      Top             =   100
      Width           =   7300
      _ExtentX        =   12859
      _ExtentY        =   8811
      _Version        =   327682
      BeginProperty Tabs {0713E432-850A-101B-AFC0-4210102A8DA7} 
         NumTabs         =   1
         BeginProperty Tab1 {0713F341-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "同轴线"
            Object.Tag             =   ""
            ImageVarType    =   2
         EndProperty
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      MouseIcon       =   "Form2.frx":0442
   End
End
Attribute VB_Name = "form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
If Frame1.Visible = True Then
   Text5.Text = "?"
   Dim b, a, er, ur, ZO, pi As Double
    a = Text1.Text
    b = Text2.Text
    ur = Text3.Text
    er = Text4.Text
    If b = 0 Or a = 0 Or er = 0 Or ur = 0 Or b < a Then
      MsgBox "输入参数无效！请重新输入！"
    Else
    pi = 4 * Atn(1)
    ZO = (138 / Sqr(er / ur)) * Log(b / a) / Log(10)
    Text5.Text = Format(ZO, "##########.0000000000")
    End If
 End If
    
 If Frame2.Visible = True Then
   Text7.Text = "?"
   Dim bz, er1, ur1, zo1 As Double
    ur1 = Text9.Text
    er1 = Text10.Text
    zo1 = Text6.Text
    If er1 <= 0 Or ur1 <= 0 Or zo1 < 0 Then
      MsgBox "输入参数无效！请重新输入！"
    Else
    bz = 10 ^ (zo1 * Sqr(er1 / ur1) / 138)
    Text7.Text = Format(bz, "##########.0000000000")
    End If
 End If
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim i As Integer
    '处理 ctrl+tab 键，移动到下一个选项卡
    If Shift = vbCtrlMask And KeyCode = vbKeyTab Then
        i = TabStrip1.SelectedItem.Index
        If i = TabStrip1.Tabs.Count Then
            '最后一个选项卡，返回到选项卡 1
            Set TabStrip1.SelectedItem = TabStrip1.Tabs(1)
        Else
            ' 选项卡序数加 1
            Set TabStrip1.SelectedItem = TabStrip1.Tabs(i + 1)
        End If
    End If
End Sub

Private Sub Form_Load()
    '窗体居中
     Me.Left = 1200
   Me.Top = 1200
   Me.Width = 8000
   Me.Height = 6000
   Image1.Picture = LoadPicture(App.Path & "\image\tzx.bmp")
End Sub

Private Sub Option1_Click()
Frame1.Visible = True
Frame2.Visible = False
End Sub

Private Sub Option2_Click()
Frame2.Visible = True
Frame1.Visible = False
End Sub