以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]在编制candle图表时,如否去掉周六周日?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127139)

--  作者:jeff69
--  发布时间:2018/11/6 16:20:00
--  [求助]在编制candle图表时,如否去掉周六周日?

老师,这是帮助文件中编制candle图的例子,但事实上,这是不可能的,因为是不可能每天连续交易的,如果用实际交易数据来做,会得出这样的图:
图片点击可在新窗口打开查看此主题相关图片如下:图_看图王.bmp
图片点击可在新窗口打开查看


假定有一个表:

图片点击可在新窗口打开查看

完整地图示该表的代码为:

Dim Chart As WinForm.Chart \'定义一个图表变量
Dim
 Series As WinForm.ChartSeries \'定义一个图系变量
Dim
 t As Table = Tables("stock"\'定义一个变量t引用数据表
Chart= Forms(
"窗口1").Controls("Chart1"\' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Candle 
\'设置图表类型
Chart.AxisX.DateType = 
True \'明确指定X轴是日期型
Chart.AxisX.AnnoFormatString = 
"MM-dd" \'制定日期表示格式
Chart.AxisY.Text = 
"价格"
Chart.SeriesList.Clear() 
\'清除图表原来的图系
Series = Chart.SeriesList.Add() 
\'增加一个图系
Series.LineColor = Color.Blue 
\'设置该图系的颜色
Chart.DataSource = 
"Stock" \'绑定设置
Series.X.DataField = 
"日期"
Series.Y.DataField = 
"最高价" 
Series.Y1.DataField = 
"最低价" 
Series.Y2.DataField = 
"开盘价" 
Series.Y3.DataField = 
"收盘价"

\'用第二个图表显示成交额

Chart.ChartType2 = ChartTypeEnum.Bar
Chart.SeriesList2.Clear() 
Series = Chart.SeriesList2.Add()
Series.FillColor = Color.LightBlue 
\'设置条形图的填充颜色
Series.X.DataField = 
"日期"
Series.Y.DataField = 
"成交额"
Chart.AxisY2.Text = 
"成交额"
Chart.AxisY2.GridMajorVisible = 
False \'隐藏Y2轴的网格线


空出来的就是周六周日没有交易数据的,请问老师有办法去掉周六周日吗?


--  作者:有点甜
--  发布时间:2018/11/7 9:52:00
--  

参考

 

下载信息  [文件大小:752.0 KB  下载次数:4]
图片点击可在新窗口打开查看点击浏览该文件:蜡烛图问题.table


--  作者:jeff69
--  发布时间:2018/11/7 10:18:00
--  
老师,这是什么文件?开发版打不开啊
--  作者:有点甜
--  发布时间:2018/11/7 10:19:00
--  
以下是引用jeff69在2018/11/7 10:18:00的发言:
老师,这是什么文件?开发版打不开啊

 

如果你购买了开发版。你在下载开发版的地方,下载一个【商业版】安装,即可打开。