¿Cómo lee VB datos de texto y dibuja una curva?
Atenuar xMin como doble = 0
Atenuar xMax como doble = 0,1
Atenuar xMin como doble = 0,1
p>Dim yMin As Double = 0
Dim yMax As Double = 1000
Leer datos
Dim data() es String = IO. File.ReadAllLines("data.txt ")
El tamaño xy(data.length - 1, 1) es doble
Entero para I = 0 datos. Longitud - 1
Dim temp() Como cadena = datos(i). Dividir(" ")
xy(i, 0) = CDbl(temp(0))
xy(i, 1) = CDbl(temp(1))
p>Luego
Dibuja el eje de coordenadas
g.DrawLine(pen, 0, PictureBox1. Height, 0, 0)
g. DrawLine( pen, 0, PictureBox1. height, PictureBox1. height)
Dim pointSize como entero = 3
Para I como entero = 0 a xy. GetLength(0) - 1
Dim x As Integer = CInt((xy(i, 1)-xMin)/(xMax-xMin)* cuadro de imagen 1. Ancho)
Dim y como entero = CInt((xy(i,0)-yMin)/(yMax-yMin)* cuadro de imagen 1.altura)
g.DrawEllipse(pen,x-pointSize\2,PictureBox1.height ) - y tamaño en puntos \ 2, tamaño en puntos, tamaño en puntos)
Entonces
donde data.txt es el nombre del archivo para almacenar los datos, PictureBox1 es el control que muestra la imagen. , que se puede modificar según sea necesario.