Descargar

Graficadora de funciones matemáticas en Visual Basic 2005 (página 3)

Enviado por jaimemontoya


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

Me.Controls.Add(Me.exponentialfunction)

Me.Controls.Add(Me.functionfunction)

Me.Controls.Add(Me.Label6)

Me.Controls.Add(Me.graficar)

Me.Name = "formulariodeinicio"

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

Me.Text = "Graficador de Funciones Matemáticas"

CType(Me.bienvenido, System.ComponentModel.ISupportInitialize).EndInit()

CType(Me.sinfunction, System.ComponentModel.ISupportInitialize).EndInit()

CType(Me.cosfunction, System.ComponentModel.ISupportInitialize).EndInit()

CType(Me.parabolefunction, System.ComponentModel.ISupportInitialize).EndInit()

CType(Me.tanfunction, System.ComponentModel.ISupportInitialize).EndInit()

CType(Me.exponentialfunction, System.ComponentModel.ISupportInitialize).EndInit()

CType(Me.functionfunction, System.ComponentModel.ISupportInitialize).EndInit()

Me.ResumeLayout(False)

Me.PerformLayout()

End Sub

Friend WithEvents Timer3 As System.Windows.Forms.Timer

Friend WithEvents Timer2 As System.Windows.Forms.Timer

Friend WithEvents Timer1 As System.Windows.Forms.Timer

Friend WithEvents Timer4 As System.Windows.Forms.Timer

Friend WithEvents bienvenido As System.Windows.Forms.PictureBox

Friend WithEvents Timer6 As System.Windows.Forms.Timer

Friend WithEvents Timer5 As System.Windows.Forms.Timer

Friend WithEvents sinfunction As System.Windows.Forms.PictureBox

Friend WithEvents cosfunction As System.Windows.Forms.PictureBox

Friend WithEvents parabolefunction As System.Windows.Forms.PictureBox

Friend WithEvents tanfunction As System.Windows.Forms.PictureBox

Friend WithEvents exponentialfunction As System.Windows.Forms.PictureBox

Friend WithEvents functionfunction As System.Windows.Forms.PictureBox

Friend WithEvents Label6 As System.Windows.Forms.Label

Friend WithEvents graficar As System.Windows.Forms.Button

End Class

formulariodesalida.Designer.vb

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

Partial Class formulariodesalida

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)

Try

If disposing AndAlso components IsNot Nothing Then

components.Dispose()

End If

Finally

MyBase.Dispose(disposing)

End Try

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

Me.components = New System.ComponentModel.Container

Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(formulariodesalida))

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

Me.Timer2 = New System.Windows.Forms.Timer(Me.components)

Me.Timer1 = New System.Windows.Forms.Timer(Me.components)

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

Me.SuspendLayout()

'

'labelcerrando

'

Me.labelcerrando.AutoSize = True

Me.labelcerrando.BackColor = System.Drawing.Color.Transparent

Me.labelcerrando.Font = New System.Drawing.Font("Georgia", 36.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Me.labelcerrando.ForeColor = System.Drawing.Color.White

Me.labelcerrando.Location = New System.Drawing.Point(250, 270)

Me.labelcerrando.Name = "labelcerrando"

Me.labelcerrando.Size = New System.Drawing.Size(313, 56)

Me.labelcerrando.TabIndex = 45

Me.labelcerrando.Text = "Cerrando…"

Me.labelcerrando.Visible = False

'

'Timer2

'

Me.Timer2.Enabled = True

Me.Timer2.Interval = 4000

'

'Timer1

'

Me.Timer1.Enabled = True

Me.Timer1.Interval = 2000

'

'labelsaliendodelprograma

'

Me.labelsaliendodelprograma.AutoSize = True

Me.labelsaliendodelprograma.BackColor = System.Drawing.Color.Transparent

Me.labelsaliendodelprograma.Font = New System.Drawing.Font("Georgia", 36.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Me.labelsaliendodelprograma.ForeColor = System.Drawing.Color.White

Me.labelsaliendodelprograma.Location = New System.Drawing.Point(70, 270)

Me.labelsaliendodelprograma.Name = "labelsaliendodelprograma"

Me.labelsaliendodelprograma.Size = New System.Drawing.Size(653, 56)

Me.labelsaliendodelprograma.TabIndex = 44

Me.labelsaliendodelprograma.Text = "Saliendo del Programa…"

'

'formulariodesalida

'

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(793, 596)

Me.Controls.Add(Me.labelcerrando)

Me.Controls.Add(Me.labelsaliendodelprograma)

Me.Name = "formulariodesalida"

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

Me.Text = "Graficador de Funciones Matemáticas"

Me.ResumeLayout(False)

Me.PerformLayout()

End Sub

Friend WithEvents labelcerrando As System.Windows.Forms.Label

Friend WithEvents Timer2 As System.Windows.Forms.Timer

Friend WithEvents Timer1 As System.Windows.Forms.Timer

Friend WithEvents labelsaliendodelprograma As System.Windows.Forms.Label

End Class

formulariometododelafalsaposicion.Designer.vb

 

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

Partial Class formulariometododelafalsaposicion

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)

Try

If disposing AndAlso components IsNot Nothing Then

components.Dispose()

End If

Finally

MyBase.Dispose(disposing)

End Try

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

Me.TextBox2 = New System.Windows.Forms.TextBox

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

Me.TextBox1 = New System.Windows.Forms.TextBox

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

Me.regresar = New System.Windows.Forms.Button

Me.encontrarraizconmetodofalsaposicion = New System.Windows.Forms.Button

Me.textboxtolerancia = New System.Windows.Forms.TextBox

Me.textboxb = New System.Windows.Forms.TextBox

Me.textboxa = New System.Windows.Forms.TextBox

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

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

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

Me.textboxfuncion = New System.Windows.Forms.TextBox

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

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

Me.AxMSFlexGrid1 = New AxMSFlexGridLib.AxMSFlexGrid

CType(Me.AxMSFlexGrid1, System.ComponentModel.ISupportInitialize).BeginInit()

Me.SuspendLayout()

'

'TextBox2

'

Me.TextBox2.Location = New System.Drawing.Point(637, 560)

Me.TextBox2.Name = "TextBox2"

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

Me.TextBox2.TabIndex = 74

'

'Label3

'

Me.Label3.AutoSize = True

Me.Label3.BackColor = System.Drawing.Color.Transparent

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

Me.Label3.ForeColor = System.Drawing.Color.White

Me.Label3.Location = New System.Drawing.Point(513, 561)

Me.Label3.Name = "Label3"

Me.Label3.Size = New System.Drawing.Size(119, 16)

Me.Label3.TabIndex = 73

Me.Label3.Text = "con un error de"

'

'TextBox1

'

Me.TextBox1.Location = New System.Drawing.Point(437, 561)

Me.TextBox1.Name = "TextBox1"

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

Me.TextBox1.TabIndex = 72

'

'Label2

'

Me.Label2.AutoSize = True

Me.Label2.BackColor = System.Drawing.Color.Transparent

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

Me.Label2.ForeColor = System.Drawing.Color.White

Me.Label2.Location = New System.Drawing.Point(31, 564)

Me.Label2.Name = "Label2"

Me.Label2.Size = New System.Drawing.Size(396, 16)

Me.Label2.TabIndex = 71

Me.Label2.Text = "La raíz de la función introducida es aproximadamente"

'

'regresar

'

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

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

Me.regresar.Location = New System.Drawing.Point(392, 143)

Me.regresar.Name = "regresar"

Me.regresar.Size = New System.Drawing.Size(147, 45)

Me.regresar.TabIndex = 70

Me.regresar.Text = "Regresar"

Me.regresar.UseVisualStyleBackColor = True

'

'encontrarraizconmetodofalsaposicion

'

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

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

Me.encontrarraizconmetodofalsaposicion.Location = New System.Drawing.Point(223, 143)

Me.encontrarraizconmetodofalsaposicion.Name = "encontrarraizconmetodofalsaposicion"

Me.encontrarraizconmetodofalsaposicion.Size = New System.Drawing.Size(147, 45)

Me.encontrarraizconmetodofalsaposicion.TabIndex = 69

Me.encontrarraizconmetodofalsaposicion.Text = "Encontrar Raíz"

Me.encontrarraizconmetodofalsaposicion.UseVisualStyleBackColor = True

'

'textboxtolerancia

'

Me.textboxtolerancia.Location = New System.Drawing.Point(532, 104)

Me.textboxtolerancia.Name = "textboxtolerancia"

Me.textboxtolerancia.Size = New System.Drawing.Size(57, 20)

Me.textboxtolerancia.TabIndex = 68

'

'textboxb

'

Me.textboxb.Location = New System.Drawing.Point(325, 103)

Me.textboxb.Name = "textboxb"

Me.textboxb.Size = New System.Drawing.Size(57, 20)

Me.textboxb.TabIndex = 67

'

'textboxa

'

Me.textboxa.Location = New System.Drawing.Point(184, 103)

Me.textboxa.Name = "textboxa"

Me.textboxa.Size = New System.Drawing.Size(57, 20)

Me.textboxa.TabIndex = 66

'

'labeltolerancia

'

Me.labeltolerancia.AutoSize = True

Me.labeltolerancia.BackColor = System.Drawing.Color.Transparent

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

Me.labeltolerancia.ForeColor = System.Drawing.Color.White

Me.labeltolerancia.Location = New System.Drawing.Point(442, 104)

Me.labeltolerancia.Name = "labeltolerancia"

Me.labeltolerancia.Size = New System.Drawing.Size(92, 16)

Me.labeltolerancia.TabIndex = 65

Me.labeltolerancia.Text = "Tolerancia:"

'

'labelb

'

Me.labelb.AutoSize = True

Me.labelb.BackColor = System.Drawing.Color.Transparent

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

Me.labelb.ForeColor = System.Drawing.Color.White

Me.labelb.Location = New System.Drawing.Point(300, 108)

Me.labelb.Name = "labelb"

Me.labelb.Size = New System.Drawing.Size(22, 16)

Me.labelb.TabIndex = 64

Me.labelb.Text = "b:"

'

'Labela

'

Me.Labela.AutoSize = True

Me.Labela.BackColor = System.Drawing.Color.Transparent

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

Me.Labela.ForeColor = System.Drawing.Color.White

Me.Labela.Location = New System.Drawing.Point(162, 104)

Me.Labela.Name = "Labela"

Me.Labela.Size = New System.Drawing.Size(21, 16)

Me.Labela.TabIndex = 63

Me.Labela.Text = "a:"

'

'textboxfuncion

'

Me.textboxfuncion.Location = New System.Drawing.Point(310, 72)

Me.textboxfuncion.Name = "textboxfuncion"

Me.textboxfuncion.Size = New System.Drawing.Size(229, 20)

Me.textboxfuncion.TabIndex = 62

'

'Label1

'

Me.Label1.AutoSize = True

Me.Label1.BackColor = System.Drawing.Color.Transparent

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

Me.Label1.ForeColor = System.Drawing.Color.White

Me.Label1.Location = New System.Drawing.Point(220, 72)

Me.Label1.Name = "Label1"

Me.Label1.Size = New System.Drawing.Size(74, 16)

Me.Label1.TabIndex = 61

Me.Label1.Text = "Función:"

'

'Label6

'

Me.Label6.AutoSize = True

Me.Label6.BackColor = System.Drawing.Color.Transparent

Me.Label6.Font = New System.Drawing.Font("Georgia", 20.25!, CType(((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic) _

Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Me.Label6.ForeColor = System.Drawing.Color.White

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

Me.Label6.Name = "Label6"

Me.Label6.Size = New System.Drawing.Size(735, 31)

Me.Label6.TabIndex = 60

Me.Label6.Text = "Método de la Falsa Posición Para Encontrar Raíces"

'

'AxMSFlexGrid1

'

Me.AxMSFlexGrid1.Location = New System.Drawing.Point(52, 214)

Me.AxMSFlexGrid1.Name = "AxMSFlexGrid1"

Me.AxMSFlexGrid1.OcxState = CType(resources.GetObject("AxMSFlexGrid1.OcxState"), System.Windows.Forms.AxHost.State)

Me.AxMSFlexGrid1.Size = New System.Drawing.Size(666, 342)

Me.AxMSFlexGrid1.TabIndex = 75

'

'formulariometododelafalsaposicion

'

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(767, 596)

Me.Controls.Add(Me.AxMSFlexGrid1)

Me.Controls.Add(Me.TextBox2)

Me.Controls.Add(Me.Label3)

Me.Controls.Add(Me.TextBox1)

Me.Controls.Add(Me.Label2)

Me.Controls.Add(Me.regresar)

Me.Controls.Add(Me.encontrarraizconmetodofalsaposicion)

Me.Controls.Add(Me.textboxtolerancia)

Me.Controls.Add(Me.textboxb)

Me.Controls.Add(Me.textboxa)

Me.Controls.Add(Me.labeltolerancia)

Me.Controls.Add(Me.labelb)

Me.Controls.Add(Me.Labela)

Me.Controls.Add(Me.textboxfuncion)

Me.Controls.Add(Me.Label1)

Me.Controls.Add(Me.Label6)

Me.Name = "formulariometododelafalsaposicion"

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

Me.Text = "Método de la Falsa Posición Para Encontrar Raíces"

CType(Me.AxMSFlexGrid1, System.ComponentModel.ISupportInitialize).EndInit()

Me.ResumeLayout(False)

Me.PerformLayout()

End Sub

Friend WithEvents TextBox2 As System.Windows.Forms.TextBox

Friend WithEvents Label3 As System.Windows.Forms.Label

Friend WithEvents TextBox1 As System.Windows.Forms.TextBox

Friend WithEvents Label2 As System.Windows.Forms.Label

Friend WithEvents regresar As System.Windows.Forms.Button

Friend WithEvents encontrarraizconmetodofalsaposicion As System.Windows.Forms.Button

Friend WithEvents textboxtolerancia As System.Windows.Forms.TextBox

Friend WithEvents textboxb As System.Windows.Forms.TextBox

Friend WithEvents textboxa As System.Windows.Forms.TextBox

Friend WithEvents labeltolerancia As System.Windows.Forms.Label

Friend WithEvents labelb As System.Windows.Forms.Label

Friend WithEvents Labela As System.Windows.Forms.Label

Friend WithEvents textboxfuncion As System.Windows.Forms.TextBox

Friend WithEvents Label1 As System.Windows.Forms.Label

Friend WithEvents Label6 As System.Windows.Forms.Label

Friend WithEvents AxMSFlexGrid1 As AxMSFlexGridLib.AxMSFlexGrid

End Class

formulariometodonewtonraphson.Designer.vb

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

Partial Class formulariometodonewtonraphson

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)

Try

If disposing AndAlso components IsNot Nothing Then

components.Dispose()

End If

Finally

MyBase.Dispose(disposing)

End Try

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

Me.TextBox2 = New System.Windows.Forms.TextBox

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

Me.TextBox1 = New System.Windows.Forms.TextBox

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

Me.regresar = New System.Windows.Forms.Button

Me.encontrarraizconmetodonewtonraphson = New System.Windows.Forms.Button

Me.textboxtolerancia = New System.Windows.Forms.TextBox

Me.textboxx0 = New System.Windows.Forms.TextBox

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

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

Me.textboxfuncion = New System.Windows.Forms.TextBox

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

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

Me.AxMSFlexGrid1 = New AxMSFlexGridLib.AxMSFlexGrid

CType(Me.AxMSFlexGrid1, System.ComponentModel.ISupportInitialize).BeginInit()

Me.SuspendLayout()

'

'TextBox2

'

Me.TextBox2.Location = New System.Drawing.Point(646, 558)

Me.TextBox2.Name = "TextBox2"

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

Me.TextBox2.TabIndex = 83

'

'Label3

'

Me.Label3.AutoSize = True

Me.Label3.BackColor = System.Drawing.Color.Transparent

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

Me.Label3.ForeColor = System.Drawing.Color.White

Me.Label3.Location = New System.Drawing.Point(521, 560)

Me.Label3.Name = "Label3"

Me.Label3.Size = New System.Drawing.Size(119, 16)

Me.Label3.TabIndex = 82

Me.Label3.Text = "con un error de"

'

'TextBox1

'

Me.TextBox1.Location = New System.Drawing.Point(441, 559)

Me.TextBox1.Name = "TextBox1"

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

Me.TextBox1.TabIndex = 81

'

'Label2

'

Me.Label2.AutoSize = True

Me.Label2.BackColor = System.Drawing.Color.Transparent

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

Me.Label2.ForeColor = System.Drawing.Color.White

Me.Label2.Location = New System.Drawing.Point(39, 559)

Me.Label2.Name = "Label2"

Me.Label2.Size = New System.Drawing.Size(396, 16)

Me.Label2.TabIndex = 80

Me.Label2.Text = "La raíz de la función introducida es aproximadamente"

'

'regresar

'

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

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

Me.regresar.Location = New System.Drawing.Point(396, 143)

Me.regresar.Name = "regresar"

Me.regresar.Size = New System.Drawing.Size(147, 45)

Me.regresar.TabIndex = 79

Me.regresar.Text = "Regresar"

Me.regresar.UseVisualStyleBackColor = True

'

'encontrarraizconmetodonewtonraphson

'

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

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

Me.encontrarraizconmetodonewtonraphson.Location = New System.Drawing.Point(227, 143)

Me.encontrarraizconmetodonewtonraphson.Name = "encontrarraizconmetodonewtonraphson"

Me.encontrarraizconmetodonewtonraphson.Size = New System.Drawing.Size(147, 45)

Me.encontrarraizconmetodonewtonraphson.TabIndex = 78

Me.encontrarraizconmetodonewtonraphson.Text = "Encontrar Raíz"

Me.encontrarraizconmetodonewtonraphson.UseVisualStyleBackColor = True

'

'textboxtolerancia

'

Me.textboxtolerancia.Location = New System.Drawing.Point(475, 113)

Me.textboxtolerancia.Name = "textboxtolerancia"

Me.textboxtolerancia.Size = New System.Drawing.Size(57, 20)

Me.textboxtolerancia.TabIndex = 77

'

'textboxx0

'

Me.textboxx0.Location = New System.Drawing.Point(277, 109)

Me.textboxx0.Name = "textboxx0"

Me.textboxx0.Size = New System.Drawing.Size(57, 20)

Me.textboxx0.TabIndex = 76

'

'labeltolerancia

'

Me.labeltolerancia.AutoSize = True

Me.labeltolerancia.BackColor = System.Drawing.Color.Transparent

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

Me.labeltolerancia.ForeColor = System.Drawing.Color.White

Me.labeltolerancia.Location = New System.Drawing.Point(385, 113)

Me.labeltolerancia.Name = "labeltolerancia"

Me.labeltolerancia.Size = New System.Drawing.Size(92, 16)

Me.labeltolerancia.TabIndex = 75

Me.labeltolerancia.Text = "Tolerancia:"

'

'Labela

'

Me.Labela.AutoSize = True

Me.Labela.BackColor = System.Drawing.Color.Transparent

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

Me.Labela.ForeColor = System.Drawing.Color.White

Me.Labela.Location = New System.Drawing.Point(239, 110)

Me.Labela.Name = "Labela"

Me.Labela.Size = New System.Drawing.Size(32, 16)

Me.Labela.TabIndex = 74

Me.Labela.Text = "Xo:"

'

'textboxfuncion

'

Me.textboxfuncion.Location = New System.Drawing.Point(314, 72)

Me.textboxfuncion.Name = "textboxfuncion"

Me.textboxfuncion.Size = New System.Drawing.Size(229, 20)

Me.textboxfuncion.TabIndex = 73

'

'Label1

'

Me.Label1.AutoSize = True

Me.Label1.BackColor = System.Drawing.Color.Transparent

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

Me.Label1.ForeColor = System.Drawing.Color.White

Me.Label1.Location = New System.Drawing.Point(224, 72)

Me.Label1.Name = "Label1"

Me.Label1.Size = New System.Drawing.Size(74, 16)

Me.Label1.TabIndex = 72

Me.Label1.Text = "Función:"

'

'Label6

'

Me.Label6.AutoSize = True

Me.Label6.BackColor = System.Drawing.Color.Transparent

Me.Label6.Font = New System.Drawing.Font("Georgia", 20.25!, CType(((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic) _

Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Me.Label6.ForeColor = System.Drawing.Color.White

Me.Label6.Location = New System.Drawing.Point(13, 17)

Me.Label6.Name = "Label6"

Me.Label6.Size = New System.Drawing.Size(740, 31)

Me.Label6.TabIndex = 71

Me.Label6.Text = "Método de Newton-Raphson Para Encontrar Raíces"

'

'AxMSFlexGrid1

'

Me.AxMSFlexGrid1.Location = New System.Drawing.Point(127, 207)

Me.AxMSFlexGrid1.Name = "AxMSFlexGrid1"

Me.AxMSFlexGrid1.OcxState = CType(resources.GetObject("AxMSFlexGrid1.OcxState"), System.Windows.Forms.AxHost.State)

Me.AxMSFlexGrid1.Size = New System.Drawing.Size(537, 342)

Me.AxMSFlexGrid1.TabIndex = 84

'

'formulariometodonewtonraphson

'

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(767, 596)

Me.Controls.Add(Me.AxMSFlexGrid1)

Me.Controls.Add(Me.TextBox2)

Me.Controls.Add(Me.Label3)

Me.Controls.Add(Me.TextBox1)

Me.Controls.Add(Me.Label2)

Me.Controls.Add(Me.regresar)

Me.Controls.Add(Me.encontrarraizconmetodonewtonraphson)

Me.Controls.Add(Me.textboxtolerancia)

Me.Controls.Add(Me.textboxx0)

Me.Controls.Add(Me.labeltolerancia)

Me.Controls.Add(Me.Labela)

Me.Controls.Add(Me.textboxfuncion)

Me.Controls.Add(Me.Label1)

Me.Controls.Add(Me.Label6)

Me.Name = "formulariometodonewtonraphson"

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

Me.Text = "Método de Newton-Raphson Para Encontrar Raíces"

CType(Me.AxMSFlexGrid1, System.ComponentModel.ISupportInitialize).EndInit()

Me.ResumeLayout(False)

Me.PerformLayout()

End Sub

Friend WithEvents TextBox2 As System.Windows.Forms.TextBox

Friend WithEvents Label3 As System.Windows.Forms.Label

Friend WithEvents TextBox1 As System.Windows.Forms.TextBox

Friend WithEvents Label2 As System.Windows.Forms.Label

Friend WithEvents regresar As System.Windows.Forms.Button

Friend WithEvents encontrarraizconmetodonewtonraphson As System.Windows.Forms.Button

Friend WithEvents textboxtolerancia As System.Windows.Forms.TextBox

Friend WithEvents textboxx0 As System.Windows.Forms.TextBox

Friend WithEvents labeltolerancia As System.Windows.Forms.Label

Friend WithEvents Labela As System.Windows.Forms.Label

Friend WithEvents textboxfuncion As System.Windows.Forms.TextBox

Friend WithEvents Label1 As System.Windows.Forms.Label

Friend WithEvents Label6 As System.Windows.Forms.Label

Friend WithEvents AxMSFlexGrid1 As AxMSFlexGridLib.AxMSFlexGrid

End Class

formularioparagraficar.Designer.vb

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

Partial Class formularioparagraficar

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)

Try

If disposing AndAlso components IsNot Nothing Then

components.Dispose()

End If

Finally

MyBase.Dispose(disposing)

End Try

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

Me.EscalamínimaEnYToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem

Me.EscalaMáximaEnXToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem

Me.EscalaMáximaEnYToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem

Me.AumentarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem

Me.ZoomToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem

Me.DisminuirToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem

Me.EscalaMínimaEnXToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem

Me.SalirToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem

Me.InsertarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem

Me.SalirToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem

Me.EditarFunciónToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem

Me.EdiciónToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem

Me.AcercaDeGraficadosDeFuncionesMatemáticasToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem

Me.UsoDelProgramaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem

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