Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » Representar en una picturebox los puntos (x,y) obtenidos de un txt

Visual Basic - Representar en una picturebox los puntos (x,y) obtenidos de un txt

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Representar en una picturebox los puntos (x,y) obtenidos de un txt

Publicado por AMS (8 intervenciones) el 21/05/2017 17:16:04
Buenas, necesito crear una interface que haga lo siguiente:

-Debe tener un botón para abrir un archivo txt usando una ventana de diálogo de windows. ESO LO TENGO HECHO

-Debe leer dcho archivo y representar los puntos (x,y) en una gráfica en la propia interfaz,

El formato del txt sería como el siguiente ejemplo:

1 0.5
2 -3
0.2 4

Es decir, primera columna coordenadas X, y segunda columna coordenadas Y. (Ambas columnas separadas por un espacio). Número de puntos desconocido, es decir, habría que leer hasta el final.

¿Como sería el código para leer el archivo y representar los puntos?
No estoy familiarizado con visual basic y no encuentro ejemplos parecidos por ningún lado. Gracias!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

Representar en una picturebox los puntos (x,y) obtenidos de un txt

Publicado por Adrián (8 intervenciones) el 21/05/2017 18:04:13
De momento tengo esto:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub Command1_Click()
Dim contentfile As String
Dim ruta_archivo As String
ruta_archivo = Me.CommonDialog1.FileName
On Error GoTo fin
Form1.CommonDialog1.ShowOpen
 
 
Open Form1.CommonDialog1.FileName For Input As #1

Do Until EOF(1)
Input #1, contentfile

Form1.Text1 = Form1.Text1 + contentfile + vbCrLf
Loop
Close #1

 
fin:
End Sub
 
 
 
Private Sub Picture1_Click()
'Dim oriX As Integer

'Dim oriY As Integer

'Dim xA As Integer

'Dim yA As Integer

'x = oriX + Val(Text1)

'y = oriY - Val(Text2)

'xA = x

'yA = y

End Sub
Private Sub Form_Load()
Me.ScaleMode = 3
Picture1.ScaleMode = 3
Picture1.Height = 400
Picture1.Width = 400
Picture1.AutoRedraw = True
Picture1.Line (200, 0)-(200, 400)
Picture1.Line (0, 200)-(400, 200)
oriX = 200
oriY = 200
xA = 100
yA = 100
End Sub

Tengo el botón que me permite seleccionar el archivo y el picture box con los ejes dibujados y los orígenes de coordenadas establecidos.
¿Como hago para leer y representar los puntos de ese archivo?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar