VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Diargam"
   ClientHeight    =   2565
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   3330
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   2565
   ScaleWidth      =   3330
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command3 
      Caption         =   "Cancel"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   420
      Left            =   840
      TabIndex        =   10
      Top             =   2040
      Width           =   800
   End
   Begin VB.CommandButton Command6 
      Caption         =   "Plot (SpaceBar)"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   420
      Left            =   1680
      TabIndex        =   9
      Top             =   2040
      Width           =   1515
   End
   Begin VB.Frame Frame5 
      Caption         =   "Line Width"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   705
      Left            =   120
      TabIndex        =   7
      Top             =   1080
      Width           =   1695
      Begin VB.ComboBox Combo1 
         Height          =   288
         ItemData        =   "Form1.frx":0000
         Left            =   120
         List            =   "Form1.frx":000A
         TabIndex        =   8
         Text            =   "1"
         Top             =   240
         Width           =   1455
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Graph Characteristic"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1935
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   3255
      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        =   5
         Top             =   1080
         Width           =   1215
         Begin VB.ComboBox Combo5 
            Height          =   288
            ItemData        =   "Form1.frx":0014
            Left            =   120
            List            =   "Form1.frx":001E
            TabIndex        =   6
            Text            =   "2"
            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        =   3
         Top             =   360
         Width           =   1215
         Begin VB.ComboBox Combo7 
            Height          =   288
            ItemData        =   "Form1.frx":0028
            Left            =   120
            List            =   "Form1.frx":0035
            TabIndex        =   4
            Text            =   "Med"
            Top             =   240
            Width           =   975
         End
      End
      Begin VB.Frame Frame4 
         Caption         =   "Graph Dim"
         Height          =   705
         Left            =   120
         TabIndex        =   1
         Top             =   360
         Width           =   1695
         Begin VB.ComboBox Combo4 
            Height          =   288
            ItemData        =   "Form1.frx":0048
            Left            =   120
            List            =   "Form1.frx":0055
            TabIndex        =   2
            Text            =   "500x500"
            Top             =   240
            Width           =   1455
         End
      End
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   495
      Left            =   120
      TabIndex        =   11
      Top             =   2040
      Width           =   1095
   End
End
Attribute VB_Name = "Form1"
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 Combo7_KeyPress(KeyAscii As Integer)

If KeyCode = 32 Then
Command6_Click
End If

End Sub

Private Sub Command3_Click()


Form1.Hide

End Sub

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

If KeyCode = 32 Then
Command6_Click
End If

End Sub



Private Sub Command6_Click()

On Error GoTo ee



Dim tp As Integer

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!"
Exit Sub
End If

poi:

 'linesp
   If Combo1.Text = "1" Then
   LineSp(Indeks) = 1
   End If
   If Combo1.Text = "2" Then
   LineSp(Indeks) = 2
   End If
   
   'simbsp
   If Combo7.Text = "Min" Then
   SimbDim(Indeks) = 2
   End If
   If Combo7.Text = "Med" Then
   SimbDim(Indeks) = 4
   End If
   If Combo7.Text = "Max" Then
   SimbDim(Indeks) = 6
   End If
   
   'simbspsp
   If Combo5.Text = "1" Then
   SimbSp(Indeks) = 1
   End If
   If Combo5.Text = "2" Then
   SimbSp(Indeks) = 2
   End If

'GraphDim

 If Combo4.Text = "300x300" Then
   tp = 1
   End If
   If Combo4.Text = "500x500" Then
    tp = 2
   End If
   If Combo4.Text = "700x700" Then
    tp = 3
   End If
   
 TypeDim(Indeks) = tp
   
   'simbspsp
   If Combo5.Text = "1" Then
   SimbSp(Indeks) = 1
   End If
   If Combo5.Text = "2" Then
   SimbSp(Indeks) = 2
   End If
   
   

DiagramType(Indeks) = DiagramType1

'Disegno


numa = 101
numb = 101
numc = 101
numd = 101

'--------------------'
'     Ta/Yb-Th/Yb Pearce    '
'--------------------'


If DiagramType(Indeks) = "TaYbThYb" Then

tipoGraph(Indeks) = "logx-logy"

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

'determino la colonna diTa
For i = 1 To Numelem
If Elementi(i) = "Ta" Then
numb = i
End If
Next i

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


If numa = 101 Or numb = 101 Then
MsgBox "An Error Occurred: I'm not able to identify Yb or Th or Ta", , "Error"
Exit Sub
End If

INP.Divisione "Ta", "Yb"
INP.Divisione "Th", "Yb"

numa = 101
numb = 101

'determino la colonna diTa
For i = 1 To Numelem
If Elementi(i) = "(Ta/Yb)" Then
numa = i
AXX(Indeks) = i
End If
Next i

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

If numa = 101 Or numb = 101 Then
MsgBox "An Error Occurred", , "Error"
Exit Sub
End If



MaxX(Indeks) = 10 - (10 ^ -10)
MinX(Indeks) = 0.01 + (10 ^ -10)
MaxY(Indeks) = 100 - (10 ^ -10)
MinY(Indeks) = 0.01 + (10 ^ -10)
OMaxX(Indeks) = 9
OMinX(Indeks) = 0.011
OMaxY(Indeks) = 99
OMinY(Indeks) = 0.011
deltax1(Indeks) = 100
deltay1(Indeks) = 100
binary(Indeks) = True
SPIDERREE(Indeks) = False
SPIDEROTHER(Indeks) = False
Triangular(Indeks) = False

MF1.NewLogLogGraph (App.Path + "\data\g10" + Trim(Str(Indeks))), tp
MF1.LogAssi

'14-06-02
MF1.MostraSpecifiche = True
MF1.Evidenzia = True

MF1.Diagram
as1 = 0

For i = 1 To Numcamp1

If DatiOrigine(i, numa) <= 0 Or DatiOrigine(i, numb) <= 0 Then
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)

'----------

If tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Then GoTo wqwq14 'sett 2004

'--------


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

If tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Then GoTo wqwq14
If DatiOrigine(i, numa) < MinX(Indeks) Or DatiOrigine(i, numa) > MaxX(Indeks) Or DatiOrigine(i, numb) < MinY(Indeks) Or DatiOrigine(i, numb) > MaxY(Indeks) Then
as1 = as1 + 1
GoTo wqwq14
End If

MF1.LOG_InsertPoint NomeCamp(i), DatiOrigine(i, numa), DatiOrigine(i, numb), SimbDim(Indeks), col, tipo

wqwq14:

Next i

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


MF1.asseXTitle "Ta/Yb", 10
MF1.asseYTitle "Th/Yb", 10
MF1.Finegraph
MF1.MostraSpecifiche = True
MF1.Evidenzia = True

End If

'--------------------'
'     Cr-Y Pearce    '
'--------------------'


If DiagramType(Indeks) = "CrY" Then

tipoGraph(Indeks) = "logx-logy"
'determino la colonna di Y

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


'determino la colonna di Nb
For i = 1 To Numelem
If Elementi(i) = "Cr" 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 Y or Nb", , "Error"
Exit Sub
End If

MaxX(Indeks) = 100 - (10 ^ -10)
MinX(Indeks) = 10 + (10 ^ -10)
MaxY(Indeks) = 3000 - (10 ^ -10)
MinY(Indeks) = 10 + (10 ^ -10)
OMaxX(Indeks) = 90
OMinX(Indeks) = 5.1
OMaxY(Indeks) = 2900
OMinY(Indeks) = 11
deltax1(Indeks) = 100
deltay1(Indeks) = 100
binary(Indeks) = True
SPIDERREE(Indeks) = False
SPIDEROTHER(Indeks) = False
Triangular(Indeks) = False

MF1.NewLogLogGraph (App.Path + "\data\g10" + Trim(Str(Indeks))), tp
MF1.LogAssi

'14-06-02
MF1.MostraSpecifiche = True
MF1.Evidenzia = True

MF1.Diagram
as1 = 0

For i = 1 To Numcamp1

If DatiOrigine(i, numa) <= 0 Or DatiOrigine(i, numb) <= 0 Then
GoTo wqwq164
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)

'----------

If tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Then GoTo wqwq14 'sett 2004

'--------


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

If tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Then GoTo wqwq14
If DatiOrigine(i, numa) < MinX(Indeks) Or DatiOrigine(i, numa) > MaxX(Indeks) Or DatiOrigine(i, numb) < MinY(Indeks) Or DatiOrigine(i, numb) > MaxY(Indeks) Then
as1 = as1 + 1
GoTo wqwq164
End If

MF1.LOG_InsertPoint NomeCamp(i), DatiOrigine(i, numa), DatiOrigine(i, numb), SimbDim(Indeks), col, tipo

wqwq164:

Next i

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


MF1.asseXTitle "Y", 10
MF1.asseYTitle "Cr", 10
MF1.Finegraph
MF1.MostraSpecifiche = True
MF1.Evidenzia = True

End If


'--------------------'
'     Nb-Y Pearce    '
'--------------------'


If DiagramType(Indeks) = "NbY" Then

tipoGraph(Indeks) = "logx-logy"
'determino la colonna di Y

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


'determino la colonna di Nb
For i = 1 To Numelem
If Elementi(i) = "Nb" 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 Y or Nb", , "Error"
Exit Sub
End If

MaxX(Indeks) = 1000 - (10 ^ -10)
MinX(Indeks) = 1 + (10 ^ -10)
MaxY(Indeks) = 10000 - (10 ^ -10)
MinY(Indeks) = 1 + (10 ^ -10)
OMaxX(Indeks) = 900
OMinX(Indeks) = 1.1
OMaxY(Indeks) = 9000
OMinY(Indeks) = 1.1
deltax1(Indeks) = 100
deltay1(Indeks) = 100
binary(Indeks) = True
SPIDERREE(Indeks) = False
SPIDEROTHER(Indeks) = False
Triangular(Indeks) = False

MF1.NewLogLogGraph (App.Path + "\data\g10" + Trim(Str(Indeks))), tp
MF1.LogAssi

'14-06-02
MF1.MostraSpecifiche = True
MF1.Evidenzia = True

MF1.Diagram
as1 = 0

For i = 1 To Numcamp1

If DatiOrigine(i, numa) <= 0 Or DatiOrigine(i, numb) <= 0 Then
GoTo wqwq194
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)

'----------

If tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Then GoTo wqwq14 'sett 2004

'--------


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

If tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Then GoTo wqwq14
If DatiOrigine(i, numa) < MinX(Indeks) Or DatiOrigine(i, numa) > MaxX(Indeks) Or DatiOrigine(i, numb) < MinY(Indeks) Or DatiOrigine(i, numb) > MaxY(Indeks) Then
as1 = as1 + 1
GoTo wqwq194
End If

MF1.LOG_InsertPoint NomeCamp(i), DatiOrigine(i, numa), DatiOrigine(i, numb), SimbDim(Indeks), col, tipo

wqwq194:

Next i

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


MF1.asseXTitle "Y", 10
MF1.asseYTitle "Nb", 10
MF1.Finegraph
MF1.MostraSpecifiche = True
MF1.Evidenzia = True

End If

'--------------------'
'     Ta-Yb Pearce    '
'--------------------'


If DiagramType(Indeks) = "TaYb" Then

tipoGraph(Indeks) = "logx-logy"
'determino la colonna di Yb

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


'determino la colonna di Ta
For i = 1 To Numelem
If Elementi(i) = "Ta" 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 Ta or Yb", , "Error"
Exit Sub
End If

MaxX(Indeks) = 100 - (10 ^ -10)
MinX(Indeks) = 0.1 + (10 ^ -10)
MaxY(Indeks) = 100 - (10 ^ -10)
MinY(Indeks) = 0.1 + (10 ^ -10)
OMaxX(Indeks) = 90
OMinX(Indeks) = 0.11
OMaxY(Indeks) = 90
OMinY(Indeks) = 0.11
deltax1(Indeks) = 10
deltay1(Indeks) = 10
binary(Indeks) = True
SPIDERREE(Indeks) = False
SPIDEROTHER(Indeks) = False
Triangular(Indeks) = False

MF1.NewLogLogGraph (App.Path + "\data\g10" + Trim(Str(Indeks))), tp
MF1.LogAssi
'14-06-02
MF1.MostraSpecifiche = True
MF1.Evidenzia = True

MF1.Diagram
as1 = 0
For i = 1 To Numcamp1

If DatiOrigine(i, numa) <= 0 Or DatiOrigine(i, numb) <= 0 Then
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)

If tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Then GoTo wqwq15  'sett 2004

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

If tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Then GoTo wqwq15
If DatiOrigine(i, numa) < MinX(Indeks) Or DatiOrigine(i, numa) > MaxX(Indeks) Or DatiOrigine(i, numb) < MinY(Indeks) Or DatiOrigine(i, numb) > MaxY(Indeks) Then
as1 = as1 + 1
GoTo wqwq15
End If

MF1.LOG_InsertPoint NomeCamp(i), DatiOrigine(i, numa), DatiOrigine(i, numb), SimbDim(Indeks), col, tipo

wqwq15:

Next i

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

MF1.asseXTitle "Yb", 10
MF1.asseYTitle "Ta", 10
MF1.Finegraph
MF1.MostraSpecifiche = True
MF1.Evidenzia = True

End If



'--------------------------'
'     Rb- (Y+Nb) Pearce    '
'--------------------------'


If DiagramType(Indeks) = "Rb(YNb)" Then

tipoGraph(Indeks) = "logx-logy"
'determino la colonna di Rb (ppm) (A)
For i = 1 To Numelem
If Elementi(i) = "Rb" Then
numa = i
AXX(Indeks) = i
End If
Next i
If numa = 101 Then
MsgBox "An Error Occurred: I'm not able to identify Rb", , "Error"
Exit Sub
End If


'determino la colonna di Y (ppm) (A)
For i = 1 To Numelem
If Elementi(i) = "Y" Then
numc = i
End If
Next i
If numc = 101 Then
MsgBox "An Error Occurred: I'm not able to identify Y", , "Error"
Exit Sub
End If

'determino la colonna di Nb (ppm) (A)
For i = 1 To Numelem
If Elementi(i) = "Nb" Then
numd = i
End If
Next i
If numd = 101 Then
MsgBox "An Error Occurred: I'm not able to identify Nb", , "Error"
Exit Sub
End If

INP.Addizione "Y", "Nb"
numb = Numelem
AXY(Indeks) = numb

MaxX(Indeks) = 10000 - (10 ^ -10)
MinX(Indeks) = 1 + (10 ^ -10)
MaxY(Indeks) = 10000 - (10 ^ -10)
MinY(Indeks) = 1 + (10 ^ -10)
OMaxX(Indeks) = 9000
OMinX(Indeks) = 1.1
OMaxY(Indeks) = 9000
OMinY(Indeks) = 1.1
deltax1(Indeks) = 100
deltay1(Indeks) = 100
binary(Indeks) = True
SPIDERREE(Indeks) = False
SPIDEROTHER(Indeks) = False
Triangular(Indeks) = False

MF1.NewLogLogGraph (App.Path + "\data\g10" + Trim(Str(Indeks))), tp
MF1.LogAssi
'14-06-02
MF1.MostraSpecifiche = True
MF1.Evidenzia = True

MF1.Diagram
as1 = 0
For i = 1 To Numcamp1

If DatiOrigine(i, numa) <= 0 Or DatiOrigine(i, numb) <= 0 Then
GoTo wqwq2141
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 wqwq2141

If DatiOrigine(i, numa) < MinX(Indeks) Or DatiOrigine(i, numa) > MaxX(Indeks) Or DatiOrigine(i, numb) < MinY(Indeks) Or DatiOrigine(i, numb) > MaxY(Indeks) Then
as1 = as1 + 1
GoTo wqwq2141
End If

MF1.LOG_InsertPoint NomeCamp(i), DatiOrigine(i, numa), DatiOrigine(i, numb), SimbDim(Indeks), col, tipo

wqwq2141:

Next i

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

MF1.asseXTitle "(Y + Nb)", 10
MF1.asseYTitle "Rb", 10
MF1.Finegraph
MF1.MostraSpecifiche = True
MF1.Evidenzia = True

End If


'--------------------------'
'     Rb- (Yb+ Ta) Pearce    '
'--------------------------'


If DiagramType(Indeks) = "Rb(YbTa)" Then

tipoGraph(Indeks) = "logx-logy"
'determino la colonna di Rb (ppm) (A)
For i = 1 To Numelem
If Elementi(i) = "Rb" Then
numa = i
AXX(Indeks) = numa
End If
Next i
If numa = 101 Then
MsgBox "An Error Occurred: I'm not able to identify Rb", , "Error"
Exit Sub
End If


'determino la colonna di Yb (ppm) (A)
For i = 1 To Numelem
If Elementi(i) = "Yb" Then
numc = i
End If
Next i
If numc = 101 Then
MsgBox "An Error Occurred: I'm not able to identify Yb", , "Error"
Exit Sub
End If

'determino la colonna di Ta (ppm) (A)
For i = 1 To Numelem
If Elementi(i) = "Ta" Then
numd = i
End If
Next i
If numd = 101 Then
MsgBox "An Error Occurred: I'm not able to identify Ta", , "Error"
Exit Sub
End If

INP.Addizione "Yb", "Ta"
numb = Numelem
AXY(Indeks) = numb

MaxX(Indeks) = 1000 - (10 ^ -10)
MinX(Indeks) = 0.1 + (10 ^ -10)
MaxY(Indeks) = 10000 - (10 ^ -10)
MinY(Indeks) = 1 + (10 ^ -10)
OMaxX(Indeks) = 900
OMinX(Indeks) = 0.11
OMaxY(Indeks) = 9000
OMinY(Indeks) = 1.1
deltax1(Indeks) = 10
deltay1(Indeks) = 100
binary(Indeks) = True
SPIDERREE(Indeks) = False
SPIDEROTHER(Indeks) = False
Triangular(Indeks) = False

MF1.NewLogLogGraph (App.Path + "\data\g10" + Trim(Str(Indeks))), tp
MF1.LogAssi
'14-06-02
MF1.MostraSpecifiche = True
MF1.Evidenzia = True

MF1.Diagram
as1 = 0
For i = 1 To Numcamp1

If DatiOrigine(i, numa) <= 0 Or DatiOrigine(i, numb) <= 0 Then
GoTo wqwq142
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 wqwq142
If DatiOrigine(i, numa) < MinX(Indeks) Or DatiOrigine(i, numa) > MaxX(Indeks) Or DatiOrigine(i, numb) < MinY(Indeks) Or DatiOrigine(i, numb) > MaxY(Indeks) Then
as1 = as1 + 1
GoTo wqwq142
End If

MF1.LOG_InsertPoint NomeCamp(i), DatiOrigine(i, numa), DatiOrigine(i, numb), SimbDim(Indeks), col, tipo

wqwq142:

Next i

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


MF1.asseXTitle "(Yb + Ta)", 10
MF1.asseYTitle "Rb", 10
MF1.Finegraph
MF1.MostraSpecifiche = True
MF1.Evidenzia = True

End If


'TRIANGULAR

'--------------------'
'       AFM          '
'--------------------'


If DiagramType(Indeks) = "AFM-Kuno" Or DiagramType(Indeks) = "AFM-Irvine" Then

'determino la colonna di FeOtot (A)

For i = 1 To Numelem
If Elementi(i) = "FeOtot" Then
numa = i
End If
Next i


If numa = 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)
numa = Numelem

End If

'determino la colonna di B

INP.Addizione "Na2O", "K2O"
numb = Numelem


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

AxAa(Indeks) = "F"
AXB(Indeks) = "A"
AXC(Indeks) = "M"

binary(Indeks) = False
SPIDERREE(Indeks) = False
SPIDEROTHER(Indeks) = False
Triangular(Indeks) = True

MF1.NewTriplot (App.Path + "\data\g10" + Trim(Str(Indeks))), tp

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 tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Then GoTo eeer1  'sett 2004

BackGrnd.FG1.col = 2
col = BackGrnd.Picture1(BackGrnd.FG1 + 8).BackColor
If DatiOrigine(i, numa) <= 0 Or DatiOrigine(i, numb) <= 0 Or DatiOrigine(i, numc) <= 0 Then GoTo eeer1
MF1.T_InsertPoint NomeCamp(i), DatiOrigine(i, numa), DatiOrigine(i, numb), DatiOrigine(i, numc), SimbDim(Indeks), col, tipo
eeer1:
Next i

MF1.TAssi (QBColor(1))
MF1.Finegraph

End If

'------------------------------'
'       Ti-Zr-Y Pearce & Cann  '
'------------------------------'



If DiagramType(Indeks) = "TiZrY" Then


AxAa(Indeks) = "Ti/100"
AXB(Indeks) = "Zr"
AXC(Indeks) = "Y*3"

'determino la colonna di Ti (ppm) (A)
For i = 1 To Numelem
If Elementi(i) = "Ti" Then
numa = i
End If
Next i
If numa = 101 Then
MsgBox "An Error Occurred: I'm not able to identify Ti", , "Error"
Exit Sub
End If

INP.AsuConst "Ti", 100
numa = Numelem



'determino la colonna di Zr (B)
For i = 1 To Numelem
If Elementi(i) = "Zr" Then
numb = i
End If
Next i
If numb = 101 Then
MsgBox "An Error Occurred: I'm not able to identify Zr", , "Error"
Exit Sub
End If


'determino la colonna di Y (C)
For i = 1 To Numelem
If Elementi(i) = "Y" Then
numc = i
End If
Next i
If numc = 101 Then
MsgBox "An Error Occurred: I'm not able to identify Y", , "Error"
Exit Sub
End If
INP.AxConst "Y", 3
numc = Numelem



binary(Indeks) = False
SPIDERREE(Indeks) = False
SPIDEROTHER(Indeks) = False
Triangular(Indeks) = True

MF1.NewTriplot (App.Path + "\data\g10" + Trim(Str(Indeks))), tp

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 tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Then GoTo eeer2

BackGrnd.FG1.col = 2
col = BackGrnd.Picture1(BackGrnd.FG1 + 8).BackColor
If DatiOrigine(i, numa) <= 0 Or DatiOrigine(i, numb) <= 0 Or DatiOrigine(i, numc) <= 0 Or tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Then GoTo eeer2
MF1.T_InsertPoint NomeCamp(i), DatiOrigine(i, numa), DatiOrigine(i, numb), DatiOrigine(i, numc), SimbDim(Indeks), col, tipo
eeer2:
Next i



MF1.TAssi (QBColor(1))
MF1.Finegraph

End If


'------------------------------'
'       Ti-Zr-Sr Pearce & Cann  '
'------------------------------'



If DiagramType(Indeks) = "TiZrSr" Then

AxAa(Indeks) = "Ti/100"
AXB(Indeks) = "Zr"
AXC(Indeks) = "Sr/2"

'determino la colonna di Ti (ppm) (A)
For i = 1 To Numelem
If Elementi(i) = "Ti" Then
numa = i
End If
Next i
If numa = 101 Then
MsgBox "An Error Occurred: I'm not able to identify Ti", , "Error"
Exit Sub
End If

INP.AsuConst Elementi(numa), 100
numa = Numelem



'determino la colonna di Zr (B)
For i = 1 To Numelem
If Elementi(i) = "Zr" Then
numb = i
End If
Next i
If numb = 101 Then
MsgBox "An Error Occurred: I'm not able to identify Zr", , "Error"
Exit Sub
End If


'determino la colonna di Sr (C)
For i = 1 To Numelem
If Elementi(i) = "Sr" Then
numc = i
End If
Next i
If numc = 101 Then
MsgBox "An Error Occurred: I'm not able to identify Sr", , "Error"
Exit Sub
End If
INP.AsuConst "Sr", 2
numc = Numelem


binary(Indeks) = False
SPIDERREE(Indeks) = False
SPIDEROTHER(Indeks) = False
Triangular(Indeks) = True

MF1.NewTriplot (App.Path + "\data\g10" + Trim(Str(Indeks))), tp

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)

BackGrnd.FG1.col = 2
col = BackGrnd.Picture1(BackGrnd.FG1 + 8).BackColor
If tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Or DatiOrigine(i, numa) <= 0 Or DatiOrigine(i, numb) <= 0 Or DatiOrigine(i, numc) <= 0 Then GoTo eeer3
MF1.T_InsertPoint NomeCamp(i), DatiOrigine(i, numa), DatiOrigine(i, numb), DatiOrigine(i, numc), SimbDim(Indeks), col, tipo
eeer3:
Next i

MF1.TAssi (QBColor(1))
MF1.Finegraph

End If

'-------------------------'
'       Nb-Zr-Y Meschede  '
'-------------------------'



If DiagramType(Indeks) = "NbZrY" Then

AxAa(Indeks) = "Nb*2"
AXB(Indeks) = "Zr/4"
AXC(Indeks) = "Y"

'determino la colonna di Nb (ppm) (A)
For i = 1 To Numelem
If Elementi(i) = "Nb" Then
numa = i
End If
Next i
If numa = 101 Then
MsgBox "An Error Occurred: I'm not able to identify Nb", , "Error"
Exit Sub
End If

INP.AxConst "Nb", 2
numa = Numelem



'determino la colonna di Zr (B)
For i = 1 To Numelem
If Elementi(i) = "Zr" Then
numb = i
End If
Next i
If numb = 101 Then
MsgBox "An Error Occurred: I'm not able to identify Zr", , "Error"
Exit Sub
End If

INP.AsuConst "Zr", 4
numb = Numelem


'determino la colonna di Y (C)
For i = 1 To Numelem
If Elementi(i) = "Y" Then
numc = i
End If
Next i
If numc = 101 Then
MsgBox "An Error Occurred: I'm not able to identify Y", , "Error"
Exit Sub
End If



binary(Indeks) = False
SPIDERREE(Indeks) = False
SPIDEROTHER(Indeks) = False
Triangular(Indeks) = True
MF1.NewTriplot (App.Path + "\data\g10" + Trim(Str(Indeks))), tp

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)

BackGrnd.FG1.col = 2
col = BackGrnd.Picture1(BackGrnd.FG1 + 8).BackColor
If tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Or DatiOrigine(i, numa) <= 0 Or DatiOrigine(i, numb) <= 0 Or DatiOrigine(i, numc) <= 0 Then GoTo eeer4
MF1.T_InsertPoint NomeCamp(i), DatiOrigine(i, numa), DatiOrigine(i, numb), DatiOrigine(i, numc), SimbDim(Indeks), col, tipo
eeer4:
Next i

MF1.TAssi (QBColor(1))
MF1.Finegraph

End If

'-------------------'
'    Th-Hf-Ta Wood  '
'-------------------'


If DiagramType(Indeks) = "ThHfTa" Then

AxAa(Indeks) = "Hf/3"
AXB(Indeks) = "Th"
AXC(Indeks) = "Ta"

'determino la colonna di Hf (ppm) (A)
For i = 1 To Numelem
If Elementi(i) = "Hf" Then
numa = i
End If
Next i
If numa = 101 Then
MsgBox "An Error Occurred: I'm not able to identify Hf", , "Error"
Exit Sub
End If

INP.AsuConst "Hf", 3
numa = Numelem



'determino la colonna di Th (B)
For i = 1 To Numelem
If Elementi(i) = "Th" Then
numb = i
End If
Next i
If numb = 101 Then
MsgBox "An Error Occurred: I'm not able to identify Th", , "Error"
Exit Sub
End If


'determino la colonna di Ta (C)
For i = 1 To Numelem
If Elementi(i) = "Ta" Then
numc = i
End If
Next i
If numc = 101 Then
MsgBox "An Error Occurred: I'm not able to identify Y", , "Error"
Exit Sub
End If



binary(Indeks) = False
SPIDERREE(Indeks) = False
SPIDEROTHER(Indeks) = False
Triangular(Indeks) = True

MF1.NewTriplot (App.Path + "\data\g10" + Trim(Str(Indeks))), tp

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)

BackGrnd.FG1.col = 2
col = BackGrnd.Picture1(BackGrnd.FG1 + 8).BackColor
If tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Or DatiOrigine(i, numa) <= 0 Or DatiOrigine(i, numb) <= 0 Or DatiOrigine(i, numc) <= 0 Then GoTo eeer5
MF1.T_InsertPoint NomeCamp(i), DatiOrigine(i, numa), DatiOrigine(i, numb), DatiOrigine(i, numc), SimbDim(Indeks), col, tipo
eeer5:
Next i

MF1.TAssi (QBColor(1))
MF1.Finegraph

End If


Form1.Hide

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

End Sub