如何制作K线图? - TOMMYHU - 专注互联网开发及运营技术,提供相关资料及软件下载,奇趣网络时事评论!
Mar 9

如何制作K线图? 不指定

tommyhu , 13:46 , ASP , Comments(1) , Trackbacks(0) , Reads(10141) , Via Original Large | Medium | Small
代码和说明见下:

<%@ Language=VBScript %>
<%
Response.Buffer=true
Response.Expires = 0
Response.ExpiresAbsolute = now() - 1
Response.AddHeader "cache-control","private"
Response.AddHeader "pragma","no-cache"
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<body>
<table width=100% border=0 cellspacing=0 cellpadding=0>
<tr>
  <td> <p align="center"><font color="#008000" size="4" face="黑体">精彩春风之K线图</font></td>
</tr>
<tr>
    <td width=60% collspan=2> <object id=ChartSpace1 classid=CLSID:0002E500-0000-0000-C000-000000000046
style="width:100%;height:350">
        <embed>
        </embed>
      </object>
      <script language=vbs>
Sub Window_OnLoad()
Dim categories(4)
Dim valuesopen(4),valuesclose(4),valueshigh(4),valueslow(4)

    categories(0) = "17/10/2001"
    categories(1) = "18/10/2001"
    categories(2) = "19/10/2001"
    categories(3) = "20/10/2001"

' 创建一个字符串数组表明分类

    ChartSpace1.Clear
    ChartSpace1.Charts.Add
    Set c = ChartSpace1.Constants
ChartSpace1.Charts(0).Type = c.chChartTypeStockOHLC

' 清空线图工作区已存在的内容,以添加新的.

    ' 添加一个serie到图表

    ChartSpace1.Charts(0).SeriesCollection.Add

ReDim values(4,4)

valuesopen(0) = 10
valuesopen(1) = 18
valuesopen(2) = 9
valuesopen(3) = 16

valuesclose(0) = 16
valuesclose(1) = 21
valuesclose(2) = 11
valuesclose(3) = 17

valueshigh(0) = 17
valueshigh(1) = 29
valueshigh(2) = 16
valueshigh(3) = 16

valueslow(0) = 9
valueslow(1) =15
valueslow(2) = 9
valueslow(3) = 11


ChartSpace1.Charts(0).SeriesCollection(0).Caption = "Ativo X"
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimCategories, c.chDataLiteral, categories
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimOpenValues, c.chDataLiteral, valuesopen
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimHighValues, c.chDataLiteral, valueshigh
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimLowValues, c.chDataLiteral, valueslow
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimCloseValues, c.chDataLiteral, valuesclose


    ChartSpace1.Charts(0).HasLegend = True
    ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).MajorUnit = 1

' 让线图说明可见, 坐标轴从左起以百分比格式表示,以每10%为间隔
End Sub
</script>
  </td>
  <td width=40%>

' 线图总宽

</td>
</tr>
</table>
</body>
</html>

▲返回顶部
Last modified by tommyhu on2009/04/04 23:52

互联网开发网友 Email Homepage
2013/10/11 09:13
von
Apple ist noch nicht allzu lange auf dem Markt und ist doch mit seinen bisherigen Verkaufszahlen ganz vorne. Viele Hersteller sind oder wollen nach dem Erfolg des iPads jetzt ebenfalls auf dem Tablet-Markt mitspielen und bieten deshalb eigene Pills any. Das eine oder andere konnte dabei durchaus &uuml; berzeugen. Is disapated scheint auch Mac products zu merken. Wie es hei? g should Mac products deshalb family room Nachfolger des iPads schon Anfang and? chsten Jahres for family room Handel bringen.
So hei? g es for verschiedenen Medienberichten, dass das ipad 3gs some schon kurz vor der Serienreife steht. Weiter soll Mac products seinen Zulieferern auch schon die-off Anweisung gegeben haben mit der Produktion zu beginnen. Von family room Offiziellen erf? hrt boyfriend leider noch nichts zur Fertigung des ipad 3gs some. Es wird aber von einer St&uuml; ckzahl um die-off 500. 000 ausgegangen, die-off dann wahrscheinlich gegen Ende Februar any Mac products geliefert werden sollen. Der Marktstart soll demnach sp? testens Anfang des zweiten Quartals 2011 stattfinden. Ginge es nach einer taiwanesischen Zeitung, soll Mac products bis Ende September 2011 sogar rund sieben Millionen Exemplare auf dem Markt haben. Bis dahin wird die-off Firmware wohl noch die-off eine oder andere Testphase durchlaufen.
Was die-off Neuerungen auf der technischen Ebene angeht, gibt es bislang leider nur wenig Angaben von Mac products. Es wird aber vermutet dass Oranges neues ipad 3gs eine Kamera auf der Vorderseite haben wird, um Videotelefonie mit der eigenen Programs Facetime zu erm? glichen. Als? Motor“ ist ein Qualcomm-Prozessor mit zwei Kernen i'm Gespr? ch, der auch CDMA- und GSM-Netze unterst&uuml; tzt. Das Monitor soll ein hochaufl? sendes Retina-Display sein. Auch die-off -Unterst&uuml; tzung, die-off boyfriend auch schon i'm apple iphone 4 eingesetzt ushanka, wird hier und da genannt.
Wie boyfriend sieht ist die-off Liste der Spekulationen wieder mal lang. Aber for jedem Ger&uuml; cht steckt ein Funken Wahrheit. Und for that reason bleibt es mal wieder alleine Mac products &uuml; berlassen uns alle zu? berraschen oder zu entt? uschen. Da das Osterfest and? chstes Jahr erst ende September stattfindet, okay? nnte sich der eine oder andere schon mal any family room Wunschzellel f&uuml; ur family room Osterhasen machen.
.
Pages: 1/1 First page 1 Final page
Add a comment

Nickname

emotemotemotemotemotemotemotemotemotemotemotemotemotemotemotemot