MM VISUAL GRAFOCACION

SEP

DGEST

SNEST

INSTITUTO TECNOLÓGICO SUPERIOR DE LA MONTAÑA

CARRERA:
INGENIERIA EN SISTEMAS COMPUTACIONALES
DOCENTE:
ING.ADRIAN NAVA SANCHEZ
MATERIA:
GRAFICACION

PRESENTA :
MOISES HERRERA OLIVERA
N° DE CONTROL
S09122016

ILIATENCO, GRO. OCTUBRE DEL 2011

Este es un software capas de graficar funciones de primer grado y segundo grado. La primera ventana que semuestra a ejecutar el software es la siguiente:
Esta primer ventana es capaz de graficar funciones
de primer grado en un plano cartesiano que va en x
de 10 a -10 al igual que y. En la parte de color
naranja es donde se grafica la función, como se
observa está dividida en cuadriculas cada cuadro
tiene un tamaño de 1x1.
En

la

ventana

se

encuentra

una

opción

donde se inserta lafunción como se ve ya se encuentra una función
que es la función y=-2x+3 esta función puede
cambiar de acuerdo al usuario, supongamos que
queramos la función y=3x+1; debería quedar
. De acuerdo a la función que el
usuario dese graficar se van cambiando los textbox.
Una vez que ya tengamos nuestra función lista damos clic en el botón
función. Este botón también muestra una lista de lospuntos que a graficar.
El botón

que será el que grafique la

, cierra el programa.

El botón
ecuaciones de segundo grado.

, cambiara nuestra ventana por una diferente que se encarga de graficar
Básicamente esta ventana funciona igual que la
anterior lo único que cambia es la forma de la
función. La función de esta ventana es y=x²-2x+3
, ejemplo si
queremos graficar la función y=x²debe quedar así
, como vemos todas la cajas de
textos se encuentran básicamente bacías ,la primer
caja si esta bacía vale como 1x² , mientras que las
otras dos valen 0. A comparación de la primera
ventana

, si queremos una función y=x

debería quedar
lo cual indica en la primera
caja de texto 1x y la otra vela 0.
Los valores que se toman en cuenta para graficar en
esta ventana sonde un plano cartesiano que va en x
de 10 a -10 al igual que y, y las cuadriculas son de
2X2.

PRIMER VENTANA

Plataforma sobre la cual se grafica
(Plano cartesiano)

Nombre de la ventana

Muestra las coordenadas de los puntos
sobre los cuales se graficara la función.

Es el botón que ejecuta la acción de graficar
de acuerdo a la funciones.
Código:
Me.Refresh()
If TextBox1.Text =""
Then
poi = 1
ElseIf TextBox1.Text = "-"
Then
poi = -1
Else
poi =
Val(TextBox1.Text)
End If
If TextBox2.Text = ""
Then
qwe = 0

Función: introducimos la
función
Botón que cambia de
ventana.
Código:

Else
qwe =
Val(TextBox2.Text)
End If
plano(poi, qwe)

Botón para salir
Código:

Me.Hide()
segunda.Show()

CÓDIGO DELA PRIMERA VENTANA

End

:

ImportsSystem.Drawing
Imports System.Drawing.Pen
Imports System.Drawing.Point
Imports System.Drawing.Text
Imports System.Drawing.Image
Public Class uno
Dim oGrafico As System.Drawing.Graphics
Dim oLapiz As System.Drawing.Pen
Dim oPunto As System.Drawing.Point
Dim X, Y, x1, y1 As Double
Dim aux1, aux2, q As Integer
Dim poi, qwe, asd As Integer
Dim gr As Graphics = CreateGraphics()
Private Subplano(ByVal poi As Integer, ByVal qwe As Integer)
q = 1
aux1 = 0

aux2 = 0
ListBox1.Items.Clear()
For x1 = -10 To 10
y1 = Math.Round((poi * x1) + qwe)
ListBox1.Items.Add("(" + Str(x1) + "," + Str(y1)
If x1 >= 0 And x1 = -10 Then
X = Math.Round(148 - (Math.Abs(x1) * 14.8))
aux1 = x1
End If
If y1 >= 0 And y1 = -10 And y1 < 0 Then
Y = Math.Round(((Math.Abs(y1) + 10) * 14.8))
aux2 = x1 + 2End If
If aux1 = x1 And aux2 = (x1 + 2) Then
oLapiz = New Pen(Drawing.Color.Maroon, 3)
oPunto = New Point(X, Y)
gr.DrawRectangle(oLapiz, oPunto.X, oPunto.Y,
End If
Next x1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object,
System.EventArgs) Handles Button1.Click
Me.Refresh()
If TextBox1.Text = "" Then
poi = 1
ElseIf TextBox1.Text = "-" Then
poi = -1
Else
poi =...