VERSION 5.00 Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" Begin VB.Form Form16 BorderStyle = 4 'Fixed ToolWindow Caption = "Spiders" ClientHeight = 4470 ClientLeft = 45 ClientTop = 285 ClientWidth = 8310 LinkTopic = "Form16" MaxButton = 0 'False MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 4470 ScaleWidth = 8310 ShowInTaskbar = 0 'False Begin VB.CommandButton Command9 Caption = "..." Height = 252 Left = 3960 TabIndex = 53 Top = 120 Width = 375 End Begin VB.CommandButton Command8 Caption = "Remove all" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 6612 TabIndex = 52 Top = 3588 Width = 1575 End Begin MSComDlg.CommonDialog CMD1 Left = 5760 Top = 3720 _ExtentX = 847 _ExtentY = 847 _Version = 393216 End Begin VB.CommandButton Command4 Caption = "Remove sample" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 390 Left = 6612 TabIndex = 51 Top = 3150 Width = 1575 End Begin VB.CommandButton Command3 Caption = "Cancel" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 2040 TabIndex = 50 Top = 3948 Width = 1212 End Begin VB.CommandButton Command2 Caption = "Plot (SpaceBar)" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 144 TabIndex = 1 Top = 3960 Width = 1575 End Begin VB.CommandButton Command1 Caption = "add" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 330 Left = 6000 TabIndex = 47 Top = 480 Width = 495 End Begin VB.ComboBox Combo2 Height = 315 Left = 3960 TabIndex = 46 Top = 480 Width = 1935 End Begin VB.ListBox List1 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 2535 ItemData = "Form16.frx":0000 Left = 6600 List = "Form16.frx":0002 TabIndex = 45 Top = 480 Width = 1575 End Begin VB.Frame Frame2 Caption = "Option" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000080& Height = 1332 Left = 120 TabIndex = 33 Top = 2520 Width = 6252 Begin VB.Frame Frame3 Caption = "Symb. Width" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 960 Left = 2040 TabIndex = 43 Top = 240 Width = 1335 Begin VB.ComboBox Combo5 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 ItemData = "Form16.frx":0004 Left = 132 List = "Form16.frx":000E TabIndex = 44 Text = "1" Top = 456 Width = 1080 End End Begin VB.Frame Frame4 Caption = "Symbol Dim" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 984 Left = 4800 TabIndex = 41 Top = 240 Width = 1335 Begin VB.ComboBox Combo4 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 ItemData = "Form16.frx":0018 Left = 120 List = "Form16.frx":0025 TabIndex = 42 Text = "Med" Top = 444 Width = 1095 End End Begin VB.Frame fraSample1 Caption = "Graph Dim. (pixel)" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 948 Left = 120 TabIndex = 36 Top = 240 Width = 1815 Begin VB.TextBox Text1 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 288 Left = 720 TabIndex = 38 Text = "500" Top = 240 Width = 975 End Begin VB.TextBox Text2 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 276 Left = 720 TabIndex = 37 Text = "300" Top = 588 Width = 975 End Begin VB.Label Label34 Caption = "Width" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 105 TabIndex = 40 Top = 270 Width = 615 End Begin VB.Label Label35 Caption = "Height" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 105 TabIndex = 39 Top = 600 Width = 615 End End Begin VB.Frame Frame6 Caption = "Line Width" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 972 Left = 3480 TabIndex = 34 Top = 240 Width = 1215 Begin VB.ComboBox Combo6 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 288 ItemData = "Form16.frx":0038 Left = 108 List = "Form16.frx":0042 TabIndex = 35 Text = "1" Top = 456 Width = 975 End End End Begin VB.Frame Frame1 Caption = "Select Spider" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 855 Left = 120 TabIndex = 0 Top = 0 Width = 3735 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 ItemData = "Form16.frx":004C Left = 120 List = "Form16.frx":0071 TabIndex = 2 Text = "Select" Top = 360 Width = 3495 End End Begin VB.Label Label3 Alignment = 2 'Center Caption = "0" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 6480 TabIndex = 54 Top = 240 Width = 1695 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 29 Left = 5640 Top = 1950 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 28 Left = 5265 Top = 1950 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 27 Left = 4920 Top = 1950 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 26 Left = 4560 Top = 1950 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 25 Left = 4200 Top = 1950 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 24 Left = 3840 Top = 1950 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 23 Left = 3495 Top = 1950 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 22 Left = 3135 Top = 1950 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 21 Left = 2760 Top = 1950 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 20 Left = 2400 Top = 1950 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 19 Left = 2040 Top = 1950 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 18 Left = 1680 Top = 1950 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 17 Left = 1335 Top = 1950 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 16 Left = 960 Top = 1950 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 15 Left = 600 Top = 1950 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 14 Left = 5625 Top = 1200 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 13 Left = 5250 Top = 1200 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 12 Left = 4905 Top = 1200 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 11 Left = 4545 Top = 1200 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 10 Left = 4185 Top = 1200 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 9 Left = 3825 Top = 1200 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 8 Left = 3480 Top = 1200 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 7 Left = 3120 Top = 1200 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 6 Left = 2745 Top = 1200 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 5 Left = 2385 Top = 1200 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 4 Left = 2025 Top = 1200 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 3 Left = 1665 Top = 1200 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 2 Left = 1320 Top = 1200 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 1 Left = 945 Top = 1200 Width = 135 End Begin VB.Shape Shape2 FillStyle = 0 'Solid Height = 135 Index = 0 Left = 585 Top = 1200 Width = 135 End Begin VB.Shape Shape1 Height = 1455 Left = 480 Top = 960 Width = 5535 End Begin VB.Label Label1 Caption = "Sample Selection" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 30 Left = 4440 TabIndex = 49 Top = 120 Width = 2055 End Begin VB.Label Label2 Alignment = 2 'Center Caption = "Samples (max 50)" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 6480 TabIndex = 48 Top = 0 Width = 1695 End Begin VB.Line Line2 X1 = 480 X2 = 6015 Y1 = 1740 Y2 = 1740 End Begin VB.Line Line1 X1 = 480 X2 = 6000 Y1 = 1680 Y2 = 1680 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 29 Left = 5520 TabIndex = 32 Top = 2160 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 28 Left = 5160 TabIndex = 31 Top = 2160 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 27 Left = 4800 TabIndex = 30 Top = 2160 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 26 Left = 4440 TabIndex = 29 Top = 2160 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 25 Left = 4080 TabIndex = 28 Top = 2160 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 24 Left = 3720 TabIndex = 27 Top = 2160 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 23 Left = 3360 TabIndex = 26 Top = 2160 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 22 Left = 3000 TabIndex = 25 Top = 2160 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 21 Left = 2640 TabIndex = 24 Top = 2160 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 20 Left = 2280 TabIndex = 23 Top = 2160 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 19 Left = 1920 TabIndex = 22 Top = 2160 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 18 Left = 1560 TabIndex = 21 Top = 2160 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 17 Left = 1200 TabIndex = 20 Top = 2160 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 16 Left = 840 TabIndex = 19 Top = 2160 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 15 Left = 480 TabIndex = 18 Top = 2160 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 14 Left = 5520 TabIndex = 17 Top = 1440 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 13 Left = 5160 TabIndex = 16 Top = 1440 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 12 Left = 4800 TabIndex = 15 Top = 1440 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 11 Left = 4440 TabIndex = 14 Top = 1440 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 10 Left = 4080 TabIndex = 13 Top = 1440 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 9 Left = 3720 TabIndex = 12 Top = 1440 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 8 Left = 3360 TabIndex = 11 Top = 1440 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 7 Left = 3000 TabIndex = 10 Top = 1440 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 6 Left = 2640 TabIndex = 9 Top = 1440 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 5 Left = 2280 TabIndex = 8 Top = 1440 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 4 Left = 1920 TabIndex = 7 Top = 1440 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 3 Left = 1560 TabIndex = 6 Top = 1440 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 2 Left = 1200 TabIndex = 5 Top = 1440 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 1 Left = 840 TabIndex = 4 Top = 1440 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "La" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Index = 0 Left = 480 TabIndex = 3 Top = 1440 Width = 372 End End Attribute VB_Name = "Form16" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Combo1_Click() 'seleziono il tipo di SPIDER e la NORMALIZZAZIONE On Error GoTo eeee1 If Combo1.Text = "Primordial mantle-Wood et al. (1979a)" Then file$ = App.Path + "\data\SPIDER-PrimordialMantle-Wood&al1979a.txt" End If If Combo1.Text = "Primordial mantle-McDonough et al. (1992)" Then file$ = App.Path + "\data\SPIDER-PrimordialMantle-McDonough&al1992.txt" End If If Combo1.Text = "Primordial mantle-Taylor & McLennan (1985)" Then file$ = App.Path + "\data\SPIDER-PrimordialMantle-Taylor&McLennan1985.txt" End If If Combo1.Text = "Condrite-Wood et al. (1979b)" Then file$ = App.Path + "\data\SPIDER-Condrite-Wood&al1979b.txt" End If If Combo1.Text = "MORB-Bevins et al. (1984)" Then file$ = App.Path + "\data\SPIDER-MORB-Bevins&al1984.txt" End If If Combo1.Text = "Upper cont. crust-Taylor & McLennan (1981)" Then file$ = App.Path + "\data\SPIDER-UpperContCrust-Taylor&McLennan1981.txt" End If If Combo1.Text = "Lower cont.crust-Weaver & Tarney (1984)" Then file$ = App.Path + "\data\SPIDER-LowerContCrust-Weaver&Tarney1984.txt" End If If Combo1.Text = "Average cont crust-Weaver & Tarney (1984)" Then file$ = App.Path + "\data\SPIDER-AverageContCrust-Weaver&Tarney1984.txt" End If If Combo1.Text = "Average N-type MORB-Saunders & Tarney (1984);Sun (1980)" Then file$ = App.Path + "\data\SPIDER-AverageNtMORB-Saunders&Tarney1984.txt" End If If Combo1.Text = "Average OIB-Sun (1980)" Then file$ = App.Path + "\data\SPIDER-AverageOIB-Sun1980.txt" End If If Combo1.Text = "CUSTOM SPIDER" Then CMD1.Filter = "*.txt" CMD1.FileName = "*.txt" CMD1.ShowOpen file$ = CMD1.FileName End If NormSP1 = file$ For i = 1 To 30 Form16.Shape2(i - 1).Visible = False Form16.Label1(i - 1).Visible = False Next i Close #1 Open file$ For Input As #1 Input #1, aa NumSpider = aa For i = 1 To NumSpider Input #1, aa Input #1, bb If aa = 1 Then NormSpider(i) = 0 GoTo rr End If NormSpider(i) = Val(bb) EleMSpider(i) = aa rr: Next i SPI1.DeterminaSpiderPresenti For i = 1 To NumSpider If Spider1(i) = False Then Form16.Label1(i - 1).Caption = EleMSpider(i) Form16.Shape2(i - 1).FillColor = QBColor(12) Form16.Shape2(i - 1).Visible = True Form16.Label1(i - 1).Visible = True End If If Spider1(i) = True Then Form16.Label1(i - 1).Caption = EleMSpider(i) Form16.Shape2(i - 1).FillColor = QBColor(2) Form16.Shape2(i - 1).Visible = True Form16.Label1(i - 1).Visible = True End If Next i GoTo eeee eeee1: NumSpider = 0 eeee: Close #1 End Sub Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command2_Click End If End Sub Private Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command2_Click End If End Sub Private Sub Combo4_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command2_Click End If End Sub Private Sub Combo5_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command2_Click End If End Sub Private Sub Combo6_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command2_Click End If End Sub Private Sub Command1_Click() Form16.Command2.SetFocus If Form16.Combo2.Text = "" Then GoTo rer End If sample$ = Form16.Combo2.Text ind = Form16.List1.ListCount For i = 1 To ind bbb$ = Form16.List1.List(i - 1) If sample$ = bbb$ Then GoTo yuy End If Next i List1.AddItem sample$ yuy: rer: aaa = Val(List1.ListCount) Label3.Caption = aaa End Sub Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command2_Click End If End Sub Private Sub Command2_Click() 'On Error GoTo wewe If SpiNew = True Then GoTo poi For i = 1 To 15 If OpenPic(i) = 0 Then Indeks = i OpenPic(Indeks) = 1 If Indeks > Maxindeks Then Maxindeks = i End If GoTo poi End If Next i If Maxindeks >= 15 Then MsgBox "I'm not able to open more than 15 windows. Please close one or more winndows!!!", , "Attention!" Exit Sub End If poi: SpiNew = False picforms(Indeks).Picture1.Cls picforms(Indeks).Picture2.Cls NormSP(Indeks) = NormSP1 picforms(Indeks).Hide For i = 1 To 50 'Numcamp1 For ii = 1 To 50 Spiy(Indeks, ii, i) = 0 Next ii Next i 'caratteristiche dei grafici Xgraph(Indeks) = Val(Text1.Text) Ygraph(Indeks) = Val(Text2.Text) 'simbsp If Combo4.Text = "Min" Then SimbDim(Indeks) = 2 End If If Combo4.Text = "Med" Then SimbDim(Indeks) = 4 End If If Combo4.Text = "Max" Then SimbDim(Indeks) = 6 End If 'simbspsp If Combo5.Text = "1" Then SimbSp(Indeks) = 1 End If If Combo5.Text = "2" Then SimbSp(Indeks) = 2 End If 'LineSp If Combo6.Text = "1" Then LineSp(Indeks) = 1 End If If Combo6.Text = "2" Then LineSp(Indeks) = 2 End If If List1.ListCount = 0 Then Exit Sub End If ind = Form16.List1.ListCount NumCampSpi(Indeks) = ind If NumCampSpi(Indeks) > 50 Then MsgBox "you can plot max 50 sample on a spider diagram" Exit Sub End If SPIDERREE(Indeks) = False SPIDEROTHER(Indeks) = True binary(Indeks) = False Triangular(Indeks) = False DiagramType(Indeks) = "none" SPI1.DeterminaSpiderPresenti 'MF1.REENewSpiderREEGraph App.Path + "\xx.emf", 500, 300 'determino massimo e minimo MaxSpider1 = 0 MinSpider1 = 1E+38 For i = 1 To ind 'cerco il campione aaa$ = Form16.List1.List(i - 1) For ii = 1 To Numcamp1 If aaa$ = NomeCamp(ii) Then n11 = ii GoTo trt End If Next ii trt: CampioniSpi(Indeks, i) = n11 SPI1.DeterminaValoriSpider n11 For iii = 1 To NumSpider If ValSpiderNorm(iii) = 0 Then GoTo www End If If ValSpiderNorm(iii) > MaxSpider1 Then MaxSpider1 = ValSpiderNorm(iii) End If If ValSpiderNorm(iii) < MinSpider1 Then MinSpider1 = ValSpiderNorm(iii) End If www: Next iii Next i 'plotto miny1 = Int(LOG10(MinSpider1)) - 1 maxy1 = Int(LOG10(MaxSpider1)) + 1 Inty(Indeks) = maxy1 - miny1 MinY(Indeks) = EXP10(miny1) + (10 ^ -4) MaxY(Indeks) = EXP10(maxy1) - (10 ^ -4) MinX(Indeks) = 1 MaxX(Indeks) = NumSpider If MaxX(Indeks) = 0 Then Exit Sub End If DiagramType(Indeks) = "none" MF1.NewSpiderGraph (App.Path + "\data\g10" + Trim(Str(Indeks))), Xgraph(Indeks), Ygraph(Indeks) MF1.SPIDER_ASSI SpiPlotted(Indeks) = "" Close #2 Open App.Path + "\data\spiderCamp" + Trim(Indeks) + ".txt" For Output As #2 wwq = 0 For i = 1 To ind 'cerco il campione aaa$ = List1.List(i - 1) Write #2, aaa$ For ii = 1 To Numcamp1 If aaa$ = NomeCamp(ii) Then SpiPlotted(Indeks) = SpiPlotted(Indeks) + Chr$(124) + aaa$ n11 = ii GoTo qqqq End If Next ii qqqq: SPI1.DeterminaValoriSpider n11 BackGrnd.FG1.Row = n11 BackGrnd.FG1.col = 1 tipo = Val(BackGrnd.FG1) BackGrnd.FG1.Row = n11 BackGrnd.FG1.col = 3 tipo1 = Val(BackGrnd.FG1) BackGrnd.FG1.col = 2 col = BackGrnd.Picture1(BackGrnd.FG1 + 8).BackColor 'MF1.Spider_InsertPoint SimbDim(Indeks), col, SPIlineCol, tipo If tipo > 0 And tipo1 > 0 And SimbFilter(i) <> 0 Then MF1.Spider_InsertPoint n11, SimbDim(Indeks), col, col, tipo '04-06-2002 End If Next i Close #2 MF1.Finegraph Form16.Hide GoTo wewe1 wewe: MsgBox "An Error Occurred", , "Error" wewe1: End Sub Private Sub Command3_Click() Form16.Hide End Sub Private Sub Command4_Click() Form16.Command2.SetFocus On Error GoTo www Index = List1.ListIndex List1.RemoveItem Index aaa = Val(List1.ListCount) Label3.Caption = aaa www: End Sub Private Sub Command6_Click() End Sub Private Sub Command8_Click() Form16.Command2.SetFocus List1.Clear aaa = Val(List1.ListCount) Label3.Caption = aaa End Sub Private Sub Command9_Click() Form16.Command2.SetFocus Form19.MFG1.Clear Form19.MFG1.ColWidth(0) = 3000 Form19.MFG1.ColAlignment(0) = 1 Form19.MFG1.Rows = Numcamp1 Form19.MFG1.ColS = 1 For i = 0 To Numcamp1 - 1 Form19.MFG1.col = 0 Form19.MFG1.Row = i Form19.MFG1.Text = NomeCamp(i + 1) Next i Form19.MfG2.Clear Form19.MfG2.ColWidth(0) = 3000 Form19.MfG2.ColAlignment(0) = 1 Form19.MfG2.Rows = Numcamp1 Form19.MfG2.ColS = 1 ind = Form16.List1.ListCount Form19.MfG2.Clear For i = 0 To ind - 1 Form19.MfG2.col = 0 Form19.MfG2.Row = i Form19.MfG2.Text = Form16.List1.List(i) Next i REESample = 2 Form19.Show Form19.SetFocus End Sub Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command2_Click End If End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command2_Click End If End Sub Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command2_Click End If End Sub