VERSION 5.00
Begin VB.Form Form10 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Eu/Eu* "
   ClientHeight    =   1485
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   2595
   LinkTopic       =   "Form10"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   1485
   ScaleWidth      =   2595
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command2 
      Caption         =   "Cancel"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   120
      TabIndex        =   3
      Top             =   960
      Width           =   975
   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          =   288
      ItemData        =   "Form10.frx":0000
      Left            =   120
      List            =   "Form10.frx":000A
      TabIndex        =   0
      Text            =   "algebric"
      Top             =   480
      Width           =   2295
   End
   Begin VB.CommandButton Command1 
      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          =   375
      Left            =   1200
      TabIndex        =   1
      Top             =   960
      Width           =   1215
   End
   Begin VB.Label Label2 
      Caption         =   "Sm-Gd mean:"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   120
      Width           =   1695
   End
End
Attribute VB_Name = "Form10"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False




Private Sub Combo2_GotFocus()

If KeyCode = 32 Then
Command1_Click
End If

End Sub

Private Sub Command1_Click()

On Error GoTo ee

'Eu Anomaly
MeanSmGd = 0
If REEtype = "Eu" Then
Numelem = Numelem + 1

For i = 1 To Numcamp1

SPI.DeterminaREEPresenti
SPI.DeterminaValoriREExEu i

If Combo2.Text = "algebric" Then

If valREEn(6) <= 0 Or valREEn(7) <= 0 Or valREEn(8) <= 0 Then
DatiOrigine(i, Numelem) = -12345.67
GoTo eee
End If

MeanSmGd = (valREEn(6) + valREEn(8)) / 2

If MeanSmGd = 0 Then
EuAnom(i) = 0
GoTo eee
End If

DatiOrigine(i, Numelem) = valREEn(7) / MeanSmGd

End If

If Combo2.Text = "geometric" Then

If valREEn(6) <= 0 Or valREEn(7) <= 0 Or valREEn(8) <= 0 Then
DatiOrigine(i, Numelem) = -12345.67
GoTo eee
End If

MeanSmGd = Sqr(valREEn(6) * valREEn(8))

DatiOrigine(i, Numelem) = valREEn(7) / MeanSmGd

eee:

End If


'Form9.MSFG1.Text = Format$(EuAnom(i), "0.000")
Next i

'tot = 0
'Numelem = Numelem + 1
'For i = 1 To Numcamp1
'tot = tot + EuAnom(i)
'Next i

'meanEuAnom = tot / Numcamp1

'Form9.MSFG1.col = 1
'Form9.MSFG1.Row = Numcamp1 + 1
'Form9.MSFG1.Text = Format$(meanEuAnom, "0.000")

Elementi(Numelem) = "Eu/Eu*"

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

End If

Form10.Hide

GoTo ee1
ee:
MsgBox "An Error Occurred", , "Error"
Form10.Hide
Exit Sub
ee1:

End Sub



Private Sub Command2_Click()
Unload Me
End Sub