计算与仿真.frm

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

VERSION 5.00
Begin VB.Form 计算与仿真 
   BackColor       =   &H0080FFFF&
   Caption         =   "计算与仿真"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   11010
   ScaleWidth      =   15240
   WindowState     =   2  'Maximized
   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          =   495
      Left            =   2880
      TabIndex        =   7
      Top             =   10320
      Width           =   1815
   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          =   495
      Left            =   13920
      TabIndex        =   6
      Top             =   10320
      Width           =   1215
   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          =   495
      Left            =   8880
      TabIndex        =   5
      Top             =   10320
      Width           =   1815
   End
   Begin VB.CommandButton IQ 
      Caption         =   "IQ解调仿真"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   7080
      TabIndex        =   4
      Top             =   10320
      Width           =   1815
   End
   Begin VB.CommandButton RFID 
      Caption         =   "HF-RFID天线电感计算"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   4680
      TabIndex        =   3
      Top             =   10320
      Width           =   2415
   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          =   495
      Left            =   600
      TabIndex        =   2
      Top             =   10320
      Width           =   2295
   End
   Begin VB.PictureBox Picture2 
      Height          =   9855
      Left            =   600
      ScaleHeight     =   9795
      ScaleWidth      =   13755
      TabIndex        =   1
      Top             =   240
      Width           =   13815
   End
   Begin VB.PictureBox Picture1 
      Height          =   9975
      Left            =   600
      ScaleHeight     =   9915
      ScaleWidth      =   13755
      TabIndex        =   0
      Top             =   120
      Visible         =   0   'False
      Width           =   13815
   End
   Begin VB.Timer Timer1 
      Interval        =   50
      Left            =   120
      Top             =   8040
   End
End
Attribute VB_Name = "计算与仿真"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Curpath As String
Private Pic As Picture
Private PicW As Integer
Private PicH As Integer

Private Sub Form_Load()
    
    Curpath = App.Path
   
    Set Pic = LoadPicture(Curpath + "\Tiles.bmp")
    PicW = ScaleX(Pic.Width, vbHimetric, vbTwips)
    PicH = ScaleY(Pic.Height, vbHimetric, vbTwips)
    Picture1.Picture = LoadPicture(Curpath + "\建汉标签.bmp")
                  
End Sub

Private Sub Timer1_Timer()
  Dim i, j As Integer
  Dim sngI, sngJ As Single
  Dim intX, intY As Integer
  Dim intWidth As Integer
  Dim sngNum, sngWidth As Integer
  Dim Timod5 As Byte
  
  For i = 0 To ScaleWidth Step PicW
    For j = 0 To ScaleHeight - 1500 Step PicH
      PaintPicture Pic, i, j
    Next j
  Next i
  
  Timer1.Enabled = False
  
  Timod5 = (Minute(Time) Mod 5)
  Select Case Timod5
   Case 0                         '由下向上
  On Error Resume Next
    For sngI = 10 To Picture1.ScaleWidth Step 40
     Picture2.PaintPicture Picture1.Picture _
         , 0, 0, sngI, Picture1.ScaleHeight _
         , 0, 0, sngI, Picture1.ScaleHeight _
         , vbSrcCopy
    Next sngI
   Case 1                         '由中间扩大
   On Error Resume Next
     For sngI = 10 To Picture1.ScaleWidth / 2 Step 40
       intX = Picture1.ScaleWidth / 2 - sngI
       intY = Picture1.ScaleHeight / 2 - sngI
       Picture2.PaintPicture Picture1.Picture _
          , intX, intY, 2 * sngI, 2 * sngI _
          , intX, intY, 2 * sngI, 2 * sngI _
          , vbSrcCopy
     Next sngI
   Case 2                         '从左向右
    On Error Resume Next
     For sngI = 10 To Picture1.ScaleWidth Step 40
       Picture2.PaintPicture Picture1.Picture _
          , 0, 0, sngI, Picture1.ScaleHeight _
          , 0, 0, sngI, Picture1.ScaleHeight _
          , vbSrcCopy
     Next sngI
   Case 3                        '从左上脚
     For sngI = 10 To Picture1.ScaleWidth Step 40
       Picture2.PaintPicture Picture1.Picture _
       , 0, 0, sngI, sngI _
       , 0, 0, sngI, sngI _
       , vbSrcCopy
    Next sngI
   Case 4                       '条文
     On Error Resume Next
     sngNum = 20
     sngWidth = Picture1.ScaleWidth / sngNum
       For sngI = 10 To sngWidth Step 5
         For sngJ = 1 To sngNum
         Picture2.PaintPicture Picture1.Picture _
          , sngWidth * (sngJ - 1), 0, sngI, Picture1.ScaleHeight _
          , sngWidth * (sngJ - 1), 0, sngI, Picture1.ScaleHeight _
          , vbSrcCopy
         Next sngJ
       Next sngI
     
   Case Else
   End Select

End Sub

Private Sub 微带线_Click()
    微带线设计.Show
    Unload Me
End Sub