VERSION 5.00 Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX" Begin VB.Form Form30 BorderStyle = 4 'Fixed ToolWindow Caption = "Mass Balance: after Stormer & Nicholls, 1978" ClientHeight = 8550 ClientLeft = 150 ClientTop = 405 ClientWidth = 8925 LinkTopic = "Form1" MaxButton = 0 'False MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 570 ScaleMode = 3 'Pixel ScaleWidth = 595 ShowInTaskbar = 0 'False Begin VB.Frame Frame2 Caption = "OUTPUT DATA" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 3735 Left = 120 TabIndex = 136 Top = 4200 Width = 8655 Begin MSFlexGridLib.MSFlexGrid FG1 Height = 3255 Left = 120 TabIndex = 137 Top = 360 Width = 8415 _ExtentX = 14843 _ExtentY = 5741 _Version = 393216 Rows = 60 Cols = 11 FixedRows = 0 FixedCols = 0 End End Begin VB.Frame Frame1 Caption = "INPUT DATA" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 3975 Left = 120 TabIndex = 0 Top = 120 Width = 8655 Begin VB.CommandButton Command3 Caption = "Select Phases" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 300 Left = 4230 TabIndex = 135 Top = 270 Width = 1575 End Begin VB.CommandButton Command2 Caption = "Select Magmas" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 300 Left = 2580 TabIndex = 134 Top = 270 Width = 1575 End Begin VB.CommandButton Command1 Caption = "Select Oxides" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 300 Left = 960 TabIndex = 133 Top = 285 Width = 1575 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 1 Left = 840 TabIndex = 111 Text = "\" Top = 1080 Width = 735 End Begin VB.TextBox Text2 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 1 Left = 1620 TabIndex = 110 Text = "\" Top = 1080 Width = 735 End Begin VB.TextBox Text3 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 1 Left = 2385 TabIndex = 109 Text = "\" Top = 1080 Width = 735 End Begin VB.TextBox Text4 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 1 Left = 3165 TabIndex = 108 Text = "\" Top = 1065 Width = 735 End Begin VB.TextBox Text5 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 1 Left = 3930 TabIndex = 107 Text = "\" Top = 1065 Width = 735 End Begin VB.TextBox Text6 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 1 Left = 4695 TabIndex = 106 Text = "\" Top = 1065 Width = 735 End Begin VB.TextBox Text7 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 1 Left = 5460 TabIndex = 105 Text = "\" Top = 1065 Width = 735 End Begin VB.TextBox Text8 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 1 Left = 6225 TabIndex = 104 Text = "\" Top = 1065 Width = 735 End Begin VB.TextBox Text9 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 1 Left = 6990 TabIndex = 103 Text = "\" Top = 1050 Width = 735 End Begin VB.TextBox Text10 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 1 Left = 7755 TabIndex = 102 Text = "\" Top = 1050 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 2 Left = 840 TabIndex = 101 Text = "\" Top = 1320 Width = 735 End Begin VB.TextBox Text2 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 2 Left = 1620 TabIndex = 100 Text = "\" Top = 1320 Width = 735 End Begin VB.TextBox Text3 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 2 Left = 2385 TabIndex = 99 Text = "\" Top = 1320 Width = 735 End Begin VB.TextBox Text4 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 2 Left = 3165 TabIndex = 98 Text = "\" Top = 1305 Width = 735 End Begin VB.TextBox Text5 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 2 Left = 3930 TabIndex = 97 Text = "\" Top = 1305 Width = 735 End Begin VB.TextBox Text6 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 2 Left = 4695 TabIndex = 96 Text = "\" Top = 1305 Width = 735 End Begin VB.TextBox Text7 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 2 Left = 5460 TabIndex = 95 Text = "\" Top = 1305 Width = 735 End Begin VB.TextBox Text8 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 2 Left = 6225 TabIndex = 94 Text = "\" Top = 1305 Width = 735 End Begin VB.TextBox Text9 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 2 Left = 6990 TabIndex = 93 Text = "\" Top = 1290 Width = 735 End Begin VB.TextBox Text10 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 2 Left = 7755 TabIndex = 92 Text = "\" Top = 1290 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 3 Left = 840 TabIndex = 91 Text = "\" Top = 1560 Width = 735 End Begin VB.TextBox Text2 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 3 Left = 1620 TabIndex = 90 Text = "\" Top = 1560 Width = 735 End Begin VB.TextBox Text3 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 3 Left = 2385 TabIndex = 89 Text = "\" Top = 1560 Width = 735 End Begin VB.TextBox Text4 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 3 Left = 3165 TabIndex = 88 Text = "\" Top = 1545 Width = 735 End Begin VB.TextBox Text5 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 3 Left = 3930 TabIndex = 87 Text = "\" Top = 1545 Width = 735 End Begin VB.TextBox Text6 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 3 Left = 4695 TabIndex = 86 Text = "\" Top = 1545 Width = 735 End Begin VB.TextBox Text7 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 3 Left = 5460 TabIndex = 85 Text = "\" Top = 1545 Width = 735 End Begin VB.TextBox Text8 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 3 Left = 6225 TabIndex = 84 Text = "\" Top = 1545 Width = 735 End Begin VB.TextBox Text9 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 3 Left = 6990 TabIndex = 83 Text = "\" Top = 1530 Width = 735 End Begin VB.TextBox Text10 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 3 Left = 7755 TabIndex = 82 Text = "\" Top = 1530 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 4 Left = 840 TabIndex = 81 Text = "\" Top = 1800 Width = 735 End Begin VB.TextBox Text2 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 4 Left = 1620 TabIndex = 80 Text = "\" Top = 1800 Width = 735 End Begin VB.TextBox Text3 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 4 Left = 2385 TabIndex = 79 Text = "\" Top = 1800 Width = 735 End Begin VB.TextBox Text4 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 4 Left = 3165 TabIndex = 78 Text = "\" Top = 1785 Width = 735 End Begin VB.TextBox Text5 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 4 Left = 3930 TabIndex = 77 Text = "\" Top = 1785 Width = 735 End Begin VB.TextBox Text6 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 4 Left = 4695 TabIndex = 76 Text = "\" Top = 1785 Width = 735 End Begin VB.TextBox Text7 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 4 Left = 5460 TabIndex = 75 Text = "\" Top = 1785 Width = 735 End Begin VB.TextBox Text8 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 4 Left = 6225 TabIndex = 74 Text = "\" Top = 1785 Width = 735 End Begin VB.TextBox Text9 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 4 Left = 6990 TabIndex = 73 Text = "\" Top = 1770 Width = 735 End Begin VB.TextBox Text10 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 4 Left = 7755 TabIndex = 72 Text = "\" Top = 1770 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 5 Left = 840 TabIndex = 71 Text = "\" Top = 2040 Width = 735 End Begin VB.TextBox Text2 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 5 Left = 1620 TabIndex = 70 Text = "\" Top = 2040 Width = 735 End Begin VB.TextBox Text3 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 5 Left = 2385 TabIndex = 69 Text = "\" Top = 2040 Width = 735 End Begin VB.TextBox Text4 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 5 Left = 3165 TabIndex = 68 Text = "\" Top = 2025 Width = 735 End Begin VB.TextBox Text5 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 5 Left = 3930 TabIndex = 67 Text = "\" Top = 2025 Width = 735 End Begin VB.TextBox Text6 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 5 Left = 4695 TabIndex = 66 Text = "\" Top = 2025 Width = 735 End Begin VB.TextBox Text7 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 5 Left = 5460 TabIndex = 65 Text = "\" Top = 2025 Width = 735 End Begin VB.TextBox Text8 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 5 Left = 6225 TabIndex = 64 Text = "\" Top = 2025 Width = 735 End Begin VB.TextBox Text9 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 5 Left = 6990 TabIndex = 63 Text = "\" Top = 2010 Width = 735 End Begin VB.TextBox Text10 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 5 Left = 7755 TabIndex = 62 Text = "\" Top = 2010 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 6 Left = 840 TabIndex = 61 Text = "\" Top = 2280 Width = 735 End Begin VB.TextBox Text2 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 6 Left = 1620 TabIndex = 60 Text = "\" Top = 2280 Width = 735 End Begin VB.TextBox Text3 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 6 Left = 2385 TabIndex = 59 Text = "\" Top = 2280 Width = 735 End Begin VB.TextBox Text4 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 6 Left = 3165 TabIndex = 58 Text = "\" Top = 2265 Width = 735 End Begin VB.TextBox Text5 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 6 Left = 3930 TabIndex = 57 Text = "\" Top = 2265 Width = 735 End Begin VB.TextBox Text6 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 6 Left = 4695 TabIndex = 56 Text = "\" Top = 2265 Width = 735 End Begin VB.TextBox Text7 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 6 Left = 5460 TabIndex = 55 Text = "\" Top = 2265 Width = 735 End Begin VB.TextBox Text8 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 6 Left = 6225 TabIndex = 54 Text = "\" Top = 2265 Width = 735 End Begin VB.TextBox Text9 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 6 Left = 6990 TabIndex = 53 Text = "\" Top = 2250 Width = 735 End Begin VB.TextBox Text10 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 6 Left = 7755 TabIndex = 52 Text = "\" Top = 2250 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 7 Left = 840 TabIndex = 51 Text = "\" Top = 2520 Width = 735 End Begin VB.TextBox Text2 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 7 Left = 1620 TabIndex = 50 Text = "\" Top = 2520 Width = 735 End Begin VB.TextBox Text3 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 7 Left = 2385 TabIndex = 49 Text = "\" Top = 2520 Width = 735 End Begin VB.TextBox Text4 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 7 Left = 3165 TabIndex = 48 Text = "\" Top = 2505 Width = 735 End Begin VB.TextBox Text5 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 7 Left = 3930 TabIndex = 47 Text = "\" Top = 2505 Width = 735 End Begin VB.TextBox Text6 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 7 Left = 4695 TabIndex = 46 Text = "\" Top = 2505 Width = 735 End Begin VB.TextBox Text7 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 7 Left = 5460 TabIndex = 45 Text = "\" Top = 2505 Width = 735 End Begin VB.TextBox Text8 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 7 Left = 6225 TabIndex = 44 Text = "\" Top = 2505 Width = 735 End Begin VB.TextBox Text9 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 7 Left = 6990 TabIndex = 43 Text = "\" Top = 2490 Width = 735 End Begin VB.TextBox Text10 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 7 Left = 7755 TabIndex = 42 Text = "\" Top = 2490 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 8 Left = 840 TabIndex = 41 Text = "\" Top = 2760 Width = 735 End Begin VB.TextBox Text2 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 8 Left = 1620 TabIndex = 40 Text = "\" Top = 2760 Width = 735 End Begin VB.TextBox Text3 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 8 Left = 2385 TabIndex = 39 Text = "\" Top = 2760 Width = 735 End Begin VB.TextBox Text4 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 8 Left = 3165 TabIndex = 38 Text = "\" Top = 2745 Width = 735 End Begin VB.TextBox Text5 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 8 Left = 3930 TabIndex = 37 Text = "\" Top = 2745 Width = 735 End Begin VB.TextBox Text6 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 8 Left = 4695 TabIndex = 36 Text = "\" Top = 2745 Width = 735 End Begin VB.TextBox Text7 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 8 Left = 5460 TabIndex = 35 Text = "\" Top = 2745 Width = 735 End Begin VB.TextBox Text8 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 8 Left = 6225 TabIndex = 34 Text = "\" Top = 2745 Width = 735 End Begin VB.TextBox Text9 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 8 Left = 6990 TabIndex = 33 Text = "\" Top = 2730 Width = 735 End Begin VB.TextBox Text10 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 8 Left = 7755 TabIndex = 32 Text = "\" Top = 2730 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 9 Left = 840 TabIndex = 31 Text = "\" Top = 3000 Width = 735 End Begin VB.TextBox Text2 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 9 Left = 1620 TabIndex = 30 Text = "\" Top = 3000 Width = 735 End Begin VB.TextBox Text3 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 9 Left = 2385 TabIndex = 29 Text = "\" Top = 3000 Width = 735 End Begin VB.TextBox Text4 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 9 Left = 3165 TabIndex = 28 Text = "\" Top = 2985 Width = 735 End Begin VB.TextBox Text5 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 9 Left = 3930 TabIndex = 27 Text = "\" Top = 2985 Width = 735 End Begin VB.TextBox Text6 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 9 Left = 4695 TabIndex = 26 Text = "\" Top = 2985 Width = 735 End Begin VB.TextBox Text7 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 9 Left = 5460 TabIndex = 25 Text = "\" Top = 2985 Width = 735 End Begin VB.TextBox Text8 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 9 Left = 6225 TabIndex = 24 Text = "\" Top = 2985 Width = 735 End Begin VB.TextBox Text9 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 9 Left = 6990 TabIndex = 23 Text = "\" Top = 2970 Width = 735 End Begin VB.TextBox Text10 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 9 Left = 7755 TabIndex = 22 Text = "\" Top = 2970 Width = 735 End Begin VB.TextBox Text10 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 10 Left = 7755 TabIndex = 21 Text = "\" Top = 3210 Width = 735 End Begin VB.TextBox Text9 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 10 Left = 6990 TabIndex = 20 Text = "\" Top = 3210 Width = 735 End Begin VB.TextBox Text8 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 10 Left = 6225 TabIndex = 19 Text = "\" Top = 3225 Width = 735 End Begin VB.TextBox Text7 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 10 Left = 5460 TabIndex = 18 Text = "\" Top = 3225 Width = 735 End Begin VB.TextBox Text6 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 10 Left = 4695 TabIndex = 17 Text = "\" Top = 3225 Width = 735 End Begin VB.TextBox Text5 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 10 Left = 3930 TabIndex = 16 Text = "\" Top = 3225 Width = 735 End Begin VB.TextBox Text4 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 10 Left = 3165 TabIndex = 15 Text = "\" Top = 3225 Width = 735 End Begin VB.TextBox Text3 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 10 Left = 2385 TabIndex = 14 Text = "\" Top = 3240 Width = 735 End Begin VB.TextBox Text2 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 10 Left = 1620 TabIndex = 13 Text = "\" Top = 3240 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 10 Left = 840 TabIndex = 12 Text = "\" Top = 3240 Width = 735 End Begin VB.TextBox Text10 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 11 Left = 7755 TabIndex = 11 Text = "\" Top = 3480 Width = 735 End Begin VB.TextBox Text9 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 11 Left = 6990 TabIndex = 10 Text = "\" Top = 3450 Width = 735 End Begin VB.TextBox Text8 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 11 Left = 6225 TabIndex = 9 Text = "\" Top = 3465 Width = 735 End Begin VB.TextBox Text7 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 11 Left = 5460 TabIndex = 8 Text = "\" Top = 3465 Width = 735 End Begin VB.TextBox Text6 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 11 Left = 4695 TabIndex = 7 Text = "\" Top = 3465 Width = 735 End Begin VB.TextBox Text5 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 11 Left = 3930 TabIndex = 6 Text = "\" Top = 3465 Width = 735 End Begin VB.TextBox Text4 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 11 Left = 3165 TabIndex = 5 Text = "\" Top = 3465 Width = 735 End Begin VB.TextBox Text3 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 11 Left = 2385 TabIndex = 4 Text = "\" Top = 3480 Width = 735 End Begin VB.TextBox Text2 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 11 Left = 1620 TabIndex = 3 Text = "\" Top = 3480 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 6.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 250 Index = 11 Left = 840 TabIndex = 2 Text = "\" Top = 3480 Width = 735 End Begin VB.Label Label1 Caption = "Al2O3" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 1 Left = 150 TabIndex = 132 Top = 1110 Width = 735 End Begin VB.Label Label1 Caption = "SiO2" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 2 Left = 150 TabIndex = 131 Top = 1350 Width = 735 End Begin VB.Label Label1 Caption = "SiO2" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 3 Left = 150 TabIndex = 130 Top = 1590 Width = 735 End Begin VB.Label Label1 Caption = "SiO2" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 4 Left = 150 TabIndex = 129 Top = 1830 Width = 735 End Begin VB.Label Label1 Caption = "SiO2" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 5 Left = 150 TabIndex = 128 Top = 2070 Width = 735 End Begin VB.Label Label1 Caption = "SiO2" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 6 Left = 150 TabIndex = 127 Top = 2295 Width = 735 End Begin VB.Label Label1 Caption = "SiO2" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 7 Left = 150 TabIndex = 126 Top = 2535 Width = 735 End Begin VB.Label Label1 Caption = "SiO2" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 8 Left = 150 TabIndex = 125 Top = 2775 Width = 735 End Begin VB.Label Label1 Caption = "SiO2" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 9 Left = 150 TabIndex = 124 Top = 3015 Width = 735 End Begin VB.Label Label2 Alignment = 2 'Center Caption = "Initial Magma" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 840 TabIndex = 123 Top = 645 Width = 735 End Begin VB.Label Label3 Alignment = 2 'Center Caption = "Final Magma" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Index = 0 Left = 1620 TabIndex = 122 Top = 645 Width = 735 End Begin VB.Label Label1 Caption = "SiO2" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 10 Left = 150 TabIndex = 121 Top = 3255 Width = 735 End Begin VB.Label Label4 Alignment = 2 'Center Caption = "Phase" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Index = 1 Left = 2370 TabIndex = 120 Top = 735 Width = 735 End Begin VB.Label Label4 Alignment = 2 'Center Caption = "Phase" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Index = 2 Left = 3150 TabIndex = 119 Top = 720 Width = 735 End Begin VB.Label Label4 Alignment = 2 'Center Caption = "Phase" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Index = 3 Left = 3915 TabIndex = 118 Top = 720 Width = 735 End Begin VB.Label Label4 Alignment = 2 'Center Caption = "Phase" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Index = 4 Left = 4680 TabIndex = 117 Top = 720 Width = 735 End Begin VB.Label Label4 Alignment = 2 'Center Caption = "Phase" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Index = 5 Left = 5445 TabIndex = 116 Top = 720 Width = 735 End Begin VB.Label Label4 Alignment = 2 'Center Caption = "Phase" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Index = 6 Left = 6210 TabIndex = 115 Top = 720 Width = 735 End Begin VB.Label Label4 Alignment = 2 'Center Caption = "Phase" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Index = 7 Left = 6975 TabIndex = 114 Top = 705 Width = 735 End Begin VB.Label Label4 Alignment = 2 'Center Caption = "Phase" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Index = 8 Left = 7740 TabIndex = 113 Top = 705 Width = 735 End Begin VB.Label Label1 Caption = "SiO2" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 11 Left = 150 TabIndex = 112 Top = 3480 Width = 735 End End Begin VB.CommandButton Command4 Caption = "Calculate (SpaceBar)" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 5880 TabIndex = 1 Top = 8040 Width = 2895 End End Attribute VB_Name = "Form30" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() Form30.Command4.SetFocus Form31.Show Form31.Height = 1830 Form31.Width = 5220 For i = 0 To 9 Form31.Command1(i).BackColor = QBColor(12) Next i NumOx = 0 End Sub Private Sub Command2_Click() Form30.Command4.SetFocus If StroMagma = True Then Form32.Show Form32.Height = 2520 Form32.Width = 4860 End If End Sub Private Sub Command3_Click() Form30.Command4.SetFocus If StroMagma = True Then Form33.Show Form33.Height = 4215 Form33.Width = 4710 NumPh = 0 End If End Sub Private Sub Command4_Click() On Error GoTo fine Erase PATOT100 PBTOT100 = 0 PFTOT100 = 0 ' prima ricalcolo i magmi e le fasi a 100 Close #1 Open App.Path + "\res.txt" For Output As #1 For ia = 1 To NumOx PB100(ia) = 100 * PB(ia) / PBTOT 'PB100(ia) = Val(Format(PB100(ia), "0.00")) PBTOT100 = PBTOT100 + PB100(ia) PF100(ia) = 100 * PF(ia) / PFTOT 'PF100(ia) = Val(Format(PF100(ia), "0.00")) PFTOT100 = PFTOT100 + PF100(ia) Write #1, PB100(ia), PF100(ia), For ia1 = 1 To NumPh PA100(ia, ia1) = 100 * PA(ia, ia1) / PATOT(ia1) 'PA100(ia, ia1) = Val(Format(PA100(ia, ia1), "0.00")) Write #1, PA100(ia, ia1), PATOT100(ia1) = PATOT100(ia1) + PA100(ia, ia1) Next ia1 Write #1, Next ia Close #1 For i = 1 To NumOx DiffPFPB(i) = PF100(i) - PB100(i) Next i For j = 1 To NumPh For i = 1 To NumOx u(i, j) = (PA100(i, j) - PF100(i)) / 100 Next i Next j For i = 1 To NumPh For j = 1 To NumPh USUM = 0 For k = 1 To NumOx USUM = USUM + (u(k, i) * u(k, j)) Next k UTU(i, j) = USUM Next j Next i For j = 1 To NumPh BSUM = 0 For i = 1 To NumOx BSUM = BSUM + u(i, j) * DiffPFPB(i) Next i UTB(j) = BSUM Next j none = NumPh + 1 LEX = 15 - NumPh If LEX = 0 Then GoTo poi For i = none To 15 For j = none To 15 UTU(i, j) = 1 Next j Next i For i = none To 15 UTB(i) = 1 Next i poi: LINEQF For j = 1 To NumPh For i = 1 To NumOx PROD(i, j) = u(i, j) * UTB(j) QPROD(i, j) = (PA100(i, j) * UTB(j)) / 100 Next i Next j For i = 1 To NumOx Psum = 0 Qpsum = 0 For j = 1 To NumPh Psum = Psum + PROD(i, j) Qpsum = Qpsum + QPROD(i, j) Next j d(i) = Psum CQ(i) = Qpsum Next i CQSUM = 0 For i = 1 To NumOx CQSUM = CQSUM + CQ(i) Next i For i = 1 To NumOx If CQSUM = 0 Then GoTo fine RQ(i) = (CQ(i) / CQSUM) * 100 Next i For i = 1 To NumOx DELTA(i) = DiffPFPB(i) - d(i) Next i For j = 1 To NumPh If UTB(j) >= 0 Then SYP(j) = UTB(j) SYM(j) = 0 Else SYM(j) = UTB(j) SYP(j) = 0 End If Next j sum1 = 0 sum2 = 0 For j = 1 To NumPh sum1 = sum1 + SYP(j) sum2 = sum2 + SYM(j) Next j If sum1 = 0 Then For j = 1 To NumPh YYP(j) = 0 Next j Else For j = 1 To NumPh If sum1 = 0 Then GoTo fine YYP(j) = (SYP(j) / sum1) * 100 Next j End If If sum2 = 0 Then For j = 1 To NumPh YYM(j) = 0 Next j Else For j = 1 To NumPh If sum2 = 0 Then GoTo fine YYM(j) = (SYM(j) / sum2) * 100 Next j End If xsum = 0 For j = 1 To NumPh xsum = xsum + Abs(UTB(j)) Next j For j = 1 To NumPh If xsum = 0 Then GoTo fine y(j) = (Abs(UTB(j)) / xsum) * 100 Next j sqsum = 0 qsum = 0 RQSUM = 0 For i = 1 To NumOx sqsum = sqsum + (DELTA(i) * DELTA(i)) qsum = qsum + DELTA(i) RQSUM = RQSUM + RQ(i) Next i FG1.Clear For ia = 0 To 10 FG1.ColWidth(ia) = 1250 Next ia FG1.col = 0 FG1.Row = 1 FG1.Text = "RECAL." FG1.col = 1 FG1.Row = 1 FG1.Text = "ANALYSES" FG1.col = 2 FG1.Row = 1 FG1.Text = "(WT.%)" FG1.col = 3 FG1.Row = 1 FG1.Text = "TO 100%" FG1.col = 0 FG1.Row = 3 FG1.Text = "OXIDE" FG1.col = 1 FG1.Row = 3 FG1.Text = "INIT" FG1.col = 2 FG1.Row = 3 FG1.Text = "FINAL" For ia = 1 To 8 FG1.col = ia + 2 FG1.Row = 3 FG1.Text = Form30.Label4(ia).Caption Next ia For ia = 1 To NumOx FG1.col = 0 FG1.Row = ia + 3 FG1.Text = OX(ia) Next ia For ia = 1 To NumOx FG1.col = 1 FG1.Row = ia + 3 FG1.Text = PB100(ia) Next ia For ia = 1 To NumOx FG1.col = 2 FG1.Row = ia + 3 FG1.Text = PF100(ia) Next ia For ia = 1 To NumOx For ia1 = 1 To NumPh FG1.col = ia1 + 2 FG1.Row = ia + 3 FG1.Text = Val(Format(PA100(ia, ia1), "0.00")) Next ia1 Next ia FG1.Row = NumOx + 4 For ia1 = 1 To NumPh FG1.col = ia1 + 2 FG1.Text = Val(Format(PATOT100(ia1), "0.00")) Next ia1 FG1.Row = NumOx + 4 FG1.col = 1 FG1.Text = Val(Format(PBTOT100, "0.00")) FG1.col = 2 FG1.Text = Val(Format(PFTOT100, "0.00")) FG1.Row = NumOx + 4 FG1.col = 0 FG1.Text = "TOT" FG1.Row = NumOx + 6 FG1.col = 0 FG1.Text = "RESULTS" FG1.Row = NumOx + 9 FG1.col = 0 FG1.Text = "OXIDE" For ia = 1 To NumOx FG1.col = 0 FG1.Row = ia + NumOx + 9 FG1.Text = OX(ia) Next ia FG1.Row = NumOx + 7 FG1.col = 1 FG1.Text = "BULK COMP." FG1.Row = NumOx + 8 FG1.col = 1 FG1.Text = "OR ADDED OR" FG1.Row = NumOx + 9 FG1.col = 1 FG1.Text = "SUBTR.MATL." FG1.Row = NumOx + 7 FG1.col = 2 FG1.Text = "OBS.DIFF." FG1.Row = NumOx + 8 FG1.col = 2 FG1.Text = "BETWEEN" FG1.Row = NumOx + 9 FG1.col = 2 FG1.Text = "MAGMAS" FG1.Row = NumOx + 7 FG1.col = 3 FG1.Text = "CALC.DIFF." FG1.Row = NumOx + 8 FG1.col = 3 FG1.Text = "BETWEEN" FG1.Row = NumOx + 9 FG1.col = 3 FG1.Text = "MAGMAS" FG1.Row = NumOx + 7 FG1.col = 4 FG1.Text = "OBS.-CALC." FG1.Row = NumOx + 8 FG1.col = 4 FG1.Text = "RESIDUALS" FG1.Row = NumOx + 9 FG1.col = 4 FG1.Text = "" For ia = 1 To NumOx FG1.col = 1 FG1.Row = ia + NumOx + 9 FG1.Text = Val(Format(RQ(ia), "0.000")) Next ia For ia = 1 To NumOx FG1.col = 2 FG1.Row = ia + NumOx + 9 FG1.Text = Val(Format(DiffPFPB(ia), "0.000")) Next ia For ia = 1 To NumOx FG1.col = 3 FG1.Row = ia + NumOx + 9 FG1.Text = Val(Format(d(ia), "0.000")) Next ia For ia = 1 To NumOx FG1.col = 4 FG1.Row = ia + NumOx + 9 FG1.Text = Val(Format(DELTA(ia), "0.000")) Next ia FG1.Row = NumOx + NumOx + 10 FG1.col = 3 FG1.Text = "TOTAL" FG1.col = 4 FG1.Text = Val(Format(qsum, "0.000")) FG1.Row = NumOx + NumOx + 12 FG1.col = 0 FG1.Text = "SUM OF" FG1.col = 1 FG1.Text = "THE SQUARES" FG1.col = 2 FG1.Text = "OF THE" FG1.col = 3 FG1.Text = "RESIDUALS" FG1.col = 4 FG1.Text = Val(Format(sqsum, "0.0000")) FG1.Row = NumOx + NumOx + 14 FG1.col = 0 FG1.Text = "PHASE" FG1.col = 1 FG1.Text = "AMOUNT AS" FG1.col = 2 FG1.Text = "AMOUNT AS" FG1.col = 3 FG1.Text = "AMOUNT AS" FG1.col = 4 FG1.Text = "AMOUNT AS" FG1.Row = NumOx + NumOx + 15 FG1.col = 0 FG1.Text = "NAME" FG1.col = 1 FG1.Text = "WT.% OF " FG1.col = 2 FG1.Text = "WT.% OF " FG1.col = 3 FG1.Text = "WT.% OF " FG1.col = 4 FG1.Text = "WT.% OF " FG1.Row = NumOx + NumOx + 16 FG1.col = 0 FG1.Text = "" FG1.col = 1 FG1.Text = "INIT. MAGMA" FG1.col = 2 FG1.Text = "ALL PHASES" FG1.col = 3 FG1.Text = "ADDED PHS." FG1.col = 4 FG1.Text = "SUBTRD.PHS." For ia = 1 To NumPh FG1.Row = NumOx + NumOx + 17 + ia FG1.col = 0 FG1.Text = Ph(ia) FG1.col = 1 FG1.Text = Val(Format(UTB(ia), "0.00")) FG1.col = 2 FG1.Text = Val(Format(y(ia), "0.00")) FG1.col = 3 FG1.Text = Val(Format(YYP(ia), "0.00")) FG1.col = 4 FG1.Text = Val(Format(YYM(ia), "0.00")) Next ia YYPS = 0 YYMS = 0 For ia = 1 To NumPh If UTB(ia) > 0 Then YYPS = YYPS + UTB(ia) Else YYMS = YYMS - UTB(ia) End If Next ia FG1.Row = NumOx + NumOx + 20 + NumPh FG1.col = 0 FG1.Text = "TOTAL REL." FG1.col = 1 FG1.Text = "TO INITIAL" FG1.col = 2 FG1.Text = "MAGMA" FG1.col = 3 FG1.Text = Val(Format(YYPS, "0.00")) FG1.col = 4 FG1.Text = Val(Format(YYMS, "0.00")) GoTo fine1: fine: MsgBox "An Error Occurred" fine1: End Sub Private Sub FG1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command4_Click End If End Sub Private Sub FG1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 Then MDIForm1.PopupMenu MDIForm1.mnupopup3 End If End Sub Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command4_Click End If End Sub Private Sub Text2_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command4_Click End If End Sub Private Sub Text3_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command4_Click End If End Sub Private Sub Text4_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command4_Click End If End Sub Private Sub Text5_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command4_Click End If End Sub Private Sub Text6_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command4_Click End If End Sub Private Sub Text7_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command4_Click End If End Sub Private Sub Text8_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command4_Click End If End Sub Private Sub Text9_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command4_Click End If End Sub