VB如何导入一个文本数据在坐标上画出曲线

来源:百度知道 编辑:UC知道 时间:2024/06/09 02:43:46
文本数据内容如下:
20
0.2 0.3 0.5 0.6 0.7 0.9 1.0 1.3 1.5 1.8
1.9 2.2 2.5 2.6 2.7 2.9 3.3 3.7 3.9 4.0
我该如何把这些数据导入PICTURE1里所画的坐标上面(这些数据是Y坐标的值?并在上面画出曲线?
还有下面是我所画的坐标:
Const Pi = 3.1415926535
Dim a, wor

Private Function PrintWord(x, y, Word As String)
With Picture1
.CurrentX = x
.CurrentY = y
.ForeColor = RGB(0, 0, 255)
End With
Picture1.Print Word
End Function

Private Function DrawDot(Px, Py, Color)
Picture1.PSet (Px, Py), Color
End Function
Sub XY()
Picture1.DrawWidth = 1
Picture1.Cls

Picture1.Scale (-3, 7)-(25, -0.5)
Picture1.Line (0, 0)-(25, 0), RGB(0, 0, 255)
Picture1.Line (25, 0)-(23, 0.5), RGB(0, 0, 255)
Picture1.Line (25, 0)-(23, -0.5), RGB(0, 0, 255)
Picture1.ForeColor = RGB(0, 0, 255)
Picture1.Print "X"

Picture1.Line (0, 0)-(0, 7), RGB(0, 0, 255)
Picture1.Line (0, 7)-(1, 6.5), RGB(0, 0, 255)

用open语句打开文本文件,然后按照空格为分界符读取数据。

用了。。但导出来的数据就只是一些描点啊。。根本没有连线。。。能给出一些具体一点的编程吗??X坐标就是我做的坐标系的那些点。。Y坐标就是导入的数据。。。

计算X轴坐标:比如X轴平分为10份,每份大小为KeX,则X方向最小刻度值为SimpX=(picsource.width/10)/kex有20个点则每个点的X值为For i = 0 To 19 ArrtyX(i) = simpx * (i 1)Next i现在各点的横坐标值知道了,则计算Y值比如X轴平分为10份,每份大小为KeY,则Y方向最小刻度值为SimpY=(picsource.width/10)/kex则相应的Y值为 文本文件中取出的值勤 * simpY现在知道了各点的X,Y值,使用LINE画线就可以了