VERSION 5.00 Begin VB.Form FRMPICTURE BorderStyle = 4 'Fixed ToolWindow Caption = "Form2" ClientHeight = 1440 ClientLeft = 45 ClientTop = 285 ClientWidth = 2160 LinkTopic = "Form2" MaxButton = 0 'False MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 96 ScaleMode = 3 'Pixel ScaleWidth = 144 ShowInTaskbar = 0 'False Begin VB.PictureBox picture1 Appearance = 0 'Flat AutoRedraw = -1 'True AutoSize = -1 'True BackColor = &H80000005& BorderStyle = 0 'None DrawWidth = 2 FillStyle = 0 'Solid ForeColor = &H80000008& Height = 1890 Left = 0 ScaleHeight = 128.52 ScaleMode = 0 'User ScaleWidth = 148 TabIndex = 0 Top = 0 Width = 2220 Begin VB.PictureBox Picture2 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H00FFFFFF& ForeColor = &H80000008& Height = 732 Left = 960 ScaleHeight = 47 ScaleMode = 3 'Pixel ScaleWidth = 71 TabIndex = 1 Top = 120 Visible = 0 'False Width = 1092 Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 40 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 39 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 38 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 37 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 36 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 35 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 34 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 33 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 32 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 31 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 30 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 29 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 28 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 27 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 26 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 25 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 24 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 23 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 22 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 21 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 20 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 19 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 18 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 17 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 16 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 15 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 14 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 13 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 12 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 11 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 10 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 9 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 8 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 7 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 6 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 5 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 4 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 3 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 2 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 1 Left = 0 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape3 BorderColor = &H00000000& FillColor = &H000000FF& FillStyle = 0 'Solid Height = 252 Index = 0 Left = 240 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 120 End Begin VB.Shape Shape2 FillColor = &H000000FF& FillStyle = 0 'Solid Height = 228 Left = 600 Shape = 3 'Circle Top = 0 Visible = 0 'False Width = 228 End End Begin VB.Shape Shape1 FillColor = &H000000FF& FillStyle = 0 'Solid Height = 216 Left = 1080 Shape = 3 'Circle Top = 840 Visible = 0 'False Width = 228 End End End Attribute VB_Name = "FRMPICTURE" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Form_Load() ActiveGraph(Indeks) = True End Sub Private Sub Form_Unload(Cancel As Integer) ii = Val(Me.Tag) OpenPic(ii) = 0 NumModelli(Indeks) = 0 For i = 15 To 1 Step -1 If OpenPic(i) = 1 Then Maxindeks = i GoTo poi2 End If Next i poi2: If Maxindeks = 1 And OpenPic(1) = 0 Then Maxindeks = 0 End If ActiveGraph(Indeks) = False MDIForm1.StatusBar1.Panels(1).Text = "" MDIForm1.StatusBar1.Panels(2).Text = "" MDIForm1.StatusBar1.Panels(3).Text = "" For i = 1 To 50 '200 'Numcamp1 For ii = 1 To 15 Spiy(cv, ii, i) = 0 Next ii Next i NormSP(cv) = "" SpiPlotted(cv) = "" NumCampSpi(cv) = 0 End Sub Private Sub Picture1_Click() Me.Shape1.Visible = False MDIForm1.StatusBar1.Panels(1).Text = "" MDIForm1.StatusBar1.Panels(2).Text = "" MDIForm1.StatusBar1.Panels(3).Text = "" End Sub Private Sub Picture1_DblClick() On Error GoTo sese1 'diagrammi non resizzabili 'If DiagramType(Indeks) = "NbY" Or DiagramType(Indeks) = "TaYb" Or DiagramType(Indeks) = "Rb(YNb)" Or DiagramType(Indeks) = "Rb(YbTa)" _ 'Or DiagramType(Indeks) = "AFM-Kuno" Or DiagramType(Indeks) = "AFM-Irvine" Or DiagramType(Indeks) = "TiZrY" Or DiagramType(Indeks) = "TiZrSr" _ 'Or DiagramType(Indeks) = "NbZrY" Or DiagramType(Indeks) = "ThHfTa" Then 'GoTo sese1 If DiagramType(Indeks) = "AFM-Kuno" Or DiagramType(Indeks) = "AFM-Irvine" Or DiagramType(Indeks) = "TiZrY" Or DiagramType(Indeks) = "TiZrSr" _ Or DiagramType(Indeks) = "NbZrY" Or DiagramType(Indeks) = "ThHfTa" Then GoTo sese1 End If Indeks = Val(Me.Tag) 'diagrammi resizabili If DiagramType(Indeks) <> "none" Then Form4.Text7.Visible = True Form4.Text8.Visible = True Form4.Text9.Visible = True Form4.Text10.Visible = True Form4.Combo1.Visible = True Form4.Combo2.Visible = True Form4.Combo6.Visible = True Form4.Label7.Visible = True Form4.Label8.Visible = True Form4.Command3.Visible = True Form4.Command4.Visible = True GraphSelect = Val(Me.Tag) 'ASSEX Form4.Text1.Text = MaxX(Indeks) Form4.Text2.Text = MinX(Indeks) Form4.Text3.Text = deltax1(Indeks) 'ASSEY Form4.Text4.Text = MaxY(Indeks) Form4.Text5.Text = MinY(Indeks) Form4.Text6.Text = deltay1(Indeks) Form4.Text11.Text = Xgraph(Indeks) Form4.Text12.Text = Ygraph(Indeks) Form4.Combo1.Text = Elementi(AXX(Indeks)) Form4.Combo2.Text = Elementi(AXY(Indeks)) GraphSelect = Val(Me.Tag) Form4.Text7.Visible = False Form4.Text8.Visible = False Form4.Text9.Visible = False Form4.Text10.Visible = False Form4.Combo1.Visible = False Form4.Combo2.Visible = False Form4.Combo6.Visible = False Form4.Label7.Visible = False Form4.Label8.Visible = False Form4.Command3.Visible = False Form4.Command4.Visible = False 'diagrammi per i graniti '------------------------------ If DiagramType(Indeks) = "NbY" Or DiagramType(Indeks) = "TaYb" Or DiagramType(Indeks) = "Rb(YNb)" Or DiagramType(Indeks) = "Rb(YbTa)" Then 'ASSEX Form4.Text1.Text = MaxX(Indeks) Form4.Text2.Text = MinX(Indeks) Form4.Text3.Text = deltax1(Indeks) Form4.Text8 = Int(LOG10(MaxX(Indeks))) + 1 If MinX(Indeks) <= 0 Then Form4.Text7 = "/" GoTo aaa End If Form4.Text7 = Int(LOG10(MinX(Indeks))) aaa: 'ASSEY Form4.Text4.Text = MaxY(Indeks) Form4.Text5.Text = MinY(Indeks) Form4.Text6.Text = deltay1(Indeks) Form4.Text10.Text = Int(LOG10(MaxY(Indeks))) + 1 If MinY(Indeks) <= 0 Then Form4.Text7 = "/" GoTo aaa1 End If Form4.Text9.Text = Int(LOG10(MinY(Indeks))) aaa1: GraphSelect = Val(Me.Tag) Form4.Label8.Caption = "LOG" Form4.Label7.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 'asseY Form4.Text4.Visible = False Form4.Text5.Visible = False Form4.Text6.Visible = False Form4.Label6.Visible = False Form4.Text10.Visible = True Form4.Text9.Visible = True Form4.Label16.Visible = False Form4.Label15.Visible = False Form4.Text11.Visible = False Form4.Text12.Visible = False Form4.Combo6.Visible = True Form4.Label13.Visible = False Form4.Label14.Visible = False End If '--------------------------------- GoTo sese End If If Triangular(Val(Me.Tag)) = True Then ChangeTri = True Form3.Combo1.Clear Form3.Combo2.Clear Form3.Combo3.Clear ChangeTri = True For i = 1 To Numelem Form3.Combo1.AddItem Elementi(i) Form3.Combo2.AddItem Elementi(i) Form3.Combo3.AddItem Elementi(i) Next i Form3.Combo1 = Elementi(AxAa(Val(Me.Tag))) Form3.Combo2 = Elementi(AXB(Val(Me.Tag))) Form3.Combo3 = Elementi(AXC(Val(Me.Tag))) Form3.Show Form3.SetFocus GoTo sese1 End If If SPIDERREE(Val(Me.Tag)) = True Then Indeks = Val(Me.Tag) Form11.Text2.Text = Int(LOG10(MinY(Indeks))) + 1 Form11.Text1.Text = Int(LOG10(MaxY(Indeks))) + 1 GraphSelect = Val(Me.Tag) Form11.Show Form11.SetFocus GoTo sese1 End If If SPIDEROTHER(Val(Me.Tag)) = True Then Indeks = Val(Me.Tag) Form11.Text2.Text = Int(LOG10(MinY(Indeks))) + 1 Form11.Text1.Text = Int(LOG10(MaxY(Indeks))) + 1 GraphSelect = Val(Me.Tag) Form11.Show Form11.SetFocus GoTo sese1 End If If binary(Val(Me.Tag)) = True Then Form4.Text7.Visible = True Form4.Text8.Visible = True Form4.Text9.Visible = True Form4.Text10.Visible = True Form4.Combo1.Visible = True Form4.Combo2.Visible = True Form4.Combo6.Visible = True Form4.Label7.Visible = True Form4.Label8.Visible = True Form4.Command3.Visible = True Form4.Command4.Visible = True Indeks = Val(Me.Tag) 'binary Form4.Combo1.Clear Form4.Combo2.Clear For i = 1 To Numelem Form4.Combo1.AddItem Elementi(i) Form4.Combo2.AddItem Elementi(i) Next i Form4.Text11.Text = Xgraph(Indeks) Form4.Text12.Text = Ygraph(Indeks) 'ASSEX Form4.Text1.Text = MaxX(Indeks) Form4.Text2.Text = MinX(Indeks) Form4.Text3.Text = deltax1(Indeks) Form4.Text8 = Int(LOG10(MaxX(Indeks))) + 1 If MinX(Indeks) <= 0 Then Form4.Text7 = "/" GoTo aaa12 End If Form4.Text7 = Int(LOG10(MinX(Indeks))) aaa12: 'ASSEY Form4.Text4.Text = MaxY(Indeks) Form4.Text5.Text = MinY(Indeks) Form4.Text6.Text = deltay1(Indeks) Form4.Text10.Text = Int(LOG10(MaxY(Indeks))) + 1 If MinY(Indeks) <= 0 Then Form4.Text7 = "/" GoTo aaa13 End If Form4.Text9.Text = Int(LOG10(MinY(Indeks))) aaa13: GraphSelect = Val(Me.Tag) 'Assi Form4.Combo1.Text = Elementi(AXX(Indeks)) Form4.Combo2.Text = Elementi(AXY(Indeks)) If tipoGraph(Indeks) = "normx-normy" Then Form4.Label8.Caption = "LIN" Form4.Label7.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 'asseY Form4.Text4.Visible = True Form4.Text5.Visible = True Form4.Text6.Visible = True Form4.Label6.Visible = True Form4.Text10.Visible = False Form4.Text9.Visible = False End If If tipoGraph(Indeks) = "logx-normy" Then Form4.Label8.Caption = "LOG" Form4.Label7.Caption = "LIN" '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 'asseY Form4.Text4.Visible = True Form4.Text5.Visible = True Form4.Text6.Visible = True Form4.Label6.Visible = True Form4.Text10.Visible = False Form4.Text9.Visible = False End If If tipoGraph(Indeks) = "normx-logy" Then Form4.Label8.Caption = "LIN" Form4.Label7.Caption = "LOG" '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 'asseY Form4.Text4.Visible = False Form4.Text5.Visible = False Form4.Text6.Visible = False Form4.Label6.Visible = False Form4.Text10.Visible = True Form4.Text9.Visible = True End If If tipoGraph(Indeks) = "logx-logy" Then Form4.Label8.Caption = "LOG" Form4.Label7.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 'asseY Form4.Text4.Visible = False Form4.Text5.Visible = False Form4.Text6.Visible = False Form4.Label6.Visible = False Form4.Text10.Visible = True Form4.Text9.Visible = True End If If Form4.Label7.Caption = "LOG" And Form4.Label8.Caption = "LOG" Then Form4.Text11.Visible = False Form4.Text12.Visible = False Form4.Combo6.Visible = True End If If Form4.Label7.Caption = "LIN" Or Form4.Label8.Caption = "LIN" Then Form4.Text11.Visible = True Form4.Text12.Visible = True Form4.Combo6.Visible = False End If End If sese: Form4.Show sese1: End Sub Private Sub picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) '---------------------------------------------------------------------- 'salva i valori delle coordinate del campione nelle variabili selezioneX e Y On Error GoTo fin Form23.Hide MDIForm1.opzCangeModel.Visible = False 'modello For iii = 1 To 15 aa$ = MDIForm1.StatusBar1.Panels(1).Text bb$ = "Sample: MODEL: " + Str(iii) If aa$ = bb$ Then Close #2 Open App.Path + "\data\" + Trim(Indeks) + "modelExplain" + Trim(iii) + ".txt" For Input As #2 Line Input #2, models 'MOD 'Form23.Label2 = Models Line Input #2, rr 'R Line Input #2, rr1 'R 'Form23.Label14 = rr Line Input #2, c01s 'C0 'Form23.Label4 = C01s Line Input #2, cas 'CA 'Form23.Label6 = CAs Line Input #2, c1s 'C1 'Form23.Label8 = C1s Line Input #2, c2s 'C2 Line Input #2, c3s 'C2 Line Input #2, cicl Line Input #2, stcicl 'Form23.Label10 = C2s Input #2, NumModelElemS For ii = 1 To NumModelElemS Input #2, ModElementi(ii) Next ii 'Form23.Label11(ii - 1) = ModElementi(ii) For ii = 1 To NumModelElem Input #2, ModD(ii) 'Form23.Label12(ii - 1) = ModD(ii) Next ii Close #2 '------------ MDIForm1.opzCangeModel.Visible = True 'If Models = "AFC" Then 'Form23.Label13.Visible = True 'Form23.Label14.Visible = True 'Form23.Label5.Visible = True 'Form23.Label6.Visible = True 'Else 'Form23.Label13.Visible = False 'Form23.Label14.Visible = False 'Form23.Label5.Visible = False 'Form23.Label6.Visible = False 'End If 'If Models = "Mixing" Then 'Form23.Label7.Visible = True 'Form23.Label8.Visible = True 'Form23.Label9.Visible = True 'Form23.Label10.Visible = True 'Form23.Label3.Visible = False 'Form23.Label4.Visible = False 'For ss = 0 To 5 'Form23.Label11(ss).Visible = False 'Form23.Label12(ss).Visible = False 'Next ss 'Else 'Form23.Label7.Visible = False 'Form23.Label8.Visible = False 'Form23.Label9.Visible = False 'Form23.Label10.Visible = False 'Form23.Label3.Visible = True 'Form23.Label4.Visible = True 'For ss = 0 To 5 'Form23.Label11(ss).Visible = True 'Form23.Label12(ss).Visible = True 'Next ss 'End If 'Form23.top = MDIForm1.ScaleHeight 'Form23.left = 50 'Form23.Visible = True 'Form23.SetFocus 'While Form23.top > MDIForm1.ScaleHeight - Form23.Height - 50 'Form23.top = Form23.top - 1 'Wend End If Next iii '------ GraphSelect = IndexSel 'If xx(i, Val(Me.Tag)) = x Or xx(i, Val(Me.Tag)) = x + 1 Or xx(i, Val(Me.Tag)) = x + 1 Or xx(i, Val(Me.Tag)) = x - 1 Or xx(i, Val(Me.Tag)) = x - 2 Then ' If yy(i, Val(Me.Tag)) = y Or yy(i, Val(Me.Tag)) = y + 1 Or yy(i, Val(Me.Tag)) = y + 2 Or yy(i, Val(Me.Tag)) = y - 1 Or yy(i, Val(Me.Tag)) = y - 2 Then If Shape1.Visible = True Then 'SelezioneX = XXReal(i, Val(Me.Tag)) 'SelezioneY = YYReal(i, Val(Me.Tag)) 'SelezCamp = Campione(i, Val(Me.Tag)) For i = 1 To NumCamp(Val(Me.Tag)) DDD = MDIForm1.StatusBar1.Panels(1).Text bbb = Mid(DDD, 8, Len(DDD) - 7) If bbb = Campione(i, Val(Me.Tag)) Then SelezioneX = XXReal(i, Val(Me.Tag)) SelezioneY = YYReal(i, Val(Me.Tag)) SelezCamp = Campione(i, Val(Me.Tag)) End If Next i If SelC0 = True Then CampioneC0 = SelezCamp MsgBox CampioneC0 + " Selected" Form12.Combo1.Text = CampioneC0 Form12.Show Form12.SetFocus SelC0 = False End If If SelCz = True Then CampioneCz = SelezCamp MsgBox CampioneCz + " Selected" Form12.Combo11.Text = CampioneCz Form12.Show Form12.SetFocus SelCz = False End If If SelCw = True Then CampioneCw = SelezCamp MsgBox CampioneCw + " Selected" Form12.Combo10.Text = CampioneCw Form12.Show Form12.SetFocus SelCw = False End If If SelCR = True Then CampioneCR = SelezCamp MsgBox CampioneCR + " Selected" Form12.Combo9.Text = CampioneCR Form12.Show Form12.SetFocus SelCR = False End If If SelC0I = True Then CampioneC0 = SelezCamp MsgBox CampioneC0 + " Selected" Form27.Combo1.Text = CampioneC0 Form27.Show Form27.SetFocus SelC0I = False End If If SelCA = True Then CampioneCA = SelezCamp MsgBox CampioneCA + " Selected" Form12.Combo5.Text = CampioneCA Form12.Show Form12.SetFocus SelCA = False End If If SelCAI = True Then CampioneCA = SelezCamp MsgBox CampioneCA + " Selected" Form27.Combo5.Text = CampioneCA Form27.Show Form27.SetFocus SelCAI = False End If If SelC1 = True Then CampioneC1 = SelezCamp MsgBox CampioneC1 + " Selected" ' mixing iperbola If Mixip = True Then 'determino il numero del campione For ii = 1 To Numcamp1 If NomeCamp(ii) = CampioneC1 Then ww = ii IperbolaC1 = ii GoTo dopo1 End If Next ii dopo1: 'determino l'elemento x For ii = 1 To Numelem If Elementi(ii) = Elementi(AXX(IndexSel)) Then wwX = ii GoTo dopo2 End If Next ii dopo2: 'determino l'elemento y For ii = 1 To Numelem If Elementi(ii) = Elementi(AXY(IndexSel)) Then wwy = ii GoTo dopo3 End If Next ii dopo3: Form26.Text1.Text = DatiOrigine(ww, wwX) Form26.Text3.Text = DatiOrigine(ww, wwy) Mixip = False SelC1 = False Form26.Show Form26.SetFocus Exit Sub End If 'mixing lineare Form12.Combo8.Text = CampioneC1 Form12.Show Form12.SetFocus SelC1 = False ' End If End If If SelC2 = True Then CampioneC2 = SelezCamp MsgBox CampioneCA + " Selected" ' mixing iperbola If Mixip = True Then 'determino il numero del campione For ii = 1 To Numcamp1 If NomeCamp(ii) = CampioneC2 Then ww = ii IperbolaC2 = ii GoTo dopo11 End If Next ii dopo11: 'determino l'elemento x For ii = 1 To Numelem If Elementi(ii) = Elementi(AXX(IndexSel)) Then wwX = ii GoTo dopo22 End If Next ii dopo22: 'determino l'elemento y For ii = 1 To Numelem If Elementi(ii) = Elementi(AXY(IndexSel)) Then wwy = ii GoTo dopo33 End If Next ii dopo33: Form26.Text8.Text = DatiOrigine(ww, wwX) Form26.Text6.Text = DatiOrigine(ww, wwy) Mixip = False SelC2 = False Form26.Show Form26.SetFocus Exit Sub End If Form12.Combo7.Text = CampioneC2 Form12.Show Form12.SetFocus SelC2 = False End If ' End If ' End If End If fin: End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) 'MDIForm1.StatusBar1.Panels(1).Text = "Right mouse click for option - Double click to change" IndexSel = Val(Me.Tag) Indeks = IndexSel CoordinataX = x Coordinatay = y x1 = Int(x) y1 = Int(y) If SPIDEROTHER(Indeks) = True Then GoTo ewer If SPIDERREE(Indeks) = True Then GoTo ewer If Triangular(Indeks) = True Then For i = 1 To NumCamp(Val(Me.Tag)) If xx(i, Val(Me.Tag)) = x1 Then 'Or xx(i, Val(Me.Tag)) = x1 + 1 Or xx(i, Val(Me.Tag)) = x1 - 1 Then If yy(i, Val(Me.Tag)) = y1 Or yy(i, Val(Me.Tag)) = y1 + 1 Or yy(i, Val(Me.Tag)) = y1 - 1 Then MDIForm1.StatusBar1.Panels(1).Text = "Sample: " + Campione(i, Val(Me.Tag)) MDIForm1.StatusBar1.Panels(2).Text = "" MDIForm1.StatusBar1.Panels(3).Text = "" Me.Shape1.left = XXReal(i, Val(Me.Tag)) - (Me.Shape1.Width / 2) Me.Shape1.top = YYReal(i, Val(Me.Tag)) + (Me.Shape1.Height / 2) IndexSel = Val(Me.Tag) Me.Shape1.Visible = True Me.picture1.Refresh 'Form15.Show SelezCamp = Campione(i, Val(Me.Tag)) End If End If Next i GoTo ewer End If If binary(Indeks) = True Then '---------------------------------------------------------------------- 'Mostra il nome del campione e le coordinate If MF1.MostraSpecifiche = True Then For i = 1 To NumCamp(Val(Me.Tag)) If xx(i, Val(Me.Tag)) = x1 Or xx(i, Val(Me.Tag)) = x1 + 1 Or xx(i, Val(Me.Tag)) = x1 + 2 Or xx(i, Val(Me.Tag)) = x1 - 1 Or xx(i, Val(Me.Tag)) = x1 - 2 Then If yy(i, Val(Me.Tag)) = y1 Or yy(i, Val(Me.Tag)) = y1 + 1 Or yy(i, Val(Me.Tag)) = y1 + 2 Or yy(i, Val(Me.Tag)) = y1 - 1 Or yy(i, Val(Me.Tag)) = y1 - 2 Then MDIForm1.StatusBar1.Panels(1).Text = "Sample: " + Campione(i, Val(Me.Tag)) MDIForm1.StatusBar1.Panels(2).Text = "X = " + Format$(XXReal(i, Val(Me.Tag)), "0.00######") MDIForm1.StatusBar1.Panels(3).Text = "Y = " + Format$(YYReal(i, Val(Me.Tag)), "0.00######") Me.Shape1.left = xx(i, Val(Me.Tag)) - (Me.Shape1.Width / 2) Me.Shape1.top = yy(i, Val(Me.Tag)) + (Me.Shape1.Height / 2) SelezioneX = XXReal(i, Val(Me.Tag)) SelezioneY = YYReal(i, Val(Me.Tag)) SelezCamp = Campione(i, Val(Me.Tag)) IndexSel = Val(Me.Tag) Me.Shape1.Visible = True Me.picture1.Refresh 'Form15.Show End If End If Next i End If End If '----------------------------------------------------------------- ewer: End Sub Private Sub picture1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 Then If Me.Shape1.Visible = True Then MDIForm1.opzCambiaSimbolo.Visible = True End If If Me.Shape1.Visible = False Then MDIForm1.opzCambiaSimbolo.Visible = False End If Me.SetFocus GraphSelect = Val(Me.Tag) If DiagramType(Indeks) = "none" Then 'binary If binary(Indeks) = True Then aa$ = MDIForm1.StatusBar1.Panels(1).Text If left(aa$, 14) = "Sample: MODEL:" Then MDIForm1.opzCangeModel.Visible = True Else MDIForm1.opzCangeModel.Visible = False End If MDIForm1.opzCambiaSimbolo.Visible = True MDIForm1.opzmode.Visible = True MDIForm1.opzEliminaMod.Visible = True MDIForm1.opzcopia.Visible = True MDIForm1.opzPick.Visible = True MDIForm1.opzSalvaGrafico.Visible = True MDIForm1.opzModSpi.Visible = False MDIForm1.opzAggiorna.Visible = True MDIForm1.PopupMenu MDIForm1.mnuPopupGraph Form23.Hide End If 'triangular If Triangular(Indeks) = True Then MDIForm1.opzCambiaSimbolo.Visible = True MDIForm1.opzmode.Visible = False MDIForm1.opzEliminaMod.Visible = False MDIForm1.opzcopia.Visible = True MDIForm1.opzPick.Visible = True MDIForm1.opzSalvaGrafico.Visible = True MDIForm1.opzModSpi.Visible = False MDIForm1.opzAggiorna.Visible = True MDIForm1.PopupMenu MDIForm1.mnuPopupGraph End If 'REESPIDER If SPIDERREE(Indeks) = True Then MDIForm1.opzCambiaSimbolo.Visible = False MDIForm1.opzmode.Visible = False MDIForm1.opzEliminaMod.Visible = False MDIForm1.opzcopia.Visible = True MDIForm1.opzPick.Visible = True MDIForm1.opzSalvaGrafico.Visible = True MDIForm1.opzModSpi.Visible = True MDIForm1.opzAggiorna.Visible = True MDIForm1.PopupMenu MDIForm1.mnuPopupGraph End If 'OTHERSPIDER If SPIDEROTHER(Indeks) = True Then MDIForm1.opzCambiaSimbolo.Visible = False MDIForm1.opzmode.Visible = False MDIForm1.opzEliminaMod.Visible = False MDIForm1.opzcopia.Visible = True MDIForm1.opzPick.Visible = True MDIForm1.opzSalvaGrafico.Visible = True MDIForm1.opzModSpi.Visible = True MDIForm1.opzAggiorna.Visible = True MDIForm1.PopupMenu MDIForm1.mnuPopupGraph End If End If If DiagramType(Indeks) <> "none" Then MDIForm1.opzCambiaSimbolo.Visible = True MDIForm1.opzmode.Visible = False MDIForm1.opzEliminaMod.Visible = False MDIForm1.opzcopia.Visible = True MDIForm1.opzPick.Visible = True MDIForm1.opzSalvaGrafico.Visible = True MDIForm1.opzModSpi.Visible = False MDIForm1.opzAggiorna.Visible = True MDIForm1.PopupMenu MDIForm1.mnuPopupGraph End If End If End Sub Private Sub Picture2_Click() Me.Shape2.Visible = False MDIForm1.StatusBar1.Panels(1).Text = "" MDIForm1.StatusBar1.Panels(2).Text = "" MDIForm1.StatusBar1.Panels(3).Text = "" For i = 1 To 40 picforms(Indeks).Shape3(i).Visible = False Next i End Sub Private Sub Picture2_DblClick() If SPIDERREE(Indeks) = True Or SPIDEROTHER(Indeks) = True Then MDIForm1.opzModSpi_Click End If '---------------------22-20-03 If binary(Val(Me.Tag)) = True Then Form4.Text7.Visible = True Form4.Text8.Visible = True Form4.Text9.Visible = True Form4.Text10.Visible = True Form4.Combo1.Visible = True Form4.Combo2.Visible = True Form4.Combo6.Visible = True Form4.Label7.Visible = True Form4.Label8.Visible = True Form4.Command3.Visible = True Form4.Command4.Visible = True Indeks = Val(Me.Tag) 'binary Form4.Combo1.Clear Form4.Combo2.Clear For i = 1 To Numelem Form4.Combo1.AddItem Elementi(i) Form4.Combo2.AddItem Elementi(i) Next i Form4.Text11.Text = Xgraph(Indeks) Form4.Text12.Text = Ygraph(Indeks) 'ASSEX Form4.Text1.Text = MaxX(Indeks) Form4.Text2.Text = MinX(Indeks) Form4.Text3.Text = deltax1(Indeks) Form4.Text8 = Int(LOG10(MaxX(Indeks))) + 1 If MinX(Indeks) <= 0 Then Form4.Text7 = "/" GoTo aaa12 End If Form4.Text7 = Int(LOG10(MinX(Indeks))) aaa12: 'ASSEY Form4.Text4.Text = MaxY(Indeks) Form4.Text5.Text = MinY(Indeks) Form4.Text6.Text = deltay1(Indeks) Form4.Text10.Text = Int(LOG10(MaxY(Indeks))) + 1 If MinY(Indeks) <= 0 Then Form4.Text7 = "/" GoTo aaa13 End If Form4.Text9.Text = Int(LOG10(MinY(Indeks))) aaa13: GraphSelect = Val(Me.Tag) 'Assi Form4.Combo1.Text = Elementi(AXX(Indeks)) Form4.Combo2.Text = Elementi(AXY(Indeks)) If tipoGraph(Indeks) = "normx-normy" Then Form4.Label8.Caption = "LIN" Form4.Label7.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 'asseY Form4.Text4.Visible = True Form4.Text5.Visible = True Form4.Text6.Visible = True Form4.Label6.Visible = True Form4.Text10.Visible = False Form4.Text9.Visible = False End If If tipoGraph(Indeks) = "logx-normy" Then Form4.Label8.Caption = "LOG" Form4.Label7.Caption = "LIN" '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 'asseY Form4.Text4.Visible = True Form4.Text5.Visible = True Form4.Text6.Visible = True Form4.Label6.Visible = True Form4.Text10.Visible = False Form4.Text9.Visible = False End If If tipoGraph(Indeks) = "normx-logy" Then Form4.Label8.Caption = "LIN" Form4.Label7.Caption = "LOG" '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 'asseY Form4.Text4.Visible = False Form4.Text5.Visible = False Form4.Text6.Visible = False Form4.Label6.Visible = False Form4.Text10.Visible = True Form4.Text9.Visible = True End If If tipoGraph(Indeks) = "logx-logy" Then Form4.Label8.Caption = "LOG" Form4.Label7.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 'asseY Form4.Text4.Visible = False Form4.Text5.Visible = False Form4.Text6.Visible = False Form4.Label6.Visible = False Form4.Text10.Visible = True Form4.Text9.Visible = True End If If Form4.Label7.Caption = "LOG" And Form4.Label8.Caption = "LOG" Then Form4.Text11.Visible = False Form4.Text12.Visible = False Form4.Combo6.Visible = True End If If Form4.Label7.Caption = "LIN" Or Form4.Label8.Caption = "LIN" Then Form4.Text11.Visible = True Form4.Text12.Visible = True Form4.Combo6.Visible = False End If Form4.Show End If '-------------------------- End Sub Private Sub picture2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) 'Form23.Hide 'MDIForm1.opzCangeModel.Visible = False 'modello For iii = 1 To 15 aa$ = MDIForm1.StatusBar1.Panels(1).Text bb$ = "Sample: MODEL: " + Str(iii) If aa$ = bb$ Then Close #2 Open App.Path + "\data\" + Trim(Indeks) + "modelExplain" + Trim(iii) + ".txt" For Input As #2 Line Input #2, models 'MOD 'Form23.Label2 = Models Line Input #2, rr 'R Line Input #2, rr1 'R 'Form23.Label14 = rr Line Input #2, c01s 'C0 'Form23.Label4 = C01s Line Input #2, cas 'CA 'Form23.Label6 = CAs Line Input #2, c1s 'C1 'Form23.Label8 = C1s Line Input #2, c2s 'C2 Line Input #2, cicl Line Input #2, stcicl 'Form23.Label10 = C2s Input #2, NumModelElemS 'For ii = 1 To NumModelElemS Input #2, ModElementi(ii) 'Form23.Label11(ii - 1) = ModElementi(ii) For ii = 1 To NumModelElem Input #2, ModD(ii) Next ii 'Form23.Label12(ii - 1) = ModD(ii) Close #2 MDIForm1.opzCangeModel.Visible = True 'If Models = "AFC" Then 'Form23.Label13.Visible = True 'Form23.Label14.Visible = True 'Form23.Label5.Visible = True 'Form23.Label6.Visible = True 'Else 'Form23.Label13.Visible = False 'Form23.Label14.Visible = False 'Form23.Label5.Visible = False 'Form23.Label6.Visible = False 'End If 'If Models = "Mixing" Then 'Form23.Label7.Visible = True 'Form23.Label8.Visible = True 'Form23.Label9.Visible = True 'Form23.Label10.Visible = True 'Form23.Label3.Visible = False 'Form23.Label4.Visible = False 'For ss = 0 To 5 'Form23.Label11(ss).Visible = False 'Form23.Label12(ss).Visible = False 'Next ss 'Else 'Form23.Label7.Visible = False 'Form23.Label8.Visible = False 'Form23.Label9.Visible = False 'Form23.Label10.Visible = False 'Form23.Label3.Visible = True 'Form23.Label4.Visible = True 'For ss = 0 To 5 'Form23.Label11(ss).Visible = True 'Form23.Label12(ss).Visible = True 'Next ss 'End If 'Form23.top = MDIForm1.ScaleHeight 'Form23.left = 50 'Form23.Visible = True 'Form23.SetFocus 'While Form23.top > MDIForm1.ScaleHeight - Form23.Height - 50 'Form23.top = Form23.top - 1 'Wend End If Next iii '------------ ' popup menu '------------- GraphSelect = IndexSel If Button = 2 Then If Me.Shape1.Visible = True Then MDIForm1.opzCambiaSimbolo.Visible = True End If If Me.Shape1.Visible = False Then MDIForm1.opzCambiaSimbolo.Visible = False End If Me.SetFocus GraphSelect = Val(Me.Tag) If DiagramType(Indeks) = "none" Then 'binary If binary(Indeks) = True Then MDIForm1.opzCambiaSimbolo.Visible = True MDIForm1.opzmode.Visible = True MDIForm1.opzEliminaMod.Visible = True MDIForm1.opzcopia.Visible = True MDIForm1.opzPick.Visible = True MDIForm1.opzSalvaGrafico.Visible = True MDIForm1.opzModSpi.Visible = False MDIForm1.opzAggiorna.Visible = True Form23.Hide MDIForm1.PopupMenu MDIForm1.mnuPopupGraph End If 'triangular If Triangular(Indeks) = True Then MDIForm1.opzCambiaSimbolo.Visible = True MDIForm1.opzmode.Visible = False MDIForm1.opzEliminaMod.Visible = False MDIForm1.opzcopia.Visible = True MDIForm1.opzPick.Visible = True MDIForm1.opzSalvaGrafico.Visible = True MDIForm1.opzModSpi.Visible = False MDIForm1.opzAggiorna.Visible = True MDIForm1.PopupMenu MDIForm1.mnuPopupGraph End If 'REESPIDER If SPIDERREE(Indeks) = True Then MDIForm1.opzCambiaSimbolo.Visible = False MDIForm1.opzmode.Visible = False MDIForm1.opzEliminaMod.Visible = False MDIForm1.opzcopia.Visible = True MDIForm1.opzPick.Visible = True MDIForm1.opzSalvaGrafico.Visible = True MDIForm1.opzModSpi.Visible = True MDIForm1.opzAggiorna.Visible = True MDIForm1.PopupMenu MDIForm1.mnuPopupGraph End If 'OTHERSPIDER If SPIDEROTHER(Indeks) = True Then MDIForm1.opzCambiaSimbolo.Visible = False MDIForm1.opzmode.Visible = False MDIForm1.opzEliminaMod.Visible = False MDIForm1.opzcopia.Visible = True MDIForm1.opzPick.Visible = True MDIForm1.opzSalvaGrafico.Visible = True MDIForm1.opzModSpi.Visible = True MDIForm1.opzAggiorna.Visible = True MDIForm1.PopupMenu MDIForm1.mnuPopupGraph End If End If If DiagramType(Indeks) <> "none" Then MDIForm1.opzCambiaSimbolo.Visible = True MDIForm1.opzmode.Visible = False MDIForm1.opzEliminaMod.Visible = False MDIForm1.opzcopia.Visible = True MDIForm1.opzPick.Visible = True MDIForm1.opzSalvaGrafico.Visible = True MDIForm1.opzModSpi.Visible = False MDIForm1.opzAggiorna.Visible = True MDIForm1.PopupMenu MDIForm1.mnuPopupGraph End If End If '-------------- ' seleziona campione '----------------- If Button = 1 Then For i = 1 To NumCamp(Val(Me.Tag)) If SelC0 = True Then CampioneC0 = SelezCamp MsgBox CampioneC0 + " Selected" Form12.Combo1.Text = CampioneC0 Form12.Show Form12.SetFocus SelC0 = False End If If SelC0I = True Then CampioneC0 = SelezCamp MsgBox CampioneC0 + " Selected" Form27.Combo1.Text = CampioneC0 Form27.Show Form27.SetFocus SelC0I = False End If If SelCA = True Then CampioneCA = SelezCamp MsgBox CampioneCA + " Selected" Form12.Combo5.Text = CampioneCA Form12.Show Form12.SetFocus SelCA = False End If If SelCAI = True Then CampioneCA = SelezCamp MsgBox CampioneCA + " Selected" Form27.Combo5.Text = CampioneCA Form27.Show Form27.SetFocus SelCAI = False End If If SelC1 = True Then CampioneC1 = SelezCamp MsgBox CampioneCA + " Selected" Form12.Combo8.Text = CampioneC1 Form12.Show Form12.SetFocus SelC1 = False End If If SelC2 = True Then CampioneC2 = SelezCamp MsgBox CampioneCA + " Selected" Form12.Combo7.Text = CampioneC2 Form12.Show Form12.SetFocus SelC2 = False End If If SelCR = True Then CampioneCR = SelezCamp MsgBox CampioneCR + " Selected" Form12.Combo9.Text = CampioneCR Form12.Show Form12.SetFocus SelCR = False End If If SelCz = True Then CampioneCz = SelezCamp MsgBox CampioneCz + " Selected" Form12.Combo11.Text = CampioneCz Form12.Show Form12.SetFocus SelCz = False End If If SelCw = True Then CampioneCw = SelezCamp MsgBox CampioneCw + " Selected" Form12.Combo10.Text = CampioneCw Form12.Show Form12.SetFocus SelCw = False End If Next i End If End Sub Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) IndexSel = Val(Me.Tag) Indeks = IndexSel CoordinataX = x Coordinatay = y If Triangular(Indeks) = True Then GoTo ewer '------------------- 'SPIDER REE '--------------------------------------------------- If SPIDERREE(Indeks) = True Then y2 = Val(Format$(y, "0.0")) x1 = Val(Format$(x, "0.0")) For i = 1 To NumCampSpi(Indeks) '200 'Numcamp1 If x1 = Int(x1) Or x1 + 0.1 = Int(x1 + 1) Then 'Or x1 - 0.1 = Int(x1) Then 'xxx= a = Spiy(Indeks, Int(x1), i) b = Spiy(Indeks, Int(x1 + 1), i) If a = y2 And a <> 0 Then ' Or b = y2 Then MF1.REE_Evidenzia i GoTo eer End If End If Next i eer: End If '------------------- 'SPIDER other '--------------------------------------------------- If SPIDEROTHER(Indeks) = True Then y2 = Val(Format$(y, "0.0")) x1 = Val(Format$(x, "0.0")) For i = 1 To NumCampSpi(Indeks) If x1 = Int(x1) Or x1 + 0.1 = Int(x1 + 1) Then 'Or x1 - 0.1 = Int(x1) Then 'xxx= a = Spiy(Indeks, Int(x1), i) b = Spiy(Indeks, Int(x1 + 1), i) If a = y2 And a <> 0 Then ' Or b = y2 Then MF1.SPIDER_Evidenzia i GoTo eer1 End If End If Next i eer1: End If ''''''''''''''''''''''''' 'LOG Y norm X '''''''''''''''''''''''''' If tipoGraph(Indeks) = "normx-logy" Then x1 = Int(x) y1 = Val(Format$(y, "0.00")) '---------------------------------------------------------------------- 'Mostra il nome del campione e le coordinate If MF1.MostraSpecifiche = True Then For i = 1 To NumCamp(Val(Me.Tag)) If xx(i, Val(Me.Tag)) = x1 Or xx(i, Val(Me.Tag)) = x1 + 1 Or xx(i, Val(Me.Tag)) = x1 - 1 Then If yy(i, Val(Me.Tag)) = y1 Or yy(i, Val(Me.Tag)) = y1 + 0.01 Or yy(i, Val(Me.Tag)) = y1 - 0.01 Or yy(i, Val(Me.Tag)) = y1 + 0.02 Or yy(i, Val(Me.Tag)) = y1 - 0.02 Then MDIForm1.StatusBar1.Panels(1).Text = "Sample: " + Campione(i, Val(Me.Tag)) MDIForm1.StatusBar1.Panels(2).Text = "X = " + Format$(XXReal(i, Val(Me.Tag)), "0.00######") MDIForm1.StatusBar1.Panels(3).Text = "Y = " + Format$(YYReal(i, Val(Me.Tag)), "0.00######") Me.Shape2.left = XXReal(i, Val(Me.Tag)) - (Me.Shape2.Width / 2) Me.Shape2.top = LOG10(YYReal(i, Val(Me.Tag))) + (Me.Shape2.Height / 2) SelezioneX = XXReal(i, Val(Me.Tag)) SelezioneY = YYReal(i, Val(Me.Tag)) SelezCamp = Campione(i, Val(Me.Tag)) IndexSel = Val(Me.Tag) Me.Shape2.Visible = True SelezCamp = Campione(i, Val(Me.Tag)) 'Form15.Show End If End If Next i End If End If ''''''''''''''''''''''''' 'LOG X norm y '''''''''''''''''''''''''' If tipoGraph(Indeks) = "logx-normy" Then y1 = Int(y) x1 = Val(Format$(x, "0.00")) '---------------------------------------------------------------------- 'Mostra il nome del campione e le coordinate If MF1.MostraSpecifiche = True Then For i = 1 To NumCamp(Val(Me.Tag)) If xx(i, Val(Me.Tag)) = x1 Then 'Or xx(i, Val(Me.Tag)) = x1 + 0.01 Or xx(i, Val(Me.Tag)) = x1 - 0.01 Then aa = yy(i, Val(Me.Tag)) If yy(i, Val(Me.Tag)) = y1 Or yy(i, Val(Me.Tag)) = y1 + 1 Or yy(i, Val(Me.Tag)) = y1 - 1 Or yy(i, Val(Me.Tag)) = y1 + 2 Or yy(i, Val(Me.Tag)) = y1 - 2 Or yy(i, Val(Me.Tag)) = y1 + 3 Or yy(i, Val(Me.Tag)) = y1 - 3 Or yy(i, Val(Me.Tag)) = y1 + 4 Or yy(i, Val(Me.Tag)) = y1 - 4 Or yy(i, Val(Me.Tag)) = y1 + 5 Or yy(i, Val(Me.Tag)) = y1 - 5 Then MDIForm1.StatusBar1.Panels(1).Text = "Sample: " + Campione(i, Val(Me.Tag)) MDIForm1.StatusBar1.Panels(2).Text = "X = " + Format$(XXReal(i, Val(Me.Tag)), "0.00######") MDIForm1.StatusBar1.Panels(3).Text = "Y = " + Format$(YYReal(i, Val(Me.Tag)), "0.00######") Me.Shape2.left = LOG10(XXReal(i, Val(Me.Tag))) - (Me.Shape2.Width / 2) Me.Shape2.top = YYReal(i, Val(Me.Tag)) + (Me.Shape2.Height / 2) SelezioneX = XXReal(i, Val(Me.Tag)) SelezioneY = YYReal(i, Val(Me.Tag)) SelezCamp = Campione(i, Val(Me.Tag)) IndexSel = Val(Me.Tag) Me.Shape2.Visible = True SelezCamp = Campione(i, Val(Me.Tag)) 'Form15.Show End If End If Next i End If '----------------------------------------------------------------------- '---------------------------------------------------------------------- End If ''''''''''''''''''''''''' 'LOG Y LOG X '''''''''''''''''''''''''' If tipoGraph(Indeks) = "logx-logy" Then x1 = Val(Format$(x, "0.00")) y1 = Val(Format$(y, "0.00")) '---------------------------------------------------------------------- 'Mostra il nome del campione e le coordinate If MF1.MostraSpecifiche = True Then For i = 1 To NumCamp(Val(Me.Tag)) If xx(i, Val(Me.Tag)) = x1 Or xx(i, Val(Me.Tag)) = x1 + 0.01 Or xx(i, Val(Me.Tag)) = x1 + 0.02 Or xx(i, Val(Me.Tag)) = x1 + 0.03 Or xx(i, Val(Me.Tag)) = x1 - 0.01 Or xx(i, Val(Me.Tag)) = x1 - 0.02 Or xx(i, Val(Me.Tag)) = x1 - 0.03 Then If yy(i, Val(Me.Tag)) = y1 Or yy(i, Val(Me.Tag)) = y1 + 0.01 Or yy(i, Val(Me.Tag)) = y1 + 0.02 Or yy(i, Val(Me.Tag)) = y1 + 0.03 Or yy(i, Val(Me.Tag)) = y1 - 0.01 Or yy(i, Val(Me.Tag)) = y1 - 0.02 Or yy(i, Val(Me.Tag)) = y1 - 0.03 Then MDIForm1.StatusBar1.Panels(1).Text = "Sample: " + Campione(i, Val(Me.Tag)) MDIForm1.StatusBar1.Panels(2).Text = "X = " + Format$(XXReal(i, Val(Me.Tag)), "0.00#######") MDIForm1.StatusBar1.Panels(3).Text = "Y = " + Format$(YYReal(i, Val(Me.Tag)), "0.00#######") Me.Shape2.left = xx(i, Val(Me.Tag)) - (Me.Shape2.Width / 2) Me.Shape2.top = yy(i, Val(Me.Tag)) + (Me.Shape2.Height / 2) SelezioneX = XXReal(i, Val(Me.Tag)) SelezioneY = YYReal(i, Val(Me.Tag)) SelezCamp = Campione(i, Val(Me.Tag)) IndexSel = Val(Me.Tag) Me.Shape2.Visible = True SelezCamp = Campione(i, Val(Me.Tag)) 'Form15.Show End If End If Next i End If End If ewer: End Sub Private Sub Picture2_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 Then If Me.Shape1.Visible = True Then MDIForm1.opzCambiaSimbolo.Visible = True End If If Me.Shape1.Visible = False Then MDIForm1.opzCambiaSimbolo.Visible = False End If Me.SetFocus GraphSelect = Val(Me.Tag) If DiagramType(Indeks) = "none" Then 'binary If binary(Indeks) = True Then aa$ = MDIForm1.StatusBar1.Panels(1).Text If left(aa$, 14) = "Sample: MODEL:" Then MDIForm1.opzCangeModel.Visible = True Else MDIForm1.opzCangeModel.Visible = False End If MDIForm1.opzCambiaSimbolo.Visible = True MDIForm1.opzmode.Visible = True MDIForm1.opzEliminaMod.Visible = True MDIForm1.opzcopia.Visible = True MDIForm1.opzPick.Visible = True MDIForm1.opzSalvaGrafico.Visible = True MDIForm1.opzModSpi.Visible = False MDIForm1.opzAggiorna.Visible = True MDIForm1.PopupMenu MDIForm1.mnuPopupGraph Form23.Hide End If 'triangular If Triangular(Indeks) = True Then MDIForm1.opzCambiaSimbolo.Visible = True MDIForm1.opzmode.Visible = False MDIForm1.opzEliminaMod.Visible = False MDIForm1.opzcopia.Visible = True MDIForm1.opzPick.Visible = True MDIForm1.opzSalvaGrafico.Visible = True MDIForm1.opzModSpi.Visible = False MDIForm1.opzAggiorna.Visible = True MDIForm1.PopupMenu MDIForm1.mnuPopupGraph End If 'REESPIDER If SPIDERREE(Indeks) = True Then MDIForm1.opzCambiaSimbolo.Visible = False MDIForm1.opzmode.Visible = False MDIForm1.opzEliminaMod.Visible = False MDIForm1.opzcopia.Visible = True MDIForm1.opzPick.Visible = True MDIForm1.opzSalvaGrafico.Visible = True MDIForm1.opzModSpi.Visible = True MDIForm1.opzAggiorna.Visible = True MDIForm1.PopupMenu MDIForm1.mnuPopupGraph End If 'OTHERSPIDER If SPIDEROTHER(Indeks) = True Then MDIForm1.opzCambiaSimbolo.Visible = False MDIForm1.opzmode.Visible = False MDIForm1.opzEliminaMod.Visible = False MDIForm1.opzcopia.Visible = True MDIForm1.opzPick.Visible = True MDIForm1.opzSalvaGrafico.Visible = True MDIForm1.opzModSpi.Visible = True MDIForm1.opzAggiorna.Visible = True MDIForm1.PopupMenu MDIForm1.mnuPopupGraph End If End If If DiagramType(Indeks) <> "none" Then MDIForm1.opzCambiaSimbolo.Visible = True MDIForm1.opzmode.Visible = False MDIForm1.opzEliminaMod.Visible = False MDIForm1.opzcopia.Visible = True MDIForm1.opzPick.Visible = True MDIForm1.opzSalvaGrafico.Visible = True MDIForm1.opzModSpi.Visible = False MDIForm1.opzAggiorna.Visible = True MDIForm1.PopupMenu MDIForm1.mnuPopupGraph End If End If End Sub