机械故障诊断软件使用说明书.docVIP

机械故障诊断 软件使用说明书 一 、软件程序源代码： Form1程序 Option Explicit Private FormOldWidth As Long Private FormOldHeight As Long Public Sub ResizeInit(FormName As Form) Dim Obj As Control FormOldWidth = FormName.ScaleWidth FormOldHeight = FormName.ScaleHeight On Error Resume Next For Each Obj In FormName Obj.Tag = Obj.Left Obj.Top Obj.Width Obj.Height Next Obj On Error GoTo 0 End Sub Public Sub ResizeForm(FormName As Form) Dim Pos(4) As Double Dim i As Long, TempPos As Long, StartPos As Long Dim Obj As Control Dim ScaleX As Double, ScaleY As Double ScaleX = FormName.ScaleWidth / FormOldWidth ScaleY = FormName.ScaleHeight / FormOldHeight On Error Resume Next For Each Obj In FormName StartPos = 1 For i = 0 To 4 TempPos = InStr(StartPos, Obj.Tag, , vbTextCompare) If TempPos 0 Then Pos(i) = Mid(Obj.Tag, StartPos, TempPos - StartPos) StartPos = TempPos + 1 Else Pos(i) = 0 End If Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY Next i Next Obj On Error GoTo 0 End Sub Private Sub Form_Load() Call ResizeInit(Me) End Sub Private Sub Form_Resize() Call ResizeForm(Me) End Sub Private Sub Command1_Click() Form1.Hide Form2.Show End Sub Form2程序 Dim Number() As Single Dim Max As Integer Dim sum1 As Single, aver As Single, sum2 As Single Dim d3 As Double, d4 As Double, d5 As Double Dim m As Double, n As Double, n1 As Double Dim a As Integer, b As Double, b1 As Double, R As Double Dim g As Double, h As Double, g1 As Double Private Sub Form_Load() Me.AutoRedraw = True End Sub Private Sub fzc_Click() Dim i As Integer CommonDialog1.Filter = 文件 CommonDialog1.ShowOpen ReDim Number(5000) As Single If CommonDialog1.FileName Then Open CommonDialog1.FileName For Input As #1 Do While (Not EOF(1)) For i = 1 To 4096 Input #1, Number(i)