📄 form1.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Begin VB.Form Form1
AutoRedraw = -1 'True
Caption = "DFT v.1.0"
ClientHeight = 8160
ClientLeft = 810
ClientTop = 2715
ClientWidth = 9240
LinkTopic = "Form1"
ScaleHeight = 8160
ScaleWidth = 9240
Begin VB.PictureBox Picture1
Height = 8895
Left = 0
ScaleHeight = 8835
ScaleWidth = 9135
TabIndex = 1
Top = 0
Width = 9195
Begin ComctlLib.ProgressBar ProgressBar1
DragMode = 1 'Automatic
Height = 345
Left = 2280
TabIndex = 22
Top = 7680
Width = 3000
_ExtentX = 5292
_ExtentY = 609
_Version = 327682
Appearance = 0
End
Begin ComctlLib.StatusBar StatusBar1
Height = 375
Left = 0
TabIndex = 21
Top = 7680
Width = 9060
_ExtentX = 15981
_ExtentY = 661
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 3
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
AutoSize = 1
Object.Width = 3916
MinWidth = 3916
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
AutoSize = 1
Object.Width = 5327
MinWidth = 5327
Object.Tag = ""
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
AutoSize = 1
Object.Width = 6739
MinWidth = 6739
Object.Tag = ""
EndProperty
EndProperty
End
Begin VB.TextBox Text1
Height = 1215
Left = 360
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 20
Top = 6240
Width = 8535
End
Begin VB.Frame Frame2
Caption = "细化谱参数设置"
Height = 2655
Left = 120
TabIndex = 13
Top = 2160
Width = 2055
Begin VB.TextBox IntrestTxt
Height = 300
Index = 2
Left = 120
TabIndex = 19
Top = 1320
Width = 1575
End
Begin VB.TextBox IntrestTxt
Height = 300
Index = 1
Left = 120
TabIndex = 18
Top = 2040
Width = 1575
End
Begin VB.TextBox IntrestTxt
Height = 300
Index = 0
Left = 120
TabIndex = 14
Top = 600
Width = 1575
End
Begin VB.Label Label6
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "步长（Hz）"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 240
TabIndex = 17
Top = 1680
Width = 1155
End
Begin VB.Label Label5
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "到"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 240
TabIndex = 16
Top = 960
Width = 225
End
Begin VB.Label Label4
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "选择感兴趣的频段"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 120
TabIndex = 15
Top = 240
Width = 1815
End
End
Begin VB.CommandButton Command3
Caption = "利用FFT-FT细化频谱"
Height = 495
Left = 4320
TabIndex = 12
Top = 5040
Width = 1935
End
Begin VB.CommandButton Command4
Caption = "退 出"
Height = 495
Left = 6840
TabIndex = 11
Top = 5040
Width = 1455
End
Begin VB.CommandButton Command2
Caption = "生成频谱图"
Height = 495
Left = 2160
TabIndex = 10
Top = 5040
Width = 1575
End
Begin VB.CommandButton Command1
Caption = "生成时程曲线"
Height = 495
Left = 240
Style = 1 'Graphical
TabIndex = 9
Top = 5040
Width = 1455
End
Begin VB.Frame Frame4
Caption = "坐标数据"
Height = 4575
Left = 2520
TabIndex = 7
Top = 120
Width = 5295
Begin MSFlexGridLib.MSFlexGrid Grid1
Height = 4215
Left = 120
TabIndex = 8
Top = 240
Width = 5055
_ExtentX = 8916
_ExtentY = 7435
_Version = 393216
Rows = 1
Cols = 4
FixedRows = 0
FixedCols = 0
AllowUserResizing= 3
End
End
Begin VB.Frame Frame1
Caption = "参数设置"
Height = 1935
Left = 120
TabIndex = 2
Top = 120
Width = 2055
Begin VB.TextBox TxtSam
Height = 300
Left = 240
TabIndex = 4
Top = 600
Width = 1575
End
Begin VB.ComboBox Combo1
Height = 300
ItemData = "Form1.frx":0000
Left = 240
List = "Form1.frx":000D
TabIndex = 3
Top = 1320
Width = 1575
End
Begin VB.Label Label3
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "采样频率(Hz)"
DragMode = 1 'Automatic
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 240
TabIndex = 6
Top = 240
Width = 1395
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "选择方向"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 180
TabIndex = 5
Top = 1080
Width = 900
End
End
Begin VB.Label Label7
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "可能含有粗差历元"
Height = 180
Left = 360
TabIndex = 23
Top = 5880
Width = 1455
End
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 8760
Top = 1560
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 195
Left = 6240
TabIndex = 0
Top = 5880
Width = 45
End
Begin VB.Menu Mfile
Caption = "文件"
Begin VB.Menu Adddata
Caption = "加载数据"
End
Begin VB.Menu Dect
Caption = "探测粗差"
End
Begin VB.Menu MnuDenoise
Caption = "数据去躁"
End
Begin VB.Menu MCOU_HZ
Caption = "频谱计算"
End
Begin VB.Menu sep1
Caption = "-"
End
Begin VB.Menu ExitTask
Caption = "退出任务"
End
Begin VB.Menu Exit
Caption = "退出"
End
End
Begin VB.Menu Mview
Caption = "视图"
Begin VB.Menu XDnoiseview
Caption = "X方向去噪后时程图"
End
Begin VB.Menu YDnoiseview
Caption = "Y方向去噪后时程图"
End
Begin VB.Menu ZDnoiseview
Caption = "Z方向去噪后时程图"
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Base 1
Option Explicit
Private Sub Adddata_click()
Dim ss As String, ssArray() As String, FileNumber As Long
Dim Reply As String
Dim i As Long, n As Long
Reply = "项目 " & g_SignalFile + " 已经打开，关闭或退出后再打开其它项目！"
If g_SignalFile <> "" Then
MsgBox Reply, , "提示信息"
Exit Sub
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -