编程开发 购物 网址 游戏 小说 歌词 快照 开发 股票 美女 新闻 笑话 | 汉字 软件 日历 阅读 下载 图书馆 编程 China
TxT小说阅读器
↓语音阅读,小说下载,古典文学↓
图片批量下载器
↓批量下载图片,美女图库↓
图片自动播放器
↓图片自动播放器↓
一键清除垃圾
↓轻轻一点,清除系统垃圾↓
移动开发 架构设计 编程语言 互联网 开发经验 Web前端 开发总结
开发杂谈 系统运维 研发管理 数据库 云 计 算 Java开发
VC(MFC) Delphi VB C++(C语言) C++ Builder 其它开发语言 云计算 Java开发 .Net开发 IOS开发 Android开发 PHP语言 JavaScript
ASP语言 HTML(CSS) HTML5 Apache MSSQL数据库 Oracle数据库 PowerBuilder Informatica 其它数据库 硬件及嵌入式开发 Linux开发资料
  编程开发知识库 -> VB -> 哪位大神能指点我读取文本文件绘这样的图啊 -> 正文阅读
 

[VB]哪位大神能指点我读取文本文件绘这样的图啊[第1页]

本人初来乍到,专业上有这样的数据,需要绘图,希望大神指点
数据大概为
1000  600  852.6 -600
1000  500  569.43  -965
1000  700  852.6 -1456.2
1000  900  569.43  -939.4
1000  1085 2348.9 521.78
...
1500  600  852.6 -600
1500  500  569.9 345.9
1500  700  852.6 -1456.2
1500  900  569.43  -939.4
1500 1085 2348.9 521.78
...
若干个这样的点,一个点一个点的画
第一列为标识,第二列为横轴,第三列第四列都为纵轴,画在上下两个画布上
第二列横轴有时顺序乱的,需要先排序,有什么好的排序源码吗,vb.net的,谢谢大家了

回复:

你这样的“描述”,全靠别人去猜你究竟想要什么样的效果…………

回复:
就是画曲线,简单说就是两列数字画线,这里传不了附件和图

回复:
引用 2 楼 pubu2005 的回复:就是画曲线,简单说就是两列数字画线,这里传不了附件和图
可以发图片好不!
“回复”编辑框上方,第6个图标就是插入图片的。
这论坛是没有“附件”功能。目前建议“用网盘分享”方式来达到目的。
操作方法,参考这个帖子中,9楼的回复:
http://bbs.csdn.net/topics/392193811
在那个帖子9楼中,我也是“有图片”的。

回复:
好的,我晚上电脑上详细叙述下

回复:
你自己理解的和描述的 估计不一回事

回复:
类似股票 沪指 深指 两条折线

回复:

大家好,我想要获得这样的图,数据时这样的

数据是上面这样的,横轴为第三列的频率,哪位大神指点下

本人就用一个点的数据划出了这样的图,但是对于很多个点还是不会

              For n = 0 To nfreq - 1
                    STN(n) = LTrim(Mid(rowDataStr(n + 5), 5, 8))
                    fr(n) = LTrim(Mid(rowDataStr(n + 5), 14, 11))
                    r(n) = LTrim(Mid(rowDataStr(n + 5), 37, 10))
                    ph(n) = LTrim(Mid(rowDataStr(n + 5), 48, 7))
                    Chart1.Series("Res").Points.AddXY(Log10(fr(n)), Log10(r(n)))
                    Chart2.Series("Phase").Points.AddXY(Log10(fr(n)), ph(n))
                Next

回复:
Chart2.ChartAreas.Clear() '清除所有绘图区
        Chart2.Legends.Clear() '清除 图例说明
        Dim newChartAreas2 As New ChartArea("Default") '新增绘图区
        Chart2.ChartAreas.Add(newChartAreas2)
        Dim newLegends2 As New Legend(legendName) '新增 图例说明
        Chart2.Legends.Add(newLegends2)
        Chart2.ChartAreas("Default").Position.Height = 100 '绘图区域所占百分比
        Chart2.ChartAreas("Default").Position.Width = 100
        Chart2.ChartAreas("Default").AxisX.Title = "Freq(Hz)" 'X轴名称
        Chart2.ChartAreas("Default").AxisX.TitleAlignment = StringAlignment.Center 'X轴标题位置
        Chart2.ChartAreas("Default").AxisY.Title = "Phase" 'Y轴名称
        Chart2.ChartAreas("Default").AxisY.TitleAlignment = StringAlignment.Center 'Y轴标题位置
        Chart2.ChartAreas("Default").AxisX.Minimum = -5
        Chart2.ChartAreas("Default").AxisX.Maximum = 5
        Chart2.ChartAreas("Default").AxisX.LabelStyle.Format = "0.00" 'X轴 显示格式
        Chart2.ChartAreas("Default").AxisX.MajorGrid.Enabled = True
        Chart2.ChartAreas("Default").AxisX.MajorGrid.Interval = 1
        Chart2.ChartAreas("Default").AxisX.MajorGrid.LineColor = Color.LightGray
        Chart2.ChartAreas("Default").AxisX.MinorGrid.Enabled = True '启用 次辅助线 功能
        Chart2.ChartAreas("Default").AxisX.MinorGrid.Interval = 0.2 '次辅助线 间距为10
        Chart2.ChartAreas("Default").AxisX.MinorGrid.LineColor = Color.LightSlateGray '次辅助线颜色为灰色
        'Chart1.ChartAreas("Default").AxisX.Interval = 1 'Y轴的 主线间距major
        Chart2.ChartAreas("Default").AxisX.MajorGrid.LineColor = Color.White
        'Y轴的 数值区间
        Chart2.ChartAreas("Default").AxisY.Minimum = -3141
        Chart2.ChartAreas("Default").AxisY.Maximum = 3141
        'Y轴的 数值间隔
        Chart2.ChartAreas("Default").AxisY.MinorTickMark.IntervalOffset = 0
        Chart2.ChartAreas("Default").AxisY.MajorGrid.Enabled = True
        Chart2.ChartAreas("Default").AxisY.MajorGrid.Interval = 1000
        Chart2.ChartAreas("Default").AxisY.MajorGrid.LineColor = Color.LightGray
        Chart2.ChartAreas("Default").AxisY.MinorGrid.Enabled = True '启用 次辅助线 功能
        Chart2.ChartAreas("Default").AxisY.MinorGrid.Interval = 200 '次辅助线 间距为10
        Chart2.ChartAreas("Default").AxisY.MinorGrid.LineColor = Color.LightSlateGray '次辅助线颜色为灰色
        Chart2.ChartAreas("Default").AxisY.Interval = 500 'Y轴的 主线间距major
        Chart2.ChartAreas("Default").AxisY.MajorGrid.LineColor = Color.White
        Chart2.Series.Clear() '清除所有数据集
        Dim newSeries2 As New Series("Phase")
        newSeries2.ChartType = SeriesChartType.Point
        newSeries2.BorderWidth = 2
        newSeries2.Color = Color.Green
        newSeries2.XValueType = ChartValueType.Double
        newSeries2.IsValueShownAsLabel = False
        newSeries2.MarkerStyle = MarkerStyle.Square
        Chart2.Series.Add(newSeries2)
这是我用Chart画图得的代码,哪位大神帮我指点下,

哪位大神愿意指点的加我qq  327553229    发数据示例,谢谢

回复:
你的需求看得人满眼金星。X轴本来就是自动排序的呀。
不要把点保存到数组,直接填充datatable,前两列作为筛选条件创建dataview,根据第一列决定绑定dataview到哪个area,根据第二列决定把点放到哪个series

回复:
或者用linq,根据条件从总表里抽出不同的datarow,再进行绑定

回复:
不会用datatable,linq也不会用,有代码贴上来吗,我想在画图之前对数据排序

回复:
  VB 最新文章
用WebBrowser加载网页后,如何取得网页源代
API LoadImage
新年大吉,开帖散分!
如何利用vba将excel生成xml文件
库存金额计算
在C/S架构的客户端,当查询年报表时,比如此
sqllite轻数据库答疑(初学者入门 与精华收
VB6.0拷贝别人的程序,但提示加载sysmon.oc
vb.net DateTimePicker控件显示2个日期调整
VB2013软件里用Parallel.For同时下载多个文
上一篇文章      下一篇文章      查看所有文章
加:2017-10-29 22:38:15  更:2017-10-29 22:39:55 
VC(MFC) Delphi VB C++(C语言) C++ Builder 其它开发语言 云计算 Java开发 .Net开发 IOS开发 Android开发 PHP语言 JavaScript
ASP语言 HTML(CSS) HTML5 Apache MSSQL数据库 Oracle数据库 PowerBuilder Informatica 其它数据库 硬件及嵌入式开发 Linux开发资料
360图书馆 软件开发资料 文字转语音 购物精选 软件下载 新闻资讯 小游戏 Chinese Culture 股票 三丰软件 开发 中国文化 网文精选 阅读网 看图 日历 万年历 2018年11日历
2018-11-18 9:41:45
多播视频美女直播
↓电视,电影,美女直播,迅雷资源↓
TxT小说阅读器
↓语音阅读,小说下载,古典文学↓
一键清除垃圾
↓轻轻一点,清除系统垃圾↓
图片批量下载器
↓批量下载图片,美女图库↓
  网站联系: qq:121756557 email:121756557@qq.com  编程开发知识库