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 anterior | Volver al principio del trabajo | Página siguiente  |