VERSION 5.00
Begin VB.Form Form4 
   BorderStyle     =   4  'Fixed ToolWindow
   ClientHeight    =   2325
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   7365
   LinkTopic       =   "Form4"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   2325
   ScaleWidth      =   7365
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command1 
      Caption         =   "Ok (SpaceBar)"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   6120
      TabIndex        =   1
      Top             =   1848
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Cancel"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   5430
      TabIndex        =   40
      Top             =   1848
      Width           =   615
   End
   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          =   372
      Left            =   5430
      TabIndex        =   34
      Top             =   1416
      Width           =   1890
   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          =   1308
      Left            =   5520
      TabIndex        =   28
      Top             =   12
      Width           =   1815
      Begin VB.TextBox Text12 
         Alignment       =   2  'Center
         Height          =   252
         Left            =   600
         TabIndex        =   31
         Text            =   "300"
         Top             =   840
         Width           =   852
      End
      Begin VB.TextBox Text11 
         Alignment       =   2  'Center
         Height          =   288
         Left            =   600
         TabIndex        =   30
         Text            =   "500"
         Top             =   384
         Width           =   852
      End
      Begin VB.ComboBox Combo6 
         Height          =   315
         ItemData        =   "Form4.frx":0000
         Left            =   120
         List            =   "Form4.frx":000D
         TabIndex        =   29
         Text            =   "500x500"
         Top             =   600
         Visible         =   0   'False
         Width           =   1332
      End
      Begin VB.Label Label14 
         Caption         =   "Height"
         Height          =   252
         Left            =   120
         TabIndex        =   33
         Top             =   840
         Width           =   612
      End
      Begin VB.Label Label13 
         Caption         =   "Width"
         Height          =   252
         Left            =   120
         TabIndex        =   32
         Top             =   408
         Width           =   612
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "AXIS Y"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   2244
      Left            =   2760
      TabIndex        =   10
      Top             =   12
      Width           =   2565
      Begin VB.CommandButton Command7 
         Caption         =   "refresh"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   216
         Left            =   1680
         TabIndex        =   39
         Top             =   1920
         Width           =   684
      End
      Begin VB.TextBox Text10 
         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          =   288
         Left            =   1092
         TabIndex        =   27
         Text            =   "Text1"
         Top             =   624
         Width           =   700
      End
      Begin VB.TextBox Text9 
         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          =   288
         Left            =   1104
         TabIndex        =   26
         Text            =   "Text1"
         Top             =   948
         Width           =   700
      End
      Begin VB.TextBox Text6 
         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          =   264
         Left            =   708
         TabIndex        =   18
         Text            =   "Text1"
         Top             =   1284
         Width           =   1080
      End
      Begin VB.TextBox Text5 
         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          =   288
         Left            =   708
         TabIndex        =   16
         Text            =   "Text1"
         Top             =   948
         Width           =   1080
      End
      Begin VB.TextBox Text4 
         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          =   288
         Left            =   708
         TabIndex        =   14
         Text            =   "Text1"
         Top             =   612
         Width           =   1080
      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          =   315
         Left            =   120
         TabIndex        =   12
         Text            =   "Select"
         Top             =   228
         Width           =   1935
      End
      Begin VB.CommandButton Command3 
         Caption         =   "..."
         Height          =   255
         Left            =   2112
         TabIndex        =   11
         Top             =   240
         Width           =   375
      End
      Begin VB.Label Label16 
         Alignment       =   2  'Center
         Caption         =   "Log/Norm:"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000C0&
         Height          =   252
         Left            =   96
         TabIndex        =   37
         Top             =   1620
         Width           =   852
      End
      Begin VB.Label Label12 
         Caption         =   "10^"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   252
         Left            =   744
         TabIndex        =   25
         Top             =   648
         Width           =   372
      End
      Begin VB.Label Label11 
         Caption         =   "10^"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   252
         Left            =   744
         TabIndex        =   24
         Top             =   972
         Width           =   372
      End
      Begin VB.Label Label6 
         Alignment       =   2  'Center
         Caption         =   "Step Y:"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000C0&
         Height          =   252
         Left            =   72
         TabIndex        =   19
         Top             =   1308
         Width           =   612
      End
      Begin VB.Label Label5 
         Caption         =   "Min. Y:"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000C0&
         Height          =   252
         Left            =   132
         TabIndex        =   17
         Top             =   972
         Width           =   732
      End
      Begin VB.Label Label4 
         Caption         =   "Max.Y:"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000C0&
         Height          =   252
         Left            =   144
         TabIndex        =   15
         Top             =   648
         Width           =   732
      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          =   252
         Left            =   1020
         TabIndex        =   13
         Top             =   1608
         Width           =   612
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "AXIS X"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   2220
      Left            =   72
      TabIndex        =   0
      Top             =   24
      Width           =   2580
      Begin VB.CommandButton Command6 
         Caption         =   "refresh"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   216
         Left            =   1680
         TabIndex        =   38
         Top             =   1920
         Width           =   684
      End
      Begin VB.TextBox Text8 
         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          =   288
         Left            =   1104
         TabIndex        =   23
         Text            =   "Text1"
         Top             =   600
         Width           =   700
      End
      Begin VB.TextBox Text7 
         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          =   288
         Left            =   1092
         TabIndex        =   22
         Text            =   "Text1"
         Top             =   948
         Width           =   700
      End
      Begin VB.TextBox Text3 
         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          =   288
         Left            =   720
         TabIndex        =   9
         Text            =   "Text1"
         Top             =   1272
         Width           =   1332
      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          =   288
         Left            =   720
         TabIndex        =   7
         Text            =   "Text1"
         Top             =   960
         Width           =   1080
      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          =   288
         Left            =   720
         TabIndex        =   5
         Text            =   "Text1"
         Top             =   600
         Width           =   1080
      End
      Begin VB.CommandButton Command4 
         Caption         =   "..."
         Height          =   255
         Left            =   2112
         TabIndex        =   3
         Top             =   240
         Width           =   375
      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        =   "Form4.frx":002C
         Left            =   120
         List            =   "Form4.frx":002E
         TabIndex        =   2
         Text            =   "Select"
         Top             =   240
         Width           =   1935
      End
      Begin VB.Label Label15 
         Caption         =   "Log/Norm:"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   252
         Left            =   120
         TabIndex        =   36
         Top             =   1620
         Width           =   852
      End
      Begin VB.Label Label3 
         Caption         =   "Step X:"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   252
         Left            =   108
         TabIndex        =   35
         Top             =   1308
         Width           =   612
      End
      Begin VB.Label Label10 
         Caption         =   "10^"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   252
         Left            =   744
         TabIndex        =   21
         Top             =   960
         Width           =   372
      End
      Begin VB.Label Label9 
         Caption         =   "10^"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   252
         Left            =   756
         TabIndex        =   20
         Top             =   624
         Width           =   360
      End
      Begin VB.Label Label2 
         Caption         =   "Min. X:"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   252
         Left            =   120
         TabIndex        =   8
         Top             =   972
         Width           =   732
      End
      Begin VB.Label Label1 
         Caption         =   "Max. X:"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   7.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   252
         Left            =   120
         TabIndex        =   6
         Top             =   636
         Width           =   732
      End
      Begin VB.Label Label8 
         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          =   252
         Left            =   1008
         TabIndex        =   4
         Top             =   1608
         Width           =   612
      End
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False





Private Sub Combo1_Click()

'----------------------------------------
' DETERMINO  MASSIMO MINIMO ETC
INP.SalvaABCamp Combo1.Text, Combo2.Text
INP.Max App.Path + "\data\datiinputx.txt"
MAXXX = StatResult
INP.Min App.Path + "\data\datiinputx.txt"
minXX = StatResult
logMinXX = Int(LOG10(minXX))

xm = 0

'aggiungo e tolgo un epsilon ai valori massimi e minimi
'aggiungo e tolgo un epsilon ai valori massimi e minimi

deltaxXX = (MAXXX - minXX) / 8 '10 10-10-02

If deltaxXX >= 1 Then
deltaxXX = Val(Format$(deltaxXX, "0"))
minXX = Val(Format$(minXX, "0")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0")) + deltaxXX
End If


If deltaxXX < 1 And deltaxXX >= 0.1 Then
deltaxXX = Val(Format$(deltaxXX, "0.0"))
minXX = Val(Format$(minXX, "0.0")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0.0")) + deltaxXX
End If


If deltaxXX < 0.1 And deltaxXX >= 0.01 Then
deltaxXX = Val(Format$(deltaxXX, "0.00"))
minXX = Val(Format$(minXX, "0.00")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0.00")) + deltaxXX
End If


If deltaxXX < 0.01 And deltaxXX >= 0.001 Then
deltaxXX = Val(Format$(deltaxXX, "0.000"))
minXX = Val(Format$(minXX, "0.000")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0.000")) + deltaxXX
End If


If deltaxXX < 0.001 And deltaxXX >= 0.0001 Then
deltaxXX = Val(Format$(deltaxXX, "0.0000"))
minXX = Val(Format$(minXX, "0.0000")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0.0000")) + deltaxXX
End If


If deltaxXX < 0.0001 And deltaxXX >= 0.00001 Then
deltaxXX = Val(Format$(deltaxXX, "0.00000"))
minXX = Val(Format$(minXX, "0.00000")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0.00000")) + deltaxXX
End If


If deltaxXX < 0.00001 And deltaxXX >= 0.000001 Then
deltaxXX = Val(Format$(deltaxXX, "0.000000"))
minXX = Val(Format$(minXX, "0.000000")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0.000000")) + deltaxXX
End If



If deltaxXX < 0.000001 And deltaxXX >= 0.0000001 Then
deltaxXX = Val(Format$(deltaxXX, "0.0000000"))
minXX = Val(Format$(minXX, "0.0000000")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0.0000000")) + deltaxXX
End If


If deltaxXX < 0.0000001 And deltaxXX >= 0.00000001 Then
deltaxXX = Val(Format$(deltaxXX, "0.00000000"))
minXX = Val(Format$(minXX, "0.00000000")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0.00000000")) + deltaxXX
End If



If MAXXX = minXX Then
MAXXX = MAXXX + 1
minXX = minXX - 1
End If



Form4.Text1.Text = MAXXX
If MAXXX > 1 Then
Form4.Text8.Text = Int(LOG10(MAXXX)) + 1
Else
Form4.Text8.Text = Int(LOG10(MAXXX)) + 2
End If
Form4.Text2.Text = minXX


Form4.Text2.Text = minXX
If minXX <= 0 Then
Form4.Text7.Text = logMinXX
GoTo toto1
End If
If minXX > 1 Then
Form4.Text7.Text = Int(LOG10(minXX)) ' - 1 '11/06/02
Else
Form4.Text7.Text = Int(LOG10(minXX)) - 1 '11/06/02
End If
toto1:
Form4.Text3.Text = deltaxXX

End Sub



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

If KeyCode = 32 Then
Command1_Click
End If

End Sub

Private Sub Combo2_Click()

'-----------------------------------------
' DETERMINO  MASSIMO MINIMO ETC
INP.SalvaABCamp Combo1.Text, Combo2.Text
INP.Max App.Path + "\data\datiinputy.txt"
maxyx = StatResult
INP.Min App.Path + "\data\datiinputy.txt"
minYx = StatResult
logminY = Int(LOG10(minYx))

ym = 0

'aggiungo e tolgo un epsilon ai valori massimi e minimi
deltaxYX = (maxyx - minYx) / 8 '10 10-10-02

If deltaxYX >= 1 Then
deltaxYX = Val(Format$(deltaxYX, "0"))
minYx = Val(Format$(minYx, "0")) - deltaxYX
maxyx = Val(Format$(maxyx, "0")) + deltaxYX
End If


If deltaxYX < 1 And deltaxYX >= 0.1 Then
deltaxYX = Val(Format$(deltaxYX, "0.0"))
minYx = Val(Format$(minYx, "0.0")) - deltaxYX
maxyx = Val(Format$(maxyx, "0.0")) + deltaxYX
End If


If deltaxYX < 0.1 And deltaxYX >= 0.01 Then
deltaxYX = Val(Format$(deltaxYX, "0.00"))
minYx = Val(Format$(minYx, "0.00")) - deltaxYX
maxyx = Val(Format$(maxyx, "0.00")) + deltaxYX
End If


If deltaxYX < 0.01 And deltaxYX >= 0.001 Then
deltaxYX = Val(Format$(deltaxYX, "0.000"))
minYx = Val(Format$(minYx, "0.000")) - deltaxYX
maxyx = Val(Format$(maxyx, "0.000")) + deltaxYX
End If


If deltaxYX < 0.001 And deltaxYX >= 0.0001 Then
deltaxYX = Val(Format$(deltaxYX, "0.0000"))
minYx = Val(Format$(minYx, "0.0000")) - deltaxYX
maxyx = Val(Format$(maxyx, "0.0000")) + deltaxYX
End If


If deltaxYX < 0.0001 And deltaxYX >= 0.00001 Then
deltaxYX = Val(Format$(deltaxYX, "0.00000"))
minYx = Val(Format$(minYx, "0.00000")) - deltaxYX
maxyx = Val(Format$(maxyx, "0.00000")) + deltaxYX
End If


If deltaxYX < 0.00001 And deltaxYX >= 0.000001 Then
deltaxYX = Val(Format$(deltaxYX, "0.000000"))
minYx = Val(Format$(minYx, "0.000000")) - deltaxYX
maxyx = Val(Format$(maxyx, "0.000000")) + deltaxYX
End If



If deltaxYX < 0.000001 And deltaxYX >= 0.0000001 Then
deltaxYX = Val(Format$(deltaxYX, "0.0000000"))
minYx = Val(Format$(minYx, "0.0000000")) - deltaxYX
maxyx = Val(Format$(maxyx, "0.0000000")) + deltaxYX
End If


If deltaxYX < 0.0000001 And deltaxYX >= 0.00000001 Then
deltaxYX = Val(Format$(deltaxYX, "0.00000000"))
minYx = Val(Format$(minYx, "0.00000000")) - deltaxYX
maxyx = Val(Format$(maxyx, "0.00000000")) + deltaxYX
End If


If maxyx = minYx Then
maxyx = maxyx + 1
minYx = minYx - 1
End If

'-----------

Form4.Text4.Text = maxyx
If maxyy > 1 Then
Form4.Text10.Text = Int(LOG10(maxyx)) + 1
Else
Form4.Text10.Text = Int(LOG10(maxyx)) + 2
End If
Form4.Text5.Text = minYx
If minYY <= 0 Then
Form4.Text9.Text = logminY
GoTo toto
End If
If minYY > 1 Then
Form4.Text9.Text = Int(LOG10(minYx)) ' - 1 '11/06/02
Else
Form4.Text9.Text = Int(LOG10(minYx)) - 1 '11/06/02
End If
toto:
Form4.Text6.Text = deltaxYX

End Sub



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

If KeyCode = 32 Then
Command1_Click
End If

End Sub

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

If KeyCode = 32 Then
Command1_Click
End If

End Sub

Private Sub Command1_Click()


On Error GoTo ee

Indeks = GraphSelect

'--------------------------------------
'binary


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

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

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

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

Xgraph(Indeks) = Val(Text11.Text)
Ygraph(Indeks) = Val(Text12.Text)

If Form4.Combo6.Text = "300x300" Then
Form2.Combo6.Text = "300x300"
End If
If Form4.Combo6.Text = "500x500" Then
Form2.Combo6.Text = "500x500"
End If
If Form4.Combo6.Text = "700x700" Then
Form2.Combo6.Text = "700x700"
End If

Form2.Hide

If DiagramType(Indeks) <> "none" Then
    If OMaxX(Indeks) > Val(Text1.Text) Then
    MsgBox "Values < " + Str(OMaxX(Indeks)) + "are not allowed for Xmax", , "Attention"
    Exit Sub
    End If
    If OMinX(Indeks) < Val(Text2.Text) Then
    MsgBox "Values > " + Str(OMinX(Indeks)) + "are not allowed for Xmin"
    Exit Sub
    End If
    If OMaxY(Indeks) > Val(Text4.Text) Then
    MsgBox "Values < " + Str(OMaxY(Indeks)) + "are not allowed for Ymax"
    Exit Sub
    End If
    If OMinY(Indeks) < Val(Text5.Text) Then
    MsgBox "Values > " + Str(OMinY(Indeks)) + "are not allowed for Ymin"
    Exit Sub
    End If
End If


picforms(Indeks).Width = 2000
picforms(Indeks).Height = 2000
picforms(Indeks).Picture2.Visible = False



'Asse x
If Label8.Caption = "LIN" Then
MaxX(Indeks) = Val(Text1.Text)
MinX(Indeks) = Val(Text2.Text)
deltax1(Indeks) = Val(Text3.Text)
End If

If Label8.Caption = "LOG" Then
MaxX(Indeks) = Val(EXP10(Text8.Text)) - (10 ^ -10)
MinX(Indeks) = Val(EXP10(Text7.Text)) + (10 ^ -10)
End If


'Asse y
If Label7.Caption = "LIN" Then
MaxY(Indeks) = Val(Text4.Text)
MinY(Indeks) = Val(Text5.Text)
deltay1(Indeks) = Val(Text6.Text)
End If

If Label7.Caption = "LOG" Then
MaxY(Indeks) = Val(EXP10(Text10.Text)) - (10 ^ -10)
MinY(Indeks) = Val(EXP10(Text9.Text)) + (10 ^ -10)
'Intx(Indeks) = Val(Text3.Text)
End If


'------------------------------

picforms(Indeks).Picture1.Cls
picforms(Indeks).Picture2.Cls


'------------------------------------------

'strelematre
'--------------------------------------------------------------------------
If DiagramType(Indeks) = "Strelemaitre" Then

picforms(Indeks).Picture1.Cls
picforms(Indeks).Picture1.Cls

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

CIPW.Norm
CIPWyn = True

MF1.Diagram


Dim anor As Single
Dim yt As Single

For i = 1 To Numcamp1

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

'------------
BackGrnd.FG1.Row = i 'attenzione 24-11-03
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 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) + ": QAPF (Right mouse click for option - Double click to change)"
MF1.Finegraph
MF1.MostraSpecifiche = True
MF1.Evidenzia = True
Exit Sub
End If


'-------------------------------------------


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

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

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

MF1.Diagram

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

If tipoGraph(Indeks) = "normx-logy" Then
MF1.DisegnaNormXLogY
End If

If tipoGraph(Indeks) = "logx-normy" Then
MF1.DisegnaLogXNormY
End If

If tipoGraph(Indeks) = "logx-logy" Then
MF1.DisegnaLogXLogY
End If



Form4.Hide

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


End Sub



Private Sub Command2_Click()
Form4.Hide
End Sub


Private Sub Command3_Click()

Form4.Command1.SetFocus

FormSelezionato = "form4-2"

INP.MostraForm13 Form4.left, Form4.top

End Sub



Private Sub Command4_Click()

Form4.Command1.SetFocus

FormSelezionato = "form4-1"

INP.MostraForm13 Form4.left, Form4.top

End Sub







Private Sub Command5_Click()


Form4.Command1.SetFocus

Form6.Show

End Sub



Private Sub Command6_Click()
' DETERMINO  MASSIMO MINIMO ETC
INP.SalvaABCamp Form4.Combo1.Text, Form4.Combo2.Text
INP.Max App.Path + "\data\datiinputx.txt"
MAXXX = StatResult
INP.Min App.Path + "\data\datiinputx.txt"
minXX = StatResult
logMinXX = Int(LOG10(minXX))


'aggiungo e tolgo un epsilon ai valori massimi e minimi

'------------
xm = 0

'aggiungo e tolgo un epsilon ai valori massimi e minimi

deltaxXX = (MAXXX - minXX) / 8 '10 10-10-02

If deltaxXX >= 1 Then
deltaxXX = Val(Format$(deltaxXX, "0"))
minx1 = minXX
minXX = Val(Format$(minXX, "0")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0")) + deltaxXX
End If


If deltaxXX < 1 And deltaxXX >= 0.1 Then
minx1 = minXX
deltaxXX = Val(Format$(deltaxXX, "0.0"))
minXX = Val(Format$(minXX, "0.0")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0.0")) + deltaxXX
End If


If deltaxXX < 0.1 And deltaxXX >= 0.01 Then
minx1 = minXX
deltaxXX = Val(Format$(deltaxXX, "0.00"))
minXX = Val(Format$(minXX, "0.00")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0.00")) + deltaxXX
End If


If deltaxXX < 0.01 And deltaxXX >= 0.001 Then
minx1 = minXX
deltaxXX = Val(Format$(deltaxXX, "0.000"))
minXX = Val(Format$(minXX, "0.000")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0.000")) + deltaxXX
End If


If deltaxXX < 0.001 And deltaxXX >= 0.0001 Then
minx1 = minXX
deltaxXX = Val(Format$(deltaxXX, "0.0000"))
minXX = Val(Format$(minXX, "0.0000")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0.0000")) + deltaxXX
End If


If deltaxXX < 0.0001 And deltaxXX >= 0.00001 Then
minx1 = minXX
deltaxXX = Val(Format$(deltaxXX, "0.00000"))
minXX = Val(Format$(minXX, "0.00000")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0.00000")) + deltaxXX
End If


If deltaxXX < 0.00001 And deltaxXX >= 0.000001 Then
minx1 = minXX
deltaxXX = Val(Format$(deltaxXX, "0.000000"))
minXX = Val(Format$(minXX, "0.000000")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0.000000")) + deltaxXX
End If



If deltaxXX < 0.000001 And deltaxXX >= 0.0000001 Then
minx1 = minXX
deltaxXX = Val(Format$(deltaxXX, "0.0000000"))
minXX = Val(Format$(minXX, "0.0000000")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0.0000000")) + deltaxXX
End If


If deltaxXX < 0.0000001 And deltaxXX >= 0.00000001 Then
minx1 = minXX
deltaxXX = Val(Format$(deltaxXX, "0.00000000"))
minXX = Val(Format$(minXX, "0.00000000")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0.00000000")) + deltaxXX
End If

If minXX < 0 And minx1 >= 0 Then
minXX = 0
End If

If MAXXX = minXX Then
MAXXX = MAXXX + 1
minXX = minXX - 1
End If



Form4.Text1.Text = MAXXX
If MAXXX > 1 Then
Form4.Text8.Text = Int(LOG10(MAXXX)) + 1
Else
Form4.Text8.Text = Int(LOG10(MAXXX)) + 1
End If
Form4.Text2.Text = minXX

Form4.Text2.Text = minXX
If minXX <= 0 Then
Form4.Text7.Text = logMinXX
GoTo toto1
End If
If minXX > 1 Then
Form4.Text7.Text = Int(LOG10(minXX)) '- 1 '11/06/02
Else
Form4.Text7.Text = Int(LOG10(minXX)) - 1 '11/06/02
End If
toto1:
Form4.Text3.Text = deltaxXX

If Label7.Caption = "LOG" And Label8.Caption = "LOG" Then
Form4.Text11.Visible = False
Form4.Text12.Visible = False
Form4.Combo6.Visible = True
End If
If Label7.Caption = "LIN" Or Label8.Caption = "LIN" Then
Form4.Text11.Visible = True
Form4.Text12.Visible = True
Form4.Combo6.Visible = False
End If

Form4.Command1.SetFocus

End Sub



Private Sub Command7_Click()
' DETERMINO  MASSIMO MINIMO ETC
INP.SalvaABCamp Form4.Combo1.Text, Form4.Combo2.Text
INP.Max App.Path + "\data\datiinputy.txt"
maxyx = StatResult
INP.Min App.Path + "\data\datiinputy.txt"
minYx = StatResult
logminY = Int(LOG10(minYx))

ym = 0

'aggiungo e tolgo un epsilon ai valori massimi e minimi

deltaxYX = (maxyx - minYx) / 8 '10 10-10-02

If deltaxYX >= 1 Then
deltaxYX = Val(Format$(deltaxYX, "0"))
minY1 = minYx
minYx = Val(Format$(minYx, "0")) - deltaxYX
maxyx = Val(Format$(maxyx, "0")) + deltaxYX
End If


If deltaxYX < 1 And deltaxYX >= 0.1 Then
deltaxYX = Val(Format$(deltaxYX, "0.0"))
minY1 = minYx
minYx = Val(Format$(minYx, "0.0")) - deltaxYX
maxyx = Val(Format$(maxyx, "0.0")) + deltaxYX
End If


If deltaxYX < 0.1 And deltaxYX >= 0.01 Then
deltaxYX = Val(Format$(deltaxYX, "0.00"))
minY1 = minYx
minYx = Val(Format$(minYx, "0.00")) - deltaxYX
maxyx = Val(Format$(maxyx, "0.00")) + deltaxYX
End If


If deltaxYX < 0.01 And deltaxYX >= 0.001 Then
deltaxYX = Val(Format$(deltaxYX, "0.000"))
minY1 = minYx
minYx = Val(Format$(minYx, "0.000")) - deltaxYX
maxyx = Val(Format$(maxyx, "0.000")) + deltaxYX
End If


If deltaxYX < 0.001 And deltaxYX >= 0.0001 Then
deltaxYX = Val(Format$(deltaxYX, "0.0000"))
minY1 = minYx
minYx = Val(Format$(minYx, "0.0000")) - deltaxYX
maxyx = Val(Format$(maxyx, "0.0000")) + deltaxYX
End If


If deltaxYX < 0.0001 And deltaxYX >= 0.00001 Then
deltaxYX = Val(Format$(deltaxYX, "0.00000"))
minY1 = minYx
minYx = Val(Format$(minYx, "0.00000")) - deltaxYX
maxyx = Val(Format$(maxyx, "0.00000")) + deltaxYX
End If


If deltaxYX < 0.00001 And deltaxYX >= 0.000001 Then
deltaxYX = Val(Format$(deltaxYX, "0.000000"))
minYx = Val(Format$(minYx, "0.000000")) - deltaxYX
maxyx = Val(Format$(maxyx, "0.000000")) + deltaxYX
End If



If deltaxYX < 0.000001 And deltaxYX >= 0.0000001 Then
deltaxYX = Val(Format$(deltaxYX, "0.0000000"))
minY1 = minYx
minYx = Val(Format$(minYx, "0.0000000")) - deltaxYX
maxyx = Val(Format$(maxyx, "0.0000000")) + deltaxYX
End If


If deltaxYX < 0.0000001 And deltaxYX >= 0.00000001 Then
deltaxYX = Val(Format$(deltaxYX, "0.00000000"))
minYx = Val(Format$(minYx, "0.00000000")) - deltaxYX
maxyx = Val(Format$(maxyx, "0.00000000")) + deltaxYX
End If

If minYx < 0 And minY1 >= 0 Then
minYx = 0
End If

If maxyx = minYx Then
maxyx = maxyx + 1
minYx = minYx - 1
End If



Form4.Text4.Text = maxyx
If maxyy > 1 Then
Form4.Text10.Text = Int(LOG10(maxyx)) + 1
Else
Form4.Text10.Text = Int(LOG10(maxyx)) + 1
End If
Form4.Text5.Text = minYx
If minYY <= 0 Then
Form4.Text9.Text = logminY
GoTo toto
End If
If minYY > 1 Then
Form4.Text9.Text = Int(LOG10(minYx)) '- 1 '11/06/02
Else
Form4.Text9.Text = Int(LOG10(minYx)) - 1 '11/06/02
End If
toto:
Form4.Text6.Text = deltaxYX

If Label7.Caption = "LOG" And Label8.Caption = "LOG" Then
Form4.Text11.Visible = False
Form4.Text12.Visible = False
Form4.Combo6.Visible = True
End If
If Label7.Caption = "LIN" Or Label8.Caption = "LIN" Then
Form4.Text11.Visible = True
Form4.Text12.Visible = True
Form4.Combo6.Visible = False
End If

Form4.Command1.SetFocus

End Sub


Private Sub Label7_Click()

If Label7.Caption = "LIN" Then
Label7.Caption = "LOG"
'asseX
    Form4.Text4.Visible = False
    Form4.Text5.Visible = False
    Form4.Text6.Visible = False
    Form4.Label6.Visible = False
    Form4.Text10.Visible = True
    Form4.Text9.Visible = True
    GoTo yyy
End If

If Label7.Caption = "LOG" Then
Label7.Caption = "LIN"
'asseX
    Form4.Text4.Visible = True
    Form4.Text5.Visible = True
    Form4.Text6.Visible = True
    Form4.Label6.Visible = True
    Form4.Text10.Visible = False
    Form4.Text9.Visible = False
    GoTo yyy
End If

yyy:


' DETERMINO  MASSIMO MINIMO ETC
INP.SalvaABCamp Form4.Combo1.Text, Form4.Combo2.Text
INP.Max App.Path + "\data\datiinputy.txt"
maxyx = StatResult
INP.Min App.Path + "\data\datiinputy.txt"
minYx = StatResult
logminY = Int(LOG10(minYx))

ym = 0

'aggiungo e tolgo un epsilon ai valori massimi e minimi

deltaxYX = (maxyx - minYx) / 8 '10 10-10-02

If deltaxYX >= 1 Then
deltaxYX = Val(Format$(deltaxYX, "0"))
minYx = Val(Format$(minYx, "0")) - deltaxYX
maxyx = Val(Format$(maxyx, "0")) + deltaxYX
End If


If deltaxYX < 1 And deltaxYX >= 0.1 Then
deltaxYX = Val(Format$(deltaxYX, "0.0"))
minYx = Val(Format$(minYx, "0.0")) - deltaxYX
maxyx = Val(Format$(maxyx, "0.0")) + deltaxYX
End If


If deltaxYX < 0.1 And deltaxYX >= 0.01 Then
deltaxYX = Val(Format$(deltaxYX, "0.00"))
minYx = Val(Format$(minYx, "0.00")) - deltaxYX
maxyx = Val(Format$(maxyx, "0.00")) + deltaxYX
End If


If deltaxYX < 0.01 And deltaxYX >= 0.001 Then
deltaxYX = Val(Format$(deltaxYX, "0.000"))
minYx = Val(Format$(minYx, "0.000")) - deltaxYX
maxyx = Val(Format$(maxyx, "0.000")) + deltaxYX
End If


If deltaxYX < 0.001 And deltaxYX >= 0.0001 Then
deltaxYX = Val(Format$(deltaxYX, "0.0000"))
minYx = Val(Format$(minYx, "0.0000")) - deltaxYX
maxyx = Val(Format$(maxyx, "0.0000")) + deltaxYX
End If


If deltaxYX < 0.0001 And deltaxYX >= 0.00001 Then
deltaxYX = Val(Format$(deltaxYX, "0.00000"))
minYx = Val(Format$(minYx, "0.00000")) - deltaxYX
maxyx = Val(Format$(maxyx, "0.00000")) + deltaxYX
End If


If deltaxYX < 0.00001 And deltaxYX >= 0.000001 Then
deltaxYX = Val(Format$(deltaxYX, "0.000000"))
minYx = Val(Format$(minYx, "0.000000")) - deltaxYX
maxyx = Val(Format$(maxyx, "0.000000")) + deltaxYX
End If



If deltaxYX < 0.000001 And deltaxYX >= 0.0000001 Then
deltaxYX = Val(Format$(deltaxYX, "0.0000000"))
minYx = Val(Format$(minYx, "0.0000000")) - deltaxYX
maxyx = Val(Format$(maxyx, "0.0000000")) + deltaxYX
End If


If deltaxYX < 0.0000001 And deltaxYX >= 0.00000001 Then
deltaxYX = Val(Format$(deltaxYX, "0.00000000"))
minYx = Val(Format$(minYx, "0.00000000")) - deltaxYX
maxyx = Val(Format$(maxyx, "0.00000000")) + deltaxYX
End If



If maxyx = minYx Then
maxyx = maxyx + 1
minYx = minYx - 1
End If


Form4.Text4.Text = maxyx
If maxyx > 1 Then
Form4.Text10.Text = Int(LOG10(maxyx)) + 1
Else
Form4.Text10.Text = Int(LOG10(maxyx)) + 1 '+ 2
End If
Form4.Text5.Text = minYx
If minYx <= 0 Then
Form4.Text9.Text = Str(logminY)
GoTo toto
End If
If minYx > 1 Then
Form4.Text9.Text = Int(LOG10(minYx)) '- 1 '11/06/02
Else
Form4.Text9.Text = Int(LOG10(minYx)) - 1 '11/06/02
End If
toto:
Form4.Text6.Text = deltaxYX

If Label7.Caption = "LOG" And Label8.Caption = "LOG" Then
Form4.Text11.Visible = False
Form4.Text12.Visible = False
Form4.Combo6.Visible = True
End If
If Label7.Caption = "LIN" Or Label8.Caption = "LIN" Then
Form4.Text11.Visible = True
Form4.Text12.Visible = True
Form4.Combo6.Visible = False
End If


End Sub

Private Sub Label8_Click()

If Label8.Caption = "LIN" Then
Label8.Caption = "LOG"
'asseX
    Form4.Text1.Visible = False
    Form4.Text2.Visible = False
    Form4.Text3.Visible = False
    Form4.Label3.Visible = False
    Form4.Text8.Visible = True
    Form4.Text7.Visible = True
GoTo yyy
End If

If Label8.Caption = "LOG" Then
Label8.Caption = "LIN"
'asseX
    Form4.Text1.Visible = True
    Form4.Text2.Visible = True
    Form4.Text3.Visible = True
    Form4.Label3.Visible = True
    Form4.Text8.Visible = False
    Form4.Text7.Visible = False
GoTo yyy
End If

yyy:

' DETERMINO  MASSIMO MINIMO ETC
INP.SalvaABCamp Form4.Combo1.Text, Form4.Combo2.Text
INP.Max App.Path + "\data\datiinputx.txt"
MAXXX = StatResult
INP.Min App.Path + "\data\datiinputx.txt"
minXX = StatResult
logMinXX = Int(LOG10(minXX))


'aggiungo e tolgo un epsilon ai valori massimi e minimi
deltaxXX = (MAXXX - minXX) / 8 '10 10-10-02

If deltaxXX >= 1 Then
deltaxXX = Val(Format$(deltaxXX, "0"))
minXX = Val(Format$(minXX, "0")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0")) + deltaxXX
End If


If deltaxXX < 1 And deltaxXX >= 0.1 Then
deltaxXX = Val(Format$(deltaxXX, "0.0"))
minXX = Val(Format$(minXX, "0.0")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0.0")) + deltaxXX
End If


If deltaxXX < 0.1 And deltaxXX >= 0.01 Then
deltaxXX = Val(Format$(deltaxXX, "0.00"))
minXX = Val(Format$(minXX, "0.00")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0.00")) + deltaxXX
End If


If deltaxXX < 0.01 And deltaxXX >= 0.001 Then
deltaxXX = Val(Format$(deltaxXX, "0.000"))
minXX = Val(Format$(minXX, "0.000")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0.000")) + deltaxXX
End If


If deltaxXX < 0.001 And deltaxXX >= 0.0001 Then
deltaxXX = Val(Format$(deltaxXX, "0.0000"))
minXX = Val(Format$(minXX, "0.0000")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0.0000")) + deltaxXX
End If


If deltaxXX < 0.0001 And deltaxXX >= 0.00001 Then
deltaxXX = Val(Format$(deltaxXX, "0.00000"))
minXX = Val(Format$(minXX, "0.00000")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0.00000")) + deltaxXX
End If


If deltaxXX < 0.00001 And deltaxXX >= 0.000001 Then
deltaxXX = Val(Format$(deltaxXX, "0.000000"))
minXX = Val(Format$(minXX, "0.000000")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0.000000")) + deltaxXX
End If



If deltaxXX < 0.000001 And deltaxXX >= 0.0000001 Then
deltaxXX = Val(Format$(deltaxXX, "0.0000000"))
minXX = Val(Format$(minXX, "0.0000000")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0.0000000")) + deltaxXX
End If


If deltaxXX < 0.0000001 And deltaxXX >= 0.00000001 Then
deltaxXX = Val(Format$(deltaxXX, "0.00000000"))
minXX = Val(Format$(minXX, "0.00000000")) - deltaxXX
MAXXX = Val(Format$(MAXXX, "0.00000000")) + deltaxXX
End If



If MAXXX = minXX Then
MAXXX = MAXXX + 1
minXX = minXX - 1
End If

Form4.Text1.Text = MAXXX
If MAXXX > 1 Then
Form4.Text8.Text = Int(LOG10(MAXXX)) + 1
Else
Form4.Text8.Text = Int(LOG10(MAXXX)) + 1
End If
Form4.Text2.Text = minXX

Form4.Text2.Text = minXX
If minXX <= 0 Then
Form4.Text7.Text = logMinXX
GoTo toto1
End If
If minXX > 1 Then
Form4.Text7.Text = Int(LOG10(minXX)) '- 1 '11/06/02
Else
Form4.Text7.Text = Int(LOG10(minXX)) - 1 '11/06/02
End If
toto1:
Form4.Text3.Text = deltaxXX

If Label7.Caption = "LOG" And Label8.Caption = "LOG" Then
Form4.Text11.Visible = False
Form4.Text12.Visible = False
Form4.Combo6.Visible = True
End If
If Label7.Caption = "LIN" Or Label8.Caption = "LIN" Then
Form4.Text11.Visible = True
Form4.Text12.Visible = True
Form4.Combo6.Visible = False
End If

End Sub





















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

If KeyCode = 32 Then
Command1_Click
End If

End Sub

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

If KeyCode = 32 Then
Command1_Click
End If

End Sub

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

If KeyCode = 32 Then
Command1_Click
End If

End Sub

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

If KeyCode = 32 Then
Command1_Click
End If

End Sub

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

If KeyCode = 32 Then
Command1_Click
End If

End Sub

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

If KeyCode = 32 Then
Command1_Click
End If

End Sub

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

If KeyCode = 32 Then
Command1_Click
End If

End Sub

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

If KeyCode = 32 Then
Command1_Click
End If

End Sub

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

If KeyCode = 32 Then
Command1_Click
End If

End Sub

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

If KeyCode = 32 Then
Command1_Click
End If

End Sub

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

If KeyCode = 32 Then
Command1_Click
End If

End Sub

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

If KeyCode = 32 Then
Command1_Click
End If

End Sub