Question

在vb中通过数组画图

请问哪位大侠知道如何在vb中通过一个数组画出一幅图，最好有相关的代码？

Answer 1

vb画图是通过点与点之间进行连线而成。给你个简单的代码。
先在窗体中添加一个picturebox控件，就可以在上面进行画图。
For i = 0 To acq_count * ch_cnt - 1

If k <> 0 Then
X = last_x(0)
Else
X = i / (DISP_COUNT - 1)
End If
samp = gnBuffer2(i)

Y = h - (CInt(CLng(samp) * h / 256))
If last_y(k) <> -1 Then
picScreen.Line (last_x(k), last_y(k))-(X, Y), shpColor(k).BackColor
End If
last_x(k) = X
last_y(k) = Y

Next
就这么简单！

Answer 2

我想你说的图就是“坐标曲线”，对吗？

Private Sub Command1_Click()
Me.Move 0, 0, Screen.Width, Screen.Height
'假设你的数据在数组z里面。z里第一个是横坐标值，第二个是纵坐标值，并假定一定排列好顺序
Dim z(1, 100) As Single, i As Integer, x As Single, y As Single
'因为我没有数据，这里随机产生。
For i = 0 To 100
Randomize
z(0, i) = i
z(1, i) = Rnd * 30 + 50
Next i
'画坐标轴
Me.Scale (-10, 120)-(120, -15)
Line (0, -10)-(0, 110)
Line (-10, 0)-(110, 0)
For i = -5 To 105 Step 5
Line (0, i)-(1, i)
Print i
Line (i, 1)-(i, 0)
Print i
Next i
x = z(0, 1)
y = z(1, 1)
Me.Circle (x, y), 0.5, vbRed
For i = 1 To 100
Line (x, y)-(z(0, i), z(1, i)), vbBlue
x = z(0, i)
y = z(1, i)
Me.Circle (x, y), 0.5, vbRed
Next i
End Sub

Private Sub Form_Load()
Me.Move 0, 0, Screen.Width, Screen.Height
Command1.Caption = "开始"
End Sub