1雨流法.frm

来自「Rainflow Visual Basic」· FRM 代码 · 共 183 行

VERSION 5.00
Begin VB.Form Form3 
   Caption         =   "Form3"
   ClientHeight    =   5490
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7605
   LinkTopic       =   "Form3"
   ScaleHeight     =   5490
   ScaleWidth      =   7605
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "结束"
      Height          =   375
      Left            =   6360
      TabIndex        =   1
      Top             =   4800
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "返回"
      Height          =   375
      Left            =   6360
      TabIndex        =   0
      Top             =   4320
      Width           =   975
   End
   Begin VB.Label Label2 
      Caption         =   "对随机产生的应力值的分析"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   1320
      TabIndex        =   3
      Top             =   720
      Width           =   3255
   End
   Begin VB.Line Line14 
      X1              =   5280
      X2              =   5280
      Y1              =   1080
      Y2              =   4680
   End
   Begin VB.Line Line13 
      X1              =   4440
      X2              =   4440
      Y1              =   1080
      Y2              =   4680
   End
   Begin VB.Line Line12 
      X1              =   360
      X2              =   360
      Y1              =   1080
      Y2              =   4680
   End
   Begin VB.Line Line11 
      X1              =   360
      X2              =   5280
      Y1              =   4680
      Y2              =   4680
   End
   Begin VB.Line Line10 
      X1              =   360
      X2              =   5280
      Y1              =   4320
      Y2              =   4320
   End
   Begin VB.Line Line9 
      X1              =   360
      X2              =   5280
      Y1              =   3960
      Y2              =   3960
   End
   Begin VB.Line Line8 
      X1              =   360
      X2              =   5280
      Y1              =   3600
      Y2              =   3600
   End
   Begin VB.Line Line7 
      X1              =   360
      X2              =   5280
      Y1              =   3240
      Y2              =   3240
   End
   Begin VB.Line Line6 
      X1              =   360
      X2              =   5280
      Y1              =   2880
      Y2              =   2880
   End
   Begin VB.Line Line5 
      X1              =   360
      X2              =   5280
      Y1              =   2520
      Y2              =   2520
   End
   Begin VB.Line Line4 
      X1              =   360
      X2              =   5280
      Y1              =   2160
      Y2              =   2160
   End
   Begin VB.Line Line3 
      X1              =   360
      X2              =   5280
      Y1              =   1800
      Y2              =   1800
   End
   Begin VB.Line Line2 
      X1              =   360
      X2              =   5280
      Y1              =   1440
      Y2              =   1440
   End
   Begin VB.Line Line1 
      X1              =   360
      X2              =   5280
      Y1              =   1080
      Y2              =   1080
   End
   Begin VB.Label Label1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   240
      TabIndex        =   2
      Top             =   240
      Width           =   1695
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Form3.Hide
Form1.Show
Form1.Text1.Text = ""
Form1.Text2.Text = ""
Form1.Text3.Text = ""
Form1.Text1.SetFocus
For fan = 1 To 10
z(fan) = 0
Next fan
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Activate()
FontSize = 14
CurrentY = 300
Form3.Print "不符合的个数为："; Form2.Label1.Caption

CurrentX = 360: CurrentY = 1080
Print "从"; p; "到"; q - (q - p) / 10 * 9; "的个数为"
For i = 9 To 1 Step -1
CurrentX = 360: CurrentY = 1080 + 370 * (10 - i)
Print "从"; q - (q - p) / 10 * i; "到"; q - (q - p) / 10 * (i - 1); "的个数为"
Next i
For j = 10 To 1 Step -1
CurrentX = 4500: CurrentY = 1080 - 370 + 370 * j
Print z(j)
Next j
End Sub