2个回答
展开全部
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
就这么简单!
先在窗体中添加一个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
就这么简单!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
我想你说的图就是“坐标曲线”,对吗?
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
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
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询