Monografias.com > Uncategorized
Descargar Imprimir Comentar Ver trabajos relacionados

Derivación por diferencias divididas y por fórmulas de alta precisión en Visual Basic 2005 (página 2)




Enviado por jaimemontoya



Partes: 1, 2, 3, 4, 5, 6, 7, 8, 9

'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).

Partes: 1, 2, 3, 4, 5, 6, 7, 8, 9
 Página anterior Volver al principio del trabajoPágina siguiente 

Nota al lector: es posible que esta página no contenga todos los componentes del trabajo original (pies de página, avanzadas formulas matemáticas, esquemas o tablas complejas, etc.). Recuerde que para ver el trabajo en su versión original completa, puede descargarlo desde el menú superior.

Todos los documentos disponibles en este sitio expresan los puntos de vista de sus respectivos autores y no de Monografias.com. El objetivo de Monografias.com es poner el conocimiento a disposición de toda su comunidad. Queda bajo la responsabilidad de cada lector el eventual uso que se le de a esta información. Asimismo, es obligatoria la cita del autor del contenido y de Monografias.com como fuentes de información.

Categorias
Newsletter