VERSION 5.00
Begin VB.Form Form2 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Binary Plot"
   ClientHeight    =   3645
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   3540
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   3645
   ScaleWidth      =   3540
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command4 
      Caption         =   "Operation"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   540
      Left            =   120
      TabIndex        =   21
      Top             =   3000
      Width           =   900
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Cancel"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   540
      Left            =   1080
      TabIndex        =   15
      Top             =   3000
      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          =   1812
      Left            =   120
      TabIndex        =   7
      Top             =   1080
      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        =   16
         Top             =   960
         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        =   "Form2.frx":0000
            Left            =   120
            List            =   "Form2.frx":000A
            TabIndex        =   17
            Text            =   "2"
            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          =   1425
         Left            =   75
         TabIndex        =   10
         Top             =   240
         Width           =   1815
         Begin VB.ComboBox Combo6 
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   7.5
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   288
            ItemData        =   "Form2.frx":0014
            Left            =   240
            List            =   "Form2.frx":0021
            TabIndex        =   20
            Text            =   "500x500"
            Top             =   600
            Visible         =   0   'False
            Width           =   1455
         End
         Begin VB.TextBox Text1 
            Alignment       =   2  'Center
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   7.5
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   330
            Left            =   600
            TabIndex        =   12
            Text            =   "500"
            Top             =   315
            Width           =   1095
         End
         Begin VB.TextBox Text2 
            Alignment       =   2  'Center
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   7.5
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   330
            Left            =   600
            TabIndex        =   11
            Text            =   "300"
            Top             =   840
            Width           =   1095
         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        =   14
            Top             =   360
            Width           =   615
         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        =   13
            Top             =   885
            Width           =   615
         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        =   8
         Top             =   240
         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          =   288
            ItemData        =   "Form2.frx":0040
            Left            =   120
            List            =   "Form2.frx":004D
            TabIndex        =   9
            Text            =   "Med"
            Top             =   240
            Width           =   975
         End
      End
   End
   Begin VB.CommandButton Command2 
      Caption         =   "..."
      Height          =   255
      Left            =   2388
      TabIndex        =   6
      Top             =   615
      Width           =   375
   End
   Begin VB.CommandButton Command1 
      Caption         =   "..."
      Height          =   255
      Left            =   2388
      TabIndex        =   5
      Top             =   135
      Width           =   375
   End
   Begin VB.CommandButton Command6 
      Caption         =   "Plot (SpaceBarr)"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   540
      Left            =   2040
      TabIndex        =   4
      Top             =   3000
      Width           =   1380
   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            =   360
      TabIndex        =   1
      Text            =   "Select"
      Top             =   600
      Width           =   1935
   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
      ItemData        =   "Form2.frx":0060
      Left            =   360
      List            =   "Form2.frx":0062
      TabIndex        =   0
      Text            =   "Select"
      Top             =   120
      Width           =   1935
   End
   Begin VB.Label Label7 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "LIN"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   2880
      TabIndex        =   19
      Top             =   615
      Width           =   615
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      BackColor       =   &H0080C0FF&
      Caption         =   "LIN"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   2880
      TabIndex        =   18
      Top             =   120
      Width           =   615
   End
   Begin VB.Label Label2 
      Caption         =   "Y:"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000040C0&
      Height          =   372
      Left            =   48
      TabIndex        =   3
      Top             =   588
      Width           =   612
   End
   Begin VB.Label Label1 
      Caption         =   "X:"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   372
      Left            =   60
      TabIndex        =   2
      Top             =   96
      Width           =   492
   End
End
Attribute VB_Name = "Form2"
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_DropDown()

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 Combo6_KeyDown(KeyCode As Integer, Shift As Integer)


If KeyCode = 32 Then
Command6_Click
End If

End Sub

Private Sub Command1_Click()

FormSelezionato = "BinaryPlot1"

INP.MostraForm13 Form2.left, Form2.top

End Sub

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

If KeyCode = 32 Then
Command6_Click
End If

End Sub



Private Sub Command2_Click()

FormSelezionato = "BinaryPlot2"

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

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

If KeyCode = 32 Then
Command6_Click
End If

End Sub



Private Sub Command3_Click()
Form2.Hide
End Sub



Private Sub Command4_Click()
FinOpen = 2
Form2.Command2.SetFocus
Form6.Show
Form6.SetFocus

End Sub



Private Sub Command6_Click()

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

NumModelli(Indeks) = 0

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:

C0M(Indeks) = "select"
CAM(Indeks) = "select"
C1M(Indeks) = "select"
C2M(Indeks) = "select"

picforms(Indeks).Hide

'caratteristiche dei grafici
   Xgraph(Indeks) = Val(Text1.Text)
   Ygraph(Indeks) = Val(Text2.Text)
   
   'simbsp
   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
   
   'simbspsp
   If Combo5.Text = "1" Then
   SimbSp(Indeks) = 1
   End If
   If Combo5.Text = "2" Then
   SimbSp(Indeks) = 2
   End If
'disegno


'determono la scala del grafico
If Label6.Caption = "LIN" And Label7.Caption = "LIN" Then
tipoGraph(Indeks) = "normx-normy"
DiagramType(Indeks) = "none"
End If

If Label6.Caption = "LOG" And Label7.Caption = "LIN" Then
tipoGraph(Indeks) = "logx-normy"
DiagramType(Indeks) = "none"
End If

If Label6.Caption = "LIN" And Label7.Caption = "LOG" Then
tipoGraph(Indeks) = "normx-logy"
DiagramType(Indeks) = "none"
End If

If Label6.Caption = "LOG" And Label7.Caption = "LOG" Then
tipoGraph(Indeks) = "logx-logy"
DiagramType(Indeks) = "none"
End If


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


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

If numa = 101 Or numb = 101 Then

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

End If


' DETERMINO  MASSIMO MINIMO ETC
INP.SalvaABCamp Combo1.Text, Combo2.Text
INP.Max App.Path + "\data\datiinputx.txt"
MaxX(Indeks) = StatResult
INP.Max App.Path + "\data\datiinputy.txt"
MaxY(Indeks) = StatResult
INP.Min App.Path + "\data\datiinputx.txt"
MinX(Indeks) = StatResult
logMinXX = Int(LOG10(MinX(Indeks)))
INP.Min App.Path + "\data\datiinputy.txt"
MinY(Indeks) = StatResult
logMinYY = Int(LOG10(MinY(Indeks)))
xm = 0
ym = 0

'aggiungo e tolgo un epsilon ai valori massimi e minimi

deltax1(Indeks) = (MaxX(Indeks) - MinX(Indeks)) / 8 '10 10-10-02
deltay1(Indeks) = (MaxY(Indeks) - MinY(Indeks)) / 8 '10 10-10-02


If deltax1(Indeks) >= 1 Then
deltax1(Indeks) = Val(Format$(deltax1(Indeks), "0"))
minX1 = MinX(Indeks)
MinX(Indeks) = Val(Format$(MinX(Indeks), "0")) - deltax1(Indeks)
If MinX(Indeks) < 0 And minX1 >= 0 Then
MinX(Indeks) = 0
End If
MaxX(Indeks) = Val(Format$(MaxX(Indeks), "0")) + deltax1(Indeks)
End If

If deltay1(Indeks) >= 1 Then
deltay1(Indeks) = Val(Format$(deltay1(Indeks), "0"))
miny1 = MinY(Indeks)
MinY(Indeks) = Val(Format$(MinY(Indeks), "0")) - deltay1(Indeks)
If MinY(Indeks) < 0 And miny1 >= 0 Then
MinY(Indeks) = 0
End If
MaxY(Indeks) = Val(Format$(MaxY(Indeks), "0")) + deltay1(Indeks)
End If

If deltax1(Indeks) < 1 And deltax1(Indeks) >= 0.1 Then
minX1 = MinX(Indeks)
deltax1(Indeks) = Val(Format$(deltax1(Indeks), "0.0"))
MinX(Indeks) = Val(Format$(MinX(Indeks), "0.0")) - deltax1(Indeks)
If MinX(Indeks) < 0 And minX1 >= 0 Then
MinX(Indeks) = 0
End If
MaxX(Indeks) = Val(Format$(MaxX(Indeks), "0.0")) + deltax1(Indeks)
End If

If deltay1(Indeks) < 1 And deltay1(Indeks) >= 0.1 Then
miny1 = MinY(Indeks)
deltay1(Indeks) = Val(Format$(deltay1(Indeks), "0.0"))
MinY(Indeks) = Val(Format$(MinY(Indeks), "0.0")) - deltay1(Indeks)
If MinY(Indeks) < 0 And miny1 >= 0 Then
MinY(Indeks) = 0
End If
MaxY(Indeks) = Val(Format$(MaxY(Indeks), "0.0")) + deltay1(Indeks)
End If

If deltax1(Indeks) < 0.1 And deltax1(Indeks) >= 0.01 Then
minX1 = MinX(Indeks)
deltax1(Indeks) = Val(Format$(deltax1(Indeks), "0.00"))
MinX(Indeks) = Val(Format$(MinX(Indeks), "0.00")) - deltax1(Indeks)
If MinX(Indeks) < 0 And minX1 >= 0 Then
MinX(Indeks) = 0
End If
MaxX(Indeks) = Val(Format$(MaxX(Indeks), "0.00")) + deltax1(Indeks)
End If

If deltay1(Indeks) < 0.1 And deltay1(Indeks) >= 0.01 Then
miny1 = MinY(Indeks)
deltay1(Indeks) = Val(Format$(deltay1(Indeks), "0.00"))
MinY(Indeks) = Val(Format$(MinY(Indeks), "0.00")) - deltay1(Indeks)
If MinY(Indeks) < 0 And miny1 >= 0 Then
MinY(Indeks) = 0
End If
MaxY(Indeks) = Val(Format$(MaxY(Indeks), "0.00")) + deltay1(Indeks)
End If

If deltax1(Indeks) < 0.01 And deltax1(Indeks) >= 0.001 Then
minX1 = MinX(Indeks)
deltax1(Indeks) = Val(Format$(deltax1(Indeks), "0.000"))
MinX(Indeks) = Val(Format$(MinX(Indeks), "0.000")) - deltax1(Indeks)
If MinX(Indeks) < 0 And minX1 >= 0 Then
MinX(Indeks) = 0
End If
MaxX(Indeks) = Val(Format$(MaxX(Indeks), "0.000")) + deltax1(Indeks)
End If

If deltay1(Indeks) < 0.01 And deltay1(Indeks) >= 0.001 Then
miny1 = MinY(Indeks)
deltay1(Indeks) = Val(Format$(deltay1(Indeks), "0.000"))
MinY(Indeks) = Val(Format$(MinY(Indeks), "0.000")) - deltay1(Indeks)
If MinY(Indeks) < 0 And miny1 >= 0 Then
MinY(Indeks) = 0
End If
MaxY(Indeks) = Val(Format$(MaxY(Indeks), "0.000")) + deltay1(Indeks)
End If

If deltax1(Indeks) < 0.001 And deltax1(Indeks) >= 0.0001 Then
minX1 = MinX(Indeks)
deltax1(Indeks) = Val(Format$(deltax1(Indeks), "0.0000"))
MinX(Indeks) = Val(Format$(MinX(Indeks), "0.0000")) - deltax1(Indeks)
If MinX(Indeks) < 0 And minX1 >= 0 Then
MinX(Indeks) = 0
End If
MaxX(Indeks) = Val(Format$(MaxX(Indeks), "0.0000")) + deltax1(Indeks)
End If

If deltay1(Indeks) < 0.001 And deltay1(Indeks) >= 0.0001 Then
miny1 = MinY(Indeks)
deltay1(Indeks) = Val(Format$(deltay1(Indeks), "0.0000"))
MinY(Indeks) = Val(Format$(MinY(Indeks), "0.0000")) - deltay1(Indeks)
If MinY(Indeks) < 0 And miny1 >= 0 Then
MinY(Indeks) = 0
End If
MaxY(Indeks) = Val(Format$(MaxY(Indeks), "0.0000")) + deltay1(Indeks)
End If

If deltax1(Indeks) < 0.0001 And deltax1(Indeks) >= 0.00001 Then
minX1 = MinX(Indeks)
deltax1(Indeks) = Val(Format$(deltax1(Indeks), "0.00000"))
MinX(Indeks) = Val(Format$(MinX(Indeks), "0.00000")) - deltax1(Indeks)
If MinX(Indeks) < 0 And minX1 >= 0 Then
MinX(Indeks) = 0
End If
MaxX(Indeks) = Val(Format$(MaxX(Indeks), "0.00000")) + deltax1(Indeks)
End If

If deltay1(Indeks) < 0.0001 And deltay1(Indeks) >= 0.00001 Then
miny1 = MinY(Indeks)
deltay1(Indeks) = Val(Format$(deltay1(Indeks), "0.00000"))
MinY(Indeks) = Val(Format$(MinY(Indeks), "0.00000")) - deltay1(Indeks)
If MinY(Indeks) < 0 And miny1 >= 0 Then
MinY(Indeks) = 0
End If
MaxY(Indeks) = Val(Format$(MaxY(Indeks), "0.00000")) + deltay1(Indeks)
End If

If deltax1(Indeks) < 0.00001 And deltax1(Indeks) >= 0.000001 Then
minX1 = MinX(Indeks)
deltax1(Indeks) = Val(Format$(deltax1(Indeks), "0.000000"))
MinX(Indeks) = Val(Format$(MinX(Indeks), "0.000000")) - deltax1(Indeks)
If MinX(Indeks) < 0 And minX1 >= 0 Then
MinX(Indeks) = 0
End If
MaxX(Indeks) = Val(Format$(MaxX(Indeks), "0.000000")) + deltax1(Indeks)
End If

If deltay1(Indeks) < 0.00001 And deltay1(Indeks) >= 0.000001 Then
miny1 = MinY(Indeks)
deltay1(Indeks) = Val(Format$(deltay1(Indeks), "0.000000"))
MinY(Indeks) = Val(Format$(MinY(Indeks), "0.000000")) - deltay1(Indeks)
If MinY(Indeks) < 0 And miny1 >= 0 Then
MinY(Indeks) = 0
End If
MaxY(Indeks) = Val(Format$(MaxY(Indeks), "0.000000")) + deltay1(Indeks)
End If

If deltax1(Indeks) < 0.000001 And deltax1(Indeks) >= 0.0000001 Then
minX1 = MinX(Indeks)
deltax1(Indeks) = Val(Format$(deltax1(Indeks), "0.0000000"))
MinX(Indeks) = Val(Format$(MinX(Indeks), "0.0000000")) - deltax1(Indeks)
If MinX(Indeks) < 0 And minX1 >= 0 Then
MinX(Indeks) = 0
End If
MaxX(Indeks) = Val(Format$(MaxX(Indeks), "0.0000000")) + deltax1(Indeks)
End If

If deltay1(Indeks) < 0.000001 And deltay1(Indeks) >= 0.0000001 Then
miny1 = MinY(Indeks)
minX1 = MinX(Indeks)
deltay1(Indeks) = Val(Format$(deltay1(Indeks), "0.0000000"))
MinY(Indeks) = Val(Format$(MinY(Indeks), "0.0000000")) - deltay1(Indeks)
If MinY(Indeks) < 0 And miny1 >= 0 Then
MinY(Indeks) = 0
End If
MaxY(Indeks) = Val(Format$(MaxY(Indeks), "0.0000000")) + deltay1(Indeks)
End If

If deltax1(Indeks) < 0.0000001 And deltax1(Indeks) >= 0.00000001 Then
minX1 = MinX(Indeks)
deltax1(Indeks) = Val(Format$(deltax1(Indeks), "0.00000000"))
MinX(Indeks) = Val(Format$(MinX(Indeks), "0.00000000")) - deltax1(Indeks)
If MinX(Indeks) < 0 And minX1 >= 0 Then
MinX(Indeks) = 0
End If
MaxX(Indeks) = Val(Format$(MaxX(Indeks), "0.00000000")) + deltax1(Indeks)
End If

If deltay1(Indeks) < 0.0000001 And deltay1(Indeks) >= 0.00000001 Then
miny1 = MinY(Indeks)
deltay1(Indeks) = Val(Format$(deltay1(Indeks), "0.00000000"))
MinY(Indeks) = Val(Format$(MinY(Indeks), "0.00000000")) - deltay1(Indeks)
If MinY(Indeks) < 0 And miny1 >= 0 Then
MinY(Indeks) = 0
End If
MaxY(Indeks) = Val(Format$(MaxY(Indeks), "0.00000000")) + deltay1(Indeks)
End If


If MaxX(Indeks) = MinX(Indeks) Then
MaxX(Indeks) = MaxX(Indeks) + 1
MinX(Indeks) = MinX(Indeks) - 1
End If
If MaxY(Indeks) = MinY(Indeks) Then
MaxY(Indeks) = MaxY(Indeks) + 1
MinY(Indeks) = MinY(Indeks) - 1
End If

If deltay1(Indeks) = 0 Then
deltay1(Indeks) = (MaxY(Indeks) - MinY(Indeks)) / 5
End If
If deltax1(Indeks) = 0 Then
deltax1(Indeks) = (MaxX(Indeks) - MinX(Indeks)) / 5
End If

'For i = -10 To 10
'If MaxX(Indeks) < 10 ^ i And MaxX(Indeks) > 0.7 * 10 ^ i Then
'MaxX(Indeks) = 10 ^ i
'GoTo dopoi
'End If
'Next i

dopoi:

'For i = -10 To 10
'If MaxY(Indeks) < 10 ^ i And MaxY(Indeks) > 0.7 * 10 ^ i Then
'MaxY(Indeks) = 10 ^ i
'GoTo dopoi1
'End If
'Next i

dopoi1:

'For i = 10 To -10 Step -1
'If MinX(Indeks) > 10 ^ i And MinX(Indeks) < 0.3 * 10 ^ i Then
'MinX(Indeks) = 10 ^ i
'GoTo dopoi11
'End If
'Next i

dopoi11:

'For i = 10 To -10
'If MinY(Indeks) < 10 ^ i And MinY(Indeks) < 0.3 * 10 ^ i Then
'MaxY(Indeks) = 10 ^ i
'GoTo dopoi12
'End If
'Next i

dopoi12:

'For i = -10 To 10 Step 1
'If deltax1(Indeks) < 10 ^ i Then
'deltax1(Indeks) = 10 ^ i
'GoTo dopoi2
'End If
'Next i

dopoi2:

'For i = -10 To 10
'If deltay1(Indeks) < 10 ^ i Then
'deltay1(Indeks) = 10 ^ i
'GoTo dopoi3
'End If
'Next i

dopoi3:


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

Intx(Indeks) = 10
Inty(Indeks) = 10



If tipoGraph(Indeks) = "normx-normy" Then
MF1.DisegnaNormXNormY
End If

If tipoGraph(Indeks) = "normx-logy" Then
'-----------
pymax = Int(LOG10(MaxY(Indeks))) + 1
If MinY(Indeks) <= 0 Then
pymin = logMinYY
GoTo toto1
End If
If MinY(Indeks) > 1 Then
pymin = Int(LOG10(MinY(Indeks))) '- 1 '11/06/02
Else
pymin = Int(LOG10(MinY(Indeks))) - 1 '11/06/02
End If
toto1:
MaxY(Indeks) = Val(EXP10(pymax)) - (10 ^ -10)
MinY(Indeks) = Val(EXP10(pymin)) + (10 ^ -10)
'----------
MF1.DisegnaNormXLogY
End If

If tipoGraph(Indeks) = "logx-normy" Then
'-----------
pxmax = Int(LOG10(MaxX(Indeks))) + 1
If MinX(Indeks) <= 0 Then
pxmin = logMinXX
GoTo toto2
End If
If MinX(Indeks) > 1 Then
pxmin = Int(LOG10(MinX(Indeks))) '- 1 '11/06/02
Else
pxmin = Int(LOG10(MinX(Indeks))) - 1 '11/06/02
End If
toto2:
MaxX(Indeks) = Val(EXP10(pxmax)) - (10 ^ -10)
MinX(Indeks) = Val(EXP10(pxmin)) + (10 ^ -10)
'----------
MF1.DisegnaLogXNormY
End If

If tipoGraph(Indeks) = "logx-logy" Then
'-----------
pymax = Int(LOG10(MaxY(Indeks))) + 1
If MinY(Indeks) <= 0 Then
pymin = logMinYY
GoTo toto3
End If
If MinY(Indeks) > 1 Then
pymin = Int(LOG10(MinY(Indeks))) '- 1 '11/06/02
Else
pymin = Int(LOG10(MinY(Indeks))) - 1 '11/06/02
End If
toto3:
MaxY(Indeks) = Val(EXP10(pymax)) - (10 ^ -10)
MinY(Indeks) = Val(EXP10(pymin)) + (10 ^ -10)
'----------
'-----------
pxmax = Int(LOG10(MaxX(Indeks))) + 1
If MinX(Indeks) <= 0 Then
pxmin = logMinXX
GoTo toto4
End If
If MinX(Indeks) > 1 Then
pxmin = Int(LOG10(MinX(Indeks))) '- 1 '11/06/02
Else
pxmin = Int(LOG10(MinX(Indeks))) - 1 '11/06/02
End If
toto4:
MaxX(Indeks) = Val(EXP10(pxmax)) - (10 ^ -10)
MinX(Indeks) = Val(EXP10(pxmin)) + (10 ^ -10)
'----------
MF1.DisegnaLogXLogY
End If


Form2.Hide
picforms(Indeks).Visible = True

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


End Sub



Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = 32 Then
Command6_Click
End If

End Sub

Private Sub Label6_Change()

If Label7.Caption = "LOG" And Label6.Caption = "LOG" Then
Label4.Visible = False
Text2.Visible = False
Label5.Visible = False
Text1.Visible = False
Combo6.Visible = True
End If


If Label7.Caption <> "LOG" Or Label6.Caption <> "LOG" Then
Label4.Visible = True
Text2.Visible = True
Label5.Visible = True
Text1.Visible = True
Combo6.Visible = False
End If

End Sub

Private Sub Label6_Click()

If Label6.Caption = "LIN" Then
Label6.Caption = "LOG"
GoTo www1
End If
If Label6.Caption = "LOG" Then
Label6.Caption = "LIN"
GoTo www1
End If

www1:

End Sub

Private Sub Label7_Change()

If Label7.Caption = "LOG" And Label6.Caption = "LOG" Then
Label4.Visible = False
Text2.Visible = False
Label5.Visible = False
Text1.Visible = False
Combo6.Visible = True
End If


If Label7.Caption <> "LOG" Or Label6.Caption <> "LOG" Then
Label4.Visible = True
Text2.Visible = True
Label5.Visible = True
Text1.Visible = True
Combo6.Visible = False
End If

End Sub

Private Sub Label7_Click()

If Label7.Caption = "LIN" Then
Label7.Caption = "LOG"
GoTo www1
End If
If Label7.Caption = "LOG" Then
Label7.Caption = "LIN"
GoTo www1
End If

www1:

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

If KeyCode = 32 Then
Command6_Click
End If

End Sub