| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2280 人关注过本帖
标题:根据数组中的点画图
只看楼主 加入收藏
pmc1234
Rank: 5Rank: 5
等 级:职业侠客
帖 子:398
专家分:383
注 册:2010-1-6
结帖率:98.8%
收藏
已结贴  问题点数:8 回复次数:10 
根据数组中的点画图
如何让根据数组中的数 进行画图
搜索更多相关主题的帖子: 点画 
2010-04-07 09:48
cnfarer
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:179
帖 子:3330
专家分:21157
注 册:2010-1-19
收藏
得分:4 
用表单的Pset方法画点,line方法画线 box方法画长形 circle方法画圆或弧 cls方法清除图形

★★★★★为人民服务★★★★★
2010-04-08 07:12
lucky563591
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:小飞侠
威 望:4
帖 子:765
专家分:2103
注 册:2009-11-18
收藏
得分:4 
又要建系吧
2010-04-08 07:30
pmc1234
Rank: 5Rank: 5
等 级:职业侠客
帖 子:398
专家分:383
注 册:2010-1-6
收藏
得分:0 
什么是建系 咱们能不能聊聊 我的qq904439447
2010-04-08 09:22
pmc1234
Rank: 5Rank: 5
等 级:职业侠客
帖 子:398
专家分:383
注 册:2010-1-6
收藏
得分:0 
二楼的 我说的是根据一些数据画图 这些数据是没有规律的 最好能用曲线把这些曲线画出
2010-04-09 17:42
panpende
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:4
帖 子:528
专家分:963
注 册:2009-4-27
收藏
得分:0 
cnfarer已经提供了方法,楼主要根据一些数据画图 这些数据是没有规律的 最好能用曲线把这些曲线画出 ,是要依据方法进行编程予以实现。
2010-04-11 09:13
pmc1234
Rank: 5Rank: 5
等 级:职业侠客
帖 子:398
专家分:383
注 册:2010-1-6
收藏
得分:0 
六楼的 您做过这方面的事情吗 能不能指点一下 谢谢
2010-04-11 09:40
gleam
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-5-18
收藏
得分:0 
给你一段花坐标的代码,其他的数据代码也和这个差不多的。
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
2010-04-11 17:09
pmc1234
Rank: 5Rank: 5
等 级:职业侠客
帖 子:398
专家分:383
注 册:2010-1-6
收藏
得分:0 
你这段代码写在哪里 什么控件的程序啊 谢谢
2010-04-13 11:00
pmc1234
Rank: 5Rank: 5
等 级:职业侠客
帖 子:398
专家分:383
注 册:2010-1-6
收藏
得分:0 
八楼的 你说的花的坐标 你都是知道花坐标的具体位置 问你就是那些坐标(x0 y0 x1 y1)代表什么意思 我能不能把表中的字段赋予这些坐标
2010-04-13 16:06
快速回复:根据数组中的点画图
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.034626 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved