Monografias.com > Uncategorized
Descargar Imprimir Comentar Ver trabajos relacionados

Métodos de integración numérica en Visual Basic 2005 (página 3)




Enviado por jaimemontoya



Partes: 1, 2, 3, 4, 5, 6

        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.

Partes: 1, 2, 3, 4, 5, 6
 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