Слияние кода завершено, страница обновится автоматически
VERSION 5.00
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form 配置参数
BackColor = &H00303030&
BorderStyle = 1 'Fixed Single
Caption = "配置参数"
ClientHeight = 8100
ClientLeft = 45
ClientTop = 435
ClientWidth = 11535
Icon = "配置参数.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8100
ScaleWidth = 11535
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame1
BackColor = &H00FF0000&
BorderStyle = 0 'None
Caption = "Frame1"
Height = 3615
Left = 1440
TabIndex = 31
Top = 2880
Width = 8535
Begin VB.TextBox Text_ProductName
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 2400
TabIndex = 56
Top = 3173
Width = 5655
End
Begin VB.TextBox Text_PA1_Value
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 2400
TabIndex = 55
Top = 2213
Width = 735
End
Begin VB.TextBox Text_Msg
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 2400
TabIndex = 54
Top = 2693
Width = 5655
End
Begin VB.TextBox Text_PA2_Value
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 3120
TabIndex = 52
Top = 2213
Width = 735
End
Begin VB.TextBox Text_Sig1Frequency
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 2400
TabIndex = 2
Top = 293
Width = 1455
End
Begin VB.TextBox Text_Sig2Frequency
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 2400
TabIndex = 4
Top = 1253
Width = 1455
End
Begin VB.TextBox Text_Sig1Target
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 2400
TabIndex = 3
Top = 773
Width = 1455
End
Begin VB.TextBox Text_Sig2Target
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 2400
TabIndex = 5
Top = 1733
Width = 1455
End
Begin VB.ComboBox Combo_PIMType
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 6600
TabIndex = 7
Top = 780
Width = 1455
End
Begin VB.ComboBox Combo_Path
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 6600
TabIndex = 1
Top = 300
Width = 1455
End
Begin VB.TextBox Text_ReferenceValue
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 6600
TabIndex = 8
Top = 1733
Width = 1455
End
Begin VB.TextBox Text_Coupler_Value
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 6600
TabIndex = 32
Top = 2213
Width = 1455
End
Begin VB.TextBox Text1
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 6600
TabIndex = 6
Top = 1260
Width = 1455
End
Begin VB.Label Label23
AutoSize = -1 'True
BackColor = &H00FF0000&
Caption = "产品名称:"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 240
Left = 360
TabIndex = 53
Top = 3240
Width = 1155
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00FF0000&
Caption = "F1频率(MHz):"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 240
Left = 360
TabIndex = 43
Top = 360
Width = 1590
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00FF0000&
Caption = "F1功率(dBm):"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 240
Left = 360
TabIndex = 42
Top = 840
Width = 1590
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H00FF0000&
Caption = "F2频率(MHz):"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 240
Left = 360
TabIndex = 41
Top = 1320
Width = 1590
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H00FF0000&
Caption = "F2功率(dBm):"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 240
Left = 360
TabIndex = 40
Top = 1800
Width = 1590
End
Begin VB.Label Label5
AutoSize = -1 'True
BackColor = &H00FF0000&
Caption = "交调频率(MHz):"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 240
Left = 4800
TabIndex = 39
Top = 1320
Width = 1830
End
Begin VB.Label Label6
AutoSize = -1 'True
BackColor = &H00FF0000&
Caption = "交调阶数:"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 240
Left = 4800
TabIndex = 38
Top = 840
Width = 1155
End
Begin VB.Label Label7
AutoSize = -1 'True
BackColor = &H00FF0000&
Caption = "拓扑路:"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 240
Left = 4800
TabIndex = 37
Top = 360
Width = 900
End
Begin VB.Label Label8
AutoSize = -1 'True
BackColor = &H00FF0000&
Caption = "参考值(dBm):"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 240
Left = 4800
TabIndex = 36
Top = 1800
Width = 1575
End
Begin VB.Label Label21
AutoSize = -1 'True
BackColor = &H00FF0000&
Caption = "接线提示:"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 240
Left = 360
TabIndex = 35
Top = 2760
Width = 1155
End
Begin VB.Label Label22
AutoSize = -1 'True
BackColor = &H00FF0000&
Caption = "功放1/2(dB):"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 240
Left = 360
TabIndex = 34
Top = 2280
Width = 1590
End
Begin VB.Label Label14
AutoSize = -1 'True
BackColor = &H00FF0000&
Caption = "耦合器(dB):"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 240
Left = 4800
TabIndex = 33
Top = 2280
Width = 1440
End
End
Begin VB.Frame Frame2
BackColor = &H00FF0000&
BorderStyle = 0 'None
Caption = "Frame2"
Height = 3855
Left = 1440
TabIndex = 0
Top = 2880
Visible = 0 'False
Width = 8535
Begin VB.TextBox Text_Sig1_Alias
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 2400
TabIndex = 19
Text = "Sig1"
Top = 300
Width = 1455
End
Begin VB.TextBox Text_Sig2_Alias
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 2400
TabIndex = 18
Text = "Sig2"
Top = 780
Width = 1455
End
Begin VB.TextBox Text_SA_Alias
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 6600
TabIndex = 17
Text = "SA"
Top = 780
Width = 1455
End
Begin VB.TextBox Text_PS_Alias
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 6600
TabIndex = 16
Text = "Z44"
Top = 300
Width = 1455
End
Begin VB.TextBox Text_BW
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 2400
TabIndex = 15
Text = "0.03"
Top = 1740
Width = 1455
End
Begin VB.TextBox Text_RefLevel
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 6600
TabIndex = 14
Text = "-45"
Top = 1260
Width = 1455
End
Begin VB.TextBox Text_DataPath
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 2400
TabIndex = 13
Text = "D:\PIM.csv"
Top = 3180
Width = 5655
End
Begin VB.TextBox Text_ProductState
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 2400
TabIndex = 12
Text = "预测、清洁、返修1、返修2、返修3、返修4、点胶1、点胶2"
Top = 2700
Width = 5655
End
Begin VB.TextBox Text_Supplier
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 2400
TabIndex = 11
Text = "康铖、捷克、康普来、中兴信地"
Top = 2220
Width = 5655
End
Begin VB.TextBox Text_WorkTime
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 6600
TabIndex = 10
Text = "白班、晚班"
Top = 1740
Width = 1455
End
Begin VB.TextBox Text_SpecSpan
BackColor = &H00C0FFC0&
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 2400
TabIndex = 9
Text = "3"
Top = 1260
Width = 1455
End
Begin VB.Label Label9
AutoSize = -1 'True
BackColor = &H00FF0000&
Caption = "信号源1别名:"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 240
Left = 360
TabIndex = 30
Top = 360
Width = 1545
End
Begin VB.Label Label10
AutoSize = -1 'True
BackColor = &H00FF0000&
Caption = "信号源2别名:"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 240
Left = 360
TabIndex = 29
Top = 840
Width = 1545
End
Begin VB.Label Label11
AutoSize = -1 'True
BackColor = &H00FF0000&
Caption = "频谱仪别名:"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 240
Left = 4800
TabIndex = 28
Top = 840
Width = 1410
End
Begin VB.Label Label12
AutoSize = -1 'True
BackColor = &H00FF0000&
Caption = "功率计别名:"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 240
Left = 4800
TabIndex = 27
Top = 360
Width = 1410
End
Begin VB.Label Label13
AutoSize = -1 'True
BackColor = &H00FF0000&
Caption = "BW(kHz):"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 240
Left = 360
TabIndex = 26
Top = 1800
Width = 1080
End
Begin VB.Label Label15
AutoSize = -1 'True
BackColor = &H00FF0000&
Caption = "RefLvl(dBm):"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 240
Left = 4800
TabIndex = 25
Top = 1320
Width = 1620
End
Begin VB.Label Label16
AutoSize = -1 'True
BackColor = &H00FF0000&
Caption = "数据文件:"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 240
Left = 360
TabIndex = 24
Top = 3240
Width = 1155
End
Begin VB.Label Label17
AutoSize = -1 'True
BackColor = &H00FF0000&
Caption = "测试状态:"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 240
Left = 360
TabIndex = 23
Top = 2760
Width = 1155
End
Begin VB.Label Label18
AutoSize = -1 'True
BackColor = &H00FF0000&
Caption = "腔体供应商:"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 240
Left = 360
TabIndex = 22
Top = 2280
Width = 1410
End
Begin VB.Label Label19
AutoSize = -1 'True
BackColor = &H00FF0000&
Caption = "班次:"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 240
Left = 4800
TabIndex = 21
Top = 1800
Width = 645
End
Begin VB.Label Label20
AutoSize = -1 'True
BackColor = &H00FF0000&
Caption = "Span(kHz):"
BeginProperty Font
Name = "幼圆"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 240
Left = 360
TabIndex = 20
Top = 1320
Width = 1350
End
End
Begin MSComctlLib.ListView ListView1
Height = 1575
Left = 480
TabIndex = 44
Top = 480
Width = 10575
_ExtentX = 18653
_ExtentY = 2778
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin MSForms.CommandButton Cmd_修改
Height = 495
Left = 3240
TabIndex = 51
Top = 7440
Width = 855
ForeColor = 16711680
BackColor = 33023
Caption = "修改"
Size = "1508;873"
FontName = "幼圆"
FontEffects = 1073741825
FontHeight = 240
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
FontWeight = 700
End
Begin MSForms.CommandButton Cmd_退出
Height = 495
Left = 10080
TabIndex = 50
Top = 7440
Width = 855
ForeColor = 16711680
BackColor = 33023
Caption = "退出"
Size = "1508;873"
FontName = "幼圆"
FontEffects = 1073741825
FontHeight = 240
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
FontWeight = 700
End
Begin MSForms.CommandButton Cmd_保存
Height = 495
Left = 8880
TabIndex = 49
Top = 7440
Width = 855
ForeColor = 16711680
BackColor = 33023
Caption = "保存"
Size = "1508;873"
FontName = "幼圆"
FontEffects = 1073741825
FontHeight = 240
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
FontWeight = 700
End
Begin MSForms.CommandButton Cmd_打开
Height = 495
Left = 7560
TabIndex = 48
Top = 7440
Width = 975
ForeColor = 16711680
BackColor = 33023
Caption = "打开"
Size = "1720;873"
FontName = "幼圆"
FontEffects = 1073741825
FontHeight = 240
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
FontWeight = 700
End
Begin MSForms.CommandButton Cmd_更多
Height = 495
Left = 4440
TabIndex = 47
Top = 7440
Width = 855
ForeColor = 16711680
BackColor = 33023
Caption = "更多"
Size = "1508;873"
FontName = "幼圆"
FontEffects = 1073741825
FontHeight = 240
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
FontWeight = 700
End
Begin MSForms.CommandButton Cmd_删除
Height = 495
Left = 2040
TabIndex = 46
Top = 7440
Width = 855
ForeColor = 16711680
BackColor = 33023
Caption = "删除"
Size = "1508;873"
FontName = "幼圆"
FontEffects = 1073741825
FontHeight = 240
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
FontWeight = 700
End
Begin MSForms.CommandButton Cmd_添加
Height = 495
Left = 720
TabIndex = 45
Top = 7440
Width = 975
ForeColor = 16711680
BackColor = 33023
Caption = "添加"
Size = "1720;873"
FontName = "幼圆"
FontEffects = 1073741825
FontHeight = 240
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
FontWeight = 700
End
Begin VB.Shape Shape3
BorderColor = &H0000FF00&
FillColor = &H0080FF80&
FillStyle = 0 'Solid
Height = 2055
Left = 240
Shape = 4 'Rounded Rectangle
Top = 240
Width = 11055
End
Begin VB.Shape Shape2
BorderColor = &H0000FF00&
FillColor = &H00FF0000&
FillStyle = 0 'Solid
Height = 4455
Left = 360
Shape = 4 'Rounded Rectangle
Top = 2640
Width = 10815
End
Begin VB.Shape Shape1
BorderColor = &H0000FF00&
FillColor = &H00FFC0C0&
FillStyle = 0 'Solid
Height = 4695
Left = 240
Shape = 4 'Rounded Rectangle
Top = 2520
Width = 11055
End
End
Attribute VB_Name = "配置参数"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Read_Data() As Variant
Private Sub Combo_PIMType_Click()
On Error GoTo Err
PIMFrequency1 = 0.5 * (Combo_PIMType.Text + 1) * Text_Sig1Frequency.Text - 0.5 * (Combo_PIMType.Text - 1) * Text_Sig2Frequency.Text
'PIMFrequency2 = 0.5 * (Combo_PIMType.Text + 1) * Text_Sig2Frequency.Text - 0.5 * (Combo_PIMType.Text - 1) * Text_Sig1Frequency.Text
IniComboText Combo_PIMFrequency, Array(PIMFrequency1, PIMFrequency2)
Err:
End Sub
Private Sub Form_Load()
HeaderName = Array("", "", "面", "F1频率", "F1功率", "F2频率", "F2功率", "IM频率", "阶数", "参考值", "提示")
HeaderWidth = Array(10, 400, 600, 1200, 1200, 1200, 1200, 1200, 900, 1200, 1100)
Call Add_Header(ListView1, HeaderName, HeaderWidth, "宋体", 15, True, vbBlue, &HFFC0C0, False) '设置ListView1
Call IniComboText(Combo_PIMType, Array(3, 5, 7, 9))
Call IniComboText(Combo_Path, Array("A", "B"))
End Sub
Private Sub Form_Unload(Cancel As Integer)
TestForm.ClearFlag
End Sub
Private Sub Cmd_打开_Click()
Call Read_IniFile(1) '读文件
Call Display_Data
End Sub
Private Sub Cmd_保存_Click()
Call Read_IniFile(2) '保存Ini文件
Call Write_IniFile
Unload Me
End Sub
Private Sub Cmd_退出_Click()
Unload Me '退出
End Sub
Private Sub Cmd_添加_Click()
Call Add_List(Me, Me.ListView1, 1, 9) '添加测试项（TabIndex=1-8 >> ListvView1）
End Sub
Private Sub Cmd_删除_Click()
On Error GoTo Err
RowIndex = ListView1.SelectedItem.Index
Call Delet_Row(ListView1, RowIndex) '删除选定行
Err:
End Sub
Private Sub Cmd_修改_Click()
Call Verify_List(Me, Me.ListView1, 1, 9) '修改数据
End Sub
Private Sub Cmd_更多_Click()
Call Show_More '更多设置
End Sub
Sub Show_More()
Select Case Frame1.Visible
Case True
Frame1.Visible = False
Frame2.Visible = True
Case False
Frame1.Visible = True
Frame2.Visible = False
End Select
End Sub
Private Sub ListView1_Click()
On Error GoTo Err
i = ListView1.SelectedItem.Index
Dim obj As Object
For Each obj In Me.Controls
If obj.TabIndex < 10 Then
obj.Text = ListView1.ListItems(i).SubItems(obj.TabIndex + 1)
End If
Next
Err:
End Sub
Sub Display_Data()
On Error GoTo Err
If IniFile.Read_FileName = "" Then Exit Sub
If MyInstrConf.Mode <> 1 Then Exit Sub
ListView1.ListItems.Clear
With MyTestConf
Text_WorkTime.Text = .WorkTime
Text_ProductState.Text = .ProductState
Text_Supplier.Text = .Supplier
Text_DataPath.Text = .DataPath
Text_ProductName.Text = .ProductName
End With
With MyInstrConf
Text_PA1_Value.Text = .PA1_Value
Text_PA2_Value.Text = .PA2_Value
Text_Coupler_Value.Text = .Coupler_Value
Text_SpecSpan.Text = .SpecSpan
Text_BW.Text = .BW
Text_RefLevel.Text = .RefLevel
'Text_SA_Alias.Text = .SA_Alias
Text_PS_Alias.Text = .PS_Alias
'Text_Sig1_Alias.Text = .Sig1_Alias
'Text_Sig2_Alias.Text = .Sig2_Alias
Text_SA_Alias.Text = "SA"
Text_Sig1_Alias.Text = "Sig1"
Text_Sig2_Alias.Text = "Sig2"
End With
For i = 1 To UBound(MyItemConf())
With MyItemConf(i)
Text_Msg.Text = .Msg
ListView1.ListItems.Add
ListView1.ListItems(i).SubItems(1) = i
ListView1.ListItems(i).ListSubItems(1).ForeColor = vbBlack
ListView1.ListItems(i).SubItems(2) = .Path
ListView1.ListItems(i).SubItems(3) = .Sig1Frequency
ListView1.ListItems(i).SubItems(4) = .Sig1Target
ListView1.ListItems(i).SubItems(5) = .Sig2Frequency
ListView1.ListItems(i).SubItems(6) = .Sig2Target
ListView1.ListItems(i).SubItems(7) = .PIMFrequency
ListView1.ListItems(i).SubItems(8) = .PIMType
ListView1.ListItems(i).SubItems(9) = .ReferenceValue
ListView1.ListItems(i).SubItems(10) = .Msg
End With
Next i
ListView1_Click
Err:
End Sub
Sub Write_IniFile()
On Error GoTo Err
WriteIni "Header", "WorkTime", Text_WorkTime.Text
WriteIni "Header", "ProductState", Text_ProductState.Text
WriteIni "Header", "Supplier", Text_Supplier.Text
WriteIni "Header", "DataPath", Text_DataPath.Text
WriteIni "Header", "ProductName", Text_ProductName.Text
WriteIni "Setting", "Mode", 1
WriteIni "Setting", "AllStep", ListView1.ListItems.Count
WriteIni "Setting", "PA1_Value", Text_PA1_Value.Text
WriteIni "Setting", "PA2_Value", Text_PA2_Value.Text
WriteIni "Setting", "Coupler_Value", Text_Coupler_Value.Text
WriteIni "Setting", "SpecSpan", Text_SpecSpan.Text
WriteIni "Setting", "BW", Text_BW.Text
WriteIni "Setting", "RefLevel", Text_RefLevel.Text
'WriteIni "Setting", "SA_Alias", Text_SA_Alias.Text
WriteIni "Setting", "PS_Alias", Text_PS_Alias.Text
'WriteIni "Setting", "Sig1_Alias", Text_Sig1_Alias.Text
'WriteIni "Setting", "Sig2_Alias", Text_Sig2_Alias.Text
WriteIni "Setting", "SA_Alias", "SA"
WriteIni "Setting", "Sig1_Alias", "Sig1"
WriteIni "Setting", "Sig2_Alias", "Sig2"
For i = 1 To ListView1.ListItems.Count
With ListView1.ListItems(i)
WriteIni "Step" & i, "Msg", .SubItems(10)
WriteIni "Step" & i, "Path", .SubItems(2)
WriteIni "Step" & i, "Sig1Frequency", .SubItems(3)
WriteIni "Step" & i, "Sig1Target", .SubItems(4)
WriteIni "Step" & i, "Sig2Frequency", .SubItems(5)
WriteIni "Step" & i, "Sig2Target", .SubItems(6)
WriteIni "Step" & i, "PIMFrequency", .SubItems(7)
WriteIni "Step" & i, "PIMType", .SubItems(8)
WriteIni "Step" & i, "ReferenceValue", .SubItems(9)
WriteIni "Step" & i, "Sig1Power", CStr(.SubItems(4) - Text_PA1_Value.Text)
WriteIni "Step" & i, "Sig2Power", CStr(.SubItems(6) - Text_PA2_Value.Text)
WriteIni "Step" & i, "Sig1Offset", MyItemConf(i).Sig1Offset
WriteIni "Step" & i, "Sig2Offset", MyItemConf(i).Sig2Offset
WriteIni "Step" & i, "Fixed", ""
WriteIni "Step" & i, "StepValue", ""
WriteIni "Step" & i, "StepNumber", 1
End With
Next i
Err:
End Sub
Вы можете оставить комментарий после Вход в систему
Неприемлемый контент может быть отображен здесь и не будет показан на странице. Вы можете проверить и изменить его с помощью соответствующей функции редактирования.
Если вы подтверждаете, что содержание не содержит непристойной лексики/перенаправления на рекламу/насилия/вульгарной порнографии/нарушений/пиратства/ложного/незначительного или незаконного контента, связанного с национальными законами и предписаниями, вы можете нажать «Отправить» для подачи апелляции, и мы обработаем ее как можно скорее.
Опубликовать ( 0 )