如何让根据数组中的数 进行画图

用表单的Pset方法画点，line方法画线 box方法画长形 circle方法画圆或弧 cls方法清除图形

又要建系吧

什么是建系 咱们能不能聊聊 我的qq904439447

二楼的 我说的是根据一些数据画图 这些数据是没有规律的 最好能用曲线把这些曲线画出

cnfarer已经提供了方法，楼主要根据一些数据画图 这些数据是没有规律的 最好能用曲线把这些曲线画出 ，是要依据方法进行编程予以实现。

六楼的 您做过这方面的事情吗 能不能指点一下 谢谢

给你一段花坐标的代码，其他的数据代码也和这个差不多的。
LPARAMETERS x0, y0, xl, yl, nx, ny, getnum, gntype
LOCAL aa,cc
THISFORM.DRAWWIDTH = 1
THISFORM.LINE( x0, y0, x0 + xl + 20 , y0)
THISFORM.LINE( x0 + xl + 15, y0 + 4, x0 + xl + 20, y0)
THISFORM.LINE( x0 + xl + 15 ,y0 - 4, x0 + xl + 20, y0)

THISFORM.LINE( x0, y0, x0, y0 - yl - 20)
THISFORM.LINE( x0 - 4,y0 - yl - 15, x0, y0 - yl - 20)
THISFORM.LINE( x0 + 4,y0 - yl - 15, x0, y0 - yl - 20)


FOR i = 1 TO nx
    THISFORM.LINE( x0 + xl / nx * i , y0 - 4, x0 + xl / nx * i, y0)
ENDFOR

aa = WROWS()
cc = WCOLS()

FOR i = 1 TO ny
    THISFORM.LINE( x0, y0 - yl / ny * i, x0 + 4 ,y0 - yl / ny * i)
    IF i = ny
        @ (y0 - yl / ny * i) / THISFORM.HEIGHT * aa - 0.5 , THIS.getx0 / THISFORM.WIDTH * cc -5 SAY ALLTRIM( STR( getnum)) FONT '宋体',12
    ENDIF
ENDFOR

DO CASE
CASE gntype = 1
    THISFORM.DRAWWIDTH = 2
    THISFORM.FILLCOLOR = RGB(255,0,0)
    THISFORM.FORECOLOR = RGB(255,0,0)
    thisform.line( THISFORM.getx0 + 20 ,THISFORM.gety0 - THISFORM.getylen,THISFORM.getx0 + 100 , THISFORM.gety0 - THISFORM.getylen)
    thisform.box( THISFORM.getx0 + 56 ,THISFORM.gety0 - THISFORM.getylen - 4,THISFORM.getx0 + 64 , THISFORM.gety0 - THISFORM.getylen + 4)
   
    THISFORM.FILLCOLOR = RGB(0,255,0)
    THISFORM.FORECOLOR = RGB(0,255,0)
    thisform.line( THISFORM.getx0 + 20 ,THISFORM.gety0 - THISFORM.getylen + 20,THISFORM.getx0 + 100 , THISFORM.gety0 - THISFORM.getylen + 20)
    thisform.box( THISFORM.getx0 + 56 ,THISFORM.gety0 - THISFORM.getylen + 16,THISFORM.getx0 + 64 , THISFORM.gety0 - THISFORM.getylen + 24)
   
    THISFORM.FILLCOLOR = RGB(0,0,255)
    THISFORM.FORECOLOR = RGB(0,0,255)
    thisform.line( THISFORM.getx0 + 20 ,THISFORM.gety0 - THISFORM.getylen + 40,THISFORM.getx0 + 100 , THISFORM.gety0 - THISFORM.getylen + 40)
    thisform.box( THISFORM.getx0 + 56 ,THISFORM.gety0 - THISFORM.getylen + 36,THISFORM.getx0 + 64 , THISFORM.gety0 - THISFORM.getylen + 44)
   
    THISFORM.FORECOLOR = RGB(0,0,0)
    @ (THISFORM.gety0 - THISFORM.getylen) / THISFORM.HEIGHT * aa -0.4  , (THIS.getx0 + 110) / THISFORM.WIDTH * cc SAY "总离层"  FONT '宋体',12
    @ (THISFORM.gety0 - THISFORM.getylen + 20) / THISFORM.HEIGHT * aa  -0.4 , (THIS.getx0 + 110) / THISFORM.WIDTH * cc  SAY "浅基点"  FONT '宋体',12
    @ (THISFORM.gety0 - THISFORM.getylen + 40) / THISFORM.HEIGHT * aa   -0.4, (THIS.getx0 + 110) / THISFORM.WIDTH * cc  SAY "深基点" FONT '宋体',12
CASE gntype = 2

    THISFORM.FILLCOLOR = RGB(0,255,0)
    THISFORM.FORECOLOR = RGB(0,255,0)
    thisform.box( THISFORM.getx0 + 54 ,THISFORM.gety0 - THISFORM.getylen - 6,THISFORM.getx0 + 66 , THISFORM.gety0 - THISFORM.getylen + 6)
   
    THISFORM.FILLCOLOR = RGB(0,0,255)
    THISFORM.FORECOLOR = RGB(0,0,255)
    thisform.box( THISFORM.getx0 + 54 ,THISFORM.gety0 - THISFORM.getylen + 14,THISFORM.getx0 + 66 , THISFORM.gety0 - THISFORM.getylen + 26)
   
   
    THISFORM.FORECOLOR = RGB(0,0,0)
    @ (THISFORM.gety0 - THISFORM.getylen) / THISFORM.HEIGHT * aa -0.4  , (THIS.getx0 + 80) / THISFORM.WIDTH * cc SAY "浅基点"  FONT '宋体',12
    @ (THISFORM.gety0 - THISFORM.getylen + 20) / THISFORM.HEIGHT * aa  -0.4 , (THIS.getx0 + 80) / THISFORM.WIDTH * cc  SAY "深基点"  FONT '宋体',12


OTHERWISE

ENDCASE

你这段代码写在哪里 什么控件的程序啊 谢谢

八楼的 你说的花的坐标 你都是知道花坐标的具体位置 问你就是那些坐标（x0 y0 x1 y1)代表什么意思 我能不能把表中的字段赋予这些坐标