VERSION 5.00
Begin VB.Form Form14 
   BorderStyle     =   4  'Fixed ToolWindow
   ClientHeight    =   3315
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   3330
   LinkTopic       =   "Form14"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   3315
   ScaleWidth      =   3330
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command6 
      Caption         =   "Plot (SpaceBar)"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   420
      Left            =   1680
      TabIndex        =   1
      Top             =   2760
      Width           =   1575
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Cancel"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   420
      Left            =   480
      TabIndex        =   13
      Top             =   2760
      Width           =   1095
   End
   Begin VB.Frame Frame1 
      Caption         =   "Graph Characteristic"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   2655
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   3255
      Begin VB.Frame Frame4 
         Caption         =   "Line Width"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   705
         Left            =   1920
         TabIndex        =   11
         Top             =   1800
         Width           =   1215
         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        =   "Form14.frx":0000
            Left            =   120
            List            =   "Form14.frx":000A
            TabIndex        =   12
            Text            =   "1"
            Top             =   240
            Width           =   975
         End
      End
      Begin VB.Frame Frame3 
         Caption         =   "Symbol Dim"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   705
         Left            =   1920
         TabIndex        =   9
         Top             =   360
         Width           =   1215
         Begin VB.ComboBox Combo4 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   7.5
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   315
            ItemData        =   "Form14.frx":0014
            Left            =   120
            List            =   "Form14.frx":0021
            TabIndex        =   10
            Text            =   "Med"
            Top             =   240
            Width           =   975
         End
      End
      Begin VB.Frame fraSample1 
         Caption         =   "Graph Dim. (pixel)"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   2145
         Left            =   75
         TabIndex        =   4
         Top             =   360
         Width           =   1815
         Begin VB.TextBox Text2 
            Alignment       =   2  'Center
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   330
            Left            =   600
            TabIndex        =   6
            Text            =   "Text1"
            Top             =   1320
            Width           =   1095
         End
         Begin VB.TextBox Text1 
            Alignment       =   2  'Center
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   330
            Left            =   600
            TabIndex        =   5
            Text            =   "Text1"
            Top             =   555
            Width           =   1095
         End
         Begin VB.Label Label4 
            Caption         =   "Height"
            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        =   8
            Top             =   1365
            Width           =   615
         End
         Begin VB.Label Label5 
            Caption         =   "Width"
            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        =   7
            Top             =   600
            Width           =   615
         End
      End
      Begin VB.Frame Frame2 
         Caption         =   "Symbol Width"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   705
         Left            =   1920
         TabIndex        =   2
         Top             =   1080
         Width           =   1215
         Begin VB.ComboBox Combo5 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   7.5
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   315
            ItemData        =   "Form14.frx":0034
            Left            =   120
            List            =   "Form14.frx":003E
            TabIndex        =   3
            Text            =   "2"
            Top             =   240
            Width           =   975
         End
      End
   End
End
Attribute VB_Name = "Form14"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



Private Sub Combo1_KeyPress(KeyAscii As Integer)

If KeyCode = 32 Then
Command6_Click
End If

End Sub

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

If KeyCode = 32 Then
Command6_Click
End If

End Sub

Private Sub Combo5_KeyPress(KeyAscii As Integer)

If KeyCode = 32 Then
Command6_Click
End If

End Sub

Private Sub Command3_Click()

Form14.Hide

End Sub



Private Sub Command6_Click()


aa = 0

'On Error GoTo ee

For i = 1 To 15
If OpenPic(i) = 0 Then
Indeks = i
OpenPic(Indeks) = 1
If Indeks > Maxindeks Then
Maxindeks = i
End If
GoTo poi
End If
Next i

If Maxindeks >= 15 Then
MsgBox "I'm not able to open more than 15 windows. Please close one or more winndows!!!", , "Attention!"
Form14.Hide
Exit Sub
End If

poi:

picforms(Indeks).Hide

DiagramType(Indeks) = DiagramType1


'caratteristiche dei grafici
   Xgraph(Indeks) = Val(Text1.Text)
   Ygraph(Indeks) = Val(Text2.Text)
   
   'simbdim
   If Combo4.Text = "Min" Then
   SimbDim(Indeks) = 2
   End If
   If Combo4.Text = "Med" Then
   SimbDim(Indeks) = 4
   End If
   If Combo4.Text = "Max" Then
   SimbDim(Indeks) = 6
   End If
   
   'linesp
   If Combo1.Text = "1" Then
   LineSp(Indeks) = 1
   End If
   If Combo1.Text = "2" Then
   LineSp(Indeks) = 2
   End If
   
   'simbsp
   If Combo5.Text = "1" Then
   SimbSp(Indeks) = 1
   End If
   If Combo5.Text = "2" Then
   SimbSp(Indeks) = 2
   End If
   
'disegno

'-------'
'General'
'-------'

'---------------------
'Strelemaitre-vulcanico
'---------------------

If DiagramType(Indeks) = "Strelemaitre" Then
'inserisci un controllo nel caso non sia stata calcolata la norma

MaxX(Indeks) = 100
MinX(Indeks) = 0
MaxY(Indeks) = 50
MinY(Indeks) = -40
OMaxX(Indeks) = 100 'original value servono quando riscalo
OMinX(Indeks) = 0
OMaxY(Indeks) = 50
OMinY(Indeks) = -40
deltax1(Indeks) = 10
deltay1(Indeks) = 10
Intx(Indeks) = 10
Inty(Indeks) = 9
binary(Indeks) = True
SPIDERREE(Indeks) = False
SPIDEROTHER(Indeks) = False
Triangular(Indeks) = False
tipoGraph(Indeks) = "normx-normy"
MF1.NewRectGraph (App.Path + "\data\g10" + Trim(Str(Indeks))), Xgraph(Indeks), Ygraph(Indeks)
MF1.assi


MF1.Diagram


Dim anor As Single
Dim yt As Single

'attenzione


For i = 1 To Numcamp1

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 1
tipo = Val(BackGrnd.FG1)

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 3
tipo1 = Val(BackGrnd.FG1)

If tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Then GoTo wqwq13

If (DatiCIPW(i, 12) + DatiCIPW(i, 9)) <= 0 Then
GoTo wqwq13
End If

anor = 100 * DatiCIPW(i, 12) / (DatiCIPW(i, 12) + DatiCIPW(i, 9))
Q = 100 * DatiCIPW(i, 19) / (DatiCIPW(i, 19) + DatiCIPW(i, 12) + DatiCIPW(i, 9) + DatiCIPW(i, 10))
F = 100 * (DatiCIPW(i, 23) + DatiCIPW(i, 24) + DatiCIPW(i, 26)) / (DatiCIPW(i, 12) + DatiCIPW(i, 9) + DatiCIPW(i, 10) + DatiCIPW(i, 23) + DatiCIPW(i, 24) + DatiCIPW(i, 26))


If Q > F Then
yt = Q
End If

If F > Q Then
yt = -F
End If



If anor > MaxX(Indeks) Or anor < MinX(Indeks) Then
Campione(i, Indeks) = ""
NumCamp(Indeks) = NumCamp(Indeks) + 1
aa = aa + 1
GoTo wqwq13
End If

If yt > MaxY(Indeks) Or yt < MinY(Indeks) Then
Campione(i, Indeks) = ""
NumCamp(Indeks) = NumCamp(Indeks) + 1
aa = aa + 1
GoTo wqwq13
End If

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 1
tipo = Val(BackGrnd.FG1)

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 3
tipo1 = Val(BackGrnd.FG1)

BackGrnd.FG1.col = 2
col = BackGrnd.Picture1(BackGrnd.FG1 + 8).BackColor
MF1.InsertPoint NomeCamp(i), anor, yt, SimbDim(Indeks), col, tipo

wqwq13:

Next i

If aa > 0 Then
MsgBox "Attention! Some samples are positioned out of graph area", , "Attention"
End If


MF1.asseXTitle "ANOR", 10
MF1.asseYTitle "Q'-F'", 10
picforms(Indeks).Caption = "Fig." + Trim(Indeks) + ": Q'(F')-ANOR (Right mouse click for option - Double click to change)"
MF1.Finegraph
MF1.MostraSpecifiche = True
MF1.Evidenzia = True
Form14.Hide
Exit Sub
End If



'--------------------
'  Middlemost
'--------------------


If DiagramType(Indeks) = "Middle" Then
tipoGraph(Indeks) = "normx-normy"
binary(Indeks) = True
'determino la colonna di SiO2
numa = 101
numb = 101


For i = 1 To Numelem
If Elementi(i) = "SiO2" Then
numa = i
AXX(Indeks) = i
End If
Next i



'determino la colonna di B
For i = 1 To Numelem
If Elementi(i) = "K2O" Then
numb = i
AXY(Indeks) = i
End If
Next i

If numa = 101 Or numb = 101 Then
MsgBox "An Error Occurred: I'm not able to identify SiO2 or K2O"
Form14.Hide
Exit Sub
End If

MaxX(Indeks) = 54
MinX(Indeks) = 44
MaxY(Indeks) = 4
MinY(Indeks) = 0
OMaxX(Indeks) = 54
OMinX(Indeks) = 44
OMaxY(Indeks) = 4
OMinY(Indeks) = 0
deltax1(Indeks) = 2
deltay1(Indeks) = 1
Intx(Indeks) = 10
Inty(Indeks) = 10
binary(Indeks) = True
SPIDERREE(Indeks) = False
SPIDEROTHER(Indeks) = False
Triangular(Indeks) = False

MF1.NewRectGraph (App.Path + "\data\g10" + Trim(Str(Indeks))), Xgraph(Indeks), Ygraph(Indeks)
MF1.assi


MF1.Diagram

For i = 1 To Numcamp1

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 1
tipo = Val(BackGrnd.FG1)

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 3
tipo1 = Val(BackGrnd.FG1)

If DatiOrigine(i, AXX(Indeks)) > MaxX(Indeks) Or DatiOrigine(i, AXX(Indeks)) < MinX(Indeks) Then
Campione(i, Indeks) = ""
NumCamp(Indeks) = NumCamp(Indeks) + 1
If tipo = 0 Or tipo1 = 0 Or DatiOrigine(i, AXX(Indeks)) <= 0 Or SimbFilter(i) = 0 Then
GoTo wqwq14
End If
aa = aa + 1
GoTo wqwq14
End If

If DatiOrigine(i, AXY(Indeks)) > MaxY(Indeks) Or DatiOrigine(i, AXY(Indeks)) < MinY(Indeks) Then
Campione(i, Indeks) = ""
NumCamp(Indeks) = NumCamp(Indeks) + 1
If tipo = 0 Or tipo1 = 0 Or DatiOrigine(i, AXY(Indeks)) <= 0 Or SimbFilter(i) = 0 Then
GoTo wqwq14
End If
aa = aa + 1
GoTo wqwq14
End If

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 1
tipo = Val(BackGrnd.FG1)

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 3
tipo1 = Val(BackGrnd.FG1)

BackGrnd.FG1.col = 2
col = BackGrnd.Picture1(BackGrnd.FG1 + 8).BackColor
MF1.InsertPoint NomeCamp(i), DatiOrigine(i, numa), DatiOrigine(i, numb), SimbDim(Indeks), col, tipo

wqwq14:

Next i

If aa > 0 Then
MsgBox "Attention! Some samples are positioned out of graph area", , "Attention"
End If


MF1.asseXTitle "SiO2", 10
MF1.asseYTitle "K2O", 10
MF1.Finegraph
MF1.MostraSpecifiche = True
MF1.Evidenzia = True
Form14.Hide
Exit Sub
End If



'--------------------
'Peccerillo Taylor
'--------------------


If DiagramType(Indeks) = "PecceTay" Then
tipoGraph(Indeks) = "normx-normy"
binary(Indeks) = True
'determino la colonna di SiO2
numa = 101
numb = 101


For i = 1 To Numelem
If Elementi(i) = "SiO2" Then
numa = i
AXX(Indeks) = i
End If
Next i



'determino la colonna di B
For i = 1 To Numelem
If Elementi(i) = "K2O" Then
numb = i
AXY(Indeks) = i
End If
Next i

If numa = 101 Or numb = 101 Then
MsgBox "An Error Occurred: I'm not able to identify SiO2 or K2O"
Form14.Hide
Exit Sub
End If

MaxX(Indeks) = 70
MinX(Indeks) = 50
MaxY(Indeks) = 6
MinY(Indeks) = 0
OMaxX(Indeks) = 70
OMinX(Indeks) = 50
OMaxY(Indeks) = 6
OMinY(Indeks) = 0
deltax1(Indeks) = 5
deltay1(Indeks) = 1
Intx(Indeks) = 10
Inty(Indeks) = 10
binary(Indeks) = True
SPIDERREE(Indeks) = False
SPIDEROTHER(Indeks) = False
Triangular(Indeks) = False

MF1.NewRectGraph (App.Path + "\data\g10" + Trim(Str(Indeks))), Xgraph(Indeks), Ygraph(Indeks)
MF1.assi


MF1.Diagram


For i = 1 To Numcamp1

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 1
tipo = Val(BackGrnd.FG1)

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 3
tipo1 = Val(BackGrnd.FG1)

If DatiOrigine(i, AXX(Indeks)) > MaxX(Indeks) Or DatiOrigine(i, AXX(Indeks)) < MinX(Indeks) Then
Campione(i, Indeks) = ""
NumCamp(Indeks) = NumCamp(Indeks) + 1
If tipo = 0 Or tipo1 = 0 Or DatiOrigine(i, AXX(Indeks)) <= 0 Or SimbFilter(i) = 0 Then
GoTo wqwq1499
End If
aa = aa + 1
GoTo wqwq1499
End If

If DatiOrigine(i, AXY(Indeks)) > MaxY(Indeks) Or DatiOrigine(i, AXY(Indeks)) < MinY(Indeks) Then
Campione(i, Indeks) = ""
NumCamp(Indeks) = NumCamp(Indeks) + 1
If tipo = 0 Or tipo1 = 0 Or DatiOrigine(i, AXY(Indeks)) <= 0 Or SimbFilter(i) = 0 Then
GoTo wqwq1499
End If
aa = aa + 1
GoTo wqwq1499
End If

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 1
tipo = Val(BackGrnd.FG1)
BackGrnd.FG1.col = 2

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 3
tipo1 = Val(BackGrnd.FG1)

If tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Or DatiOrigine(i, numa) <= 0 Or DatiOrigine(i, numa) <= 0 Or DatiOrigine(i, numa) <= 0 Then
GoTo wqwq1499
End If
col = BackGrnd.Picture1(BackGrnd.FG1 + 8).BackColor
MF1.InsertPoint NomeCamp(i), DatiOrigine(i, numa), DatiOrigine(i, numb), SimbDim(Indeks), col, tipo

wqwq1499:

Next i

If aa > 0 Then
MsgBox "Attention! Some samples are positioned out of graph area", , "Attention"
End If


MF1.asseXTitle "SiO2", 10
MF1.asseYTitle "K2O", 10
MF1.Finegraph
MF1.MostraSpecifiche = True
MF1.Evidenzia = True
Form14.Hide
Exit Sub
End If

'----------------------
' le Bas
'----------------------


If DiagramType(Indeks) = "LeBas" Then

numa = 101
numb = 101

tipoGraph(Indeks) = "normx-normy"

'determino la colonna di SiO2
For i = 1 To Numelem
If Elementi(i) = "SiO2" Then
numa = i
AXX(Indeks) = i
End If
Next i

'determino la colonna di Na2O+K2O
For i = 1 To Numelem
If Elementi(i) = "(Na2O+K2O)" Or Elementi(i) = "(K2O+Na2O)" Then
numb = i
AXY(Indeks) = i
End If
Next i

If numb = 101 Then

INP.Addizione "Na2O", "K2O"

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)
AXY(Indeks) = Numelem
numb = Numelem
End If


If numa = 101 Or numb = 101 Then
MsgBox "An Error Occurred: I'm not able to identify SiO2 or K2O or Na2O", , "attention"
Form14.Hide
Exit Sub
End If



MaxX(Indeks) = 77
MinX(Indeks) = 35
MaxY(Indeks) = 16
MinY(Indeks) = 0
OMaxX(Indeks) = 77
OMinX(Indeks) = 35
OMaxY(Indeks) = 16
OMinY(Indeks) = 0
Intx(Indeks) = 10
Inty(Indeks) = 10
deltax1(Indeks) = 5
deltay1(Indeks) = 2
binary(Indeks) = True
SPIDERREE(Indeks) = False
SPIDEROTHER(Indeks) = False
Triangular(Indeks) = False

MF1.NewRectGraph (App.Path + "\data\g10" + Trim(Str(Indeks))), Xgraph(Indeks), Ygraph(Indeks)
MF1.assi


MF1.Diagram

aa = 0

For i = 1 To Numcamp1

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 1
tipo = Val(BackGrnd.FG1)

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 3
tipo1 = Val(BackGrnd.FG1)
If tipo = 0 Or tipo1 = 0 Or DatiOrigine(i, numa) <= 0 Or SimbFilter(i) = 0 Then GoTo wqwq9

If DatiOrigine(i, numa) > MaxX(Indeks) Or DatiOrigine(i, numa) < MinX(Indeks) Then
Campione(i, Indeks) = ""
NumCamp(Indeks) = NumCamp(Indeks) + 1
aa = aa + 1
GoTo wqwq9
End If


BackGrnd.FG1.col = 2
col = BackGrnd.Picture1(BackGrnd.FG1 + 8).BackColor
MF1.InsertPoint NomeCamp(i), DatiOrigine(i, numa), DatiOrigine(i, numb), SimbDim(Indeks), col, tipo

wqwq9:

Next i

If aa > 0 Then
MsgBox "Attention! Some samples are positioned out of graph area", , "Attention"
End If


MF1.asseXTitle "SiO2", 10
MF1.asseYTitle "(Na20+K2O)", 10
MF1.Finegraph
MF1.MostraSpecifiche = True
MF1.Evidenzia = True
Form14.Hide
Exit Sub

End If

'-------------------------
' COX
'-------------------------

If DiagramType(Indeks) = "coxV" Or DiagramType(Indeks) = "coxP" Then
'determino la colonna di SiO2
numa = 101
numb = 101

tipoGraph(Indeks) = "normx-normy"

'determino la colonna di SiO2
For i = 1 To Numelem
If Elementi(i) = "SiO2" Then
numa = i
AXX(Indeks) = i
End If
Next i

'determino la colonna di Na2O+K2O
For i = 1 To Numelem
If Elementi(i) = "(Na2O+K2O)" Or Elementi(i) = "(K2O+Na2O)" Then
numb = i
AXY(Indeks) = i
End If
Next i

If numb = 101 Then

INP.Addizione "Na2O", "K2O"

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)
AXX(Indeks) = Numelem
numb = Numelem
End If


If numa = 101 Or numb = 101 Then
MsgBox "An Error Occurred: I'm not able to identify SiO2 or K2O or Na2O", , "Error"
Form14.Hide
Exit Sub
End If



MaxX(Indeks) = 76
MinX(Indeks) = 35
MaxY(Indeks) = 17
MinY(Indeks) = 0
OMaxX(Indeks) = 76
OMinX(Indeks) = 35
OMaxY(Indeks) = 17
OMinY(Indeks) = 0
Intx(Indeks) = 10
Inty(Indeks) = 10
deltax1(Indeks) = 5
deltay1(Indeks) = 2
binary(Indeks) = True
SPIDERREE(Indeks) = False
SPIDEROTHER(Indeks) = False
Triangular(Indeks) = False

MF1.NewRectGraph (App.Path + "\data\g10" + Trim(Str(Indeks))), Xgraph(Indeks), Ygraph(Indeks)
MF1.assi


MF1.Diagram

For i = 1 To Numcamp1

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 1
tipo = Val(BackGrnd.FG1)

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 3
tipo1 = Val(BackGrnd.FG1)

If DatiOrigine(i, numa) > MaxX(Indeks) Or DatiOrigine(i, numa) < MinX(Indeks) Then
Campione(i, Indeks) = ""
NumCamp(Indeks) = NumCamp(Indeks) + 1
If tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Then
GoTo wqwq10
End If
aa = aa + 1
GoTo wqwq10
End If

If DatiOrigine(i, numb) > MaxY(Indeks) Or DatiOrigine(i, numa) < MinY(Indeks) Then
Campione(i, Indeks) = ""
NumCamp(Indeks) = NumCamp(Indeks) + 1
If tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Then
GoTo wqwq10
End If
aa = aa + 1
GoTo wqwq10
End If

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 1
tipo = Val(BackGrnd.FG1)

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 3
tipo1 = Val(BackGrnd.FG1)

BackGrnd.FG1.col = 2
col = BackGrnd.Picture1(BackGrnd.FG1 + 8).BackColor
MF1.InsertPoint NomeCamp(i), DatiOrigine(i, numa), DatiOrigine(i, numb), SimbDim(Indeks), col, tipo

wqwq10:

Next i

If aa > 0 Then
MsgBox "Attention! Some samples are positioned out of graph area", , "Attention"
End If


MF1.asseXTitle "SiO2", 10
MF1.asseYTitle "(Na20+K2O)", 10
MF1.Finegraph
MF1.MostraSpecifiche = True
MF1.Evidenzia = True
Form14.Hide
Exit Sub

End If

'-----------------
' Gill
'-----------------

If DiagramType(Indeks) = "gill" Then
'determino la colonna di SiO2
numa = 101
numb = 101

tipoGraph(Indeks) = "normx-normy"

For i = 1 To Numelem
If Elementi(i) = "SiO2" Then
numa = i
AXX(Indeks) = i
End If
Next i



'determino la colonna di K2O
For i = 1 To Numelem
If Elementi(i) = "K2O" Then
numb = i
AXY(Indeks) = i
End If
Next i

If numa = 101 Or numb = 101 Then
MsgBox "An Error Occurred: I'm not able to identify SiO2 or K2O", , "Error"
Form14.Hide
Exit Sub
End If

MaxX(Indeks) = 65
MinX(Indeks) = 50
MaxY(Indeks) = 4
MinY(Indeks) = 0
OMaxX(Indeks) = 65
OMinX(Indeks) = 50
OMaxY(Indeks) = 4
OMinY(Indeks) = 0
Intx(Indeks) = 10
Inty(Indeks) = 10
deltax1(Indeks) = 2
deltay1(Indeks) = 0.5
binary(Indeks) = True
SPIDERREE(Indeks) = False
SPIDEROTHER(Indeks) = False
Triangular(Indeks) = False

MF1.NewRectGraph (App.Path + "\data\g10" + Trim(Str(Indeks))), Xgraph(Indeks), Ygraph(Indeks)
MF1.assi


MF1.Diagram

For i = 1 To Numcamp1

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 1
tipo = Val(BackGrnd.FG1)

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 3
tipo1 = Val(BackGrnd.FG1)

If DatiOrigine(i, AXX(Indeks)) > MaxX(Indeks) Or DatiOrigine(i, AXX(Indeks)) < MinX(Indeks) Then
Campione(i, Indeks) = ""
NumCamp(Indeks) = NumCamp(Indeks) + 1
If tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Then
GoTo wqwq11
End If
aa = aa + 1
GoTo wqwq11
End If

If DatiOrigine(i, AXY(Indeks)) > MaxY(Indeks) Or DatiOrigine(i, AXY(Indeks)) < MinY(Indeks) Then
Campione(i, Indeks) = ""
NumCamp(Indeks) = NumCamp(Indeks) + 1
If tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Then
GoTo wqwq11
End If
aa = aa + 1
GoTo wqwq11
End If

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 1
tipo = Val(BackGrnd.FG1)

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 3
tipo1 = Val(BackGrnd.FG1)

BackGrnd.FG1.col = 2
col = BackGrnd.Picture1(BackGrnd.FG1 + 8).BackColor
MF1.InsertPoint NomeCamp(i), DatiOrigine(i, numa), DatiOrigine(i, numb), SimbDim(Indeks), col, tipo

wqwq11:

Next i

If aa > 0 Then
MsgBox "Attention! Some samples are positioned out of graph area", , "attention"
End If


MF1.asseXTitle "SiO2", 10
MF1.asseYTitle "K2O", 10
MF1.Finegraph
MF1.MostraSpecifiche = True
MF1.Evidenzia = True
Form14.Hide
Exit Sub
End If


'------------------
' Myashiro
'------------------

If DiagramType(Indeks) = "Myas" Then
'determino la colonna di SiO2
numa = 101
numb = 101
numc = 101

tipoGraph(Indeks) = "normx-normy"

'determino la colonna di SiO2
For i = 1 To Numelem
If Elementi(i) = "SiO2" Then
numa = i
AXY(Indeks) = i
End If
Next i

'determino la colonna di FeOtot
For i = 1 To Numelem
If Elementi(i) = "FeOtot" Then
numb = i
numc = i
End If
Next i


If numb = 101 Then

'cerco ferro 2 e 3

INP.Feototale
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)
numc = Numelem

End If


If numa = 101 Or numc = 101 Then
MsgBox "An Error Occurred: I'm not able to identify SiO2 or K2O or Na2O", , "Error"
Form14.Hide
Exit Sub
End If


INP.Divisione "FeOtot", "MgO"
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)
AXX(Indeks) = Numelem
numc = Numelem



MaxX(Indeks) = 5
MinX(Indeks) = 0
MaxY(Indeks) = 65
MinY(Indeks) = 48
OMaxX(Indeks) = 5
OMinX(Indeks) = 0
OMaxY(Indeks) = 65
OMinY(Indeks) = 48
Intx(Indeks) = 10
Inty(Indeks) = 10
deltax1(Indeks) = 0.5
deltay1(Indeks) = 2
binary(Indeks) = True
SPIDERREE(Indeks) = False
SPIDEROTHER(Indeks) = False
Triangular(Indeks) = False

MF1.NewRectGraph (App.Path + "\data\g10" + Trim(Str(Indeks))), Xgraph(Indeks), Ygraph(Indeks)
MF1.assi


MF1.Diagram


For i = 1 To Numcamp1

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 1
tipo = Val(BackGrnd.FG1)

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 3
tipo1 = Val(BackGrnd.FG1)

If DatiOrigine(i, numc) > MaxX(Indeks) Or DatiOrigine(i, numc) < MinX(Indeks) Then
Campione(i, Indeks) = ""
NumCamp(Indeks) = NumCamp(Indeks) + 1
If tipo = 0 Or tipo1 = 0 Or DatiOrigine(i, numc) <= 0 Or SimbFilter(i) = 0 Then
GoTo wqwq12
End If
aa = aa + 1
GoTo wqwq12
End If

If DatiOrigine(i, numa) > MaxY(Indeks) Or DatiOrigine(i, numa) < MinY(Indeks) Then
Campione(i, Indeks) = ""
NumCamp(Indeks) = NumCamp(Indeks) + 1
If tipo = 0 Or tipo1 = 0 Or DatiOrigine(i, numa) <= 0 Or SimbFilter(i) = 0 Then
GoTo wqwq12
End If
aa = aa + 1
GoTo wqwq12
End If

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 1
tipo = Val(BackGrnd.FG1)

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 3
tipo1 = Val(BackGrnd.FG1)

BackGrnd.FG1.col = 2
col = BackGrnd.Picture1(BackGrnd.FG1 + 8).BackColor
MF1.InsertPoint NomeCamp(i), DatiOrigine(i, numc), DatiOrigine(i, numa), SimbDim(Indeks), col, tipo

wqwq12:

Next i

If aa > 0 Then
MsgBox "Attention! Some samples are positioned out of graph area", , "Attention"
End If


MF1.asseXTitle Elementi(numb), 10
MF1.asseYTitle Elementi(numa), 10
MF1.Finegraph
MF1.MostraSpecifiche = True
MF1.Evidenzia = True
Form14.Hide
Exit Sub
End If

'------------'
'Ti-Zr Pearce'
'------------'


If DiagramType(Indeks) = "TiZrPearce" Then



numa = 101
numb = 101

tipoGraph(Indeks) = "normx-normy"

'determino la colonna di Zr
For i = 1 To Numelem
If Elementi(i) = "Zr" Then
numa = i
AXX(Indeks) = i
End If
Next i



'determino la colonna di Ti
For i = 1 To Numelem
If Elementi(i) = "Ti" Then
numb = i
AXY(Indeks) = i
End If
Next i

If numa = 101 Or numb = 101 Then
MsgBox "An Error Occurred: I'm not able to identify Ti or Zr", , "Error"
Form14.Hide
Exit Sub
End If

MaxX(Indeks) = 200
MinX(Indeks) = 0
MaxY(Indeks) = 20000
MinY(Indeks) = 0
Intx(Indeks) = 10
Inty(Indeks) = 10
OMaxX(Indeks) = 200
OMinX(Indeks) = 0
OMaxY(Indeks) = 20000
OMinY(Indeks) = 0
Intx(Indeks) = 10
Inty(Indeks) = 10
deltax1(Indeks) = 20
deltay1(Indeks) = 2000
binary(Indeks) = True
SPIDERREE(Indeks) = False
SPIDEROTHER(Indeks) = False
Triangular(Indeks) = False

MF1.NewRectGraph (App.Path + "\data\g10" + Trim(Str(Indeks))), Xgraph(Indeks), Ygraph(Indeks)
MF1.assi


MF1.Diagram

For i = 1 To Numcamp1

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 1
tipo = Val(BackGrnd.FG1)

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 3
tipo1 = Val(BackGrnd.FG1)

If DatiOrigine(i, AXX(Indeks)) > MaxX(Indeks) Or DatiOrigine(i, AXX(Indeks)) < MinX(Indeks) Then
Campione(i, Indeks) = ""
NumCamp(Indeks) = NumCamp(Indeks) + 1
If tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Then GoTo wqwq15
aa = aa + 1
GoTo wqwq15
End If

If DatiOrigine(i, AXY(Indeks)) > MaxY(Indeks) Or DatiOrigine(i, AXY(Indeks)) < MinY(Indeks) Then
Campione(i, Indeks) = ""
NumCamp(Indeks) = NumCamp(Indeks) + 1
If tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Then GoTo wqwq15
aa = aa + 1
GoTo wqwq15
End If

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 1
tipo = Val(BackGrnd.FG1)

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 3
tipo1 = Val(BackGrnd.FG1)

BackGrnd.FG1.col = 2
col = BackGrnd.Picture1(BackGrnd.FG1 + 8).BackColor

If tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Then GoTo wqwq15
MF1.InsertPoint NomeCamp(i), DatiOrigine(i, numa), DatiOrigine(i, numb), SimbDim(Indeks), col, tipo

wqwq15:

Next i

If aa > 0 Then
MsgBox "Attention! Some samples are positioned out of graph area", , "Error"
End If


MF1.asseXTitle "Zr", 10
MF1.asseYTitle "Ti", 10
MF1.Finegraph
MF1.MostraSpecifiche = True
MF1.Evidenzia = True
Form14.Hide
Exit Sub
End If



'--------------------
'Mantle End Member 87Sr86SrVs143Nd144Nd
'--------------------


If DiagramType(Indeks) = "87Sr86SrVs143Nd144Nd" Then
tipoGraph(Indeks) = "normx-normy"
binary(Indeks) = True
'determino la colonna di x
numa = 101
numb = 101


For i = 1 To Numelem
If Elementi(i) = "87Sr/86Sr" Then
numa = i
AXX(Indeks) = i
End If
Next i



'determino la colonna di B
For i = 1 To Numelem
If Elementi(i) = "143Nd/144Nd" Then
numb = i
AXY(Indeks) = i
End If
Next i

If numa = 101 Or numb = 101 Then
MsgBox "An Error Occurred: I'm not able to identify 87Sr/86Sr or 143Nd/144Nd"
Form14.Hide
Exit Sub
End If

MaxX(Indeks) = 0.71
MinX(Indeks) = 0.7
MaxY(Indeks) = 0.5136
MinY(Indeks) = 0.512
OMaxX(Indeks) = 0.71
OMinX(Indeks) = 0.7
OMaxY(Indeks) = 0.5135
OMinY(Indeks) = 0.512
deltax1(Indeks) = 0.002
deltay1(Indeks) = 0.0005
Intx(Indeks) = 4
Inty(Indeks) = 7
binary(Indeks) = True
SPIDERREE(Indeks) = False
SPIDEROTHER(Indeks) = False
Triangular(Indeks) = False

MF1.NewRectGraph (App.Path + "\data\g10" + Trim(Str(Indeks))), Xgraph(Indeks), Ygraph(Indeks)
MF1.assi


MF1.Diagram


For i = 1 To Numcamp1

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 1
tipo = Val(BackGrnd.FG1)

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 3
tipo1 = Val(BackGrnd.FG1)

If DatiOrigine(i, AXX(Indeks)) > MaxX(Indeks) Or DatiOrigine(i, AXX(Indeks)) < MinX(Indeks) Then
Campione(i, Indeks) = ""
NumCamp(Indeks) = NumCamp(Indeks) + 1
If tipo = 0 Or tipo1 = 0 Or DatiOrigine(i, AXY(Indeks)) <= 0 Or DatiOrigine(i, AXX(Indeks)) <= 0 Or SimbFilter(i) = 0 Then

GoTo wqwq8499
End If
aa = aa + 1
GoTo wqwq8499
End If

If DatiOrigine(i, AXY(Indeks)) > MaxY(Indeks) Or DatiOrigine(i, AXY(Indeks)) < MinY(Indeks) Then
Campione(i, Indeks) = ""
NumCamp(Indeks) = NumCamp(Indeks) + 1
If tipo = 0 Or tipo1 = 0 Or DatiOrigine(i, AXY(Indeks)) <= 0 Or SimbFilter(i) = 0 Or DatiOrigine(i, AXX(Indeks)) <= 0 Then
GoTo wqwq8499
End If
aa = aa + 1
GoTo wqwq8499
End If

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 1
tipo = Val(BackGrnd.FG1)
BackGrnd.FG1.col = 2

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 3
tipo1 = Val(BackGrnd.FG1)

If tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Or DatiOrigine(i, numa) <= 0 Or DatiOrigine(i, numa) <= 0 Or DatiOrigine(i, numa) <= 0 Then
GoTo wqwq8499
End If
col = BackGrnd.Picture1(BackGrnd.FG1 + 8).BackColor
MF1.InsertPoint NomeCamp(i), DatiOrigine(i, numa), DatiOrigine(i, numb), SimbDim(Indeks), col, tipo

wqwq8499:

Next i

If aa > 0 Then
MsgBox "Attention! Some samples are positioned out of graph area", , "Attention"
End If


MF1.asseXTitle "87Sr/86Sr", 10
MF1.asseYTitle "143Nd/144Nd", 10
MF1.Finegraph
MF1.MostraSpecifiche = True
MF1.Evidenzia = True
Form14.Hide
Exit Sub
End If




'--------------------
'Mantle End Member 206Pb204PbVs143Nd144Nd
'--------------------


If DiagramType(Indeks) = "206Pb204PbVs143Nd144Nd" Then
tipoGraph(Indeks) = "normx-normy"
binary(Indeks) = True
'determino la colonna di x
numa = 101
numb = 101


For i = 1 To Numelem
If Elementi(i) = "206Pb/204Pb" Then
numa = i
AXX(Indeks) = i
End If
Next i



'determino la colonna di B
For i = 1 To Numelem
If Elementi(i) = "143Nd/144Nd" Then
numb = i
AXY(Indeks) = i
End If
Next i

If numa = 101 Or numb = 101 Then
MsgBox "An Error Occurred: I'm not able to identify 206Pb/204Pb or 143Nd/144Nd"
Form14.Hide
Exit Sub
End If

MaxX(Indeks) = 22.5
MinX(Indeks) = 17.5
MaxY(Indeks) = 0.5136
MinY(Indeks) = 0.512
OMaxX(Indeks) = 17.5
OMinX(Indeks) = 22.5
OMaxY(Indeks) = 0.5135
OMinY(Indeks) = 0.512
deltax1(Indeks) = 0.5
deltay1(Indeks) = 0.0005
Intx(Indeks) = 4
Inty(Indeks) = 7
binary(Indeks) = True
SPIDERREE(Indeks) = False
SPIDEROTHER(Indeks) = False
Triangular(Indeks) = False

MF1.NewRectGraph (App.Path + "\data\g10" + Trim(Str(Indeks))), Xgraph(Indeks), Ygraph(Indeks)
MF1.assi


MF1.Diagram


For i = 1 To Numcamp1

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 1
tipo = Val(BackGrnd.FG1)

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 3
tipo1 = Val(BackGrnd.FG1)

If DatiOrigine(i, AXX(Indeks)) > MaxX(Indeks) Or DatiOrigine(i, AXX(Indeks)) < MinX(Indeks) Then
Campione(i, Indeks) = ""
NumCamp(Indeks) = NumCamp(Indeks) + 1
If tipo = 0 Or tipo1 = 0 Or DatiOrigine(i, AXY(Indeks)) <= 0 Or DatiOrigine(i, AXX(Indeks)) <= 0 Or SimbFilter(i) = 0 Then

GoTo wqwq8599
End If
aa = aa + 1
GoTo wqwq8599
End If

If DatiOrigine(i, AXY(Indeks)) > MaxY(Indeks) Or DatiOrigine(i, AXY(Indeks)) < MinY(Indeks) Then
Campione(i, Indeks) = ""
NumCamp(Indeks) = NumCamp(Indeks) + 1
If tipo = 0 Or tipo1 = 0 Or DatiOrigine(i, AXY(Indeks)) <= 0 Or SimbFilter(i) = 0 Or DatiOrigine(i, AXX(Indeks)) <= 0 Then
GoTo wqwq8599
End If
aa = aa + 1
GoTo wqwq8599
End If

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 1
tipo = Val(BackGrnd.FG1)
BackGrnd.FG1.col = 2

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 3
tipo1 = Val(BackGrnd.FG1)

If tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Or DatiOrigine(i, numa) <= 0 Or DatiOrigine(i, numa) <= 0 Or DatiOrigine(i, numa) <= 0 Then
GoTo wqwq8599
End If
col = BackGrnd.Picture1(BackGrnd.FG1 + 8).BackColor
MF1.InsertPoint NomeCamp(i), DatiOrigine(i, numa), DatiOrigine(i, numb), SimbDim(Indeks), col, tipo

wqwq8599:

Next i

If aa > 0 Then
MsgBox "Attention! Some samples are positioned out of graph area", , "Attention"
End If


MF1.asseXTitle "206Pb/204Pb", 10
MF1.asseYTitle "143Nd/144Nd", 10
MF1.Finegraph
MF1.MostraSpecifiche = True
MF1.Evidenzia = True
Form14.Hide
Exit Sub
End If


'--------------------
'Mantle End Member 206Pb204PbVs87Sr86Sr
'--------------------


If DiagramType(Indeks) = "206Pb204PbVs87Sr86Sr" Then
tipoGraph(Indeks) = "normx-normy"
binary(Indeks) = True
'determino la colonna di x
numa = 101
numb = 101


For i = 1 To Numelem
If Elementi(i) = "206Pb/204Pb" Then
numa = i
AXX(Indeks) = i
End If
Next i



'determino la colonna di B
For i = 1 To Numelem
If Elementi(i) = "87Sr/86Sr" Then
numb = i
AXY(Indeks) = i
End If
Next i

If numa = 101 Or numb = 101 Then
MsgBox "An Error Occurred: I'm not able to identify 206Pb/204Pb or 87Sr/86Sr"
Form14.Hide
Exit Sub
End If

MaxX(Indeks) = 22.5
MinX(Indeks) = 17.5
MaxY(Indeks) = 0.71
MinY(Indeks) = 0.7
OMaxX(Indeks) = 17.5
OMinX(Indeks) = 22.5
OMaxY(Indeks) = 0.71
OMinY(Indeks) = 0.7
deltax1(Indeks) = 0.5
deltay1(Indeks) = 0.002
Intx(Indeks) = 4
Inty(Indeks) = 7
binary(Indeks) = True
SPIDERREE(Indeks) = False
SPIDEROTHER(Indeks) = False
Triangular(Indeks) = False

MF1.NewRectGraph (App.Path + "\data\g10" + Trim(Str(Indeks))), Xgraph(Indeks), Ygraph(Indeks)
MF1.assi


MF1.Diagram


For i = 1 To Numcamp1

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 1
tipo = Val(BackGrnd.FG1)

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 3
tipo1 = Val(BackGrnd.FG1)

If DatiOrigine(i, AXX(Indeks)) > MaxX(Indeks) Or DatiOrigine(i, AXX(Indeks)) < MinX(Indeks) Then
Campione(i, Indeks) = ""
NumCamp(Indeks) = NumCamp(Indeks) + 1
If tipo = 0 Or tipo1 = 0 Or DatiOrigine(i, AXY(Indeks)) <= 0 Or DatiOrigine(i, AXX(Indeks)) <= 0 Or SimbFilter(i) = 0 Then

GoTo wqwq85999
End If
aa = aa + 1
GoTo wqwq85999
End If

If DatiOrigine(i, AXY(Indeks)) > MaxY(Indeks) Or DatiOrigine(i, AXY(Indeks)) < MinY(Indeks) Then
Campione(i, Indeks) = ""
NumCamp(Indeks) = NumCamp(Indeks) + 1
If tipo = 0 Or tipo1 = 0 Or DatiOrigine(i, AXY(Indeks)) <= 0 Or SimbFilter(i) = 0 Or DatiOrigine(i, AXX(Indeks)) <= 0 Then
GoTo wqwq85999
End If
aa = aa + 1
GoTo wqwq85999
End If

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 1
tipo = Val(BackGrnd.FG1)
BackGrnd.FG1.col = 2

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 3
tipo1 = Val(BackGrnd.FG1)

If tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Or DatiOrigine(i, numa) <= 0 Or DatiOrigine(i, numa) <= 0 Or DatiOrigine(i, numa) <= 0 Then
GoTo wqwq85999
End If
col = BackGrnd.Picture1(BackGrnd.FG1 + 8).BackColor
MF1.InsertPoint NomeCamp(i), DatiOrigine(i, numa), DatiOrigine(i, numb), SimbDim(Indeks), col, tipo

wqwq85999:

Next i

If aa > 0 Then
MsgBox "Attention! Some samples are positioned out of graph area", , "Attention"
End If


MF1.asseXTitle "206Pb/204Pb", 10
MF1.asseYTitle "87Sr/86Sr", 10
MF1.Finegraph
MF1.MostraSpecifiche = True
MF1.Evidenzia = True
Form14.Hide
Exit Sub
End If


'--------------------
'Mantle End Member 206Pb204PbVs207Pb204Pb
'--------------------


If DiagramType(Indeks) = "206Pb204PbVs207Pb204Pb" Then
tipoGraph(Indeks) = "normx-normy"
binary(Indeks) = True
'determino la colonna di x
numa = 101
numb = 101


For i = 1 To Numelem
If Elementi(i) = "206Pb/204Pb" Then
numa = i
AXX(Indeks) = i
End If
Next i



'determino la colonna di B
For i = 1 To Numelem
If Elementi(i) = "207Pb/204Pb" Then
numb = i
AXY(Indeks) = i
End If
Next i

If numa = 101 Or numb = 101 Then
MsgBox "An Error Occurred: I'm not able to identify 206Pb/204Pb or 207Pb/204Pb"
Form14.Hide
Exit Sub
End If

MaxX(Indeks) = 23
MinX(Indeks) = 15
MaxY(Indeks) = 16
MinY(Indeks) = 15
OMaxX(Indeks) = 15
OMinX(Indeks) = 23
OMaxY(Indeks) = 16
OMinY(Indeks) = 15
deltax1(Indeks) = 1
deltay1(Indeks) = 0.1
Intx(Indeks) = 4
Inty(Indeks) = 7
binary(Indeks) = True
SPIDERREE(Indeks) = False
SPIDEROTHER(Indeks) = False
Triangular(Indeks) = False

MF1.NewRectGraph (App.Path + "\data\g10" + Trim(Str(Indeks))), Xgraph(Indeks), Ygraph(Indeks)
MF1.assi


MF1.Diagram


For i = 1 To Numcamp1

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 1
tipo = Val(BackGrnd.FG1)

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 3
tipo1 = Val(BackGrnd.FG1)

If DatiOrigine(i, AXX(Indeks)) > MaxX(Indeks) Or DatiOrigine(i, AXX(Indeks)) < MinX(Indeks) Then
Campione(i, Indeks) = ""
NumCamp(Indeks) = NumCamp(Indeks) + 1
If tipo = 0 Or tipo1 = 0 Or DatiOrigine(i, AXY(Indeks)) <= 0 Or DatiOrigine(i, AXX(Indeks)) <= 0 Or SimbFilter(i) = 0 Then

GoTo wqwq85998
End If
aa = aa + 1
GoTo wqwq85998
End If

If DatiOrigine(i, AXY(Indeks)) > MaxY(Indeks) Or DatiOrigine(i, AXY(Indeks)) < MinY(Indeks) Then
Campione(i, Indeks) = ""
NumCamp(Indeks) = NumCamp(Indeks) + 1
If tipo = 0 Or tipo1 = 0 Or DatiOrigine(i, AXY(Indeks)) <= 0 Or SimbFilter(i) = 0 Or DatiOrigine(i, AXX(Indeks)) <= 0 Then
GoTo wqwq85998
End If
aa = aa + 1
GoTo wqwq85998
End If

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 1
tipo = Val(BackGrnd.FG1)
BackGrnd.FG1.col = 2

BackGrnd.FG1.Row = i
BackGrnd.FG1.col = 3
tipo1 = Val(BackGrnd.FG1)

If tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Or DatiOrigine(i, numa) <= 0 Or DatiOrigine(i, numa) <= 0 Or DatiOrigine(i, numa) <= 0 Then
GoTo wqwq85998
End If
col = BackGrnd.Picture1(BackGrnd.FG1 + 8).BackColor
MF1.InsertPoint NomeCamp(i), DatiOrigine(i, numa), DatiOrigine(i, numb), SimbDim(Indeks), col, tipo

wqwq85998:

Next i

If aa > 0 Then
MsgBox "Attention! Some samples are positioned out of graph area", , "Attention"
End If


MF1.asseXTitle "206Pb/204Pb", 10
MF1.asseYTitle "207Pb/204Pb", 10
MF1.Finegraph
MF1.MostraSpecifiche = True
MF1.Evidenzia = True
Form14.Hide
Exit Sub
End If

Form14.Hide

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

End Sub


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

If KeyCode = 32 Then
Command6_Click
End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyCode = 32 Then
Command6_Click
End If

End Sub