Derivación por diferencias divididas y por fórmulas de alta precisión en Visual Basic 2005 (página 2)
Enviado por jaimemontoya
'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
'Se puede modificar usando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
Me.Label1 = New System.Windows.Forms.Label
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.AxMSFlexGrid1 = New AxMSFlexGridLib.AxMSFlexGrid
Me.GroupBox2 = New System.Windows.Forms.GroupBox
Me.AxMSFlexGrid2 = New AxMSFlexGridLib.AxMSFlexGrid
Me.Label2 = New System.Windows.Forms.Label
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Label3 = New System.Windows.Forms.Label
Me.ComboBox2 = New System.Windows.Forms.ComboBox
Me.Label4 = New System.Windows.Forms.Label
Me.ComboBox1 = New System.Windows.Forms.ComboBox
Me.Label5 = New System.Windows.Forms.Label
Me.TextBox2 = New System.Windows.Forms.TextBox
Me.Label6 = New System.Windows.Forms.Label
Me.TextBox3 = New System.Windows.Forms.TextBox
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.Label8 = New System.Windows.Forms.Label
Me.Button4 = New System.Windows.Forms.Button
Me.Label9 = New System.Windows.Forms.Label
Me.Label10 = New System.Windows.Forms.Label
Me.Label11 = New System.Windows.Forms.Label
Me.TextBox5 = New System.Windows.Forms.TextBox
Me.TextBox6 = New System.Windows.Forms.TextBox
Me.TextBox7 = New System.Windows.Forms.TextBox
Me.TextBox9 = New System.Windows.Forms.TextBox
Me.TextBox8 = New System.Windows.Forms.TextBox
Me.Label12 = New System.Windows.Forms.Label
Me.Label13 = New System.Windows.Forms.Label
Me.Label14 = New System.Windows.Forms.Label
Me.TextBox10 = New System.Windows.Forms.TextBox
Me.Label15 = New System.Windows.Forms.Label
Me.Label7 = New System.Windows.Forms.Label
Me.TextBox4 = New System.Windows.Forms.TextBox
Me.GroupBox1.SuspendLayout()
CType(Me.AxMSFlexGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox2.SuspendLayout()
CType(Me.AxMSFlexGrid2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Font = New System.Drawing.Font("Georgia", 15.0!, CType(((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic) _
Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.Lime
Me.Label1.Location = New System.Drawing.Point(7, 13)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(772, 36)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Derivación por Diferencias Divididas y por Fórmulas de Alta Precisión"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'GroupBox1
'
Me.GroupBox1.BackColor = System.Drawing.Color.Transparent
Me.GroupBox1.Controls.Add(Me.AxMSFlexGrid1)
Me.GroupBox1.Font = New System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.ForeColor = System.Drawing.Color.Yellow
Me.GroupBox1.Location = New System.Drawing.Point(13, 122)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(762, 125)
Me.GroupBox1.TabIndex = 4
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Tablas de Diferencias Divididas"
'
'AxMSFlexGrid1
'
Me.AxMSFlexGrid1.Location = New System.Drawing.Point(18, 23)
Me.AxMSFlexGrid1.Name = "AxMSFlexGrid1"
Me.AxMSFlexGrid1.OcxState = CType(resources.GetObject("AxMSFlexGrid1.OcxState"), System.Windows.Forms.AxHost.State)
Me.AxMSFlexGrid1.Size = New System.Drawing.Size(728, 90)
Me.AxMSFlexGrid1.TabIndex = 0
Me.AxMSFlexGrid1.TabStop = False
'
'GroupBox2
'
Me.GroupBox2.BackColor = System.Drawing.Color.Transparent
Me.GroupBox2.Controls.Add(Me.AxMSFlexGrid2)
Me.GroupBox2.Font = New System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox2.ForeColor = System.Drawing.Color.Yellow
Me.GroupBox2.Location = New System.Drawing.Point(11, 300)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(762, 123)
Me.GroupBox2.TabIndex = 5
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Fórmulas de Alta Precisión"
'
'AxMSFlexGrid2
'
Me.AxMSFlexGrid2.Location = New System.Drawing.Point(23, 21)
Me.AxMSFlexGrid2.Name = "AxMSFlexGrid2"
Me.AxMSFlexGrid2.OcxState = CType(resources.GetObject("AxMSFlexGrid2.OcxState"), System.Windows.Forms.AxHost.State)
Me.AxMSFlexGrid2.Size = New System.Drawing.Size(723, 90)
Me.AxMSFlexGrid2.TabIndex = 0
Me.AxMSFlexGrid2.TabStop = False
'
'Label2
'
Me.Label2.BackColor = System.Drawing.Color.Transparent
Me.Label2.Font = New System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.ForeColor = System.Drawing.Color.Lime
Me.Label2.Location = New System.Drawing.Point(10, 61)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(84, 19)
Me.Label2.TabIndex = 7
Me.Label2.Text = "Función:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(91, 62)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(98, 20)
Me.TextBox1.TabIndex = 1
'
'Label3
'
Me.Label3.BackColor = System.Drawing.Color.Transparent
Me.Label3.Font = New System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.ForeColor = System.Drawing.Color.Lime
Me.Label3.Location = New System.Drawing.Point(596, 63)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(68, 19)
Me.Label3.TabIndex = 9
Me.Label3.Text = "Orden:"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'ComboBox2
'
Me.ComboBox2.FormattingEnabled = True
Me.ComboBox2.Items.AddRange(New Object() {"1ra. derivada", "2da. derivada", "3ra. derivada", "4ta. derivada", "5ta. derivada"})
Me.ComboBox2.Location = New System.Drawing.Point(663, 59)
Me.ComboBox2.Name = "ComboBox2"
Me.ComboBox2.Size = New System.Drawing.Size(106, 21)
Me.ComboBox2.TabIndex = 3
'
'Label4
'
Me.Label4.BackColor = System.Drawing.Color.Transparent
Me.Label4.Font = New System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.ForeColor = System.Drawing.Color.Lime
Me.Label4.Location = New System.Drawing.Point(202, 63)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(79, 19)
Me.Label4.TabIndex = 11
Me.Label4.Text = "Método:"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'ComboBox1
'
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Items.AddRange(New Object() {"Tablas de Diferencias Divididas Hacia Adelante", "Tablas de Diferencias Divididas Hacia Atrás", "Tablas de Diferencias Divididas Centradas", "Fórmulas de Alta Precisión Hacia Adelante", "Fórmulas de Alta Precisión Hacia Atrás", "Fórmulas de Alta Precisión Centradas"})
Me.ComboBox1.Location = New System.Drawing.Point(277, 63)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(271, 21)
Me.ComboBox1.TabIndex = 2
'
'Label5
'
Me.Label5.BackColor = System.Drawing.Color.Transparent
Me.Label5.Font = New System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.Color.Lime
Me.Label5.Location = New System.Drawing.Point(69, 90)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(25, 19)
Me.Label5.TabIndex = 13
Me.Label5.Text = "x:"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(91, 88)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(60, 20)
Me.TextBox2.TabIndex = 4
'
'Label6
'
Me.Label6.BackColor = System.Drawing.Color.Transparent
Me.Label6.Font = New System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.ForeColor = System.Drawing.Color.Lime
Me.Label6.Location = New System.Drawing.Point(252, 90)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(25, 19)
Me.Label6.TabIndex = 15
Me.Label6.Text = "h:"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'TextBox3
'
Me.TextBox3.Location = New System.Drawing.Point(275, 90)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(60, 20)
Me.TextBox3.TabIndex = 5
'
'Button1
'
Me.Button1.BackgroundImage = CType(resources.GetObject("Button1.BackgroundImage"), System.Drawing.Image)
Me.Button1.Font = New System.Drawing.Font("Georgia", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.ForeColor = System.Drawing.Color.Blue
Me.Button1.Location = New System.Drawing.Point(24, 488)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(145, 59)
Me.Button1.TabIndex = 7
Me.Button1.Text = "Encontrar Derivada"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.BackgroundImage = CType(resources.GetObject("Button2.BackgroundImage"), System.Drawing.Image)
Me.Button2.Font = New System.Drawing.Font("Georgia", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button2.ForeColor = System.Drawing.Color.Blue
Me.Button2.Location = New System.Drawing.Point(219, 488)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(145, 59)
Me.Button2.TabIndex = 8
Me.Button2.Text = "Limpiar"
Me.Button2.UseVisualStyleBackColor = True
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.BackColor = System.Drawing.Color.Transparent
Me.Label8.Font = New System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.ForeColor = System.Drawing.Color.Lime
Me.Label8.Location = New System.Drawing.Point(11, 253)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(30, 18)
Me.Label8.TabIndex = 22
Me.Label8.Text = "La"
'
'Button4
'
Me.Button4.BackgroundImage = CType(resources.GetObject("Button4.BackgroundImage"), System.Drawing.Image)
Me.Button4.Font = New System.Drawing.Font("Georgia", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button4.ForeColor = System.Drawing.Color.Blue
Me.Button4.Location = New System.Drawing.Point(414, 488)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(145, 59)
Me.Button4.TabIndex = 10
Me.Button4.Text = "Salir"
Me.Button4.UseVisualStyleBackColor = True
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.BackColor = System.Drawing.Color.Transparent
Me.Label9.Font = New System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.ForeColor = System.Drawing.Color.Lime
Me.Label9.Location = New System.Drawing.Point(170, 253)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(509, 18)
Me.Label9.TabIndex = 24
Me.Label9.Text = "derivada de la función introducida es aproximadamente de"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.BackColor = System.Drawing.Color.Transparent
Me.Label10.Font = New System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.ForeColor = System.Drawing.Color.Lime
Me.Label10.Location = New System.Drawing.Point(11, 276)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(135, 18)
Me.Label10.TabIndex = 25
Me.Label10.Text = "con un error de"
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.BackColor = System.Drawing.Color.Transparent
Me.Label11.Font = New System.Drawing.Font("Georgia", 14.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label11.ForeColor = System.Drawing.Color.Lime
Me.Label11.Location = New System.Drawing.Point(663, 454)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(0, 23)
Me.Label11.TabIndex = 26
'
'TextBox5
'
Me.TextBox5.Location = New System.Drawing.Point(47, 251)
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.ReadOnly = True
Me.TextBox5.Size = New System.Drawing.Size(115, 20)
Me.TextBox5.TabIndex = 27
Me.TextBox5.TabStop = False
Me.TextBox5.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'TextBox6
'
Me.TextBox6.Location = New System.Drawing.Point(681, 251)
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.ReadOnly = True
Me.TextBox6.Size = New System.Drawing.Size(93, 20)
Me.TextBox6.TabIndex = 28
Me.TextBox6.TabStop = False
'
'TextBox7
'
Me.TextBox7.Location = New System.Drawing.Point(152, 274)
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.ReadOnly = True
Me.TextBox7.Size = New System.Drawing.Size(115, 20)
Me.TextBox7.TabIndex = 29
Me.TextBox7.TabStop = False
'
'TextBox9
'
Me.TextBox9.Location = New System.Drawing.Point(688, 427)
Me.TextBox9.Name = "TextBox9"
Me.TextBox9.ReadOnly = True
Me.TextBox9.Size = New System.Drawing.Size(86, 20)
Me.TextBox9.TabIndex = 34
Me.TextBox9.TabStop = False
'
'TextBox8
'
Me.TextBox8.Location = New System.Drawing.Point(47, 427)
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.ReadOnly = True
Me.TextBox8.Size = New System.Drawing.Size(115, 20)
Me.TextBox8.TabIndex = 33
Me.TextBox8.TabStop = False
Me.TextBox8.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.BackColor = System.Drawing.Color.Transparent
Me.Label12.Font = New System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label12.ForeColor = System.Drawing.Color.Lime
Me.Label12.Location = New System.Drawing.Point(11, 453)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(135, 18)
Me.Label12.TabIndex = 32
Me.Label12.Text = "con un error de"
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.BackColor = System.Drawing.Color.Transparent
Me.Label13.Font = New System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label13.ForeColor = System.Drawing.Color.Lime
Me.Label13.Location = New System.Drawing.Point(170, 429)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(509, 18)
Me.Label13.TabIndex = 31
Me.Label13.Text = "derivada de la función introducida es aproximadamente de"
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.BackColor = System.Drawing.Color.Transparent
Me.Label14.Font = New System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label14.ForeColor = System.Drawing.Color.Lime
Me.Label14.Location = New System.Drawing.Point(11, 429)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(30, 18)
Me.Label14.TabIndex = 30
Me.Label14.Text = "La"
'
'TextBox10
'
Me.TextBox10.Location = New System.Drawing.Point(152, 451)
Me.TextBox10.Name = "TextBox10"
Me.TextBox10.ReadOnly = True
Me.TextBox10.Size = New System.Drawing.Size(115, 20)
Me.TextBox10.TabIndex = 35
Me.TextBox10.TabStop = False
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.BackColor = System.Drawing.Color.Transparent
Me.Label15.Font = New System.Drawing.Font("Georgia", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label15.ForeColor = System.Drawing.Color.Yellow
Me.Label15.Location = New System.Drawing.Point(569, 519)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(216, 42)
Me.Label15.TabIndex = 37
Me.Label15.Text = "Jaime Montoya" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "webmaster[arroba]jaimemontoya.com" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "www.jaimemontoya.com"
'
'Label7
'
Me.Label7.BackColor = System.Drawing.Color.Transparent
Me.Label7.Font = New System.Drawing.Font("Georgia", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.ForeColor = System.Drawing.Color.Lime
Me.Label7.Location = New System.Drawing.Point(557, 92)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(112, 19)
Me.Label7.TabIndex = 36
Me.Label7.Text = "Tolerancia:"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'TextBox4
'
Me.TextBox4.Location = New System.Drawing.Point(664, 91)
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New System.Drawing.Size(60, 20)
Me.TextBox4.TabIndex = 6
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
Me.ClientSize = New System.Drawing.Size(784, 564)
Me.Controls.Add(Me.Label15)
Me.Controls.Add(Me.TextBox4)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.TextBox10)
Me.Controls.Add(Me.TextBox9)
Me.Controls.Add(Me.TextBox8)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.Label14)
Me.Controls.Add(Me.TextBox7)
Me.Controls.Add(Me.TextBox6)
Me.Controls.Add(Me.TextBox5)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.ComboBox1)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.ComboBox2)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.Label1)
Me.Name = "Form1"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Derivación por Diferencias Divididas y por Fórmulas de Alta Precisión"
Me.GroupBox1.ResumeLayout(False)
CType(Me.AxMSFlexGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox2.ResumeLayout(False)
CType(Me.AxMSFlexGrid2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
Friend WithEvents TextBox6 As System.Windows.Forms.TextBox
Friend WithEvents TextBox7 As System.Windows.Forms.TextBox
Friend WithEvents TextBox9 As System.Windows.Forms.TextBox
Friend WithEvents TextBox8 As System.Windows.Forms.TextBox
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents Label14 As System.Windows.Forms.Label
Friend WithEvents AxMSFlexGrid1 As AxMSFlexGridLib.AxMSFlexGrid
Friend WithEvents AxMSFlexGrid2 As AxMSFlexGridLib.AxMSFlexGrid
Friend WithEvents TextBox10 As System.Windows.Forms.TextBox
Friend WithEvents Label15 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
End Class
CÓDIGO DEL PROGRAMA
El código del único formulario del programa (llamado Form1.vb), se muestra a continuación:
Imports System.Text
Imports System.CodeDom.Compiler
Imports System.Collections.Specialized 'Sin esto no funcionaría ninguna instanciación o variable declarada "As New StringCollection()"
Public Class Form1
'NOTA: En vez de dimencionar 30 variables públicas para arreglos bidimensionales (tablas1, tablas2, tablas3,…tablas30), bastaría declarar una sola que tenga el número máximo de filas (primer y el número dentro del paréntesis) y el número máximo de columnas (segundo número dentro del paréntesis), pues después al dimensionar se puede programar que tengan menos filas o menos columnas que las que se han declarado, pero nunca más de las que se declararon. Sin embargo se hará la declaración de 30 variables públicas para arreglos bidimensionales para asignar exclusivamente una variable a cada caso y tener clara la idea del caso con el que se está trabajando.
Public tablas1(2, 3) As String '3 filas y 4 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso que se evalúe la primera derivada por Tablas de Diferencias Divididas Hacia Adelante).
Public tablas2(3, 4) As String '4 filas y 5 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso que se evalúe la segunda derivada por Tablas de Diferencias Divididas Hacia Adelante).
Public tablas3(4, 5) As String '5 filas y 6 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso que se evalúe la tercera derivada por Tablas de Diferencias Divididas Hacia Adelante).
Public tablas4(5, 6) As String '6 filas y 7 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso que se evalúe la cuarta derivada por Tablas de Diferencias Divididas Hacia Adelante).
Public tablas5(6, 7) As String '7 filas y 8 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso que se evalúe la quinta derivada por Tablas de Diferencias Divididas Hacia Adelante).
Public tablas6(2, 3) As String '3 filas y 4 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso que se evalúe la primera derivada por Tablas de Diferencias Divididas Hacia Atrás).
Public tablas7(3, 4) As String '4 filas y 5 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso que se evalúe la segunda derivada por Tablas de Diferencias Divididas Hacia Atrás).
Public tablas8(4, 5) As String '5 filas y 6 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso que se evalúe la tercera derivada por Tablas de Diferencias Divididas Hacia Atrás).
Public tablas9(5, 6) As String '6 filas y 7 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso que se evalúe la cuarta derivada por Tablas de Diferencias Divididas Hacia Atrás).
Public tablas10(6, 7) As String '7 filas y 8 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso que se evalúe la quinta derivada por Tablas de Diferencias Divididas Hacia Atrás).
Public tablas11(3, 3) As String '4 filas y 4 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso que se evalúe la primera derivada por Tablas de Diferencias Divididas Centradas).
Public tablas12(5, 4) As String '6 filas y 5 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso que se evalúe la segunda derivada por Tablas de Diferencias Divididas Centradas).
Public tablas13(7, 5) As String '8 filas y 6 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso que se evalúe la tercera derivada por Tablas de Diferencias Divididas Centradas).
Public tablas14(9, 6) As String '10 filas y 7 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso que se evalúe la cuarta derivada por Tablas de Diferencias Divididas Centradas).
Public tablas15(11, 7) As String '12 filas y 8 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso que se evalúe la quinta derivada por Tablas de Diferencias Divididas Centradas).
Public tablas16(50, 7) As String '51 filas y 8 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso que se evalúe la primera derivada por Fórmulas de Alta Precisión Hacia Adelante).
Public tablas17(1, 7) As String '2 filas y 8 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso que se evalúe la segunda derivada por Fórmulas de Alta Precisión Hacia Adelante).
Public tablas18(1, 9) As String '2 filas y 10 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso que se evalúe la tercera derivada por Fórmulas de Alta Precisión Hacia Adelante).
Public tablas19(1, 11) As String '2 filas y 12 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso que se evalúe la cuarta derivada por Fórmulas de Alta Precisión Hacia Adelante).
Public tablas20(1, 13) As String '2 filas y 14 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso que se evalúe la quinta derivada por Fórmulas de Alta Precisión Hacia Adelante).
Public tablas21(50, 7) As String '51 filas y 8 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso de que se evalúe la primera derivada por Fórmulas de Alta precisión Hacia Atrás).
Public tablas22(1, 7) As String '2 filas y 8 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso que se evalúe la segunda derivada por Fórmulas de Alta Precisión Hacia Atrás).
Public tablas23(1, 9) As String '2 filas y 10 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso que se evalúe la tercera derivada por Fórmulas de Alta Precisión Hacia Atrás).
Public tablas24(1, 11) As String '2 filas y 12 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso que se evalúe la cuarta derivada por Fórmulas de Alta Precisión Hacia Atrás).
Public tablas25(1, 13) As String '2 filas y 14 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso que se evalúe la quinta derivada por Fórmulas de Alta Precisión Hacia Atrás).
Public tablas26(1, 5) As String '2 filas y 6 columnas (pues se comienza de la posición cero). Para los resultados de las evaluaciones (en caso de que se evalúe la primera derivada por Fórmulas de Alta Precisión Centradas).
| Página siguiente |