MainForm.vb

' Visual Geometrix - Aplicación didáctica para Geometría Analítica
' Copyright (C) 2009  Checor et al
' 
' This program is free software; you can redistribute it and/or
' modify it under the terms of the GNU General Public License
' as published by the Free Software Foundation; either version 2
' of the License, or (at your option) any later version.
' 
' This program is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
' GNU General Public License for more details.
' 
' You should have received a copy of the GNU General Public License
' along with this program; if not, write to the Free Software
' Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

Option Explicit On
Imports System.Drawing.Drawing2D
Imports System.Math
Public Partial Class MainForm
	Public Sub New()
		' The Me.InitializeComponent call is required for Windows Forms designer support.
		Me.InitializeComponent()
		
		'
		' TODO : Add constructor code after InitializeComponents
		'
	End Sub
	Public Sub printf(texto as String)
		Me.txtLog.AppendText(texto)
		me.txtLog.AppendText(vbCrLf)'Esto en "\n" en C
	End Sub
	Public Sub clrscr()
		me.txtLog.Text = ""
	End Sub
	Public Sub Cuadricula()
        'Codigo propiedad de Percy Reyes
        'dibujamos la coordenada Y
        Me.PictureBox1.CreateGraphics.DrawLine(New Pen(Color.Red, 3), _
        New PointF(Me.PictureBox1.Width / 2, 0), _
        New PointF(Me.PictureBox1.Width / 2, Me.PictureBox1.Height))
        'dibujamos la coordenada X
        Me.PictureBox1.CreateGraphics.DrawLine(New Pen(Color.Red, 3), _
        New PointF(0, Me.PictureBox1.Height / 2), _
        New PointF(Me.PictureBox1.Width, Me.PictureBox1.Height / 2))
        'dibujo de toda cuadricula
        Dim NroLines As Integer = 0
        'lineas horizontales de la cuadrícula de fondo
        For NroLines = 0 To Me.PictureBox1.Height Step 10
            Me.PictureBox1.CreateGraphics.DrawLine(New Pen(SystemColors.Highlight, 1), _
            New Point(0, NroLines), New Point(Me.PictureBox1.Width, NroLines))
        Next
        'lineas verticales de la cuadrícula de fondo
        For NroLines = 0 To Me.PictureBox1.Width Step 10
            Me.PictureBox1.CreateGraphics.DrawLine(New Pen(SystemColors.Highlight, 1), _
            New Point(NroLines, 0), New Point(NroLines, Me.PictureBox1.Height))
        Next
    End Sub
    Public function distancia(x1 As Single,y1 As Single, x2 As Single, y2 As Single) as Single
    	dim texto as String
    	texto="Obtener distancia de ("& x1 &"," & y1 &") a (" & x2 &"," & y2 &")"
    	printf(texto)
    	distancia=Sqrt((y2-y1)^2 + (x2 - x1)^2)
		texto="Distancia = raiz(("&y2 &"- "&y1 &")^2 + ("&x2 &"- "&x1 &")^2)"
		printf(texto)
    	texto="La distancia es:" & distancia
    	printf(texto)
    End function
	Public Sub graficaLinea(x1 As Single, y1 As Single, x2 as single, y2 as single)
		'Ahora esta funcion ya no muestra LOG
		Dim centro As Single = Me.pictureBox1.Height / 2
		Dim punto As Single = Me.pictureBox1.Height / 16
		Me.pictureBox1.CreateGraphics.DrawLine(New Pen(color.Blue,1), _
		New PointF(centro + ((x1/2)*punto),centro + ((y1/-2)*punto)), _
		New PointF(centro + ((x2/2)*punto),centro + ((y2/-2)*punto)) )
	End Sub
	Public Sub imprimecurva(cx As Single, cy As Single, Constante As Single)
		'Falta imprimir la distancia del circulo
		'Ahora ya no aceptan exponentes ni margen de error
		Dim texto As String
		texto = "Graficar una linea con la ecuación " & cx & "x + " & cy & "y = " & Constante & " ..."
		printf(texto)
		texto = "En la ecuación X = (" & constante & " - " & cy & "y) /" & cx
		printf(texto)
		texto = "En la ecuación Y = (" & constante & " - " & cx & "x) /" & cy
		printf(texto)
		If cx = 0 or cy = 0 Then
			printf("No es posible graficar con los parametros dados.")
		elseIf cx < 0 or cx > 0 Then
			texto = "Sustituir X a -16 para graficar en el área del plano"
			printf(texto)
			Dim menosy As Single = (constante -(cx*-16)) / cy 'Y
			texto = "Punto 1 de la linea = (-16 , " & menosy & ")"
			printf(texto)
			Dim masy As Single = (constante -(cx*16)) / cy
			texto = "Punto 2 de la linea = (16 , " & masy & ")"
			printf(texto)
			graficaLinea(-16,menosy,16,masy)
			texto = "Se grafica la línea con los puntos mencionados"
			printf(texto)
			me.lblpe.Text = distancia(-16,menosy,16,masy)
		Else ' Se hace con y
			texto = "Sustituir Y a -16 para graficar en el área del plano"
			printf(texto)
			Dim menosx As Single = (constante -(cy*-16)) / cx 'X
			texto = "Punto 1 de la linea = (" & menosx & " , -16)"
			printf(texto)
			Dim masx As Single = (constante -(cy*16)) / cx
			texto = "Punto 2 de la linea = (" & masx & " , 16)"
			printf(texto)
			graficaLinea(menosx,-16,masx,16)
			texto = "Se grafica la línea con los puntos mencionados"
			printf(texto)
			me.lblpe.Text = distancia(menosx,-16,masx,16)
		End If
		printf("")'Dejando un enter
	End Sub
	Public Sub dibujacirculo(h As Single, k As Single, hr As Single, vr as single)
		'Quitado el LOG de dibujacirculo, pasado a funciones mas altas
		Dim centro As Single = Me.pictureBox1.Height / 2
		Dim punto As Single = Me.pictureBox1.Height / 16
		h=centro+(punto/-2 * (h)) : k = centro+(punto/-2 * (k))
		hr=punto * (hr) : vr=punto * (vr)
		Me.pictureBox1.creategraphics.drawellipse(New pen(color.Blue,1), _
		h-hr/2 ,k-vr/2 , hr, vr)
	End Sub
	Sub PictureBox1Click(ByVal sender As Object, ByVal e As EventArgs)
		Me.pictureBox1.Refresh
		cuadricula()
	End Sub
	Sub ButCalculaplClick(ByVal sender As Object, ByVal e As EventArgs)
		cuadricula()
		graficalinea(val(Me.txtLinea1.Text),val(Me.txtLinea2.Text),val(Me.txtLinea3.Text), _
					val(Me.txtLinea4.Text))
		me.lblpe.Text = distancia(val(Me.txtLinea1.Text),val(Me.txtLinea2.Text),val(Me.txtLinea3.Text), _
					val(Me.txtLinea4.Text))
		printf("")
	End Sub
	Sub ButEcuacircu1Click(ByVal sender As Object, ByVal e As EventArgs)
		'Ecuación larga del circulo
		dim texto as string
		Dim x As Single = val(txtXce1.Text)
		Dim y As Single = val(Me.txtYce1.Text)
		Dim cons As Single = val(Me.txtCoEc1.Text)
		texto = "Graficar un círculo con la ecuación X^2 + Y^2 + " & x & "x + " & y & "y = " & cons
		printf(texto)
		Dim h As Single = x/2 : dim k as Single = -y/2
		texto = "Coordenada x (h) del centro del círculo = " & x & "/2 = " & h
		printf(texto)
		texto = "Coordenada y (k) del centro del círculo = " & -y & "/2 = " & k
		printf(texto)
		texto = "Ecuación del radio: r^2 = (h/2)^2 + (k/2)^2 - constante"
		printf(texto)
		texto = "Sustituyendo: r^2 =( " & h & " /2)^2 + ( " & k & " /2)^2 + " & cons
		printf(texto)
		Dim radio As Single = sqrt((x/2)^2 + (y/2)^2 + cons)
		texto = "El radio es: " & radio
		printf(texto)
		texto = "Dibujar el círculo con los datos anteriores"
		printf(texto)
		printf("")
		dibujacirculo(h,k,radio,radio)
	End Sub
	Sub ButEcuacircu2Click(ByVal sender As Object, ByVal e As EventArgs)
		'Ecuacion tipo uno del circulo (la simplificada)
		dim texto as string
		Dim x As Single = val(txtXce2.Text)
		Dim y As Single = val(Me.txtYce2.Text)
		Dim cons As Single = val(Me.txtCoEc2.Text)
		texto = "Graficar circulo con la ecuación (x - " & x & ")^2 + (y - " & y & ")^2 = " & cons
		printf(texto)
		Dim h As Single = -x : dim k as Single = y
		texto = "Coordenadas del centro de la circunferencia ( " & h & " , " & k & " )"
		printf(texto)
		Dim radio As Single = sqrt(cons)
		texto = "Radio del círculo: " & radio
		printf(texto)
		texto = "Graficar el círculo con los datos anteriores"
		printf(texto)
		printf("")
		dibujacirculo(h,k,radio,radio)
	End Sub
	public sub parabolaverti(D as single,E as single,F as single)
		dim texto as string
		texto = "Graficar parabola con la ecuación y^2 + " & D & "y + " & E & "x + "& F
		printf(texto)
		texto = "Despejar la ecuacion para obtener X..."
		printf(texto)
		texto= "X = ( 4y - y^2 - " & F & ")/ "& D
		printf(texto)
		texto= "A partir de aquí se debe sustituir Y en la ecuación"
		printf(texto)
		dim punto(0 to 1) as single : dim i as integer = 0 : dim P as single = D
		punto(0)=F/D: punto(1)=E/2 'Punto 0 = X : Punto 1 = Y
		dim x as single = 0:dim xmas as single =0
		for	i=-14 to 14
			x= (-(4*i) - i*i - F) / D
			xmas = ( -(4*(i+1)) - (i+1)*(i+1) - F) / D
			graficalinea(x,i,xmas,i+1)
		next i
		printf("")
	end sub
	public sub parabolavertireduced(a as single,p as single,b as single)
		Dim texto As String
		texto = "Parabola con la ecuacion (y + " & a & ")^2 =" & p & "(x + " & b & ")"
		printf(texto)
		dim D as single = a * 2
		dim E as single = -p
		Dim F As Single = -(p*b) + a^2 'Bugfix
		texto= "La ecuacion simplificada es y^2 + "& D &"y+ " &E &"x + " &F
		printf(texto)
		parabolaverti(D,E,F)
	end sub
	public sub parabolahorizontal(D as single,E as single ,F as single)
		Dim texto As String' X^2 + Dx + Ey + F
		texto = "Graficar parabola con la ecuación x^2 + " & D & "x + " & E &"y + "  & F
		printf(texto)
		texto = "Despejar y de la ecuación..."
		printf(texto)
		texto = "y = (-x^2 - " & D & "x - " & F & ")/" & E
		printf(texto)
		texto = "A partir de aqui se debe sustituir X en la ecuación"
		printf(texto)
		dim y as single = 0 : dim ymas as single = 0
		dim i  as integer = 0
		for i=-14 to 14
			y= (-(i*i)-(4*i)-F)/E
			ymas = (-((i+1)*(i+1))-(4*(i+1))-F)/E
			graficalinea(i,y,i+1,ymas)
		Next i
		printf("")
	end sub
	public sub parabolahorizontalreduced(a as single,p as single,b as Single)
		Dim texto As String
		texto = "Parabola con le ecuación (x + " & a & ")^2 = " & p & "(y + " & b & ")"
		printf(texto)
		dim D as single = a*2
		dim E as single = -p
		Dim F As Single =-(b*p) + a^2
		texto = "La ecuación simplificada es x^2 + " & D & "x + " & E & "y + " & F
		printf(texto)
		parabolahorizontal(D,E,F)
	End Sub
public sub trescircu(x1 as single, y1 as single, x2 as single, y2 as single, _
x3 as single, y3 as single)
	'PHEERR THE POWA!
	'Esta vez se hara por la manera del cincuncentro
	'Obtener perpendiculares de AB y BC
	dim m1, m2, p1x,p1y,p2x,p2y as single
	m1 = -(y2 - y1)/(x2 - y1) ' AB
	m2 = -(y3 - y2)/(x3 - x2) ' BC
	p1y = (y2 + y1) / 2 : p1x = (x2 + x1) / 2 'Ab
	p2y = (y3 + y2) / 2 : p2x = (x3 + x2) / 2'BC
	'Sacando las ecuaciones
	dim ecux1 , ecucons1, ecux2,ecucons2 as single ' Haciendo las ecuaciones
	ecux1 = -m1
	ecucons1= p1y - m1*p1x
	ecux2 = -m2
	ecucons2 = p2y - m1 * p2x
	'Obtener los puntos finales
	dim xfinal, yfinal as single
	xfinal = (ecucons1-ecucons2)/(ecux1-ecux2)
	yfinal = ecucons1-ecux1*xfinal
	'Ya esta, ahora necesito el radio
	dim radio as single = distancia(x1,y1,-xfinal,-yfinal)
	dibujacirculo(-xfinal,-yfinal,radio,radio)
end sub 
	
	Sub ButGrPHRClick(ByVal sender As Object, ByVal e As EventArgs)
		on error goto err
		parabolavertireduced(val(txtPhrA.Text),val(txtPhrP.text),val(txtPhrB.Text))
		err:
		dim pen as Integer = 0
	End Sub
	
	Sub ButGrPHGClick(ByVal sender As Object, ByVal e As EventArgs)
		on error goto err
		parabolaverti(val(txtPhrD.Text),val(txtPhrE.Text),val(txtPhrF.Text))
		err:
		dim pen as Integer = 0
	End Sub
	
	Sub ButGrPVRClick(ByVal sender As Object, ByVal e As EventArgs)
		'Quitar las gillipoleces de on error
		on error goto err:
		parabolahorizontalreduced(val(txtPvrA.Text),val(txtPvrP.Text),val(txtPvrB.Text))
		err:
		dim p as Single = 0.000
	End Sub
	
	Sub ButGrPVGClick(ByVal sender As Object, ByVal e As EventArgs)
		On Error GoTo err:
		parabolahorizontal(val(txtPvrD.Text),val(txtPvrE.Text),val(txtPvrF.Text))
		err:
	End Sub
	Sub ButCalculaelClick(ByVal sender As Object, ByVal e As EventArgs)
		imprimecurva(val(me.txtXline.Text),val(me.txtYline.Text),val(me.txtConstLine.Text))
	End Sub
	
	Sub Butcircu3pClick(ByVal sender As Object, ByVal e As EventArgs)
		trescircu(val(Me.txtx1cir.Text),val(Me.txty1cir.Text),val(Me.txtx2cir.Text), _
		val(me.txty2cir.Text), val(me.txtx3cir.Text), val(me.txty3cir.Text))
	End Sub
	
	Sub ButElipseClick(ByVal sender As Object, ByVal e As EventArgs)
		Dim texto As String
		texto = "Graficar una elipse con la ecuacion ((x- " & val(Me.txtEliX.Text) & ")/" & val(Me.txtEliX2.Text) & ")+((y- " & val(Me.txtEliY.Text) & ")/" & val(Me.txtEliY2.Text) & ")=1"
		printf(texto)
		texto = "Centro de la elipse (" & -val(Me.txtEliX.Text) & " , " & val(Me.txtEliY.Text) & ")"
		printf(texto)
		texto = "a^2 =" & val(Me.txtEliX2.Text) & " por lo tanto a = " & sqrt(val(Me.txtEliX2.Text))
		printf(texto)
		texto = "a es el radio vertical de la elipse, b el horizontal"
		printf(texto)
		texto = "b^2 =" & val(Me.txtEliY2.Text) & " por lo tanto b = " & sqrt(val(Me.txtEliY2.Text))
		printf(texto)
		texto = "Se grafica a elipse con los puntos dados."
		printf(texto)
		printf("")
		dibujacirculo(-val(me.txtEliX.Text),val(me.txtEliY.Text),sqrt(val(me.txtEliX2.Text)),sqrt(VAL(me.txtEliY2.Text)))
	End Sub
	
	Sub Button1Click(ByVal sender As Object, ByVal e As EventArgs)
		cuadricula()
		me.txtLog.Text = ""
	End Sub
End Class