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 siguiente |