VERSION 5.00
Begin VB.Form Form3 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Triangular Plot"
   ClientHeight    =   4755
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   3540
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4755
   ScaleWidth      =   3540
   ShowInTaskbar   =   0   'False
   Tag             =   "v"
   Begin VB.CommandButton Command5 
      Caption         =   "Operation"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   500
      Left            =   120
      TabIndex        =   21
      Top             =   4200
      Width           =   900
   End
   Begin VB.CommandButton Command4 
      Caption         =   "Cancel"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   500
      Left            =   1080
      TabIndex        =   15
      Top             =   4200
      Width           =   780
   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          =   2175
      Left            =   120
      TabIndex        =   10
      Top             =   1920
      Width           =   3255
      Begin VB.Frame Frame4 
         Caption         =   "Graph 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            =   120
         TabIndex        =   16
         Top             =   360
         Width           =   1695
         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          =   288
            ItemData        =   "Form3.frx":0000
            Left            =   120
            List            =   "Form3.frx":000D
            TabIndex        =   17
            Text            =   "500x500"
            Top             =   240
            Width           =   1455
         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        =   13
         Top             =   360
         Width           =   1215
         Begin VB.ComboBox Combo7 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   7.5
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   288
            ItemData        =   "Form3.frx":002C
            Left            =   120
            List            =   "Form3.frx":0039
            TabIndex        =   14
            Text            =   "Med"
            Top             =   240
            Width           =   975
         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        =   11
         Top             =   1200
         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          =   288
            ItemData        =   "Form3.frx":004C
            Left            =   120
            List            =   "Form3.frx":0056
            TabIndex        =   12
            Text            =   "2"
            Top             =   240
            Width           =   975
         End
      End
      Begin VB.Line Line1 
         X1              =   960
         X2              =   600
         Y1              =   1350
         Y2              =   1950
      End
      Begin VB.Line Line2 
         X1              =   960
         X2              =   1320
         Y1              =   1350
         Y2              =   1950
      End
      Begin VB.Line Line3 
         X1              =   600
         X2              =   1320
         Y1              =   1950
         Y2              =   1950
      End
      Begin VB.Label Label5 
         Alignment       =   1  'Right Justify
         Caption         =   "B"
         Height          =   255
         Left            =   300
         TabIndex        =   19
         Top             =   1815
         Width           =   255
      End
      Begin VB.Label Label6 
         Caption         =   "C"
         Height          =   240
         Left            =   1365
         TabIndex        =   18
         Top             =   1815
         Width           =   255
      End
      Begin VB.Label Label4 
         Caption         =   "A"
         Height          =   255
         Left            =   915
         TabIndex        =   20
         Top             =   1170
         Width           =   255
      End
   End
   Begin VB.CommandButton Command3 
      Caption         =   "..."
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3105
      TabIndex        =   9
      Top             =   1470
      Width           =   375
   End
   Begin VB.CommandButton Command2 
      Caption         =   "..."
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3120
      TabIndex        =   8
      Top             =   840
      Width           =   375
   End
   Begin VB.CommandButton Command1 
      Caption         =   "..."
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3120
      TabIndex        =   7
      Top             =   240
      Width           =   375
   End
   Begin VB.CommandButton Command6 
      Caption         =   "T_Plot (SpaceBarr)"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   500
      Left            =   1920
      TabIndex        =   1
      Top             =   4200
      Width           =   1500
   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          =   288
      Left            =   570
      TabIndex        =   5
      Text            =   "Select"
      Top             =   1440
      Width           =   2400
   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          =   288
      Left            =   570
      TabIndex        =   2
      Text            =   "Select"
      Top             =   240
      Width           =   2400
   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
      Left            =   570
      TabIndex        =   0
      Text            =   "Select"
      Top             =   840
      Width           =   2400
   End
   Begin VB.Label Label3 
      Caption         =   "C:"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   240
      TabIndex        =   6
      Top             =   1440
      Width           =   1815
   End
   Begin VB.Label Label1 
      Caption         =   "A:"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   372
      Left            =   240
      TabIndex        =   4
      Top             =   216
      Width           =   492
   End
   Begin VB.Label Label2 
      Caption         =   "B:"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   240
      TabIndex        =   3
      Top             =   840
      Width           =   1815
   End
End
Attribute VB_Name = "Form3"
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
Command6_Click
End If

End Sub

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

If KeyCode = 32 Then
Command6_Click
End If

End Sub

Private Sub Combo3_KeyDown(KeyCode As Integer, Shift 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_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 32 Then
Command6_Click
End If

End Sub

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

If KeyCode = 32 Then
Command6_Click
End If

End Sub

Private Sub Command1_Click()
FormSelezionato = "TriangularPlot1"
Form3.Command6.SetFocus
Form13.Show
End Sub



Private Sub Command2_Click()

Form3.Command6.SetFocus

FormSelezionato = "TriangularPlot2"

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



Private Sub Command3_Click()

Form3.Command6.SetFocus
FormSelezionato = "TriangularPlot3"

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



Private Sub Command4_Click()

Form3.Hide

End Sub



Private Sub Command5_Click()
FinOpen = 3
Form3.Command6.SetFocus
Form6.Show
Form6.SetFocus

End Sub



Private Sub Command6_Click()

On Error GoTo ee

Dim tp As Integer

If ChangeTri = True Then
Indeks = IndexSel
ChangeTri = False
picforms(Indeks).Picture1.Cls
picforms(Indeks).Width = 140
picforms(Indeks).Height = 120
NumCamp(Indeks) = 0 'Attenzione 18-09-03

GoTo poi:
End If

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:




picforms(Indeks).Hide


   
   '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
   
   'simbspsp
   If Combo5.Text = "1" Then
   SimbSp(Indeks) = 1
   End If
   If Combo5.Text = "2" Then
   SimbSp(Indeks) = 2
   End If

'Disegno

'determino la colonna di A
numa = 101
For i = 1 To Numelem
If Elementi(i) = Combo1.Text Then
numa = i
End If
Next i
AxAa(Indeks) = numa


'determino la colonna di B
numb = 101
For i = 1 To Numelem
If Elementi(i) = Combo2.Text Then
numb = i
End If
Next i
AXB(Indeks) = numb

'determino la colonna di c
numc = 101
For i = 1 To Numelem
If Elementi(i) = Combo3.Text Then
numc = i
End If
Next i
AXC(Indeks) = numc

If numa = 101 Or numb = 101 Or numc = 101 Then

MsgBox "An Error Occurred", , "Error"
GoTo ee1

End If


Triangular(Indeks) = True
binary(Indeks) = False
SPIDERREE(Indeks) = False
SPIDEROTHER(Indeks) = False
DiagramType(Indeks) = "none"
Tp1(Indeks) = tp

MF1.NewTriplot (App.Path + "\data\g10" + Trim(Str(Indeks))), tp
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) = -12345.67 Or DatiOrigine(i, numb) = -12345.67 Or DatiOrigine(i, numc) = -12345.67 Or DatiOrigine(i, numa) < 0 Or DatiOrigine(i, numb) < 0 Or DatiOrigine(i, numc) < 0 Then GoTo qswe8
'If tipo = 0 Or tipo1 = 0 Or SimbFilter(i) = 0 Or DatiOrigine(i, numa) = -12345.67 Or DatiOrigine(i, numb) = -12345.67 Or DatiOrigine(i, numc) = -12345.67 Then GoTo qswe8
MF1.T_InsertPoint NomeCamp(i), DatiOrigine(i, numa), DatiOrigine(i, numb), DatiOrigine(i, numc), SimbDim(Indeks), col, tipo
qswe8:
Next i

MF1.TAssi (QBColor(0))
MF1.Finegraph

Form3.Hide

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


End Sub

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

If KeyCode = 32 Then
Command6_Click
End If

End Sub