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

机械故障诊断
软件使用说明书
一、软件程序源代码:
Form1程序
Option Explicit
Private FormOldWidth As Long
Private FormOldHeight As Long
Public Sub ResizeInit(FormName As Form)
Dim Obj As Control
FormOldWidth =
FormOldHeight =
On Error Resume Next
For Each Obj In FormName
= & " " & & " " & & " " & & " "
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 = / FormOldWidth
ScaleY = / FormOldHeight

On Error Resume Next
For Each Obj In FormName
StartPos = 1
For i = 0 To 4

TempPos = InStr(StartPos, , " ", pare)
If TempPos > 0 Then
Pos(i) = Mid(, StartPos, TempPos - StartPos)
StartPos = TempPos + 1
Else
Pos(i) = 0
End If

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 mand1_Click()


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()
= True
End Sub
Private Sub fzc_Click()
Dim i As Integer
= "文件"

ReDim Number(5000) As Single
<> "" Then
For Input As #1
Do While (Not EOF(1))
For i = 1 To 4096
Input #1, Number(i)
Next i
Loop
Close #1
MsgBox "文件1打开成功!", vbOKOnly, "文件打开"
Else
MsgBox "文件1打开失败!", vbOKOnly + vbExcl