拿个K线图做例子

K线图，又称阴阳烛，现在用红色和兰色表示涨跌，红色代表当天开盘价（烛体底部）低于收盘价（烛体顶部），即低开高收，上影线代表当天冲到的最高点，下影线代表当天下跌的最低点。兰色代表当天收盘价（烛体底部）低于开盘价（烛体顶部），即高开低收，上影线代表当天冲到的最高点，下影线代表当天下跌的最低点。从K线图上看，红色的不一定就比前一天高，而兰色的也不一定就比前一天低，比如一支股涨停开盘，收盘涨9%，较前一天有9%涨幅，但K线图上是阴线。用VB画K线图的例子吗？这是源码

PrivateSubDrawKLine(picBroadAsPictureBox,CurJLAsLong,tsAsLong,maxhighAsDouble,minlowAsDouble)

'画K线

DimDrawColorAsLong

DimiAsLong

DimMaxJLAsLong

picBroad.Cls

picBroad.Scale

IfCurJL+ts>UBound(hq)Then

MaxJL=UBound(hq)

Else

MaxJL=CurJL+ts

EndIf

picBroad.Scale(CurJL,maxhigh)-(CurJL+ts+1,minlow)

Fori=CurJLToMaxJL

Ifhq(i).spj>hq(i).kpjThen

DrawColor=QBColor(12)

ElseIfhq(i).spj

DrawColor=QBColor(10)

Else

DrawColor=QBColor(15)

EndIf

picBroad.Line(i+0.2,hq(i).kpj)-(i+0.8,hq(i).spj),DrawColor,BF

picBroad.Line(i+0.5,hq(i).zgj)-(i+0.5,hq(i).zdj),DrawColor

Next

EndSub

PrivateSubDrawVolume(picBroadAsPictureBox,CurJLAsLong,tsAsLong,maxhighAsDouble,minlowAsDouble)'画K线

'画成交量

DimDrawColorAsLong

DimiAsLong

DimMaxJLAsLong

picBroad.Cls

picBroad.Scale

IfCurJL+ts>UBound(hq)Then

MaxJL=UBound(hq)

Else

MaxJL=CurJL+ts

EndIf

picBroad.Scale(CurJL,maxhigh)-(CurJL+ts+1,minlow)

Fori=CurJLToMaxJL

Ifhq(i).spj>hq(i).kpjThen

DrawColor=QBColor(12)

ElseIfhq(i).spj

DrawColor=QBColor(10)

Else

DrawColor=QBColor(15)

EndIf

picBroad.Line(i+0.2,hq(i).cjl)-(i+0.8,minlow),DrawColor,BF

Next

EndSub

PrivateSubDrawAvangeKline(picBroadAsPictureBox,CurJLAsLong,tsAsLong,maxhighAsDouble,minlowAsDouble,AvangeTsAsLong,DrawColorAsLong)'画K线

'画均线

DimiAsLong

DimMaxJLAsLong

DimPointValue()AsDouble

DimjAsLong

DimStartXAsDouble,StartYAsDouble

picBroad.Scale

IfCurJL+ts>UBound(hq)Then

MaxJL=UBound(hq)

Else

MaxJL=CurJL+ts

EndIf

ReDimPointValue(CurJLToMaxJL)

picBroad.Scale(CurJL,maxhigh)-(CurJL+ts+1,minlow)

Fori=CurJLToMaxJL

Ifi>=AvangeTsThen

PointValue(i)=0

Forj=i-AvangeTs+1Toi

PointValue(i)=PointValue(i)+hq(j).spj

Next

PointValue(i)=PointValue(i)/AvangeTs

Ifi>CurJLThen

picBroad.Line(StartX,StartY)-(i+0.8,PointValue(i)),DrawColor

StartX=i+0.8

StartY=PointValue(i)

Else

StartX=i

StartY=PointValue(i)

EndIf

Else

PointValue(i)=0

EndIf

Next

EndSubk线图,又称阴阳烛,现在用红色和兰色表示涨跌,红色代表当天开盘价(烛体底部)低于收盘价(烛体顶部),即低开高收,上影线代表当天冲到的最高点,下影线代表当天下跌的最低点。兰色代表当天收盘价(烛体底部)低于开盘价(烛体顶部),即高开低收,上影线代表当天冲到的最高点,下影线代表当天下跌的最低点。从k线图上看,红色的不一定就比前一天高,而兰色的也不一定就比前一天低,比如一支股涨停开盘,收盘涨9%,较前一天有9%涨幅,但k线图上是阴线。

选择一只股票，尝试对它当天的K线形态及意义加以分析。

单日K线主要记录：开盘价、收盘价、最高价、最低价、着色（开盘与收盘的关系）

典型的K线形态：

长阴——空头力量强劲

长阳——多头力量强劲

长上影线——空头强于多头

长下影线——多头强于空头

十字等——多空双方均势所有的技术指标都是人制造出来的，人根据什么就能制造出技术指标呢？就是根据买卖双方的交易行为，股价的变化无常，编制出了上百种技术分析图形。

所有的技术分析都只能提供过去的，也就是历史的数据。通过历史的数据任凭你去分析，去猜想，去判断未来的走势。所以有人提出：投资股市购买股票，所有的技术分析所起的作用，只占全都作用的10%。可见看图形的作用实在是微呼其微。

所以我劝抄股者，还是把精力放在看基本面吧，只要你把上市公司的基本面来了解清楚，一定能取得一定的收益. 宏观经济面。股票内在运行规律。你的耐心。盘小，未分配利润多。而且没有分配过的长期持有。靠自己。第一要看的是均价线。均价线作为所有当天买进的人的平均买进成本，对注意该对长庄股，K线组合判断一般作用不大，而应该以形态分析和均线分析为主，比如整理 在选择短线股票时，必须注意回避那些一次就冲击到中期阻力位置的股票，上面的分析只能起到启发的作用。真正要掌握分时图综合分析 不管在牛市还是熊市，最好选择比较活跃的股票，通俗 ... 牛市行情中，可以灌注在一只个股上，但在弱市行情下，还是一筐鸡蛋要分成三只篮子装才安全。 ... 这只个股从底部拉到顶峰，有过4次的涨停板。从K线形态上，经常出现较长的上下 首先通过小的尝试，反复的介入和出局，达到对目标股主升段的把握。 ...

津滨发展(000897)。津滨发展控股天津市津滨新材料工业公司，从事稀土及钕铁硼永磁材料生产，公司还投资12个亿打造滨海最大创投科技园区，具备新能源材料与创投多重概念。津滨发展房地产项目储备的物业形态包括工业地产、商业地产和 ... 若实施整体上市，津滨发展土地储备将增长140.62%，开发区域扩展到天津以外，盈利规模将提高2倍以上。 房地产升值潜力非常巨大,一季度天津GDP增长速度继续居全国 .长期持有!!