El codigo es el siguiente:
Código:
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