VERSION 5.00
Begin VB.Form Form6 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Operation"
   ClientHeight    =   7575
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   3285
   LinkTopic       =   "Form6"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   7575
   ScaleWidth      =   3285
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame4 
      Caption         =   "Filters"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   840
      Left            =   120
      TabIndex        =   29
      Top             =   6120
      Width           =   3132
      Begin VB.CommandButton Command27 
         Caption         =   "Filters Managment"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   350
         Left            =   120
         TabIndex        =   30
         Top             =   360
         Width           =   2865
      End
   End
   Begin VB.CommandButton Command20 
      Caption         =   "OK (SpaceBar)"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   1080
      TabIndex        =   1
      Top             =   7080
      Width           =   1215
   End
   Begin VB.CommandButton Command19 
      Caption         =   "..."
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   300
      Left            =   2880
      TabIndex        =   26
      Top             =   480
      Width           =   375
   End
   Begin VB.CommandButton Command18 
      Caption         =   "..."
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   288
      Left            =   2880
      TabIndex        =   25
      Top             =   24
      Width           =   375
   End
   Begin VB.Frame Frame3 
      Caption         =   "REE Operation"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   1815
      Left            =   120
      TabIndex        =   19
      Top             =   4200
      Width           =   3132
      Begin VB.CommandButton Command25 
         Caption         =   "(La/Sm)N"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   350
         Left            =   1080
         TabIndex        =   35
         Top             =   240
         Width           =   900
      End
      Begin VB.CommandButton Command24 
         Caption         =   "(Tb/Yb)N"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   350
         Left            =   480
         TabIndex        =   34
         Top             =   675
         Width           =   900
      End
      Begin VB.ComboBox Combo3 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         ItemData        =   "Form6.frx":0000
         Left            =   120
         List            =   "Form6.frx":0010
         TabIndex        =   23
         Text            =   "Haskin et al.(1968)"
         Top             =   1320
         Width           =   2880
      End
      Begin VB.CommandButton Command16 
         Caption         =   "totREE"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   350
         Left            =   1440
         TabIndex        =   21
         Top             =   675
         Width           =   900
      End
      Begin VB.CommandButton Command13 
         Caption         =   "Eu/Eu*"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   350
         Left            =   120
         TabIndex        =   20
         Top             =   240
         Width           =   900
      End
      Begin VB.CommandButton Command17 
         Caption         =   "(La/Yb)N"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   350
         Left            =   2040
         TabIndex        =   22
         Top             =   240
         Width           =   900
      End
      Begin VB.Label Label3 
         Caption         =   "Condrite normalization:"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   24
         Top             =   1080
         Width           =   2055
      End
   End
   Begin VB.ComboBox Combo1 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      ItemData        =   "Form6.frx":0061
      Left            =   324
      List            =   "Form6.frx":0063
      TabIndex        =   2
      Text            =   "Seleziona"
      Top             =   24
      Width           =   2475
   End
   Begin VB.ComboBox Combo2 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   324
      TabIndex        =   0
      Text            =   "Seleziona"
      Top             =   492
      Width           =   2490
   End
   Begin VB.Frame Frame1 
      Caption         =   "Algebrical Operation"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   1440
      Left            =   120
      TabIndex        =   5
      Top             =   852
      Width           =   3132
      Begin VB.CommandButton Command26 
         Caption         =   "%WT-->PPM"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   350
         Left            =   1920
         TabIndex        =   36
         Top             =   960
         Width           =   1065
      End
      Begin VB.CommandButton Command23 
         Caption         =   "PPM-->%WT"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   350
         Left            =   840
         TabIndex        =   33
         Top             =   960
         Width           =   1065
      End
      Begin VB.CommandButton Command8 
         Caption         =   "SQR(A)"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   350
         Left            =   120
         TabIndex        =   32
         Top             =   960
         Width           =   700
      End
      Begin VB.CommandButton Command21 
         Caption         =   "A/Cost"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   350
         Left            =   840
         TabIndex        =   28
         Top             =   600
         Width           =   700
      End
      Begin VB.CommandButton Command9 
         Caption         =   "A^2"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   350
         Left            =   2280
         TabIndex        =   14
         Top             =   600
         Width           =   700
      End
      Begin VB.CommandButton Command7 
         Caption         =   "A*Cost"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   350
         Left            =   120
         TabIndex        =   11
         Top             =   600
         Width           =   700
      End
      Begin VB.CommandButton Command6 
         Caption         =   "1/A"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   350
         Left            =   1560
         TabIndex        =   10
         Top             =   600
         Width           =   700
      End
      Begin VB.CommandButton Command1 
         Caption         =   "A+B"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   350
         Left            =   120
         TabIndex        =   9
         Top             =   240
         Width           =   700
      End
      Begin VB.CommandButton Command2 
         Caption         =   "A-B"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   350
         Left            =   840
         TabIndex        =   8
         Top             =   240
         Width           =   700
      End
      Begin VB.CommandButton Command3 
         Caption         =   "AxB"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   350
         Left            =   1560
         TabIndex        =   7
         Top             =   240
         Width           =   700
      End
      Begin VB.CommandButton Command4 
         Caption         =   "A/B"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   350
         Left            =   2280
         TabIndex        =   6
         Top             =   240
         Width           =   700
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "Geochemical Operation"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   1695
      Left            =   84
      TabIndex        =   12
      Top             =   2400
      Width           =   3132
      Begin VB.CommandButton Command29 
         Caption         =   "Mg#"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   400
         Left            =   840
         TabIndex        =   37
         Top             =   720
         Width           =   1416
      End
      Begin VB.CommandButton Command22 
         Caption         =   "ASI"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   400
         Left            =   2280
         TabIndex        =   31
         Top             =   720
         Width           =   705
      End
      Begin VB.CommandButton Command14 
         Caption         =   "molar"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   400
         Left            =   2280
         TabIndex        =   27
         Top             =   1200
         Width           =   700
      End
      Begin VB.CommandButton Command15 
         Caption         =   "CIPW"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   400
         Left            =   120
         TabIndex        =   18
         Top             =   720
         Width           =   700
      End
      Begin VB.CommandButton Command12 
         Caption         =   "S.I."
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   400
         Left            =   2280
         TabIndex        =   17
         Top             =   240
         Width           =   700
      End
      Begin VB.CommandButton Command11 
         Caption         =   "Fe/Mg"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   400
         Left            =   120
         TabIndex        =   16
         Top             =   1200
         Width           =   690
      End
      Begin VB.CommandButton Command10 
         Caption         =   "Larsen  Index"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   400
         Left            =   840
         TabIndex        =   15
         Top             =   240
         Width           =   1416
      End
      Begin VB.CommandButton Command5 
         Caption         =   "FeOtot"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   400
         Left            =   120
         TabIndex        =   13
         Top             =   240
         Width           =   700
      End
   End
   Begin VB.Label Label1 
      Caption         =   "A"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   60
      TabIndex        =   4
      Top             =   48
      Width           =   372
   End
   Begin VB.Label Label2 
      Caption         =   "B"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   252
      Left            =   60
      TabIndex        =   3
      Top             =   516
      Width           =   252
   End
End
Attribute VB_Name = "Form6"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 32 Then
Command20_Click
End If

End Sub

Private Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 32 Then
Command20_Click
End If

End Sub

Private Sub Combo3_Click()

If Combo3.Text = "Masuda et al.(1973)" Then
fileREE = "\normREE-IDMS-Masuda1973.txt"
End If


End Sub





Private Sub Combo3_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 32 Then
Command20_Click
End If

End Sub

Private Sub Command1_Click()

INP.Addizione Combo1.Text, Combo2.Text

If ErrorElab = False Then
Form2.Combo1.AddItem Elementi(Numelem)
Form2.Combo2.AddItem Elementi(Numelem)

Form3.Combo1.AddItem Elementi(Numelem)
Form3.Combo2.AddItem Elementi(Numelem)
Form3.Combo3.AddItem Elementi(Numelem)

Form6.Combo1.AddItem Elementi(Numelem)
Form6.Combo2.AddItem Elementi(Numelem)
End If

INP.InserisciInForm13 Numelem

INP.InserisciTabella Numelem

Form6.Command20.SetFocus

End Sub





Private Sub Command10_Click()

INP.LarsenIndex

If ErrorElab = False Then
Form2.Combo1.AddItem Elementi(Numelem)
Form2.Combo2.AddItem Elementi(Numelem)

Form3.Combo1.AddItem Elementi(Numelem)
Form3.Combo2.AddItem Elementi(Numelem)
Form3.Combo3.AddItem Elementi(Numelem)

Form6.Combo1.AddItem Elementi(Numelem)
Form6.Combo2.AddItem Elementi(Numelem)
End If

INP.InserisciInForm13 Numelem
INP.InserisciTabella Numelem

Form6.Command20.SetFocus

End Sub



Private Sub Command11_Click()

INP.FeMgRatio

If ErrorElab = False Then
Form2.Combo1.AddItem Elementi(Numelem)
Form2.Combo2.AddItem Elementi(Numelem)

Form3.Combo1.AddItem Elementi(Numelem)
Form3.Combo2.AddItem Elementi(Numelem)
Form3.Combo3.AddItem Elementi(Numelem)

Form6.Combo1.AddItem Elementi(Numelem)
Form6.Combo2.AddItem Elementi(Numelem)
End If

INP.InserisciInForm13 Numelem
INP.InserisciTabella Numelem

Form6.Command20.SetFocus

End Sub



Private Sub Command12_Click()

INP.SolIndex

If ErrorElab = False Then
Form2.Combo1.AddItem Elementi(Numelem)
Form2.Combo2.AddItem Elementi(Numelem)

Form3.Combo1.AddItem Elementi(Numelem)
Form3.Combo2.AddItem Elementi(Numelem)
Form3.Combo3.AddItem Elementi(Numelem)

Form6.Combo1.AddItem Elementi(Numelem)
Form6.Combo2.AddItem Elementi(Numelem)
End If

INP.InserisciInForm13 Numelem
INP.InserisciTabella Numelem

Form6.Command20.SetFocus

End Sub



Private Sub Command13_Click()

'Normalizzazione
If Combo3.Text = "Nakamura (1974)" Then
file$ = "\data\normREE-Nakamura1974.txt"
End If

If Combo3.Text = "Haskin et al.(1968)" Then
file$ = "\data\normREE-NAA-Haskin1968.txt"
End If

If Combo3.Text = "Boynton (1984)" Then
file$ = "\data\normREE-IDMS-Boynton1984.txt"
End If

If Combo3.Text = "Sun & McDonald (1989)" Then
file$ = "\data\normREE-SunandMcD1989.txt"
End If


Open App.Path + file$ For Input As #1

For i = 1 To 15

Input #1, aa

If aa = 1 Then
NormREE(i) = 0
GoTo rr
End If

NormREE(i) = aa

rr:
Next i

Close #1

'Calcolo
Form10.Caption = "Eu/Eu*"
Form10.Label2.Caption = "Sm-Gd mean:"
Form10.Show
Form10.SetFocus
REEtype = "Eu"

Form6.Command20.SetFocus

End Sub





Private Sub Command14_Click()

INP.molar

Form6.Command20.SetFocus

End Sub



Private Sub Command15_Click()

CIPW.Norm
CIPWyn = True

Form6.Command20.SetFocus

Form7.Show
Form7.SetFocus

End Sub



Private Sub Command16_Click()

On Error GoTo pppo

Dim NomeREE(15)

NomeREE(1) = "La"
NomeREE(2) = "Ce"
NomeREE(3) = "Pr"
NomeREE(4) = "Nd"
NomeREE(5) = "Pm"
NomeREE(6) = "Sm"
NomeREE(7) = "Eu"
NomeREE(8) = "Gd"
NomeREE(9) = "Tb"
NomeREE(10) = "Dy"
NomeREE(11) = "Ho"
NomeREE(12) = "Er"
NomeREE(13) = "Tm"
NomeREE(14) = "Yb"
NomeREE(15) = "Lu"

'Normalizzazione
If Combo3.Text = "Nakamura (1974)" Then
file$ = "\data\normREE-Nakamura1974.txt"
End If

If Combo3.Text = "Haskin et al.(1968)" Then
file$ = "\data\normREE-NAA-Haskin1968.txt"
End If

If Combo3.Text = "Boynton (1984)" Then
file$ = "\data\normREE-IDMS-Boynton1984.txt"
End If

If Combo3.Text = "Sun & McDonald (1989)" Then
file$ = "\data\normREE-SunandMcD1989.txt"
End If

Dim NormBoy(15)

NormBoy(1) = 0.31
NormBoy(2) = 0.808
NormBoy(3) = 0.122
NormBoy(4) = 0.6
NormBoy(5) = 0
NormBoy(6) = 0.195
NormBoy(7) = 0.0735
NormBoy(8) = 0.259
NormBoy(9) = 0.0474
NormBoy(10) = 0.322
NormBoy(11) = 0.0718
NormBoy(12) = 0.21
NormBoy(13) = 0.0324
NormBoy(14) = 0.209
NormBoy(15) = 0.0322

Open App.Path + file$ For Input As #1


eeeeeet = 0

For i = 1 To 15

Input #1, aa


If aa = 1 And i <> 5 Then
eeeeeet = 1
NormREE(i) = NormBoy(1)
GoTo rr
End If

NormREE(i) = aa

rr:
Next i

Close #1

If eeeeeet = 1 Then
Add$ = "The selected normalization file do not contains data for one or more elements, unavaible normalization values will be replaced with data from Boynton (1984), see the tutorial for more detail."
MsgBox Add$

End If

Numelem = Numelem + 1



'Calcolo

For ii = 1 To 15



Next ii

For i = 1 To Numcamp1

SPI.DeterminaREEPresenti
SPI.DeterminaValoriREE i



SumRee1 = 0

For ii = 1 To 15
If valREE(ii) = 0 Then

valREE(ii) = valREEn(ii) * NormREE(ii)
End If

If ii <> 5 Then
SumRee1 = SumRee1 + valREE(ii)
End If


Next ii

DatiOrigine(i, Numelem) = SumRee1
GoTo iop1
iop:
DatiOrigine(i, Numelem) = 0
iop1:


Next i



Elementi(Numelem) = "TotREE"
Form2.Combo1.AddItem Elementi(Numelem)
Form2.Combo2.AddItem Elementi(Numelem)

Form3.Combo1.AddItem Elementi(Numelem)
Form3.Combo2.AddItem Elementi(Numelem)
Form3.Combo3.AddItem Elementi(Numelem)

Form6.Combo1.AddItem Elementi(Numelem)
Form6.Combo2.AddItem Elementi(Numelem)

INP.InserisciInForm13 Numelem
INP.InserisciTabella Numelem

Form6.Command20.SetFocus

pppo:

End Sub


Private Sub Command17_Click()

'Normalizzazione
If Combo3.Text = "Nakamura (1974)" Then
file$ = "\data\normREE-Nakamura1974.txt"
End If

If Combo3.Text = "Haskin et al.(1968)" Then
file$ = "\data\normREE-NAA-Haskin1968.txt"
End If

If Combo3.Text = "Boynton (1984)" Then
file$ = "\data\normREE-IDMS-Boynton1984.txt"
End If

If Combo3.Text = "Sun & McDonald (1989)" Then
file$ = "\data\normREE-SunandMcD1989.txt"
End If

'Calcolo
SPI.CaricaNormalizzazione App.Path + file$
SPI.RapportiREE "LaYb"

If ErrorElab = False Then
Form2.Combo1.AddItem Elementi(Numelem)
Form2.Combo2.AddItem Elementi(Numelem)

Form3.Combo1.AddItem Elementi(Numelem)
Form3.Combo2.AddItem Elementi(Numelem)
Form3.Combo3.AddItem Elementi(Numelem)

Form6.Combo1.AddItem Elementi(Numelem)
Form6.Combo2.AddItem Elementi(Numelem)
End If

INP.InserisciInForm13 Numelem
INP.InserisciTabella Numelem

Form6.Command20.SetFocus

End Sub



Private Sub Command18_Click()

Form6.Command20.SetFocus
FormSelezionato = "Elabora1"

INP.MostraForm13 Form6.left, Form6.top
End Sub



Private Sub Command19_Click()

Form6.Command20.SetFocus
FormSelezionato = "Elabora2"

INP.MostraForm13 Form6.left, Form6.top
End Sub



Private Sub Command2_Click()
INP.Sottrazione Combo1.Text, Combo2.Text

If ErrorElab = False Then
Form2.Combo1.AddItem Elementi(Numelem)
Form2.Combo2.AddItem Elementi(Numelem)

Form3.Combo1.AddItem Elementi(Numelem)
Form3.Combo2.AddItem Elementi(Numelem)
Form3.Combo3.AddItem Elementi(Numelem)

Form6.Combo1.AddItem Elementi(Numelem)
Form6.Combo2.AddItem Elementi(Numelem)
End If

INP.InserisciInForm13 Numelem

INP.InserisciTabella Numelem

Form6.Command20.SetFocus

End Sub



Private Sub Command20_Click()

Form6.Hide

End Sub



Private Sub Command21_Click()

cost = InputBox("Inserire il valore della costante C")

If cost = 0 Then
Exit Sub
End If

INP.AsuConst Combo1.Text, Val(cost)

If ErrorElab = False Then
Form2.Combo1.AddItem Elementi(Numelem)
Form2.Combo2.AddItem Elementi(Numelem)

Form3.Combo1.AddItem Elementi(Numelem)
Form3.Combo2.AddItem Elementi(Numelem)
Form3.Combo3.AddItem Elementi(Numelem)

Form6.Combo1.AddItem Elementi(Numelem)
Form6.Combo2.AddItem Elementi(Numelem)
End If

INP.InserisciInForm13 Numelem
INP.InserisciTabella Numelem

Form6.Command20.SetFocus

End Sub



Private Sub Command22_Click()



INP.ASI

If ErrorElab = False Then
Form2.Combo1.AddItem Elementi(Numelem)
Form2.Combo2.AddItem Elementi(Numelem)

Form3.Combo1.AddItem Elementi(Numelem)
Form3.Combo2.AddItem Elementi(Numelem)
Form3.Combo3.AddItem Elementi(Numelem)

Form6.Combo1.AddItem Elementi(Numelem)
Form6.Combo2.AddItem Elementi(Numelem)
End If

INP.InserisciInForm13 Numelem
INP.InserisciTabella Numelem

Form6.Command20.SetFocus

End Sub



Private Sub Command23_Click()


INP.ConvertiPerWt Combo1.Text

INP.InserisciInForm13 Numelem
INP.InserisciTabella Numelem


Form6.Command20.SetFocus

End Sub





Private Sub Command24_Click()

'Normalizzazione
If Combo3.Text = "Nakamura (1974)" Then
file$ = "\data\normREE-Nakamura1974.txt"
End If

If Combo3.Text = "Haskin et al.(1968)" Then
file$ = "\data\normREE-NAA-Haskin1968.txt"
End If

If Combo3.Text = "Boynton (1984)" Then
file$ = "\data\normREE-IDMS-Boynton1984.txt"
End If

If Combo3.Text = "Sun & McDonald (1989)" Then
file$ = "\data\normREE-SunandMcD1989.txt"
End If

'Calcolo
SPI.CaricaNormalizzazione App.Path + file$
SPI.RapportiREE "TbYb"

If ErrorElab = False Then
Form2.Combo1.AddItem Elementi(Numelem)
Form2.Combo2.AddItem Elementi(Numelem)

Form3.Combo1.AddItem Elementi(Numelem)
Form3.Combo2.AddItem Elementi(Numelem)
Form3.Combo3.AddItem Elementi(Numelem)

Form6.Combo1.AddItem Elementi(Numelem)
Form6.Combo2.AddItem Elementi(Numelem)
End If

INP.InserisciInForm13 Numelem
INP.InserisciTabella Numelem

Form6.Command20.SetFocus
End Sub



Private Sub Command25_Click()

'Normalizzazione
If Combo3.Text = "Nakamura (1974)" Then
file$ = "\data\normREE-Nakamura1974.txt"
End If

If Combo3.Text = "Haskin et al.(1968)" Then
file$ = "\data\normREE-NAA-Haskin1968.txt"
End If

If Combo3.Text = "Boynton (1984)" Then
file$ = "\data\normREE-IDMS-Boynton1984.txt"
End If

If Combo3.Text = "Sun & McDonald (1989)" Then
file$ = "\data\normREE-SunandMcD1989.txt"
End If

'Calcolo
SPI.CaricaNormalizzazione App.Path + file$
SPI.RapportiREE "LaSm"

If ErrorElab = False Then
Form2.Combo1.AddItem Elementi(Numelem)
Form2.Combo2.AddItem Elementi(Numelem)

Form3.Combo1.AddItem Elementi(Numelem)
Form3.Combo2.AddItem Elementi(Numelem)
Form3.Combo3.AddItem Elementi(Numelem)

Form6.Combo1.AddItem Elementi(Numelem)
Form6.Combo2.AddItem Elementi(Numelem)
End If

INP.InserisciInForm13 Numelem

INP.InserisciTabella Numelem

Form6.Command20.SetFocus

End Sub



Private Sub Command26_Click()

INP.ConvertiPPM "", Combo1.Text

INP.InserisciInForm13 Numelem

INP.InserisciTabella Numelem


Form6.Command20.SetFocus

End Sub




Private Sub Command27_Click()

Form6.Command20.SetFocus

Form29.Show
Form29.SetFocus

End Sub

Private Sub Command28_Click()

INP.MgNumber

End Sub



Private Sub Command29_Click()
INP.MgNumber1

Form6.Command20.SetFocus

End Sub



Private Sub Command3_Click()
INP.prodotto Combo1.Text, Combo2.Text

If ErrorElab = False Then
Form2.Combo1.AddItem Elementi(Numelem)
Form2.Combo2.AddItem Elementi(Numelem)

Form3.Combo1.AddItem Elementi(Numelem)
Form3.Combo2.AddItem Elementi(Numelem)
Form3.Combo3.AddItem Elementi(Numelem)

Form6.Combo1.AddItem Elementi(Numelem)
Form6.Combo2.AddItem Elementi(Numelem)
End If

INP.InserisciInForm13 Numelem
INP.InserisciTabella Numelem
INP.InserisciTabella Numelem


Form6.Command20.SetFocus
End Sub

Private Sub Command3_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 32 Then
Command20_Click
End If

End Sub

Private Sub Command3_KeyPress(KeyAscii As Integer)

If KeyAscii = 32 Then
Command20_Click
End If

End Sub

Private Sub Command4_Click()
INP.Divisione Combo1.Text, Combo2.Text

If ErrorElab = False Then
Form2.Combo1.AddItem Elementi(Numelem)
Form2.Combo2.AddItem Elementi(Numelem)

Form3.Combo1.AddItem Elementi(Numelem)
Form3.Combo2.AddItem Elementi(Numelem)
Form3.Combo3.AddItem Elementi(Numelem)

Form6.Combo1.AddItem Elementi(Numelem)
Form6.Combo2.AddItem Elementi(Numelem)
End If

INP.InserisciInForm13 Numelem
INP.InserisciTabella Numelem

Form6.Command20.SetFocus

End Sub



Private Sub Command5_Click()

INP.Feototale

If ErrorElab = False Then
Form2.Combo1.AddItem Elementi(Numelem)
Form2.Combo2.AddItem Elementi(Numelem)

Form3.Combo1.AddItem Elementi(Numelem)
Form3.Combo2.AddItem Elementi(Numelem)
Form3.Combo3.AddItem Elementi(Numelem)

Form6.Combo1.AddItem Elementi(Numelem)
Form6.Combo2.AddItem Elementi(Numelem)
End If

INP.InserisciInForm13 Numelem


INP.InserisciTabella Numelem

Form6.Command20.SetFocus


End Sub



Private Sub Command6_Click()

INP.UnoSuA Combo1.Text

If ErrorElab = False Then
Form2.Combo1.AddItem Elementi(Numelem)
Form2.Combo2.AddItem Elementi(Numelem)

Form3.Combo1.AddItem Elementi(Numelem)
Form3.Combo2.AddItem Elementi(Numelem)
Form3.Combo3.AddItem Elementi(Numelem)

Form6.Combo1.AddItem Elementi(Numelem)
Form6.Combo2.AddItem Elementi(Numelem)
End If

INP.InserisciInForm13 Numelem

INP.InserisciTabella Numelem

Form6.Command20.SetFocus

End Sub



Private Sub Command7_Click()

cost = InputBox("Inserire il valore della costante C")


INP.AxConst Combo1.Text, Val(cost)

If ErrorElab = False Then
Form2.Combo1.AddItem Elementi(Numelem)
Form2.Combo2.AddItem Elementi(Numelem)

Form3.Combo1.AddItem Elementi(Numelem)
Form3.Combo2.AddItem Elementi(Numelem)
Form3.Combo3.AddItem Elementi(Numelem)

Form6.Combo1.AddItem Elementi(Numelem)
Form6.Combo2.AddItem Elementi(Numelem)
End If

INP.InserisciInForm13 Numelem

INP.InserisciTabella Numelem

Form6.Command20.SetFocus


End Sub



Private Sub Command8_Click()

INP.SqrA Combo1.Text

If ErrorElab = False Then
Form2.Combo1.AddItem Elementi(Numelem)
Form2.Combo2.AddItem Elementi(Numelem)

Form3.Combo1.AddItem Elementi(Numelem)
Form3.Combo2.AddItem Elementi(Numelem)
Form3.Combo3.AddItem Elementi(Numelem)

Form6.Combo1.AddItem Elementi(Numelem)
Form6.Combo2.AddItem Elementi(Numelem)
End If

INP.InserisciInForm13 Numelem

INP.InserisciTabella Numelem

Form6.Command20.SetFocus

End Sub



Private Sub Command9_Click()

INP.AxA Combo1.Text

If ErrorElab = False Then
Form2.Combo1.AddItem Elementi(Numelem)
Form2.Combo2.AddItem Elementi(Numelem)

Form3.Combo1.AddItem Elementi(Numelem)
Form3.Combo2.AddItem Elementi(Numelem)
Form3.Combo3.AddItem Elementi(Numelem)

Form6.Combo1.AddItem Elementi(Numelem)
Form6.Combo2.AddItem Elementi(Numelem)
End If

INP.InserisciInForm13 Numelem
INP.InserisciTabella Numelem

Form6.Command20.SetFocus


End Sub


Private Sub Form_Load()

For i = 1 To Numelem

Form6.Combo1.AddItem Elementi(i)
Form6.Combo2.AddItem Elementi(i)

Next i

End Sub