Me.Button1 = New System.Windows.Forms.Button
Me.raicesconmetododelafalsaposicion = New System.Windows.Forms.Button
Me.ayuda = New System.Windows.Forms.Button
Me.AyudaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.HaciaArribaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.HaciaAbajoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.HaciaLaDerechaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.HaciaLaIzquierdaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.limpiar = New System.Windows.Forms.Button
Me.Label6 = New System.Windows.Forms.Label
Me.abajo = New System.Windows.Forms.Button
Me.derecha = New System.Windows.Forms.Button
Me.izquierda = New System.Windows.Forms.Button
Me.arriba = New System.Windows.Forms.Button
Me.aumentarzoom = New System.Windows.Forms.Button
Me.disminuirzoom = New System.Windows.Forms.Button
Me.textboxymaximo = New System.Windows.Forms.TextBox
Me.Label5 = New System.Windows.Forms.Label
Me.textboxyminimo = New System.Windows.Forms.TextBox
Me.textboxxmaximo = New System.Windows.Forms.TextBox
Me.salir = New System.Windows.Forms.Button
Me.ArchivoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
Me.textboxxminimo = New System.Windows.Forms.TextBox
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Label4 = New System.Windows.Forms.Label
Me.Label3 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.graficar = New System.Windows.Forms.Button
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'EscalamínimaEnYToolStripMenuItem
'
Me.EscalamínimaEnYToolStripMenuItem.Name = "EscalamínimaEnYToolStripMenuItem"
Me.EscalamínimaEnYToolStripMenuItem.Size = New System.Drawing.Size(243, 22)
Me.EscalamínimaEnYToolStripMenuItem.Text = "Escala &mínima en eje y Ctrl+M"
'
'EscalaMáximaEnXToolStripMenuItem
'
Me.EscalaMáximaEnXToolStripMenuItem.Name = "EscalaMáximaEnXToolStripMenuItem"
Me.EscalaMáximaEnXToolStripMenuItem.Size = New System.Drawing.Size(243, 22)
Me.EscalaMáximaEnXToolStripMenuItem.Text = "Esca&la máxima en eje x Ctrl+L"
'
'EscalaMáximaEnYToolStripMenuItem
'
Me.EscalaMáximaEnYToolStripMenuItem.Name = "EscalaMáximaEnYToolStripMenuItem"
Me.EscalaMáximaEnYToolStripMenuItem.Size = New System.Drawing.Size(243, 22)
Me.EscalaMáximaEnYToolStripMenuItem.Text = "Escala má&xima en eje y Ctrl+X"
'
'AumentarToolStripMenuItem
'
Me.AumentarToolStripMenuItem.Name = "AumentarToolStripMenuItem"
Me.AumentarToolStripMenuItem.Size = New System.Drawing.Size(172, 22)
Me.AumentarToolStripMenuItem.Text = "A&umentar Ctrl+U"
'
'ZoomToolStripMenuItem
'
Me.ZoomToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AumentarToolStripMenuItem, Me.DisminuirToolStripMenuItem})
Me.ZoomToolStripMenuItem.Name = "ZoomToolStripMenuItem"
Me.ZoomToolStripMenuItem.Size = New System.Drawing.Size(51, 20)
Me.ZoomToolStripMenuItem.Text = "&Zoom"
'
'DisminuirToolStripMenuItem
'
Me.DisminuirToolStripMenuItem.Name = "DisminuirToolStripMenuItem"
Me.DisminuirToolStripMenuItem.Size = New System.Drawing.Size(172, 22)
Me.DisminuirToolStripMenuItem.Text = "&Disminuir Ctrl+D"
'
'EscalaMínimaEnXToolStripMenuItem
'
Me.EscalaMínimaEnXToolStripMenuItem.Name = "EscalaMínimaEnXToolStripMenuItem"
Me.EscalaMínimaEnXToolStripMenuItem.Size = New System.Drawing.Size(243, 22)
Me.EscalaMínimaEnXToolStripMenuItem.Text = "Es&cala mínima en eje x Ctrl+C"
'
'SalirToolStripMenuItem
'
Me.SalirToolStripMenuItem.Name = "SalirToolStripMenuItem"
Me.SalirToolStripMenuItem.Size = New System.Drawing.Size(201, 22)
Me.SalirToolStripMenuItem.Text = "Gra&ficar función Ctrl+F"
'
'InsertarToolStripMenuItem
'
Me.InsertarToolStripMenuItem.Name = "InsertarToolStripMenuItem"
Me.InsertarToolStripMenuItem.Size = New System.Drawing.Size(201, 22)
Me.InsertarToolStripMenuItem.Text = "&Insertar función Ctrl+I"
'
'SalirToolStripMenuItem1
'
Me.SalirToolStripMenuItem1.Name = "SalirToolStripMenuItem1"
Me.SalirToolStripMenuItem1.Size = New System.Drawing.Size(201, 22)
Me.SalirToolStripMenuItem1.Text = "&Salir Ctrl+S"
'
'EditarFunciónToolStripMenuItem
'
Me.EditarFunciónToolStripMenuItem.Name = "EditarFunciónToolStripMenuItem"
Me.EditarFunciónToolStripMenuItem.Size = New System.Drawing.Size(243, 22)
Me.EditarFunciónToolStripMenuItem.Text = "E&ditar función Ctrl+D"
'
'EdiciónToolStripMenuItem
'
Me.EdiciónToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EditarFunciónToolStripMenuItem, Me.EscalaMínimaEnXToolStripMenuItem, Me.EscalaMáximaEnXToolStripMenuItem, Me.EscalamínimaEnYToolStripMenuItem, Me.EscalaMáximaEnYToolStripMenuItem})
Me.EdiciónToolStripMenuItem.Name = "EdiciónToolStripMenuItem"
Me.EdiciónToolStripMenuItem.Size = New System.Drawing.Size(58, 20)
Me.EdiciónToolStripMenuItem.Text = "&Edición"
'
'AcercaDeGraficadosDeFuncionesMatemáticasToolStripMenuItem
'
Me.AcercaDeGraficadosDeFuncionesMatemáticasToolStripMenuItem.Name = "AcercaDeGraficadosDeFuncionesMatemáticasToolStripMenuItem"
Me.AcercaDeGraficadosDeFuncionesMatemáticasToolStripMenuItem.Size = New System.Drawing.Size(384, 22)
Me.AcercaDeGraficadosDeFuncionesMatemáticasToolStripMenuItem.Text = "Acerca de &Graficador de Funciones Matemáticas… Ctrl+G"
'
'UsoDelProgramaToolStripMenuItem
'
Me.UsoDelProgramaToolStripMenuItem.Name = "UsoDelProgramaToolStripMenuItem"
Me.UsoDelProgramaToolStripMenuItem.Size = New System.Drawing.Size(384, 22)
Me.UsoDelProgramaToolStripMenuItem.Text = "U&so del programa Ctrl+S"
'
'Button1
'
Me.Button1.BackgroundImage = CType(resources.GetObject("Button1.BackgroundImage"), System.Drawing.Image)
Me.Button1.Font = New System.Drawing.Font("Georgia", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.Location = New System.Drawing.Point(625, 459)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(142, 45)
Me.Button1.TabIndex = 71
Me.Button1.Text = "Método de Newton-Raphson"
Me.Button1.UseVisualStyleBackColor = True
'
'raicesconmetododelafalsaposicion
'
Me.raicesconmetododelafalsaposicion.BackgroundImage = CType(resources.GetObject("raicesconmetododelafalsaposicion.BackgroundImage"), System.Drawing.Image)
Me.raicesconmetododelafalsaposicion.Font = New System.Drawing.Font("Georgia", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.raicesconmetododelafalsaposicion.Location = New System.Drawing.Point(461, 459)
Me.raicesconmetododelafalsaposicion.Name = "raicesconmetododelafalsaposicion"
Me.raicesconmetododelafalsaposicion.Size = New System.Drawing.Size(142, 45)
Me.raicesconmetododelafalsaposicion.TabIndex = 70
Me.raicesconmetododelafalsaposicion.Text = "Método de la Falsa Posición"
Me.raicesconmetododelafalsaposicion.UseVisualStyleBackColor = True
'
'ayuda
'
Me.ayuda.BackgroundImage = CType(resources.GetObject("ayuda.BackgroundImage"), System.Drawing.Image)
Me.ayuda.Font = New System.Drawing.Font("Georgia", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ayuda.Location = New System.Drawing.Point(448, 545)
Me.ayuda.Name = "ayuda"
Me.ayuda.Size = New System.Drawing.Size(110, 45)
Me.ayuda.TabIndex = 69
Me.ayuda.Text = "Ayuda"
Me.ayuda.UseVisualStyleBackColor = True
'
'AyudaToolStripMenuItem
'
Me.AyudaToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UsoDelProgramaToolStripMenuItem, Me.AcercaDeGraficadosDeFuncionesMatemáticasToolStripMenuItem})
Me.AyudaToolStripMenuItem.Name = "AyudaToolStripMenuItem"
Me.AyudaToolStripMenuItem.Size = New System.Drawing.Size(53, 20)
Me.AyudaToolStripMenuItem.Text = "A&yuda"
'
'HaciaArribaToolStripMenuItem
'
Me.HaciaArribaToolStripMenuItem.Name = "HaciaArribaToolStripMenuItem"
Me.HaciaArribaToolStripMenuItem.Size = New System.Drawing.Size(213, 22)
Me.HaciaArribaToolStripMenuItem.Text = "&Hacia arriba Ctrl+H"
'
'DToolStripMenuItem
'
Me.DToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.HaciaArribaToolStripMenuItem, Me.HaciaAbajoToolStripMenuItem, Me.HaciaLaDerechaToolStripMenuItem, Me.HaciaLaIzquierdaToolStripMenuItem})
Me.DToolStripMenuItem.Name = "DToolStripMenuItem"
Me.DToolStripMenuItem.Size = New System.Drawing.Size(80, 20)
Me.DToolStripMenuItem.Text = "De&splazarse"
'
'HaciaAbajoToolStripMenuItem
'
Me.HaciaAbajoToolStripMenuItem.Name = "HaciaAbajoToolStripMenuItem"
Me.HaciaAbajoToolStripMenuItem.Size = New System.Drawing.Size(213, 22)
Me.HaciaAbajoToolStripMenuItem.Text = "Hac&ia abajo Ctrl+I"
'
'HaciaLaDerechaToolStripMenuItem
'
Me.HaciaLaDerechaToolStripMenuItem.Name = "HaciaLaDerechaToolStripMenuItem"
Me.HaciaLaDerechaToolStripMenuItem.Size = New System.Drawing.Size(213, 22)
Me.HaciaLaDerechaToolStripMenuItem.Text = "Hacia la de&recha Ctrl+R"
'
'HaciaLaIzquierdaToolStripMenuItem
'
Me.HaciaLaIzquierdaToolStripMenuItem.Name = "HaciaLaIzquierdaToolStripMenuItem"
Me.HaciaLaIzquierdaToolStripMenuItem.Size = New System.Drawing.Size(213, 22)
Me.HaciaLaIzquierdaToolStripMenuItem.Text = "Hacia la i&zquierda Ctrl+Z"
'
'limpiar
'
Me.limpiar.BackgroundImage = CType(resources.GetObject("limpiar.BackgroundImage"), System.Drawing.Image)
Me.limpiar.Font = New System.Drawing.Font("Georgia", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.limpiar.Location = New System.Drawing.Point(262, 545)
Me.limpiar.Name = "limpiar"
Me.limpiar.Size = New System.Drawing.Size(110, 45)
Me.limpiar.TabIndex = 66
Me.limpiar.Text = "Limpiar"
Me.limpiar.UseVisualStyleBackColor = True
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.BackColor = System.Drawing.Color.Transparent
Me.Label6.Font = New System.Drawing.Font("Georgia", 24.0!, 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(73, 66)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(653, 38)
Me.Label6.TabIndex = 65
Me.Label6.Text = "Graficador de Funciones Matemáticas"
'
'abajo
'
Me.abajo.BackgroundImage = CType(resources.GetObject("abajo.BackgroundImage"), System.Drawing.Image)
Me.abajo.Font = New System.Drawing.Font("Arial", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.abajo.Location = New System.Drawing.Point(594, 403)
Me.abajo.Name = "abajo"
Me.abajo.Size = New System.Drawing.Size(40, 40)
Me.abajo.TabIndex = 64
Me.abajo.Text = "v"
Me.abajo.UseVisualStyleBackColor = True
'
'derecha
'
Me.derecha.BackgroundImage = CType(resources.GetObject("derecha.BackgroundImage"), System.Drawing.Image)
Me.derecha.Font = New System.Drawing.Font("Georgia", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.derecha.Location = New System.Drawing.Point(631, 357)
Me.derecha.Name = "derecha"
Me.derecha.Size = New System.Drawing.Size(40, 40)
Me.derecha.TabIndex = 63
Me.derecha.Text = ">"
Me.derecha.UseVisualStyleBackColor = True
'
'izquierda
'
Me.izquierda.BackgroundImage = CType(resources.GetObject("izquierda.BackgroundImage"), System.Drawing.Image)
Me.izquierda.Font = New System.Drawing.Font("Georgia", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.izquierda.Location = New System.Drawing.Point(553, 357)
Me.izquierda.Name = "izquierda"
Me.izquierda.Size = New System.Drawing.Size(40, 40)
Me.izquierda.TabIndex = 62
Me.izquierda.Text = "<"
Me.izquierda.UseVisualStyleBackColor = True
'
'arriba
'
Me.arriba.BackgroundImage = CType(resources.GetObject("arriba.BackgroundImage"), System.Drawing.Image)
Me.arriba.Font = New System.Drawing.Font("Georgia", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.arriba.Location = New System.Drawing.Point(594, 311)
Me.arriba.Name = "arriba"
Me.arriba.Size = New System.Drawing.Size(40, 40)
Me.arriba.TabIndex = 61
Me.arriba.Text = "^"
Me.arriba.UseVisualStyleBackColor = True
'
'aumentarzoom
'
Me.aumentarzoom.BackgroundImage = CType(resources.GetObject("aumentarzoom.BackgroundImage"), System.Drawing.Image)
Me.aumentarzoom.Font = New System.Drawing.Font("Georgia", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.aumentarzoom.Location = New System.Drawing.Point(631, 251)
Me.aumentarzoom.Name = "aumentarzoom"
Me.aumentarzoom.Size = New System.Drawing.Size(111, 45)
Me.aumentarzoom.TabIndex = 60
Me.aumentarzoom.Text = "Aumentar Zoom"
Me.aumentarzoom.UseVisualStyleBackColor = True
'
'disminuirzoom
'
Me.disminuirzoom.BackgroundImage = CType(resources.GetObject("disminuirzoom.BackgroundImage"), System.Drawing.Image)
Me.disminuirzoom.Font = New System.Drawing.Font("Georgia", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.disminuirzoom.ForeColor = System.Drawing.Color.Black
Me.disminuirzoom.Location = New System.Drawing.Point(482, 251)
Me.disminuirzoom.Name = "disminuirzoom"
Me.disminuirzoom.Size = New System.Drawing.Size(111, 45)
Me.disminuirzoom.TabIndex = 59
Me.disminuirzoom.Text = "Disminuir Zoom"
Me.disminuirzoom.UseVisualStyleBackColor = True
'
'textboxymaximo
'
Me.textboxymaximo.Location = New System.Drawing.Point(707, 215)
Me.textboxymaximo.Name = "textboxymaximo"
Me.textboxymaximo.Size = New System.Drawing.Size(57, 20)
Me.textboxymaximo.TabIndex = 58
Me.textboxymaximo.Text = "5"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.BackColor = System.Drawing.Color.Transparent
Me.Label5.Font = New System.Drawing.Font("Georgia", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.Color.White
Me.Label5.Location = New System.Drawing.Point(615, 215)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(86, 16)
Me.Label5.TabIndex = 57
Me.Label5.Text = "y máximo:"
'
'textboxyminimo
'
Me.textboxyminimo.Location = New System.Drawing.Point(535, 211)
Me.textboxyminimo.Name = "textboxyminimo"
Me.textboxyminimo.Size = New System.Drawing.Size(57, 20)
Me.textboxyminimo.TabIndex = 56
Me.textboxyminimo.Text = "-5"
'
'textboxxmaximo
'
Me.textboxxmaximo.Location = New System.Drawing.Point(707, 170)
Me.textboxxmaximo.Name = "textboxxmaximo"
Me.textboxxmaximo.Size = New System.Drawing.Size(57, 20)
Me.textboxxmaximo.TabIndex = 55
Me.textboxxmaximo.Text = "5"
'
'salir
'
Me.salir.BackgroundImage = CType(resources.GetObject("salir.BackgroundImage"), System.Drawing.Image)
Me.salir.Font = New System.Drawing.Font("Georgia", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.salir.Location = New System.Drawing.Point(604, 545)
Me.salir.Name = "salir"
Me.salir.Size = New System.Drawing.Size(110, 45)
Me.salir.TabIndex = 67
Me.salir.Text = "Salir"
Me.salir.UseVisualStyleBackColor = True
'
'ArchivoToolStripMenuItem
'
Me.ArchivoToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.InsertarToolStripMenuItem, Me.SalirToolStripMenuItem, Me.SalirToolStripMenuItem1})
Me.ArchivoToolStripMenuItem.Name = "ArchivoToolStripMenuItem"
Me.ArchivoToolStripMenuItem.Size = New System.Drawing.Size(60, 20)
Me.ArchivoToolStripMenuItem.Text = "&Archivo"
'
'textboxxminimo
'
Me.textboxxminimo.Location = New System.Drawing.Point(535, 171)
Me.textboxxminimo.Name = "textboxxminimo"
Me.textboxxminimo.Size = New System.Drawing.Size(57, 20)
Me.textboxxminimo.TabIndex = 54
Me.textboxxminimo.Text = "-5"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(535, 133)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(229, 20)
Me.TextBox1.TabIndex = 53
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.BackColor = System.Drawing.Color.Transparent
Me.Label4.Font = New System.Drawing.Font("Georgia", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.ForeColor = System.Drawing.Color.White
Me.Label4.Location = New System.Drawing.Point(445, 211)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(84, 16)
Me.Label4.TabIndex = 52
Me.Label4.Text = "y mínimo:"
'
'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(615, 175)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(86, 16)
Me.Label3.TabIndex = 51
Me.Label3.Text = "x máximo:"
'
'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(445, 171)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(84, 16)
Me.Label2.TabIndex = 50
Me.Label2.Text = "x mínimo:"
'
'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(445, 133)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(74, 16)
Me.Label1.TabIndex = 49
Me.Label1.Text = "Función:"
'
'graficar
'
Me.graficar.BackgroundImage = CType(resources.GetObject("graficar.BackgroundImage"), System.Drawing.Image)
Me.graficar.Font = New System.Drawing.Font("Georgia", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.graficar.Location = New System.Drawing.Point(91, 545)
Me.graficar.Name = "graficar"
Me.graficar.Size = New System.Drawing.Size(110, 45)
Me.graficar.TabIndex = 48
Me.graficar.Text = "Graficar"
Me.graficar.UseVisualStyleBackColor = True
'
'PictureBox1
'
Me.PictureBox1.BackColor = System.Drawing.Color.Black
Me.PictureBox1.Location = New System.Drawing.Point(29, 127)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(400, 400)
Me.PictureBox1.TabIndex = 47
Me.PictureBox1.TabStop = False
'
'MenuStrip1
'
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ArchivoToolStripMenuItem, Me.EdiciónToolStripMenuItem, Me.ZoomToolStripMenuItem, Me.DToolStripMenuItem, Me.AyudaToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(793, 24)
Me.MenuStrip1.TabIndex = 68
Me.MenuStrip1.Text = "MenuStrip1"
'
'formularioparagraficar
'
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.Button1)
Me.Controls.Add(Me.raicesconmetododelafalsaposicion)
Me.Controls.Add(Me.ayuda)
Me.Controls.Add(Me.limpiar)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.abajo)
Me.Controls.Add(Me.derecha)
Me.Controls.Add(Me.izquierda)
Me.Controls.Add(Me.arriba)
Me.Controls.Add(Me.aumentarzoom)
Me.Controls.Add(Me.disminuirzoom)
Me.Controls.Add(Me.textboxymaximo)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.textboxyminimo)
Me.Controls.Add(Me.textboxxmaximo)
Me.Controls.Add(Me.salir)
Me.Controls.Add(Me.textboxxminimo)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.graficar)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.MenuStrip1)
Me.Name = "formularioparagraficar"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Graficador de Funciones Matemáticas"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents EscalamínimaEnYToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents EscalaMáximaEnXToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents EscalaMáximaEnYToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents AumentarToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ZoomToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents DisminuirToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents EscalaMínimaEnXToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents SalirToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents InsertarToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents SalirToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents EditarFunciónToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents EdiciónToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents AcercaDeGraficadosDeFuncionesMatemáticasToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents UsoDelProgramaToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents raicesconmetododelafalsaposicion As System.Windows.Forms.Button
Friend WithEvents ayuda As System.Windows.Forms.Button
Friend WithEvents AyudaToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents HaciaArribaToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents DToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents HaciaAbajoToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents HaciaLaDerechaToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents HaciaLaIzquierdaToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents limpiar As System.Windows.Forms.Button
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents abajo As System.Windows.Forms.Button
Friend WithEvents derecha As System.Windows.Forms.Button
Friend WithEvents izquierda As System.Windows.Forms.Button
Friend WithEvents arriba As System.Windows.Forms.Button
Friend WithEvents aumentarzoom As System.Windows.Forms.Button
Friend WithEvents disminuirzoom As System.Windows.Forms.Button
Friend WithEvents textboxymaximo As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents textboxyminimo As System.Windows.Forms.TextBox
Friend WithEvents textboxxmaximo As System.Windows.Forms.TextBox
Friend WithEvents salir As System.Windows.Forms.Button
Friend WithEvents ArchivoToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents textboxxminimo As System.Windows.Forms.TextBox
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
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 Label1 As System.Windows.Forms.Label
Friend WithEvents graficar As System.Windows.Forms.Button
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
End Class
CÓDIGO DEL PROGRAMA
El código para cada uno de los formularios que componen el programa, así como para las dos clases utilizadas, es el siguiente:
EvalClase.vb
Imports System.Math
Public Class EvalClase
Public Shared Function Eval(ByVal X As Double) As Object
Return X
End Function
End Class
Evaluador.vb
Imports System.Text
Imports System.CodeDom.Compiler
Imports System.Collections.Specialized
Public Class Evaluador
Private oEnsamblado As System.Reflection.Assembly
Public Function PrecompilarAssembly(ByVal Funcion As String, _
ByVal ParametrosList As StringCollection, ByVal NameSpaceList As StringCollection) As Boolean
Dim mStrings As String
Dim mParametros As String
'Definimos un objeto de tipo StringBuilder que contendra el código a compilar
Dim CodigoFuente As New StringBuilder()
'Agregamos los Imports necesarios a nuestro codigo fuente
For Each mStrings In NameSpaceList
CodigoFuente.Append("Imports " & mStrings & vbCr)
Next
'Preparamos un string con los parametros que usará el metodo Eval
'de de la clase EvalClase
For Each mStrings In ParametrosList
mParametros &= ", " & mStrings
Next
mParametros = Trim(mParametros)
If mParametros.Length > 0 Then
mParametros = Trim(Mid(mParametros, 2))
End If
'Terminamos de construir la clase a compilar
CodigoFuente.Append("Public Class EvalClase" & vbCr)
CodigoFuente.Append(" Public Shared Function Eval(" & _
mParametros & ") as Object" & vbCr)
CodigoFuente.Append(" Return " & Funcion & vbCr)
CodigoFuente.Append(" End Function " & vbCr)
CodigoFuente.Append("End Class " & vbCr)
'Creamos una instancia de la clase VBCodeProvider
'que usaremos para obtener una referencia a una interfaz ICodeCompiler
Dim oCProvider As New VBCodeProvider()
Dim oCompiler As ICodeCompiler = oCProvider.CreateCompiler
'Usamos la clase CompilerParameters para pasar parámetros al compilador
'En particular, definimos que el assembly sea compilado en memoria.
Dim oCParam As New CompilerParameters()
oCParam.GenerateInMemory = True
'Creamos un objeto CompilerResult que obtendrá los resultados de la compilación
Dim oCResult As CompilerResults
oCResult = oCompiler.CompileAssemblyFromSource(oCParam, CodigoFuente.ToString)
'Comprobamos que no existan errores de compilación.
Dim oCError As CompilerError
If oCResult.Errors.Count > 0 Then
'Si existen errores los mostramos.
'Si bien, podriamos implementar un mejor método para visualizar
'los errores de compilación, este nos servirá por los momentos.
For Each oCError In oCResult.Errors
MsgBox(oCError.ErrorText.ToString)
Next
Return False
Else
'Como el ensamblado se generó en memoria, debemos obtener
'una referencia al ensamblado generado, para esto usamos
'la propiedad CompiledAssembly
oEnsamblado = oCResult.CompiledAssembly
Return True
End If
End Function
Public Function Evaluar(ByVal ParamArray Parametros() As Object) As Object
If oEnsamblado Is Nothing Then
Return Nothing
Else
'Instanciamos la clase EvalClase de nuestro assembly
'creando un tipo a partir de ella.
Dim oClass As Type = oEnsamblado.GetType("EvalClase")
'Usamos GetMethod para accesar al método Eval, e invocamos este con los parametros necesarios.
Return oClass.GetMethod("Eval").Invoke(Nothing, Parametros)
End If
End Function
End Class
formulariodeayuda.vb
Public Class formulariodeayuda
Private Sub graficar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles graficar.Click
formularioparagraficar.Show()
Me.Hide()
End Sub
End Class
formulariodecreditos.vb
Public Class formulariodecreditos
Private Sub graficar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles graficar.Click
formularioparagraficar.Show()
Me.Hide()
| Página siguiente |