Eje de coordenadas Cartesianas en visual basic

Iniciado por oJosLoCos, 26 Septiembre 2009, 16:57 PM

0 Miembros y 1 Visitante están viendo este tema.

oJosLoCos

Buenas , veran tengo un eje de coordenadas hecho.

El codigo es el siguiente:

Option Explicit

Dim oX, oY, dX, dY, x, y As Integer

Private Sub Cmd_Graficar_Click()
x = oX + Val(txt_CordX.Text)
y = oY - Val(Txt_CordY.Text)
Pic_Graf.PSet (x, y)

End Sub

Private Sub Form_Load()
Label1(0).Caption = "X"
Label1(1).Caption = "Y"
txt_CordX.Text = ""
Txt_CordY.Text = ""

Me.ScaleMode = 3
Pic_Graf.ScaleMode = 3
Pic_Graf.Height = 400
Pic_Graf.Width = 400
Pic_Graf.AutoRedraw = True
Pic_Graf.Line (200, 0)-(200, 400)
Pic_Graf.Line (0, 200)-(400, 200)
oX = 200
oY = 200
dX = 200
dY = 200

End Sub


Mi idea original era crear el eje de coordenadas con numeros para poder visualizar bien donde se representa cada punto.. dando valores a X / Y .
Pero no se me ocurre como hacerlo para insertar esos numeros de separacion.

Seria algo parecido a esto : http://platea.pntic.mec.es/~anunezca/ayudas/funciones1/funciones1.htm

Saludos y gracias

>>Visita Nuestra Informacion De GTA IV En * www.cdm.foros.ws *