VERSION 5.00 Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" Begin VB.Form Form11 BorderStyle = 4 'Fixed ToolWindow ClientHeight = 1560 ClientLeft = 45 ClientTop = 285 ClientWidth = 2325 LinkTopic = "Form11" MaxButton = 0 'False MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 1560 ScaleWidth = 2325 ShowInTaskbar = 0 'False Begin MSComDlg.CommonDialog CommonDialog1 Left = 1440 Top = 600 _ExtentX = 847 _ExtentY = 847 _Version = 393216 End Begin VB.CommandButton Command1 Caption = "Ok (SpBar)" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1080 TabIndex = 1 Top = 1080 Width = 1095 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 = 120 TabIndex = 5 Top = 1080 Width = 852 End 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 = 375 Left = 1440 TabIndex = 2 Text = "Text1" Top = 120 Width = 720 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 = 375 Left = 1440 TabIndex = 0 Text = "Text1" Top = 600 Width = 720 End Begin VB.Label Label2 Caption = "10^" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 960 TabIndex = 7 Top = 600 Width = 495 End Begin VB.Label Label1 Caption = "10^" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 960 TabIndex = 6 Top = 120 Width = 495 End Begin VB.Label Label4 Caption = "Max.Y" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 255 Left = 240 TabIndex = 4 Top = 120 Width = 735 End Begin VB.Label Label5 Caption = "Min. Y" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 255 Left = 240 TabIndex = 3 Top = 630 Width = 735 End End Attribute VB_Name = "Form11" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() On Error GoTo ee 'SPIDER CON TERRE RARE If SPIDERREE(Indeks) = True Then SPIlineCol = SpiderColorLine(Indeks) ind = NumCampSpi(Indeks) picforms(Indeks).Picture2.Cls picforms(Indeks).Picture1.Cls SPI.DeterminaREEPresenti 'MF1.REENewSpiderREEGraph App.Path + "\xx.emf", 500, 300 'determino massimo e minimo 'plotto 'MinREE1 = Val(Text2.Text) 'MaxREE1 = Val(Text1.Text) If Val(Text2.Text) <= 0 Then Text2.Text = Str(Val(Text2.Text) - 1) End If If Val(Text1.Text) <= 0 Then Text1.Text = Str(Val(Text1.Text) - 1) End If MinY(Indeks) = EXP10(Val(Text2.Text)) - (10 ^ -20) MaxY(Indeks) = EXP10(Val(Text1.Text)) - (10 ^ -20) miny1 = Int(LOG10(MinY(Indeks))) '+ 1 maxy1 = Int(LOG10(MaxY(Indeks))) + 2 Inty(Indeks) = maxy1 - miny1 DiagramType(Indeks) = "none" MF1.REENewSpiderREEGraph (App.Path + "\data\g10" + Trim(Str(Indeks))), Xgraph(Indeks), Ygraph(Indeks) MF1.REE_ASSI For i = 1 To ind 'cerco il campione n11 = CampioniSpi(Indeks, i) SPI.DeterminaValoriREE 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.REE_InsertPoint n11, SimbDim(Indeks), col, col, tipo Next i MF1.Finegraph End If 'SPIDER OTHER If SPIDEROTHER(Indeks) = True Then SPIlineCol = SpiderColorLine(Indeks) ind = NumCampSpi(Indeks) picforms(Indeks).Picture2.Cls picforms(Indeks).Picture1.Cls SPI1.DeterminaSpiderPresenti 'MF1.REENewSpiderREEGraph App.Path + "\xx.emf", 500, 300 'determino massimo e minimo 'MinY(Indeks) = EXP10(Val(Text2.Text)) - (10 ^ -20) 'MaxY(Indeks) = EXP10(Val(Text1.Text)) - (10 ^ -20) 'miny1 = Int(LOG10(MinY(Indeks))) '+ 1 'maxy1 = Int(LOG10(MaxY(Indeks))) + 2 'Inty(Indeks) = maxy1 - miny1 '------------------------12-06-02 If Val(Text2.Text) <= 0 Then Text2.Text = Str(Val(Text2.Text) - 1) End If If Val(Text1.Text) <= 0 Then Text1.Text = Str(Val(Text1.Text) - 1) End If MinY(Indeks) = EXP10(Val(Text2.Text)) - (10 ^ -20) MaxY(Indeks) = EXP10(Val(Text1.Text)) - (10 ^ -20) miny1 = Int(LOG10(MinY(Indeks))) '+ 1 maxy1 = Int(LOG10(MaxY(Indeks))) + 2 Inty(Indeks) = maxy1 - miny1 '--------------------- 'plotto DiagramType(Indeks) = "none" MF1.NewSpiderGraph (App.Path + "\data\g10" + Trim(Str(Indeks))), Xgraph(Indeks), Ygraph(Indeks) MF1.SPIDER_ASSI For i = 1 To ind n11 = CampioniSpi(Indeks, i) 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 n11, SimbDim(Indeks), col, col, tipo Next i MF1.Finegraph End If Form11.Hide GoTo ee1 ee: MsgBox "An Error Occurred", , "Error" Form11.Hide Exit Sub ee1: End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyCode = 32 Then Command1_Click End If End Sub