我的程序是pc通过ch372芯片和单片机进行通讯

用户按“开始”按钮后，单片机开始工作测量相关数据，同时pc进入以下while循环，当单片机有数据上传时，pc开始读取数据、计算，然后根据数据绘图（即显示一个坐标点）。然后pc返回循环，再读取新的数据，然后绘图，则又汇出一个新的坐标点。我的需求是，最终得到的是一组坐标点图，即绘制下一次的坐标点时，之前的坐标点仍然保留。

while 1
﹛
  1、读取单片机发来的数据
  
  2、计算该数据

  3、根据数据进行绘图  ﹜
  
有关绘图的代码为  
 Call draw_point(x, y)    '绘图

 绘图函数
Private Function draw_point(xx As Long, yy As Long)
   
    Dim surface_width As Integer
    Dim surface_height As Integer
    Dim surface_count As Integer
    P.Cls
    surface_width = CInt(Text1.Text)
    surface_height = CInt(Text2.Text)
   
        
    If (surface_width >= surface_height) Then
        surface_count = surface_width
    Else
        surface_count = surface_height
    End If
      
   
    P.ForeColor = vbRed
    P.DrawWidth = 1
    P.ScaleMode = 0
    P.Scale (0, surface_count)-(surface_count, 0) '设定坐标尺度
   
    If (surface_width >= surface_height) Then
         P.Line (0, surface_height)-(surface_width - 1, surface_height), vbBlue '横线
         P.Line -(surface_width - 1, 1), vbBlue
         P.Line -(0, 1), vbBlue
         P.Line -(0, surface_height), vbBlue
    Else
         P.Line (surface_width, 0)-(surface_width, surface_height), vbBlue  '横线
         P.Line -(0, surface_height), vbBlue
         P.Line -(0, 1), vbBlue
         P.Line -(surface_width, 1), vbBlue
    End If
        
    P.CurrentX = surface_width / 30  'O POINT
    P.CurrentY = surface_height / 30
    P.Print "0"
   
    P.DrawWidth = 5
    P.PSet (xx, yy)

End Function

请问为了让这些坐标点可以同时显示出来，我需要加什么代码吗？

来源: http://www.

https://bbs.bccn.net/thread-306299-1-1.html

把连线的部分 去掉就可以了。 你参考一下。