3月9

如何制作K线图?

Large | Medium | Small
13:46 ASP  From: Original
Reads(10742) | Comments(1) | Trackbacks(0)
代码和说明见下:

<%@ 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
tommyhuc.cn网友,来自
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
Emots
emotemotemotemotemotemotemotemotemotemotemotemotemotemotemotemot
Enable HTML
Enable UBB
Enable Emots
Hidden
Remember

Nickname : 

Password(可不填) :  Optional

Site URI (可不填) : 

Email (可不填) :  [Register]