-
Notifications
You must be signed in to change notification settings - Fork 2
/
analyze3.frm
292 lines (290 loc) · 9.56 KB
/
analyze3.frm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.4#0"; "comctl32.Ocx"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFlxGrd.ocx"
Begin VB.Form FormANALYZE
BorderStyle = 1 'Fixed Single
Caption = "Analyze!"
ClientHeight = 5745
ClientLeft = -15
ClientTop = 270
ClientWidth = 6510
Icon = "ANALYZE3.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5745
ScaleWidth = 6510
StartUpPosition = 3 'Windows Default
Visible = 0 'False
Begin MSFlexGridLib.MSFlexGrid GridData
Height = 855
Left = 3240
TabIndex = 18
TabStop = 0 'False
Top = 2160
Width = 2415
_ExtentX = 4260
_ExtentY = 1508
_Version = 393216
Rows = 501
Cols = 76
End
Begin MSFlexGridLib.MSFlexGrid GridStat
Height = 975
Left = 120
TabIndex = 17
TabStop = 0 'False
Top = 2160
Width = 2655
_ExtentX = 4683
_ExtentY = 1720
_Version = 393216
Rows = 8
Cols = 76
ScrollBars = 1
End
Begin VB.TextBox TextDescription
BackColor = &H8000000B&
Height = 615
Left = 1680
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 15
TabStop = 0 'False
ToolTipText = "Sample description information"
Top = 1320
Width = 4215
End
Begin VB.CheckBox CheckOnlyDisplaySamplesWithData
Caption = "Check1"
Height = 255
Left = 120
TabIndex = 8
TabStop = 0 'False
ToolTipText = "Check this box if you do not want to see samples without data listed in the sample list"
Top = 360
Width = 255
End
Begin VB.OptionButton OptionStandard
Caption = "Standards"
Height = 255
Left = 120
TabIndex = 7
TabStop = 0 'False
Top = 1080
Width = 1335
End
Begin VB.OptionButton OptionUnknown
Caption = "Unknowns"
Height = 255
Left = 120
TabIndex = 6
TabStop = 0 'False
Top = 1320
Width = 1335
End
Begin VB.OptionButton OptionAllSamples
Caption = "All Samples"
Height = 255
Left = 120
TabIndex = 5
TabStop = 0 'False
Top = 1800
Width = 1335
End
Begin VB.OptionButton OptionWavescan
Caption = "Wavescans"
Height = 255
Left = 120
TabIndex = 4
TabStop = 0 'False
Top = 1560
Width = 1335
End
Begin VB.ListBox ListAnalyze
Height = 645
Left = 3360
MultiSelect = 2 'Extended
TabIndex = 3
TabStop = 0 'False
Top = 480
Width = 2775
End
Begin VB.CheckBox CheckDoNotOutputToLog
Caption = "Do Not Output To Log"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 2
Top = 120
Width = 3015
End
Begin VB.CommandButton CommandNext
Height = 255
Left = 1920
Picture = "ANALYZE3.frx":6E7FA
Style = 1 'Graphical
TabIndex = 1
Top = 720
Visible = 0 'False
Width = 615
End
Begin ComctlLib.StatusBar StatusBarAnal
Align = 2 'Align Bottom
Height = 255
Left = 0
TabIndex = 0
Top = 5490
Width = 6510
_ExtentX = 11483
_ExtentY = 450
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 3
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
AutoSize = 1
Object.Width = 7832
TextSave = ""
Key = "status"
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Bevel = 2
Object.Width = 1764
MinWidth = 1764
Text = "Cancel"
TextSave = "Cancel"
Key = "cancel"
Object.Tag = ""
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Bevel = 2
Object.Width = 1764
MinWidth = 1764
Text = "Next"
TextSave = "Next"
Key = "next"
Object.Tag = ""
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label LabelZBarText
Appearance = 0 'Flat
Caption = "Z - Bar"
ForeColor = &H80000008&
Height = 255
Left = 4920
TabIndex = 19
Top = 4440
Width = 1335
End
Begin VB.Label LabelDataType
ForeColor = &H00FF0000&
Height = 255
Left = 1200
TabIndex = 16
Top = 3840
Width = 4095
End
Begin VB.Label LabelZbar
BorderStyle = 1 'Fixed Single
Height = 255
Left = 3960
TabIndex = 14
ToolTipText = "Average atomic number"
Top = 4440
Width = 855
End
Begin VB.Label LabelExcess
BorderStyle = 1 'Fixed Single
Height = 255
Left = 1320
TabIndex = 13
ToolTipText = "Excess oxygen from calculation (average for oxide calculation)"
Top = 4680
Width = 855
End
Begin VB.Label LabelTotalOxygen
BorderStyle = 1 'Fixed Single
Height = 255
Left = 1320
TabIndex = 12
ToolTipText = "Total measured and calculated oxygen (average for oxide calculation)"
Top = 4200
Width = 855
End
Begin VB.Label LabelAtomic
BorderStyle = 1 'Fixed Single
Height = 255
Left = 3960
TabIndex = 11
ToolTipText = "Average atomic weight"
Top = 4680
Width = 855
End
Begin VB.Label LabelCalculated
BorderStyle = 1 'Fixed Single
Height = 255
Left = 1320
TabIndex = 10
ToolTipText = "Calculated oxygen only (average for oxide calculation)"
Top = 4440
Width = 855
End
Begin VB.Label LabelTotal
BorderStyle = 1 'Fixed Single
Height = 255
Left = 3960
TabIndex = 9
ToolTipText = "Total weight percent (average)"
Top = 4200
Width = 855
End
End
Attribute VB_Name = "FormANALYZE"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' (c) Copyright 1995-2024 by John J. Donovan
Option Explicit
Private Sub CommandNext_Click()
If Not DebugMode Then On Error Resume Next
' Nothing to do here
End Sub
Private Sub StatusBarAnal_PanelClick(ByVal Panel As ComctlLib.Panel)
If Not DebugMode Then On Error Resume Next
Select Case Panel.key
Case "status"
Exit Sub
Case "cancel"
Call AnalyzeCancel(FormANALYZE)
If ierror Then Exit Sub
Case "next"
Call AnalyzeNext(Int(2))
If ierror Then Exit Sub
Case Else
Exit Sub
End Select
End Sub