Red de conocimiento informático - Problemas con los teléfonos móviles - ¿Cómo lee VB datos de texto y dibuja una curva?

¿Cómo lee VB datos de texto y dibuja una curva?

dim g Como gráficos = cuadro de imagen 1. CreateGraphics()

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.