VERSION 5.00
Begin VB.Form frmPicture 
   BorderStyle     =   3  '固定ﾀﾞｲｱﾛｸﾞ
   Caption         =   "動画表示"
   ClientHeight    =   8775
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   12750
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   8775
   ScaleWidth      =   12750
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows の既定値
   Begin VB.TextBox txtCycle2 
      Alignment       =   1  '右揃え
      Height          =   270
      Left            =   10800
      TabIndex        =   46
      Text            =   "0"
      Top             =   7920
      Width           =   1815
   End
   Begin VB.TextBox txtCycle1 
      Alignment       =   1  '右揃え
      Height          =   270
      Left            =   10800
      TabIndex        =   45
      Text            =   "0"
      Top             =   7560
      Width           =   1815
   End
   Begin VB.TextBox txtDisMax2 
      Alignment       =   1  '右揃え
      Height          =   270
      Left            =   120
      TabIndex        =   35
      Text            =   "0"
      Top             =   8160
      Width           =   1455
   End
   Begin VB.TextBox txtDisMax1 
      Alignment       =   1  '右揃え
      Height          =   270
      Left            =   120
      TabIndex        =   34
      Text            =   "0"
      Top             =   7440
      Width           =   1455
   End
   Begin VB.TextBox txtVelMax2 
      Alignment       =   1  '右揃え
      Height          =   270
      Left            =   120
      TabIndex        =   33
      Text            =   "0"
      Top             =   6000
      Width           =   1455
   End
   Begin VB.TextBox txtVelMax1 
      Alignment       =   1  '右揃え
      Height          =   270
      Left            =   120
      TabIndex        =   32
      Text            =   "0"
      Top             =   5280
      Width           =   1455
   End
   Begin VB.TextBox txtAccMax2 
      Alignment       =   1  '右揃え
      Height          =   270
      Left            =   120
      TabIndex        =   31
      Text            =   "0"
      Top             =   3840
      Width           =   1455
   End
   Begin VB.TextBox txtAccMax1 
      Alignment       =   1  '右揃え
      Height          =   270
      Left            =   120
      TabIndex        =   30
      Text            =   "0"
      Top             =   3120
      Width           =   1455
   End
   Begin VB.TextBox txtCacMax 
      Alignment       =   1  '右揃え
      Height          =   270
      Left            =   120
      TabIndex        =   29
      Text            =   "0"
      Top             =   1080
      Width           =   1455
   End
   Begin VB.Frame fraValue 
      Caption         =   "現在の値"
      Height          =   3135
      Left            =   9120
      TabIndex        =   10
      Top             =   3960
      Width           =   3495
      Begin VB.TextBox txtDis2 
         Alignment       =   1  '右揃え
         Height          =   270
         Left            =   1800
         TabIndex        =   26
         Text            =   "0"
         Top             =   2640
         Width           =   1575
      End
      Begin VB.TextBox txtVel2 
         Alignment       =   1  '右揃え
         Height          =   270
         Left            =   1800
         TabIndex        =   24
         Text            =   "0"
         Top             =   1920
         Width           =   1575
      End
      Begin VB.TextBox txtAcc2 
         Alignment       =   1  '右揃え
         Height          =   270
         Left            =   1800
         TabIndex        =   22
         Text            =   "0"
         Top             =   1200
         Width           =   1575
      End
      Begin VB.TextBox txtDis1 
         Alignment       =   1  '右揃え
         Height          =   270
         Left            =   120
         TabIndex        =   20
         Text            =   "0"
         Top             =   2640
         Width           =   1575
      End
      Begin VB.TextBox txtVel1 
         Alignment       =   1  '右揃え
         Height          =   270
         Left            =   120
         TabIndex        =   19
         Text            =   "0"
         Top             =   1920
         Width           =   1575
      End
      Begin VB.TextBox txtAcc1 
         Alignment       =   1  '右揃え
         Height          =   270
         Left            =   120
         TabIndex        =   15
         Text            =   "0"
         Top             =   1200
         Width           =   1575
      End
      Begin VB.TextBox txtCac 
         Alignment       =   1  '右揃え
         Height          =   270
         Left            =   1800
         TabIndex        =   14
         Text            =   "0"
         Top             =   480
         Width           =   1575
      End
      Begin VB.TextBox txtTime 
         Alignment       =   1  '右揃え
         Height          =   270
         Left            =   120
         TabIndex        =   12
         Text            =   "0"
         Top             =   480
         Width           =   1575
      End
      Begin VB.Label lblDisplayDis2 
         Alignment       =   2  '中央揃え
         Caption         =   "応答変位�A"
         Height          =   255
         Left            =   1800
         TabIndex        =   25
         Top             =   2400
         Width           =   1575
      End
      Begin VB.Label lblDisplayVel2 
         Alignment       =   2  '中央揃え
         Caption         =   "応答速度�A"
         Height          =   255
         Left            =   1800
         TabIndex        =   23
         Top             =   1680
         Width           =   1575
      End
      Begin VB.Label lblDisplayAcc2 
         Alignment       =   2  '中央揃え
         Caption         =   "応答加速度�A"
         Height          =   255
         Left            =   1800
         TabIndex        =   21
         Top             =   960
         Width           =   1575
      End
      Begin VB.Label lblDisplayDis1 
         Alignment       =   2  '中央揃え
         Caption         =   "応答速度�@"
         Height          =   255
         Left            =   120
         TabIndex        =   18
         Top             =   2400
         Width           =   1455
      End
      Begin VB.Label lblDisplayVel1 
         Alignment       =   2  '中央揃え
         Caption         =   "応答速度�@"
         Height          =   255
         Left            =   120
         TabIndex        =   17
         Top             =   1680
         Width           =   1575
      End
      Begin VB.Label lblDisplayAcc1 
         Alignment       =   2  '中央揃え
         Caption         =   "応答加速度�@"
         Height          =   255
         Left            =   240
         TabIndex        =   16
         Top             =   960
         Width           =   1455
      End
      Begin VB.Label lblDisplayCac 
         Alignment       =   2  '中央揃え
         Caption         =   "入力加速度"
         Height          =   255
         Left            =   1800
         TabIndex        =   13
         Top             =   240
         Width           =   1575
      End
      Begin VB.Label lblDisplayTime 
         Alignment       =   2  '中央揃え
         Caption         =   "現在の時刻(s)"
         Height          =   255
         Left            =   120
         TabIndex        =   11
         Top             =   240
         Width           =   1575
      End
   End
   Begin VB.PictureBox pctDis 
      AutoRedraw      =   -1  'True
      Height          =   2055
      Left            =   1680
      ScaleHeight     =   1995
      ScaleWidth      =   7275
      TabIndex        =   6
      Top             =   6600
      Width           =   7335
   End
   Begin VB.PictureBox pctVel 
      AutoRedraw      =   -1  'True
      Height          =   2055
      Left            =   1680
      ScaleHeight     =   1995
      ScaleWidth      =   7275
      TabIndex        =   5
      Top             =   4440
      Width           =   7335
   End
   Begin VB.PictureBox pctAcc 
      AutoRedraw      =   -1  'True
      Height          =   2055
      Left            =   1680
      ScaleHeight     =   1995
      ScaleWidth      =   7275
      TabIndex        =   4
      Top             =   2280
      Width           =   7335
   End
   Begin VB.PictureBox pctCac 
      AutoRedraw      =   -1  'True
      Height          =   2055
      Left            =   1680
      ScaleHeight     =   1995
      ScaleWidth      =   7275
      TabIndex        =   2
      Top             =   120
      Width           =   7335
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "強制終了"
      Default         =   -1  'True
      Height          =   375
      Left            =   9120
      TabIndex        =   1
      Top             =   8280
      Width           =   1455
   End
   Begin VB.PictureBox pctFig 
      AutoRedraw      =   -1  'True
      Height          =   3735
      Left            =   9120
      ScaleHeight     =   3675
      ScaleWidth      =   3435
      TabIndex        =   0
      Top             =   120
      Width           =   3495
      Begin VB.Line Line14 
         X1              =   3240
         X2              =   3000
         Y1              =   3240
         Y2              =   3480
      End
      Begin VB.Line Line13 
         X1              =   3000
         X2              =   2760
         Y1              =   3240
         Y2              =   3480
      End
      Begin VB.Line Line12 
         X1              =   2760
         X2              =   2520
         Y1              =   3240
         Y2              =   3480
      End
      Begin VB.Line Line11 
         X1              =   2520
         X2              =   2280
         Y1              =   3240
         Y2              =   3480
      End
      Begin VB.Line Line10 
         X1              =   2280
         X2              =   2040
         Y1              =   3240
         Y2              =   3480
      End
      Begin VB.Line Line9 
         X1              =   2040
         X2              =   1800
         Y1              =   3240
         Y2              =   3480
      End
      Begin VB.Line Line8 
         X1              =   1800
         X2              =   1560
         Y1              =   3240
         Y2              =   3480
      End
      Begin VB.Line Line7 
         X1              =   1560
         X2              =   1320
         Y1              =   3240
         Y2              =   3480
      End
      Begin VB.Line Line6 
         X1              =   1320
         X2              =   1080
         Y1              =   3240
         Y2              =   3480
      End
      Begin VB.Line Line5 
         X1              =   1080
         X2              =   840
         Y1              =   3240
         Y2              =   3480
      End
      Begin VB.Line Line4 
         X1              =   840
         X2              =   600
         Y1              =   3240
         Y2              =   3480
      End
      Begin VB.Line Line3 
         X1              =   600
         X2              =   360
         Y1              =   3240
         Y2              =   3480
      End
      Begin VB.Line Line2 
         X1              =   360
         X2              =   120
         Y1              =   3240
         Y2              =   3480
      End
      Begin VB.Line Line1 
         X1              =   120
         X2              =   3360
         Y1              =   3240
         Y2              =   3240
      End
   End
   Begin VB.Label lblCycle2 
      Alignment       =   1  '右揃え
      Caption         =   "２次固有周期(s)："
      Height          =   255
      Left            =   9120
      TabIndex        =   44
      Top             =   7920
      Width           =   1575
   End
   Begin VB.Label lblCycle1 
      Alignment       =   1  '右揃え
      Caption         =   "１次固有周期(s)："
      Height          =   255
      Left            =   9120
      TabIndex        =   43
      Top             =   7560
      Width           =   1575
   End
   Begin VB.Label lblDisMax2 
      Alignment       =   2  '中央揃え
      AutoSize        =   -1  'True
      Caption         =   "二層目最大値"
      Height          =   180
      Left            =   120
      TabIndex        =   42
      Top             =   7920
      Width           =   1440
   End
   Begin VB.Label lblDisMax1 
      Alignment       =   2  '中央揃え
      AutoSize        =   -1  'True
      Caption         =   "一層目最大値"
      Height          =   180
      Left            =   120
      TabIndex        =   41
      Top             =   7200
      Width           =   1455
   End
   Begin VB.Label lblVelMax2 
      Alignment       =   2  '中央揃え
      AutoSize        =   -1  'True
      Caption         =   "二層目最大値"
      Height          =   180
      Left            =   120
      TabIndex        =   40
      Top             =   5760
      Width           =   1455
   End
   Begin VB.Label lblVelMax1 
      Alignment       =   2  '中央揃え
      AutoSize        =   -1  'True
      Caption         =   "一層目最大値"
      Height          =   180
      Left            =   120
      TabIndex        =   39
      Top             =   5040
      Width           =   1455
   End
   Begin VB.Label lblAccMax2 
      Alignment       =   2  '中央揃え
      AutoSize        =   -1  'True
      Caption         =   "二層目最大値"
      Height          =   180
      Left            =   120
      TabIndex        =   38
      Top             =   3600
      Width           =   1335
   End
   Begin VB.Label lblAccMax1 
      Alignment       =   2  '中央揃え
      AutoSize        =   -1  'True
      Caption         =   "一層目最大値"
      Height          =   180
      Left            =   120
      TabIndex        =   37
      Top             =   2880
      Width           =   1455
   End
   Begin VB.Label lblCacMax 
      Alignment       =   2  '中央揃え
      AutoSize        =   -1  'True
      Caption         =   "最大値"
      Height          =   180
      Left            =   150
      TabIndex        =   36
      Top             =   840
      Width           =   1395
   End
   Begin VB.Label lblRedLine 
      Caption         =   "赤線：二層目の応答"
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   11040
      TabIndex        =   28
      Top             =   7200
      Width           =   1575
   End
   Begin VB.Label lblBlueLine 
      Caption         =   "青線：一層目の応答"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   9240
      TabIndex        =   27
      Top             =   7200
      Width           =   1575
   End
   Begin VB.Label lblDis 
      Alignment       =   2  '中央揃え
      BorderStyle     =   1  '実線
      Caption         =   "応答変位(cm)"
      Height          =   255
      Left            =   120
      TabIndex        =   9
      Top             =   6600
      Width           =   1455
   End
   Begin VB.Label lblVel 
      Alignment       =   2  '中央揃え
      BorderStyle     =   1  '実線
      Caption         =   "応答速度(cm/s)"
      Height          =   255
      Left            =   120
      TabIndex        =   8
      Top             =   4440
      Width           =   1455
   End
   Begin VB.Label lblAcc 
      Alignment       =   2  '中央揃え
      BorderStyle     =   1  '実線
      Caption         =   "応答加速度(cm/s2)"
      Height          =   495
      Left            =   120
      TabIndex        =   7
      Top             =   2280
      Width           =   1455
   End
   Begin VB.Label lblCac 
      Alignment       =   2  '中央揃え
      BorderStyle     =   1  '実線
      Caption         =   "入力加速度(cm/s2)"
      Height          =   495
      Left            =   120
      TabIndex        =   3
      Top             =   240
      Width           =   1455
   End
End
Attribute VB_Name = "frmPicture"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

'変数の宣言
Dim ans As String

Private Sub cmdExit_Click()
'プログラムの強制終了
ans = MsgBox("終了しますか？", vbInformation + vbYesNo, "強制終了")
If ans = vbYes Then
    frmAnalysis.Timer1.Enabled = False
    frmAnalysis.Show
    Unload frmPicture
Else
    Beep
End If
End Sub