Me.Label6.Location = New
System.Drawing.Point(290, 109)
Me.Label6.Name = "Label6"
Me.Label6.Size = New
System.Drawing.Size(96, 23)
Me.Label6.TabIndex = 68
Me.Label6.Text = "Función
="
Me.Label6.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'TextBox4
'
Me.TextBox4.BackColor = System.Drawing.Color.AliceBlue
Me.TextBox4.Location = New
System.Drawing.Point(427, 160)
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New
System.Drawing.Size(88, 20)
Me.TextBox4.TabIndex = 67
'
'TextBox3
'
Me.TextBox3.BackColor =
System.Drawing.Color.AliceBlue
Me.TextBox3.Location = New
System.Drawing.Point(279, 160)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New
System.Drawing.Size(88, 20)
Me.TextBox3.TabIndex = 66
'
'TextBox2
'
Me.TextBox2.BackColor =
System.Drawing.Color.AliceBlue
Me.TextBox2.Location = New
System.Drawing.Point(132, 160)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New
System.Drawing.Size(88, 20)
Me.TextBox2.TabIndex = 65
'
'TextBox1
'
Me.TextBox1.BackColor =
System.Drawing.Color.AliceBlue
Me.TextBox1.Location = New
System.Drawing.Point(391, 112)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New
System.Drawing.Size(88, 20)
Me.TextBox1.TabIndex = 64
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.BackColor =
System.Drawing.Color.Transparent
Me.Label5.Font = New
System.Drawing.Font("Georgia",
14.25!, System.Drawing.FontStyle.Regular,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor =
System.Drawing.Color.FromArgb(CType(CType(0,
Byte), Integer), CType(CType(0,
Byte), Integer), CType(CType(192,
Byte), Integer))
Me.Label5.Location = New
System.Drawing.Point(533, 155)
Me.Label5.Name = "Label5"
Me.Label5.Size = New
System.Drawing.Size(69, 23)
Me.Label5.TabIndex = 63
Me.Label5.Text = "delta
="
Me.Label5.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.BackColor =
System.Drawing.Color.Transparent
Me.Label4.Font = New
System.Drawing.Font("Georgia",
14.25!, System.Drawing.FontStyle.Regular,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.ForeColor =
System.Drawing.Color.FromArgb(CType(CType(0,
Byte), Integer), CType(CType(0,
Byte), Integer), CType(CType(192,
Byte), Integer))
Me.Label4.Location = New
System.Drawing.Point(387, 155)
Me.Label4.Name = "Label4"
Me.Label4.Size = New
System.Drawing.Size(38, 23)
Me.Label4.TabIndex = 62
Me.Label4.Text = "n
="
Me.Label4.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.BackColor =
System.Drawing.Color.Transparent
Me.Label3.Font = New
System.Drawing.Font("Georgia",
14.25!, System.Drawing.FontStyle.Regular,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.ForeColor =
System.Drawing.Color.FromArgb(CType(CType(0,
Byte), Integer), CType(CType(0,
Byte), Integer), CType(CType(192,
Byte), Integer))
Me.Label3.Location = New
System.Drawing.Point(241, 155)
Me.Label3.Name = "Label3"
Me.Label3.Size = New
System.Drawing.Size(38, 23)
Me.Label3.TabIndex = 61
Me.Label3.Text = "b
="
Me.Label3.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.BackColor =
System.Drawing.Color.Transparent
Me.Label2.Font = New
System.Drawing.Font("Georgia",
14.25!, System.Drawing.FontStyle.Regular,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.ForeColor =
System.Drawing.Color.FromArgb(CType(CType(0,
Byte), Integer), CType(CType(0,
Byte), Integer), CType(CType(192,
Byte), Integer))
Me.Label2.Location = New
System.Drawing.Point(96, 155)
Me.Label2.Name = "Label2"
Me.Label2.Size = New
System.Drawing.Size(37, 23)
Me.Label2.TabIndex = 60
Me.Label2.Text = "a
="
Me.Label2.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'TextBox6
'
Me.TextBox6.BackColor =
System.Drawing.Color.AliceBlue
Me.TextBox6.Enabled = False
Me.TextBox6.ForeColor =
System.Drawing.Color.Black
Me.TextBox6.Location = New
System.Drawing.Point(618, 449)
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.ReadOnly = True
Me.TextBox6.Size = New
System.Drawing.Size(88, 20)
Me.TextBox6.TabIndex = 71
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.BackColor =
System.Drawing.Color.Transparent
Me.Label7.Font = New
System.Drawing.Font("Georgia",
14.25!, System.Drawing.FontStyle.Regular,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.ForeColor =
System.Drawing.Color.FromArgb(CType(CType(0,
Byte), Integer), CType(CType(0,
Byte), Integer), CType(CType(192,
Byte), Integer))
Me.Label7.Location = New
System.Drawing.Point(77, 446)
Me.Label7.Name = "Label7"
Me.Label7.Size = New
System.Drawing.Size(535, 23)
Me.Label7.TabIndex = 70
Me.Label7.Text = "La integral de la
función introducida es aproximadamente
de:"
Me.Label7.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'simpsonuntercio
'
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(792, 596)
Me.Controls.Add(Me.TextBox6)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.TextBox5)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.TextBox4)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.AxMSFlexGrid1)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label1)
Me.Name = "simpsonuntercio"
Me.StartPosition =
System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Método de
Simpson 1/3"
CType(Me.AxMSFlexGrid1,
System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Button4 As
System.Windows.Forms.Button
Friend WithEvents Button3 As
System.Windows.Forms.Button
Friend WithEvents Button2 As
System.Windows.Forms.Button
Friend WithEvents Button1 As
System.Windows.Forms.Button
Friend WithEvents Label1 As
System.Windows.Forms.Label
Friend WithEvents AxMSFlexGrid1 As AxMSFlexGridLib.AxMSFlexGrid
Friend WithEvents TextBox5 As
System.Windows.Forms.TextBox
Friend WithEvents Label6 As
System.Windows.Forms.Label
Friend WithEvents TextBox4 As
System.Windows.Forms.TextBox
Friend WithEvents TextBox3 As
System.Windows.Forms.TextBox
Friend WithEvents TextBox2 As
System.Windows.Forms.TextBox
Friend WithEvents TextBox1 As
System.Windows.Forms.TextBox
Friend WithEvents Label5 As
System.Windows.Forms.Label
Friend WithEvents Label4 As
System.Windows.Forms.Label
Friend WithEvents Label3 As
System.Windows.Forms.Label
Friend WithEvents Label2 As
System.Windows.Forms.Label
Friend WithEvents TextBox6 As
System.Windows.Forms.TextBox
Friend WithEvents Label7 As
System.Windows.Forms.Label
End Class
sumasderiemman.Designer.vb
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
_
Partial Class sumasderiemman
Inherits
System.Windows.Forms.Form
'Form reemplaza a
Dispose para limpiar la lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub
Dispose(ByVal disposing As Boolean)
If disposing AndAlso components
IsNot Nothing
Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Requerido por el
Diseñador de Windows Forms
Private
components As
System.ComponentModel.IContainer
'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(sumasderiemman))
Me.Label1 = New
System.Windows.Forms.Label
Me.Button1 = New
System.Windows.Forms.Button
Me.Button2 = New
System.Windows.Forms.Button
Me.Button3 = New
System.Windows.Forms.Button
Me.Button4 = New
System.Windows.Forms.Button
Me.AxMSFlexGrid1 = New
AxMSFlexGridLib.AxMSFlexGrid
Me.Label2 = New
System.Windows.Forms.Label
Me.Label3 = New
System.Windows.Forms.Label
Me.Label4 = New
System.Windows.Forms.Label
Me.Label5 = New
System.Windows.Forms.Label
Me.TextBox1 = New
System.Windows.Forms.TextBox
Me.TextBox2 = New
System.Windows.Forms.TextBox
Me.TextBox3 = New
System.Windows.Forms.TextBox
Me.TextBox4 = New
System.Windows.Forms.TextBox
Me.Label6 = New
System.Windows.Forms.Label
Me.TextBox5 = New
System.Windows.Forms.TextBox
Me.Label7 = New
System.Windows.Forms.Label
Me.TextBox6 = New
System.Windows.Forms.TextBox
CType(Me.AxMSFlexGrid1,
System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.BackColor =
System.Drawing.Color.Transparent
Me.Label1.Font = New
System.Drawing.Font("Georgia",
20.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline),
System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point,
CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.Navy
Me.Label1.Location = New
System.Drawing.Point(3, 28)
Me.Label1.Name = "Label1"
Me.Label1.Size = New
System.Drawing.Size(790, 37)
Me.Label1.TabIndex = 6
Me.Label1.Text = "Integración por Sumas de
Riemman"
Me.Label1.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'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(33, 479)
Me.Button1.Name = "Button1"
Me.Button1.Size = New
System.Drawing.Size(163, 68)
Me.Button1.TabIndex = 7
Me.Button1.Text = "Menu
Principal"
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, 479)
Me.Button2.Name = "Button2"
Me.Button2.Size = New
System.Drawing.Size(163, 68)
Me.Button2.TabIndex = 8
Me.Button2.Text = "Calcular Integral
Numérica"
Me.Button2.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.BackgroundImage = CType(resources.GetObject("Button3.BackgroundImage"),
System.Drawing.Image)
Me.Button3.Font = New
System.Drawing.Font("Georgia",
12.0!, System.Drawing.FontStyle.Bold,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button3.ForeColor =
System.Drawing.Color.Blue
Me.Button3.Location = New
System.Drawing.Point(405, 479)
Me.Button3.Name = "Button3"
Me.Button3.Size = New
System.Drawing.Size(163, 68)
Me.Button3.TabIndex = 9
Me.Button3.Text = "Limpiar"
Me.Button3.UseVisualStyleBackColor = True
'
'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(591, 479)
Me.Button4.Name = "Button4"
Me.Button4.Size = New
System.Drawing.Size(163, 68)
Me.Button4.TabIndex = 10
Me.Button4.Text = "Salir"
Me.Button4.UseVisualStyleBackColor = True
'
'AxMSFlexGrid1
'
Me.AxMSFlexGrid1.Location = New
System.Drawing.Point(74, 215)
Me.AxMSFlexGrid1.Name = "AxMSFlexGrid1"
Me.AxMSFlexGrid1.OcxState = CType(resources.GetObject("AxMSFlexGrid1.OcxState"),
System.Windows.Forms.AxHost.State)
Me.AxMSFlexGrid1.Size = New
System.Drawing.Size(640, 216)
Me.AxMSFlexGrid1.TabIndex = 11
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.BackColor =
System.Drawing.Color.Transparent
Me.Label2.Font = New
System.Drawing.Font("Georgia",
14.25!, System.Drawing.FontStyle.Regular,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.ForeColor = System.Drawing.Color.Navy
Me.Label2.Location = New
System.Drawing.Point(99, 139)
Me.Label2.Name = "Label2"
Me.Label2.Size = New
System.Drawing.Size(37, 23)
Me.Label2.TabIndex = 12
Me.Label2.Text = "a
="
Me.Label2.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.BackColor =
System.Drawing.Color.Transparent
Me.Label3.Font = New
System.Drawing.Font("Georgia",
14.25!, System.Drawing.FontStyle.Regular,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.ForeColor = System.Drawing.Color.Navy
Me.Label3.Location = New
System.Drawing.Point(244, 139)
Me.Label3.Name = "Label3"
Me.Label3.Size = New
System.Drawing.Size(38, 23)
Me.Label3.TabIndex = 13
Me.Label3.Text = "b
="
Me.Label3.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.BackColor =
System.Drawing.Color.Transparent
Me.Label4.Font = New
System.Drawing.Font("Georgia",
14.25!, System.Drawing.FontStyle.Regular,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.ForeColor = System.Drawing.Color.Navy
Me.Label4.Location = New
System.Drawing.Point(390, 139)
Me.Label4.Name = "Label4"
Me.Label4.Size = New
System.Drawing.Size(38, 23)
Me.Label4.TabIndex = 14
Me.Label4.Text = "n
="
Me.Label4.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.BackColor =
System.Drawing.Color.Transparent
Me.Label5.Font = New
System.Drawing.Font("Georgia",
14.25!, System.Drawing.FontStyle.Regular,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.Color.Navy
Me.Label5.Location = New
System.Drawing.Point(536, 139)
Me.Label5.Name = "Label5"
Me.Label5.Size = New
System.Drawing.Size(69, 23)
Me.Label5.TabIndex = 15
Me.Label5.Text = "delta
="
Me.Label5.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'TextBox1
'
Me.TextBox1.BackColor =
System.Drawing.Color.AliceBlue
Me.TextBox1.Location = New
System.Drawing.Point(394, 94)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New
System.Drawing.Size(88, 20)
Me.TextBox1.TabIndex = 16
'
'TextBox2
'
Me.TextBox2.BackColor =
System.Drawing.Color.AliceBlue
Me.TextBox2.Location = New
System.Drawing.Point(135, 144)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New
System.Drawing.Size(88, 20)
Me.TextBox2.TabIndex = 17
'
'TextBox3
'
Me.TextBox3.BackColor =
System.Drawing.Color.AliceBlue
Me.TextBox3.Location = New
System.Drawing.Point(282, 144)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New
System.Drawing.Size(88, 20)
Me.TextBox3.TabIndex = 18
'
'TextBox4
'
Me.TextBox4.BackColor =
System.Drawing.Color.AliceBlue
Me.TextBox4.Location = New
System.Drawing.Point(430, 144)
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New
System.Drawing.Size(88, 20)
Me.TextBox4.TabIndex = 19
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.BackColor =
System.Drawing.Color.Transparent
Me.Label6.Font = New
System.Drawing.Font("Georgia",
14.25!, System.Drawing.FontStyle.Regular,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.ForeColor = System.Drawing.Color.Navy
Me.Label6.Location = New
System.Drawing.Point(293, 91)
Me.Label6.Name = "Label6"
Me.Label6.Size = New
System.Drawing.Size(96, 23)
Me.Label6.TabIndex = 20
Me.Label6.Text = "Función
="
Me.Label6.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'TextBox5
'
Me.TextBox5.BackColor =
System.Drawing.Color.AliceBlue
Me.TextBox5.Enabled = False
Me.TextBox5.ForeColor =
System.Drawing.Color.Black
Me.TextBox5.Location = New
System.Drawing.Point(608, 144)
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.ReadOnly = True
Me.TextBox5.Size = New
System.Drawing.Size(88, 20)
Me.TextBox5.TabIndex = 21
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.BackColor =
System.Drawing.Color.Transparent
Me.Label7.Font = New
System.Drawing.Font("Georgia",
14.25!, System.Drawing.FontStyle.Regular,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.ForeColor = System.Drawing.Color.Navy
Me.Label7.Location = New
System.Drawing.Point(77, 444)
Me.Label7.Name = "Label7"
Me.Label7.Size = New
System.Drawing.Size(535, 23)
Me.Label7.TabIndex = 22
Me.Label7.Text = "La integral de la
función introducida es aproximadamente
de:"
Me.Label7.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'TextBox6
'
Me.TextBox6.BackColor =
System.Drawing.Color.AliceBlue
Me.TextBox6.Enabled = False
Me.TextBox6.ForeColor =
System.Drawing.Color.Black
Me.TextBox6.Location = New
System.Drawing.Point(618, 447)
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.ReadOnly = True
Me.TextBox6.Size = New
System.Drawing.Size(88, 20)
Me.TextBox6.TabIndex = 23
'
'sumasderiemman
'
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(792, 596)
Me.Controls.Add(Me.TextBox6)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.TextBox5)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.TextBox4)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.AxMSFlexGrid1)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label1)
Me.Name = "sumasderiemman"
Me.StartPosition =
System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Integración
por Sumas de Riemman"
CType(Me.AxMSFlexGrid1,
System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As
System.Windows.Forms.Label
Friend WithEvents Button1 As
System.Windows.Forms.Button
Friend WithEvents Button2 As
System.Windows.Forms.Button
Friend WithEvents Button3 As
System.Windows.Forms.Button
Friend WithEvents Button4 As
System.Windows.Forms.Button
Friend WithEvents AxMSFlexGrid1 As AxMSFlexGridLib.AxMSFlexGrid
Friend WithEvents Label2 As
System.Windows.Forms.Label
Friend WithEvents Label3 As
System.Windows.Forms.Label
Friend WithEvents Label4 As
System.Windows.Forms.Label
Friend WithEvents Label5 As
System.Windows.Forms.Label
Friend WithEvents TextBox1 As
System.Windows.Forms.TextBox
Friend WithEvents TextBox2 As
System.Windows.Forms.TextBox
Friend WithEvents TextBox3 As
System.Windows.Forms.TextBox
Friend WithEvents TextBox4 As
System.Windows.Forms.TextBox
Friend WithEvents Label6 As
System.Windows.Forms.Label
Friend WithEvents TextBox5 As
System.Windows.Forms.TextBox
Friend WithEvents Label7 As
System.Windows.Forms.Label
Friend WithEvents TextBox6 As
System.Windows.Forms.TextBox
End Class
trapecio.Designer.vb
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
_
Partial Class trapecio
Inherits
System.Windows.Forms.Form
'Form reemplaza a
Dispose para limpiar la lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub
Dispose(ByVal disposing As Boolean)
If disposing AndAlso components
IsNot Nothing
Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Requerido por el
Diseñador de Windows Forms
Private
components As
System.ComponentModel.IContainer
'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(trapecio))
Me.Button4 = New
System.Windows.Forms.Button
Me.Button3 = New
System.Windows.Forms.Button
Me.Button2 = New
System.Windows.Forms.Button
Me.Button1 = New
System.Windows.Forms.Button
Me.Label1 = New
System.Windows.Forms.Label
Me.AxMSFlexGrid1 = New
AxMSFlexGridLib.AxMSFlexGrid
Me.TextBox5 = New
System.Windows.Forms.TextBox
Me.Label6 = New
System.Windows.Forms.Label
Me.TextBox4 = New
System.Windows.Forms.TextBox
Me.TextBox3 = New
System.Windows.Forms.TextBox
Me.TextBox2 = New
System.Windows.Forms.TextBox
Me.TextBox1 = New
System.Windows.Forms.TextBox
Me.Label5 = New
System.Windows.Forms.Label
Me.Label4 = New
System.Windows.Forms.Label
Me.Label3 = New
System.Windows.Forms.Label
Me.Label2 = New
System.Windows.Forms.Label
Me.TextBox6 = New
System.Windows.Forms.TextBox
Me.Label7 = New
System.Windows.Forms.Label
CType(Me.AxMSFlexGrid1,
System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'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(589, 490)
Me.Button4.Name = "Button4"
Me.Button4.Size = New
System.Drawing.Size(163, 68)
Me.Button4.TabIndex = 37
Me.Button4.Text = "Salir"
Me.Button4.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.BackgroundImage = CType(resources.GetObject("Button3.BackgroundImage"),
System.Drawing.Image)
Me.Button3.Font = New
System.Drawing.Font("Georgia",
12.0!, System.Drawing.FontStyle.Bold,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button3.ForeColor =
System.Drawing.Color.Blue
Me.Button3.Location = New
System.Drawing.Point(403, 490)
Me.Button3.Name = "Button3"
Me.Button3.Size = New
System.Drawing.Size(163, 68)
Me.Button3.TabIndex = 36
Me.Button3.Text = "Limpiar"
Me.Button3.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(217, 490)
Me.Button2.Name = "Button2"
Me.Button2.Size = New
System.Drawing.Size(163, 68)
Me.Button2.TabIndex = 35
Me.Button2.Text = "Calcular Integral
Numérica"
Me.Button2.UseVisualStyleBackColor = True
'
'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(31, 490)
Me.Button1.Name = "Button1"
Me.Button1.Size = New
System.Drawing.Size(163, 68)
Me.Button1.TabIndex = 34
Me.Button1.Text = "Menu
Principal"
Me.Button1.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.BackColor =
System.Drawing.Color.Transparent
Me.Label1.Font = New
System.Drawing.Font("Georgia",
20.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline),
System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point,
CType(0, Byte))
Me.Label1.ForeColor =
System.Drawing.Color.Yellow
Me.Label1.Location = New
System.Drawing.Point(1, 39)
Me.Label1.Name = "Label1"
Me.Label1.Size = New
System.Drawing.Size(790, 37)
Me.Label1.TabIndex = 33
Me.Label1.Text = "Método de
los Trapecios"
Me.Label1.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'AxMSFlexGrid1
'
Me.AxMSFlexGrid1.Location = New
System.Drawing.Point(74, 215)
Me.AxMSFlexGrid1.Name = "AxMSFlexGrid1"
Me.AxMSFlexGrid1.OcxState = CType(resources.GetObject("AxMSFlexGrid1.OcxState"),
System.Windows.Forms.AxHost.State)
Me.AxMSFlexGrid1.Size = New
System.Drawing.Size(640, 216)
Me.AxMSFlexGrid1.TabIndex = 46
'
'TextBox5
'
Me.TextBox5.BackColor =
System.Drawing.Color.AliceBlue
Me.TextBox5.Enabled = False
Me.TextBox5.Location = New
System.Drawing.Point(604, 159)
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.ReadOnly = True
Me.TextBox5.Size = New
System.Drawing.Size(88, 20)
Me.TextBox5.TabIndex = 56
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.BackColor =
System.Drawing.Color.Transparent
Me.Label6.Font = New
System.Drawing.Font("Georgia",
14.25!, System.Drawing.FontStyle.Regular,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.ForeColor =
System.Drawing.Color.Yellow
Me.Label6.Location = New
System.Drawing.Point(289, 108)
Me.Label6.Name = "Label6"
Me.Label6.Size = New
System.Drawing.Size(96, 23)
Me.Label6.TabIndex = 55
Me.Label6.Text = "Función
="
Me.Label6.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'TextBox4
'
Me.TextBox4.BackColor =
System.Drawing.Color.AliceBlue
Me.TextBox4.Location = New
System.Drawing.Point(426, 159)
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New
System.Drawing.Size(88, 20)
Me.TextBox4.TabIndex = 54
'
'TextBox3
'
Me.TextBox3.BackColor =
System.Drawing.Color.AliceBlue
Me.TextBox3.Location = New
System.Drawing.Point(278, 159)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New
System.Drawing.Size(88, 20)
Me.TextBox3.TabIndex = 53
'
'TextBox2
'
Me.TextBox2.BackColor =
System.Drawing.Color.AliceBlue
Me.TextBox2.Location = New
System.Drawing.Point(131, 159)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New
System.Drawing.Size(88, 20)
Me.TextBox2.TabIndex = 52
'
'TextBox1
'
Me.TextBox1.BackColor =
System.Drawing.Color.AliceBlue
Me.TextBox1.Location = New
System.Drawing.Point(390, 111)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New
System.Drawing.Size(88, 20)
Me.TextBox1.TabIndex = 51
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.BackColor =
System.Drawing.Color.Transparent
Me.Label5.Font = New
System.Drawing.Font("Georgia",
14.25!, System.Drawing.FontStyle.Regular,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor =
System.Drawing.Color.Yellow
Me.Label5.Location = New
System.Drawing.Point(532, 154)
Me.Label5.Name = "Label5"
Me.Label5.Size = New
System.Drawing.Size(69, 23)
Me.Label5.TabIndex = 50
Me.Label5.Text = "delta
="
Me.Label5.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.BackColor =
System.Drawing.Color.Transparent
Me.Label4.Font = New
System.Drawing.Font("Georgia",
14.25!, System.Drawing.FontStyle.Regular,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.ForeColor =
System.Drawing.Color.Yellow
Me.Label4.Location = New
System.Drawing.Point(386, 154)
Me.Label4.Name = "Label4"
Me.Label4.Size = New
System.Drawing.Size(38, 23)
Me.Label4.TabIndex = 49
Me.Label4.Text = "n
="
Me.Label4.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.BackColor =
System.Drawing.Color.Transparent
Me.Label3.Font = New
System.Drawing.Font("Georgia",
14.25!, System.Drawing.FontStyle.Regular,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.ForeColor =
System.Drawing.Color.Yellow
Me.Label3.Location = New
System.Drawing.Point(240, 154)
Me.Label3.Name = "Label3"
Me.Label3.Size = New
System.Drawing.Size(38, 23)
Me.Label3.TabIndex = 48
Me.Label3.Text = "b
="
Me.Label3.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.BackColor =
System.Drawing.Color.Transparent
Me.Label2.Font = New
System.Drawing.Font("Georgia",
14.25!, System.Drawing.FontStyle.Regular,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.ForeColor =
System.Drawing.Color.Yellow
Me.Label2.Location = New
System.Drawing.Point(95, 154)
Me.Label2.Name = "Label2"
Me.Label2.Size = New
System.Drawing.Size(37, 23)
Me.Label2.TabIndex = 47
Me.Label2.Text = "a
="
Me.Label2.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'TextBox6
'
Me.TextBox6.BackColor =
System.Drawing.Color.AliceBlue
Me.TextBox6.Enabled = False
Me.TextBox6.ForeColor =
System.Drawing.Color.Black
Me.TextBox6.Location = New
System.Drawing.Point(617, 448)
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.ReadOnly = True
Me.TextBox6.Size = New
System.Drawing.Size(88, 20)
Me.TextBox6.TabIndex = 58
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.BackColor =
System.Drawing.Color.Transparent
Me.Label7.Font = New
System.Drawing.Font("Georgia",
14.25!, System.Drawing.FontStyle.Regular,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.ForeColor =
System.Drawing.Color.Yellow
Me.Label7.Location = New
System.Drawing.Point(76, 445)
Me.Label7.Name = "Label7"
Me.Label7.Size = New
System.Drawing.Size(535, 23)
Me.Label7.TabIndex = 57
Me.Label7.Text = "La integral de la
función introducida es aproximadamente
de:"
Me.Label7.TextAlign =
System.Drawing.ContentAlignment.MiddleCenter
'
'trapecio
'
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(792, 596)
Me.Controls.Add(Me.TextBox6)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.TextBox5)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.TextBox4)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.AxMSFlexGrid1)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label1)
Me.Name = "trapecio"
Me.StartPosition =
System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Método de
los Trapecios"
CType(Me.AxMSFlexGrid1,
System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Button4 As
System.Windows.Forms.Button
Friend WithEvents Button3 As
System.Windows.Forms.Button
Friend WithEvents Button2 As
System.Windows.Forms.Button
Friend WithEvents Button1 As
System.Windows.Forms.Button
Friend WithEvents Label1 As
System.Windows.Forms.Label
Friend WithEvents AxMSFlexGrid1 As AxMSFlexGridLib.AxMSFlexGrid
Friend WithEvents TextBox5 As
System.Windows.Forms.TextBox
Friend WithEvents Label6 As
System.Windows.Forms.Label
Friend WithEvents TextBox4 As
System.Windows.Forms.TextBox
Friend WithEvents TextBox3 As
System.Windows.Forms.TextBox
Friend WithEvents TextBox2 As
System.Windows.Forms.TextBox
Friend WithEvents TextBox1 As
System.Windows.Forms.TextBox
Friend WithEvents Label5 As
System.Windows.Forms.Label
Friend WithEvents Label4 As
System.Windows.Forms.Label
Friend WithEvents Label3 As
System.Windows.Forms.Label
Friend WithEvents Label2 As
System.Windows.Forms.Label
Friend WithEvents TextBox6 As
System.Windows.Forms.TextBox
Friend WithEvents Label7 As
System.Windows.Forms.Label
End Class
CÓDIGO DEL
PROGRAMA
El código del programa se
muestra a
continuación:
Form1.vb
Public Class Form1
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
Button1.Click
Me.Hide()
sumasderiemman.Show()
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
Button2.Click
Me.Hide()
puntomedio.Show()
End Sub
Private Sub Button3_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
Button3.Click
Me.Hide()
trapecio.Show()
End Sub
Private Sub Button4_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
Button4.Click
Me.Hide()
simpsonuntercio.Show()
End Sub
Private Sub Button5_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
Button5.Click
Me.Hide()
simpsontresoctavos.Show()
End Sub
End Class
puntomedio.vb
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 puntomedio
Public celda(24, 5)
As String
'Se declara un máximo de 25 filas y 6
columnas (pues se comienza a contar desde la posición
0).
Private
Sub Button3_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'Se limpian los valores de
los TextBox.
TextBox1.Text =
""
TextBox2.Text =
""
TextBox3.Text =
""
TextBox4.Text =
""
TextBox5.Text =
""
AxMSFlexGrid1.Clear() 'Limpiar todas las
celdas del FlexGrid para que no queden impresos resultados de
procesos
anteriores.
AxMSFlexGrid1.Rows
= 2 'Establece 2 filas.
AxMSFlexGrid1.Cols
= 2 'Establece 2 columnas.
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
Button1.Click
Me.Hide()
Form1.Show()
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
Button2.Click
If (TextBox3.Text <= TextBox2.Text) Or (TextBox4.Text < 0) Then 'Si "b" es menor o igual
que "a" o si "n" es menor que cero entonces se mandará el
mensaje de error correspondiente. De lo contrario se
ejecutará el programa.
MsgBox("'b' debe ser mayor que 'a' y 'n'
debe ser mayor que cero.", , "Integración por Sumas de Riemman")
Else
Dim i, j As
Integer '"i"
significará "fila" y "j" significará columna, de
modo que se trabajará con
(i,j)=(fila,columna)
'Establece cuántas filas y columnas
tendrá el Grid.
AxMSFlexGrid1.Rows = 25 'Establece 25
filas.
AxMSFlexGrid1.Cols = 6 'Establece 6
columnas.
'Se crea una nueva instancia de la clase
Evaluador.
Dim mEval As
New Evaluador()
'Se crea una
variable tipo string y se le asigna la expresión que se
quiere evaluar.
Dim mExpresion As String = TextBox1.Text
' = "X".
'Se crea un objeto StringCollection y se le
agregan los parámetros de entrada que usará el
método eval.
Dim mParameters As New
StringCollection()
mParameters.Add("ByVal X as
Double")
'Las funciones a
utilizar pertenece al espacio de nombres System.Math.
'se hace necesario entonces, crear un objeto
StringCollection y agregar
'el namespace System.Math.
Dim mNameSpaces As
New StringCollection()
mNameSpaces.Add("System.Math")
'Se invoca el método
PrecompilarFunción y se verifica si se generó
correctamente el assembly.
If
mEval.PrecompilarAssembly(mExpresion, mParameters, mNameSpaces)
Then
'Si el assembly se generó
correctamente, se crea un array con los valores de los
parametros a evaluar.
'Se invoca el método Evaluar y se
asignan los resultados correspondientes.
'Se limpian todas las celdas para que no
queden impresos resultados de procesos anteriores.
AxMSFlexGrid1.Clear()
'Se comienzan a hacer los
cálculos.
'Valores para la primera iteración.
TextBox5.Text = (Val(TextBox3.Text) – Val(TextBox2.Text)) /
Val(TextBox4.Text) 'Almacena "delta x", que
es "(b-a)/n".
celda(1, 0) = 1 'Almacena el número
"1" refiriéndose valor del
intervalo.
 Página anterior | Volver al principio del trabajo | Página siguiente  |