VERSION 5.00
Begin VB.Form Form22 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Search on graph"
   ClientHeight    =   780
   ClientLeft      =   30
   ClientTop       =   270
   ClientWidth     =   5550
   LinkTopic       =   "Form22"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   780
   ScaleWidth      =   5550
   ShowInTaskbar   =   0   'False
   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            =   4440
      TabIndex        =   1
      Top             =   240
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Search (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            =   2640
      TabIndex        =   2
      Top             =   240
      Width           =   1695
   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          =   315
      Left            =   165
      TabIndex        =   0
      Text            =   "Select"
      Top             =   270
      Width           =   2292
   End
End
Attribute VB_Name = "Form22"
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
Command1_Click
End If

End Sub

Private Sub Command1_Click()

'Triangular
If Triangular(Indeks) = True Then

bbb$ = Form22.Combo1.Text

lenbb = Len(bbb$)

For i1 = 1 To Numcamp1
aaa$ = Campione(i1, id1)

lenaa = Len(aaa$)

For ee = 1 To lenaa

aaaa$ = Mid(aaa$, ee, lenbb)

If aaaa$ = bbb$ Then

    

    MDIForm1.StatusBar1.Panels(1).Text = "Sample: " + aaa$
    picforms(id1).Shape1.left = XXReal(i1, id1) - (picforms(id1).Shape1.Width / 2)
    picforms(id1).Shape1.top = YYReal(i1, id1) + (picforms(id1).Shape1.Height / 2)
    picforms(id1).Shape1.Visible = True
    picforms(id1).Shape2.Visible = False
    For ii = 1 To 50
    For i = 1 To 100
    picforms(id1).Shape1.FillColor = QBColor(13)
    picforms(id1).Refresh
    Next i
    For i = 1 To 100
    picforms(id1).Shape1.FillColor = QBColor(14)
    picforms(id1).Refresh
    Next i
    Next ii
    picforms(id1).Shape1.FillColor = QBColor(12)
    
res = MsgBox(aaa$ + " Found.  Continue Search?", vbYesNo)

If res = 6 Then
GoTo cont1
Else
Form22.Hide
Exit Sub
End If

cont1:
    
End If
Next ee
Next i1
GoTo fin
End If

'binary
If binary(id1) = True Then
bbb$ = Form22.Combo1.Text
lenbb = Len(bbb$)

For i1 = 1 To Numcamp1
aaa$ = Campione(i1, id1)

lenaa = Len(aaa$)

For ee = 1 To lenaa

aaaa$ = Mid(aaa$, ee, lenbb)

If aaaa$ = bbb$ Then
    
    If tipoGraph(id1) = "normx-normy" Then
    picforms(id1).Shape1.left = xx(i1, id1) - (picforms(id1).Shape1.Width / 2)
    picforms(id1).Shape1.top = yy(i1, id1) + (picforms(id1).Shape1.Height / 2)
    picforms(id1).Shape1.Visible = True
    picforms(id1).Shape2.Visible = False
    For ii = 1 To 50
    For i = 1 To 100
    picforms(id1).Shape1.FillColor = QBColor(13)
    picforms(id1).Refresh
    Next i
    For i = 1 To 100
    picforms(id1).Shape1.FillColor = QBColor(14)
    picforms(id1).Refresh
    Next i
    Next ii
    picforms(id1).Shape1.FillColor = QBColor(12)
    End If
    
    If tipoGraph(id1) = "logx-normy" Then
    picforms(id1).Shape2.left = LOG10(XXReal(i1, Indeks)) - (picforms(id1).Shape2.Width / 2)
    picforms(id1).Shape2.top = YYReal(i1, Indeks) + (picforms(id1).Shape2.Height / 2)
    picforms(id1).Shape1.Visible = False
    picforms(id1).Shape2.Visible = True
    For ii = 1 To 50
    For i = 1 To 100
    picforms(id1).Shape2.FillColor = QBColor(13)
    picforms(id1).Refresh
    Next i
    For i = 1 To 100
    picforms(id1).Shape2.FillColor = QBColor(14)
    picforms(id1).Refresh
    Next i
    Next ii
    picforms(id1).Shape2.FillColor = QBColor(12)
    End If
    
    If tipoGraph(id1) = "normx-logy" Then
    picforms(id1).Shape2.left = XXReal(i1, Indeks) - (picforms(id1).Shape2.Width / 2)
    picforms(id1).Shape2.top = LOG10(YYReal(i1, Indeks)) + (picforms(id1).Shape2.Height / 2)
    picforms(id1).Shape1.Visible = False
    picforms(id1).Shape2.Visible = True
    For ii = 1 To 50
    For i = 1 To 100
    picforms(id1).Shape2.FillColor = QBColor(13)
    picforms(id1).Refresh
    Next i
    For i = 1 To 100
    picforms(id1).Shape2.FillColor = QBColor(14)
    picforms(id1).Refresh
    Next i
    Next ii
    picforms(id1).Shape2.FillColor = QBColor(12)
    End If
    
    If tipoGraph(id1) = "logx-logy" Then
    picforms(id1).Shape2.left = LOG10(XXReal(i1, Indeks)) - (picforms(id1).Shape2.Width / 2)
    picforms(id1).Shape2.top = LOG10(YYReal(i1, Indeks)) + (picforms(id1).Shape2.Height / 2)
    picforms(id1).Shape1.Visible = False
    picforms(id1).Shape2.Visible = True
    For ii = 1 To 50
    For i = 1 To 100
    picforms(id1).Shape2.FillColor = QBColor(13)
    picforms(id1).Refresh
    Next i
    For i = 1 To 100
    picforms(id1).Shape2.FillColor = QBColor(14)
    picforms(id1).Refresh
    Next i
    Next ii
    picforms(id1).Shape2.FillColor = QBColor(12)
    End If
    
MDIForm1.StatusBar1.Panels(1).Text = "Sample: " + aaa$
res = MsgBox(aaa$ + " Found.  Continue Search?", vbYesNo)

If res = 6 Then
GoTo cont2
Else
Form22.Hide
Exit Sub
End If

cont2:
End If

Next ee

Next i1
GoTo fin
End If


'REEspider
If SPIDERREE(Indeks) = True Then

bbb$ = Form22.Combo1.Text
lenbb = Len(bbb$)

For i1 = 1 To Numcamp1
aaa$ = Campione(i1, id1)

lenaa = Len(aaa$)

For ee = 1 To lenaa

aaaa$ = Mid(aaa$, ee, lenbb)

If aaaa$ = bbb$ Then
    
SPI.DeterminaValoriREE i1
   
For i = 1 To 15
If valREEn(i) <= 0 Then
Exit Sub
End If
Next i

ss = 0

For ii = 1 To 200
For i = 1 To 15
ss = ss + 1
x1 = i * (picforms(Indeks).Picture2.Width / 15)
y1 = picforms(Indeks).Picture2.Height - (valREEn(i) - MinY(Indeks) / (MaxY(Indeks) - MinY(Indeks)) * picforms(Indeks).Picture2.Height)
picforms(Indeks).Shape3(i).left = i - (picforms(Indeks).Shape3(i).Width / 2)
picforms(Indeks).Shape3(i).top = Spiy(Indeks, i, i1) + (picforms(Indeks).Shape3(i).Height / 2)
picforms(Indeks).Shape3(i).Visible = False
picforms(Indeks).Shape3(i).FillColor = QBColor(13)
picforms(Indeks).Refresh
If REEabsent(i) = False Then
picforms(Indeks).Shape3(i).Visible = True
End If
Next i
For i = 1 To 15
ss = ss + 1
x1 = i * (picforms(Indeks).Picture2.Width / 15)
y1 = picforms(Indeks).Picture2.Height - (valREEn(i) - MinY(Indeks) / (MaxY(Indeks) - MinY(Indeks)) * picforms(Indeks).Picture2.Height)
picforms(Indeks).Shape3(i).left = i - (picforms(Indeks).Shape3(i).Width / 2)
picforms(Indeks).Shape3(i).top = Spiy(Indeks, i, i1) + (picforms(Indeks).Shape3(i).Height / 2)
picforms(Indeks).Shape3(i).Visible = False
picforms(Indeks).Shape3(i).FillColor = QBColor(14)
picforms(Indeks).Refresh
If REEabsent(i) = False Then
picforms(Indeks).Shape3(i).Visible = True
End If
Next i

Next ii



MDIForm1.StatusBar1.Panels(1).Text = "Sample: " + aaa$
res = MsgBox(aaa$ + " Found.  Continue Search?", vbYesNo)

If res = 6 Then
GoTo cont3
Else
Form22.Hide
Exit Sub
End If

cont3:
End If

Next ee

Next i1

For i = 1 To 15
picforms(Indeks).Shape3(i).FillColor = QBColor(12)
Next i


GoTo fin
End If


'OTHERspider
If SPIDEROTHER(Indeks) = True Then

bbb$ = Form22.Combo1.Text
lenbb = Len(bbb$)

For i1 = 1 To Numcamp1
aaa$ = Campione(i1, id1)

lenaa = Len(aaa$)

For ee = 1 To lenaa

aaaa$ = Mid(aaa$, ee, lenbb)

If aaaa$ = bbb$ Then
    
SPI1.DeterminaValoriSpider i1
   
For i = 1 To NumSpider
If ValSpiderNorm(i) <= 0 Then
Exit Sub
End If
Next i

ss = 0

For ii = 1 To 100
For i = 1 To NumSpider
ss = ss + 1
x1 = i * (picforms(Indeks).Picture2.Width / NumSpider)
y1 = picforms(Indeks).Picture2.Height - (ValSpiderNorm(i) - MinY(Indeks) / (MaxY(Indeks) - MinY(Indeks)) * picforms(Indeks).Picture2.Height)
picforms(Indeks).Shape3(i).left = i - (picforms(Indeks).Shape3(i).Width / 2)
picforms(Indeks).Shape3(i).top = Spiy(Indeks, i, i1) + (picforms(Indeks).Shape3(i).Height / 2)
picforms(Indeks).Shape3(i).Visible = False
picforms(Indeks).Shape3(i).FillColor = QBColor(13)
picforms(Indeks).Refresh
If SpiderAbsent(i) = False Then
picforms(Indeks).Shape3(i).Visible = True
End If
Next i
For i = 1 To NumSpider
ss = ss + 1
x1 = i * (picforms(Indeks).Picture2.Width / NumSpider)
y1 = picforms(Indeks).Picture2.Height - (ValSpiderNorm(i) - MinY(Indeks) / (MaxY(Indeks) - MinY(Indeks)) * picforms(Indeks).Picture2.Height)
picforms(Indeks).Shape3(i).left = i - (picforms(Indeks).Shape3(i).Width / 2)
picforms(Indeks).Shape3(i).top = Spiy(Indeks, i, i1) + (picforms(Indeks).Shape3(i).Height / 2)
picforms(Indeks).Shape3(i).Visible = False
picforms(Indeks).Shape3(i).FillColor = QBColor(14)
picforms(Indeks).Refresh
If SpiderAbsent(i) = False Then
picforms(Indeks).Shape3(i).Visible = True
End If
Next i

Next ii

MDIForm1.StatusBar1.Panels(1).Text = "Sample: " + aaa$
res = MsgBox(aaa$ + " Found.  Continue Search?", vbYesNo)

If res = 6 Then
GoTo cont4
Else
Form22.Hide
Exit Sub
End If

cont4:
End If

Next ee

Next i1

For i = 1 To NumSpider
picforms(Indeks).Shape3(i).FillColor = QBColor(12)
Next i


GoTo fin
End If

fin:
End Sub



Private Sub Command2_Click()



Form22.Hide


End Sub