Descargar

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

Enviado por jaimemontoya


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

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _

Partial Class Form1

    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(Form1))

        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.Button5 = New System.Windows.Forms.Button

        Me.Label1 = New System.Windows.Forms.Label

        Me.SuspendLayout()

        '

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

        Me.Button1.Location = New System.Drawing.Point(158, 158)

        Me.Button1.Name = "Button1"

        Me.Button1.Size = New System.Drawing.Size(163, 68)

        Me.Button1.TabIndex = 0

        Me.Button1.Text = "Sumas de Riemman"

        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.Crimson

        Me.Button2.Location = New System.Drawing.Point(487, 158)

        Me.Button2.Name = "Button2"

        Me.Button2.Size = New System.Drawing.Size(163, 68)

        Me.Button2.TabIndex = 1

        Me.Button2.Text = "Método del Punto Medio"

        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.Crimson

        Me.Button3.Location = New System.Drawing.Point(322, 284)

        Me.Button3.Name = "Button3"

        Me.Button3.Size = New System.Drawing.Size(163, 68)

        Me.Button3.TabIndex = 2

        Me.Button3.Text = "Método de los Trapecios"

        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.Crimson

        Me.Button4.Location = New System.Drawing.Point(158, 407)

        Me.Button4.Name = "Button4"

        Me.Button4.Size = New System.Drawing.Size(163, 68)

        Me.Button4.TabIndex = 3

        Me.Button4.Text = "Simpson 1/3"

        Me.Button4.UseVisualStyleBackColor = True

        '

        'Button5

        '

        Me.Button5.BackgroundImage = CType(resources.GetObject("Button5.BackgroundImage"), System.Drawing.Image)

        Me.Button5.Font = New System.Drawing.Font("Georgia", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

        Me.Button5.ForeColor = System.Drawing.Color.Crimson

        Me.Button5.Location = New System.Drawing.Point(487, 407)

        Me.Button5.Name = "Button5"

        Me.Button5.Size = New System.Drawing.Size(163, 68)

        Me.Button5.TabIndex = 4

        Me.Button5.Text = "Simpson 3/8"

        Me.Button5.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.White

        Me.Label1.Location = New System.Drawing.Point(6, 69)

        Me.Label1.Name = "Label1"

        Me.Label1.Size = New System.Drawing.Size(790, 37)

        Me.Label1.TabIndex = 5

        Me.Label1.Text = "Métodos de Integración Numérica"

        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter

        '

        'Form1

        '

        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font

        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)

        Me.ClientSize = New System.Drawing.Size(792, 596)

        Me.Controls.Add(Me.Label1)

        Me.Controls.Add(Me.Button5)

        Me.Controls.Add(Me.Button4)

        Me.Controls.Add(Me.Button3)

        Me.Controls.Add(Me.Button2)

        Me.Controls.Add(Me.Button1)

        Me.Name = "Form1"

        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

        Me.Text = "Métodos de Integración Numérica"

        Me.ResumeLayout(False)

 

    End Sub

    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 Button5 As System.Windows.Forms.Button

    Friend WithEvents Label1 As System.Windows.Forms.Label

 

End Class

 

puntomedio.Designer.vb

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _

Partial Class puntomedio

    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(puntomedio))

        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.Navy

        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 = 24

        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.Navy

        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 = 23

        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.Navy

        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 = 22

        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.Navy

        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 = 21

        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.White

        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 = 20

        Me.Label1.Text = "Método del Punto Medio"

        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 = 33

        '

        'TextBox5

        '

        Me.TextBox5.BackColor = System.Drawing.Color.AliceBlue

        Me.TextBox5.Enabled = False

        Me.TextBox5.Location = New System.Drawing.Point(605, 153)

        Me.TextBox5.Name = "TextBox5"

        Me.TextBox5.ReadOnly = True

        Me.TextBox5.Size = New System.Drawing.Size(88, 20)

        Me.TextBox5.TabIndex = 43

        '

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

        Me.Label6.Location = New System.Drawing.Point(290, 102)

        Me.Label6.Name = "Label6"

        Me.Label6.Size = New System.Drawing.Size(96, 23)

        Me.Label6.TabIndex = 42

        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, 153)

        Me.TextBox4.Name = "TextBox4"

        Me.TextBox4.Size = New System.Drawing.Size(88, 20)

        Me.TextBox4.TabIndex = 41

        '

        'TextBox3

        '

        Me.TextBox3.BackColor = System.Drawing.Color.AliceBlue

        Me.TextBox3.Location = New System.Drawing.Point(279, 153)

        Me.TextBox3.Name = "TextBox3"

        Me.TextBox3.Size = New System.Drawing.Size(88, 20)

        Me.TextBox3.TabIndex = 40

        '

        'TextBox2

        '

        Me.TextBox2.BackColor = System.Drawing.Color.AliceBlue

        Me.TextBox2.Location = New System.Drawing.Point(132, 153)

        Me.TextBox2.Name = "TextBox2"

        Me.TextBox2.Size = New System.Drawing.Size(88, 20)

        Me.TextBox2.TabIndex = 39

        '

        'TextBox1

        '

        Me.TextBox1.BackColor = System.Drawing.Color.AliceBlue

        Me.TextBox1.Location = New System.Drawing.Point(391, 105)

        Me.TextBox1.Name = "TextBox1"

        Me.TextBox1.Size = New System.Drawing.Size(88, 20)

        Me.TextBox1.TabIndex = 38

        '

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

        Me.Label5.Location = New System.Drawing.Point(533, 148)

        Me.Label5.Name = "Label5"

        Me.Label5.Size = New System.Drawing.Size(69, 23)

        Me.Label5.TabIndex = 37

        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.White

        Me.Label4.Location = New System.Drawing.Point(387, 148)

        Me.Label4.Name = "Label4"

        Me.Label4.Size = New System.Drawing.Size(38, 23)

        Me.Label4.TabIndex = 36

        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.White

        Me.Label3.Location = New System.Drawing.Point(241, 148)

        Me.Label3.Name = "Label3"

        Me.Label3.Size = New System.Drawing.Size(38, 23)

        Me.Label3.TabIndex = 35

        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.White

        Me.Label2.Location = New System.Drawing.Point(96, 148)

        Me.Label2.Name = "Label2"

        Me.Label2.Size = New System.Drawing.Size(37, 23)

        Me.Label2.TabIndex = 34

        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(616, 451)

        Me.TextBox6.Name = "TextBox6"

        Me.TextBox6.ReadOnly = True

        Me.TextBox6.Size = New System.Drawing.Size(88, 20)

        Me.TextBox6.TabIndex = 45

        '

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

        Me.Label7.Location = New System.Drawing.Point(75, 448)

        Me.Label7.Name = "Label7"

        Me.Label7.Size = New System.Drawing.Size(535, 23)

        Me.Label7.TabIndex = 44

        Me.Label7.Text = "La integral de la función introducida es aproximadamente de:"

        Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter

        '

        'puntomedio

        '

        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 = "puntomedio"

        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

        Me.Text = "Método del Punto Medio"

        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

 

simpsontresoctavos.Designer.vb

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _

Partial Class simpsontresoctavos

    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(simpsontresoctavos))

        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(588, 474)

        Me.Button4.Name = "Button4"

        Me.Button4.Size = New System.Drawing.Size(163, 68)

        Me.Button4.TabIndex = 63

        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(402, 474)

        Me.Button3.Name = "Button3"

        Me.Button3.Size = New System.Drawing.Size(163, 68)

        Me.Button3.TabIndex = 62

        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(216, 474)

        Me.Button2.Name = "Button2"

        Me.Button2.Size = New System.Drawing.Size(163, 68)

        Me.Button2.TabIndex = 61

        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(30, 474)

        Me.Button1.Name = "Button1"

        Me.Button1.Size = New System.Drawing.Size(163, 68)

        Me.Button1.TabIndex = 60

        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, 55)

        Me.Label1.Name = "Label1"

        Me.Label1.Size = New System.Drawing.Size(790, 37)

        Me.Label1.TabIndex = 59

        Me.Label1.Text = "Método de Simpson 3/8"

        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 = 72

        '

        'TextBox5

        '

        Me.TextBox5.BackColor = System.Drawing.Color.AliceBlue

        Me.TextBox5.Enabled = False

        Me.TextBox5.Location = New System.Drawing.Point(602, 168)

        Me.TextBox5.Name = "TextBox5"

        Me.TextBox5.ReadOnly = True

        Me.TextBox5.Size = New System.Drawing.Size(88, 20)

        Me.TextBox5.TabIndex = 82

        '

        '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(287, 117)

        Me.Label6.Name = "Label6"

        Me.Label6.Size = New System.Drawing.Size(96, 23)

        Me.Label6.TabIndex = 81

        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(424, 168)

        Me.TextBox4.Name = "TextBox4"

        Me.TextBox4.Size = New System.Drawing.Size(88, 20)

        Me.TextBox4.TabIndex = 80

        '

        'TextBox3

        '

        Me.TextBox3.BackColor = System.Drawing.Color.AliceBlue

        Me.TextBox3.Location = New System.Drawing.Point(276, 168)

        Me.TextBox3.Name = "TextBox3"

        Me.TextBox3.Size = New System.Drawing.Size(88, 20)

        Me.TextBox3.TabIndex = 79

        '

        'TextBox2

        '

        Me.TextBox2.BackColor = System.Drawing.Color.AliceBlue

        Me.TextBox2.Location = New System.Drawing.Point(129, 168)

        Me.TextBox2.Name = "TextBox2"

        Me.TextBox2.Size = New System.Drawing.Size(88, 20)

        Me.TextBox2.TabIndex = 78

        '

        'TextBox1

        '

        Me.TextBox1.BackColor = System.Drawing.Color.AliceBlue

        Me.TextBox1.Location = New System.Drawing.Point(388, 120)

        Me.TextBox1.Name = "TextBox1"

        Me.TextBox1.Size = New System.Drawing.Size(88, 20)

        Me.TextBox1.TabIndex = 77

        '

        '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(530, 163)

        Me.Label5.Name = "Label5"

        Me.Label5.Size = New System.Drawing.Size(69, 23)

        Me.Label5.TabIndex = 76

        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(384, 163)

        Me.Label4.Name = "Label4"

        Me.Label4.Size = New System.Drawing.Size(38, 23)

        Me.Label4.TabIndex = 75

        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(238, 163)

        Me.Label3.Name = "Label3"

        Me.Label3.Size = New System.Drawing.Size(38, 23)

        Me.Label3.TabIndex = 74

        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(93, 163)

        Me.Label2.Name = "Label2"

        Me.Label2.Size = New System.Drawing.Size(37, 23)

        Me.Label2.TabIndex = 73

        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, 442)

        Me.TextBox6.Name = "TextBox6"

        Me.TextBox6.ReadOnly = True

        Me.TextBox6.Size = New System.Drawing.Size(88, 20)

        Me.TextBox6.TabIndex = 84

        '

        '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, 439)

        Me.Label7.Name = "Label7"

        Me.Label7.Size = New System.Drawing.Size(535, 23)

        Me.Label7.TabIndex = 83

        Me.Label7.Text = "La integral de la función introducida es aproximadamente de:"

        Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter

        '

        'simpsontresoctavos

        '

        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 = "simpsontresoctavos"

        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

        Me.Text = "Método de Simpson 3/8"

        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

 

simpsonuntercio.Designer.vb

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _

Partial Class simpsonuntercio

    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(simpsonuntercio))

        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 = 50

        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 = 49

        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 = 48

        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 = 47

        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.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))

        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 = 46

        Me.Label1.Text = "Método de Simpson 1/3"

        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 = 59

        '

        'TextBox5

        '

        Me.TextBox5.BackColor = System.Drawing.Color.AliceBlue

        Me.TextBox5.Enabled = False

        Me.TextBox5.Location = New System.Drawing.Point(605, 160)

        Me.TextBox5.Name = "TextBox5"

        Me.TextBox5.ReadOnly = True

        Me.TextBox5.Size = New System.Drawing.Size(88, 20)

        Me.TextBox5.TabIndex = 69

        '

        '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.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))

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