关于VB编程

[wangxue0522]

怎么样用在PictureBox中画出直角坐标系并且将通讯传来的数据在坐标系中画出实时曲线

[a_aaaa8888]

给你个MSFlexGrid1获得数据的，这个数据源你可以更改
Picture1.Cls
Picture1.AutoRedraw = True
For it = 2 To MSFlexGrid1.Rows - 1

S = MSFlexGrid1.TextMatrix(it - 1, 2)

m = MSFlexGrid1.TextMatrix(it, 2)

Picture1.Scale (0, 28)-(MSFlexGrid1.Rows, -1)
Picture1.ForeColor = vbRed
Picture1.Line (it - 1, Val(S))-(it, Val(m))
Next
For it = 1 To MSFlexGrid1.Rows - 1

Picture1.ForeColor = vbBlue
m = MSFlexGrid1.TextMatrix(it, 2)
Picture1.CurrentX = it
Picture1.CurrentX = Picture1.CurrentX - Picture1.TextWidth((m) / 1)

Picture1.CurrentY = Val(m)
Picture1.Print Val(m)
Next


For ip = -1 To 27
Picture1.ForeColor = vbBlack

Picture1.CurrentX = 0
Picture1.CurrentY = Val(ip)
Picture1.Print Val(ip)
Next

[SYSSZ]

我画坐标系

Private Sub Form_Load()
Dim i As Integer
Timer1.Interval = 1000
Picture1.Height = Picture1.Width
Picture1.AutoRedraw = True
Picture1.Scale (0, 0)-(12, 12)
Picture1.DrawWidth = 1
Picture1.Line (6, 0)-(6, 12), vbRed
Picture1.Line (0, 6)-(12, 6), vbRed
For i = 0 To 12
Picture1.Line (5.9, i)-(6, i), vbRed
If i <> 6 Then
 Picture1.CurrentY = Picture1.CurrentY - 0.2
 Else
 Picture1.CurrentY = Picture1.CurrentY + 0.2
 End If
 Picture1.CurrentX = 5.3
 Picture1.Print (6 - i)
Next
For i = 0 To 12
Picture1.Line (i, 6)-(i, 6.1), vbRed
 Picture1.CurrentY = 6.3
  Picture1.CurrentX = Picture1.CurrentX - 0.3
  If i <> 6 Then
 Picture1.Print -1 * (6 - i)
 End If
Next
End Sub