1.文华财经期货波浪高低点画线指标公式源码
2.python在电脑上的波浪标源图标
3.通达信捕捉牛股利器 条件选股公式
4.求一个能实现屏幕水波纹效果的vb代码

文华财经期货波浪高低点画线指标公式源码

       文华财经期货波浪高低点画线指标公式源码

       为捕捉期货市场的波浪高低点，以下源码提供了一种实用的点源指标计算方式。

       首先，码波码我们定义了窗口大小N为。波浪标源

       接下来，点源我们通过HHX变量检查当前最高价是码波码金融后台源码否在过去N天中最高，若成立则HHX变为真。波浪标源

       NH表示HHX变为真后的点源天数累计。

       类似地，码波码我们定义了LLX和NL变量，波浪标源用于检查最低价的点源相对位置。

       AH和AL变量根据特定逻辑判断波浪高低点，码波码并使用BACKSET函数记录。波浪标源

       TT变量用于判断是点源否为最后一天的交易。

       使用DRAWLINE1函数绘制交叉点时的码波码狗扑源码申明线条，当AH等于1且TT为真时，绘制从最高价到计算结果的绿色线；当AL等于1且TT为真时，绘制从最低价到计算结果的红色线。

       我们还定义了HH2和LL2变量，以及AH2和AL2变量，用于在N+1天窗口内的波浪高低点检查。

       最后，注册签到系统源码我们使用DRAWLINE3函数绘制特定条件下的线段，确保了代码逻辑的完整性和准确性。

python在电脑上的图标

       Python在电脑上的图标是一个Python的标志图案。

       以下是关于Python在电脑上的图标

       Python图标简述

       Python的图标设计简洁而直观，通常呈现为一个蓝色的Python字母“P”形状，周围可能环绕着一些波浪形状的设计元素，代表着编程世界中的虚幻引擎的源码代码和数据流。这个图标广泛出现在电脑桌面、开始菜单、应用程序列表以及编程开发环境中，用以标识Python软件的存在。

       图标的设计意义

       Python的图标设计旨在体现其开放源代码、自由使用和广泛应用的特性。蓝色的邮件统计系统源码“P”字母代表了Python的名称，而波浪形状的设计则象征着编程中的动态和变化。这个图标不仅是一个标识，还传递出Python是一种灵活、强大且易于使用的编程语言的信息。

       图标的应用场景

       当你在电脑上安装Python后，这个图标通常会出现在你的操作系统界面中。你可以通过点击这个图标来启动Python解释器，编写和运行Python代码。此外，许多使用Python开发的应用程序也会采用类似的图标，以便用户能够轻松地识别和应用这些软件。随着Python的普及，这个图标已经成为编程环境中的一个常见标识。

       总的来说，Python在电脑上的图标是其软件标识的一部分，设计简洁且具有象征意义，能够帮助用户快速识别并启动Python相关应用程序。

通达信捕捉牛股利器 条件选股公式

       通达信选股公式:

       条件选股公式源码：

       年认同价:=MA(C,);

       价格中枢:=(SUM(年认同价,0)/(BARSSINCE(年认同价>0)+));

       箱顶:=价格中枢*1.2;

       箱底:=价格中枢*0.8;

       毛利润率:=FINANCE()/FINANCE();

       成长价值:=年认同价*(1+毛利润率);

       收益价值:=年认同价+FINANCE();

       回调认同:=EMA(EXPMA(C,),);

       多头:=(回调认同>REF(回调认同,1))AND(成长价值>REF(成长价值,1))AND(收益价值>REF(收益价值,1))AND(DYNAINFO(7)>0);

       回调条件:=COUNT(C<回调认同,5)>=3;

       回调突破:=(REF(C,1)<=REF(回调认同,1))AND(C>回调认同)AND(回调条件)AND多头;

       成长条件:=COUNT(C<成长价值,5)>=3;

       成长突破:=(REF(C,1)<=REF(成长价值,1))AND(C>成长价值)AND(成长条件)AND多头;

       收益条件:=COUNT(C<收益价值,5)>=3;

       收益突破:=(REF(C,1)<=REF(收益价值,1))AND(C>收益价值)AND(收益条件)AND多头;

       箱底条件:=COUNT(C<箱底,5)>=3;

       箱底突破:=(REF(C,1)<=REF(箱底,1))AND(C>箱底)AND(箱底条件)AND多头;

       价格条件:=COUNT(C<价格中枢,5)>=3;

       价格突破:=(REF(C,1)<=REF(价格中枢,1))AND(C>价格中枢)AND(价格条件)AND多头;

       箱顶条件:=COUNT(C<箱顶,5)>=3;

       箱顶突破:=(REF(C,1)<=REF(箱顶,1))AND(C>箱顶)AND(箱顶条件)AND多头;

       突破买点:(回调突破+成长突破+收益突破+箱底突破+价格突破+箱顶突破);

       专买老鼠仓

       { 老鼠仓}

       AA1:=AMOUNT/V;

       BB1:=L<AA1*0.9;

       CC1:=(C-REF(C,1))/REF(C,1)*>1.2;

       DD1:=L<MA(C,5)*0.;

       EE1:=V<MA(V,5)*1.5;

       FF1:=BB1 AND CC1 AND DD1 AND EE1;

       DRAWTEXT(FF1,(LOW* 0.),'老鼠仓'),COLORFF;

       老鼠仓是个很不错的指标，信号发出一般都在一个波段的底部起涨之时。

       根据本人的实践，使用指标时候要注意几点：

       1 该指标可以添加到任何一个主图里面去，比如MA均线什么的。

       2 出现信号当天买进股票，第二天收阳继续持股，直到出阴为止。

       3 第二天出阴考虑卖出，非常适合短线操作！

       老鼠仓(选股公式)

       AA1:=AMOUNT/V;

       BB1:=L<AA1*0.9;

       CC1:=(C-REF(C,1))/REF(C,1)*>1.2;

       DD1:=L<MA(C,5)*0.;

       EE1:=V<MA(V,5)*1.5;

       老鼠仓:BB1AND CC1 AND DD1 AND EE1;

       理想选股(选股公式)

       VAR1:=MA((LOW+HIGH+CLOSE)/3,5);

       VAR2:=CLOSE=HHV(C,4) AND REF(C,1)=LLV(C,4);

       VAR3:=REF(C,1)=LLV(C,4) AND C>=REF(C,2) OR REF(C,2)=LLV(C,4) ANDREF(C,1)<=REF(C,3) AND REF(C,2)<REF(C,4) AND C>=REF(C,1);

       VAR4:=VAR1>REF(VAR1,1) AND REF(VAR1,1)<REF(VAR1,2);

       VAR5:=LOW<HHV(VAR1,) AND HIGH>HHV(VAR1,) AND CLOSE>REF(C,1) ANDCLOSE>OPEN;

       VAR6:=VAR5 AND COUNT(VAR4,2);

       VAR7:=VAR6 AND NOT(REF(VAR6,1));

       VAR8:=*EMA(EMA(C-REF(C,1),6),6)/EMA(EMA(ABS(C-REF(C,1)),6),6);

       VAR9:=EMA(MA(C,),);

       VAR:=FILTER((LLV(VAR8,2)=LLV(VAR8,7) AND COUNT(VAR8<0,2) ANDCROSS(VAR8,MA(VAR8,2)))=1,5);

       VAR:=SMA(EMA((C-REF(C,1))/REF(C,1),5)*,3,1)*;

       VAR:=FILTER(((CROSS(VAR,0) OR CROSS(C,VAR9)) AND VAR)=1,3);

       VAR:=MA(C,)>=REF(MA(C,),3) AND CROSS(C,MA(C,));

       RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*;

       K:=SMA(RSV,3,1);

       D:=SMA(K,3,1);

       J:=3*K-2*D;

       金叉:=CROSS(J,D);

       死叉:=CROSS(D,J);

       买1:=(VAROR VAR) AND VAR;

       买2:=(VAROR VAR) AND VAR3;

       买3:=(VAROR VAR) AND VAR2;

       买4:=(VAR2AND VAR) OR (VAR3 AND VAR);

       买5:=(金叉AND VAR3) OR (金叉 AND VAR2) OR (金叉 AND VAR);

       ST:=EXIST(C/REF(C,1)>1.,);

       输出:=(买1OR 买2OR 买3OR 买4OR 买5OR VAR7) AND ST;

       MA5:=MA(C,5),COLORWHITE;

       X:=(3*C+L+O+H)/6;

       多空线:=(*X+*REF(X,1)+*REF(X,2)+*REF(X,3)+*REF(X,4)+*REF(X,5)+*REF(X,6)

       +*REF(X,7)+*REF(X,8)+*REF(X,9)+*REF(X,)+9*REF(X,)+8*REF(X,)

       +7*REF(X,)+6*REF(X,)+5*REF(X,)+4*REF(X,)+3*REF(X,)+2*REF(X,)+

       REF(X,))/,COLORFFFF,LINETHICK1;

       AB:=DRAWLINE(HIGH>=HHV(HIGH,),HIGH,LOW<=LLV(LOW,3),HHV(HIGH,3),1),COLORYELLOW;

       CROSS(MA5,多空线) and CROSS(C,AB) and 输出 ;

       点石成金(选股公式)

       KS:=(CLOSE-MA(CLOSE,))/MA(CLOSE,)*(-);

       RSV:=(CLOSE-LLV(LOW,))/(HHV(HIGH,)-LLV(LOW,))*;

       FASTK:=SMA(RSV,3,1);K:=SMA(FASTK,3,1);D:=SMA(K,5,1);

       Var1:=CLOSE/MA(CLOSE,)*<;

       Var2:=CLOSE/MA(CLOSE,)*<;

       Var3:=HIGH>LOW*1.;

       Var4:=Var3 AND COUNT(Var3,5)>1;

       Var4 AND (Var1 OR Var2) AND REF(KS,1)>= AND REF(KS,1)/KS>=1.AND

       CLOSE/REF(CLOSE,1)>=1.;

       牛市绝底(选股公式)

       VAR1:=REF(CLOSE,1);

       VAR2:=((SMA(MAX((CLOSE - VAR1),0),7,1) / SMA(ABS((CLOSE - VAR1)),7,1)) * );

       VAR3:=((SMA(MAX((CLOSE - VAR1),0),,1) / SMA(ABS((CLOSE - VAR1)),,1)) *);

       VAR4:=(( * (HHV(HIGH,) - LOW)) / HHV(HIGH,));

       VAR5:=(( * (HIGH - LLV(LOW,))) / LLV(LOW,));

       牛市绝底:VAR2< AND VAR3 < AND (VAR2 + VAR3) > AND VAR4 > ANDBARSCOUNT(CLOSE) > ;

       飞弹一号(选股公式)

       var1:=c/ma(c,)*<;

       var2:=c/ma(c,)*<;

       var3:=h>=l*1.;

       var4:=var3 and count(var3,5)>=2;

       xg:var4 and (var1 or var2) and count(h=l and c=o and c<ref(c,1),3)=0

       and hhv(v/capital,)<0.8;

       跟庄建仓源码

       A:=DYNAINFO(7);

       A:=BARSCOUNT(CLOSE);

       A:=(SMA((CLOSE / HHV(HIGH,)),3,1) * );

       A:=IF((A > ),A,0);

       A:=IF((LOW > A),0,IF((HIGH < A),1,(((A - LOW) + 0.) / ((HIGH -LOW) + 0.))));

       A:=DMA(A,(VOL / CAPITAL)) * ;

       A:=IF((((A > 0) AND (A > REF(A,1))) AND (A <= )),A,0);

       Var1:=3*SMA((CLOSE-LLV(LOW,))/(HHV(HIGH,)-LLV(LOW,))*,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,))/(HHV(HIGH,)-LLV(LOW,))*,5,1),3,1);

       Var2:=EMA(Var1,8);

       Var3:=3*SMA((C-LLV(L,))/(HHV(H,)-LLV(L,))*,5,1)-2*SMA(SMA((C-LLV(L,))/(HHV(H,)-LLV(L,))*,5,1),3,1);

       趋势:=EMA(Var3,3)-;

       STICKLINE(趋势>,趋势,,5,0);

       DRAWICON(CROSS(趋势,0),0,1);

       STICKLINE((A > 0 AND (趋势< OR 趋势>REF(趋势,1)AND趋势<)),0,A,6,0),colorFFff;

       机构建仓区:0,LINETHICK0,colorFFFF;

       Var4:=(趋势-REF(趋势,1))/REF(趋势,1)*;

       STICKLINE(趋势<=,0,,3,0),colorcc;

       DRAWTEXT(FILTER(趋势<=,),,'准备现金'),colorcc;

       STICKLINE(趋势<= AND Var4>,0,,2,0),colorff;

       Var5:=FILTER((趋势<= AND Var4>),);

       DRAWTEXT(Var5,,'买入'),colorff;

       STICKLINE(趋势>= AND Var4,0,,3,0),colorgray;

       Var6:=FILTER((趋势>= AND Var4),);

       DRAWTEXT(Var6,,'清仓'),colorgray;

       Var7:=LLV(LOW,);

       Var8:=HHV(HIGH,);

       Var9:=EMA((CLOSE-Var7)/(Var8-Var7)*4,4)*;

       STICKLINE(Var9>,,,3,2),COLORRED;

       Var:=(Var9-LLV(Var9,4))/(HHV(Var9,4)-LLV(Var9,4))*;

       DRAWTEXT(IF(CROSS(Var9,Var) AND Var9>,,0),,'险'),ColorFF;

       DRAWICON(CROSS(,Var9),,9);

       Var:=SMA(ABS(L-REF(L,1)),3,1)/SMA(MAX(L-REF(L,1),0),3,1)*;

       Var:=HHV(Var,)*8;

       火焰山:EMA(IF(LOW<=Var7AND 趋势<,(Var+Var),0),3)/,COLORRED,linethick2;

       STICKLINE(火焰山>0,0 ,火焰山*1.2,4,0 ),COLORRED;

       Var:=(MA(C,1)+MA(C,3)+MA(C,5)+MA(C,7)+MA(C,9))/5;

       Var:=(MA(C,2)+MA(C,4)+MA(C,6)+MA(C,8)+MA(C,))/5;

       趋势线:趋势,colorff;

       Var:=MAX(EMA(Var,2)-EMA(Var,5),0)*;

       Var:=EMA(Var,5);

       波浪峰:Var,stick,colorffff;

       STICKLINE(Var<REF(Var,1),0,Var,1,0),colorff;

       Var:=MA(趋势线,8);

       if(CROSS(Var2,Var) AND Var2<,,0),COLORRED;

       DRAWTEXT(CROSS(趋势线,Var2)AND 趋势线>REF(趋势线,1)AND 趋势线<,,'追涨'),COLORffff;

       风险区:IF(趋势>,趋势,),colorffff;

       双信号"全仓"选股(选股公式)

       FF:=EMA(CLOSE,3);

       MA:=EMA(CLOSE,);

       TTJ:=CROSS(FF,MA);

       上:=EMA(C,3),COLORBLUE,LINETHICK1;

       中:=EMA(C,5),COLORWHITE,LINETHICK1;

       下:=EMA(中,5),COLORFF,LINETHICK1;

       QQ:= C<中;

       MM:=上>REF(上,1)AND REF(上,1)<REF(上,2) ;

       V1:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,))/MA(CLOSE,);

       V2:=(1-7/)*(DMA(CLOSE,V1));

       V3:=(1+7/)*(DMA(CLOSE,V1));

       V5:=MA((LOW+HIGH+CLOSE)/3,5);

       MA1:=MEMA(CLOSE,5);

       MA2:=ATAN((MA1/REF(MA1,1)-1)*)*/3.;

       MA3:=IF(MA2>0,MA2,MA2);

       MA5:=MA(CLOSE,5),COLOR;

       MA:=MA(CLOSE,),COLORFFF0,LINETHICK2;

       VAR:=CLOSE=HHV(C,4) AND (REF(C,1)>=REF(C,2) OR REF(C,1)>=REF(C,3))

       OR REF(C,1)=HHV(C,4) AND CLOSE>=REF(C,2) OR REF(C,2)=HHV(C,4) AND

       REF(C,3)=LLV(C,4) AND C>=REF(C,1) OR REF(C,3)=HHV(C,4) AND

       C>=REF(C,1) AND C>=REF(C,2);

       { 收盘价=4日内收盘价的最高值AND 昨收>=2日前的收盘价}

       VAR:=CLOSE=HHV(C,4) AND REF(C,1)=LLV(C,4);

       { 收盘价=4日内收盘价的最高值AND 昨收=4日内收盘价的最低值}

       VAR:=CLOSE=LLV(C,4) AND (REF(C,1)<REF(C,2) OR REF(C,1)<REF(C,3)) OR

       REF(C,1)=LLV(C,4) AND C<REF(C,2) OR REF(C,2)=LLV(C,4) AND

       REF(C,1)=HHV(C,4) AND C<REF(C,1) OR REF(C,3)=LLV(C,4) AND

       C<REF(C,1) AND C<REF(C,2);

       { 收盘价=4日内收盘价的最低值AND (昨收<2日前的收盘价}

       VAR:=REF(C,1)=LLV(C,4) AND C>=REF(C,2) OR REF(C,2)=LLV(C,4) AND

       REF(C,1)<=REF(C,3) AND REF(C,2)<REF(C,4) AND C>=REF(C,1);

       { 昨收=4日内收盘价的最低值AND 收盘价>=2日前的收盘价}

       VAR:=REF(C,1)=HHV(C,4) AND C<REF(C,2) OR (REF(C,2)=HHV(C,4) AND

       REF(C,1)>REF(C,3) OR REF(C,3)=HHV(C,4) AND REF(C,1)>REF(C,2)) AND

       REF(C,2)>=REF(C,4) AND C<REF(C,1);

       { 昨收=4日内收盘价的最高值AND 收盘价<2日前的收盘价}

       VAR:=V5>REF(V5,1) AND REF(V5,1)<REF(V5,2);

       { 今日V5向上形成拐点}

       VAR:=LOW<HHV(V5,) AND HIGH>HHV(V5,) AND CLOSE>REF(C,1) ANDCLOSE>OPEN;

       VAR:=VAR AND COUNT(VAR,2);

       VAR:=*EMA(EMA(C-REF(C,1),6),6)/EMA(EMA(ABS(C-REF(C,1)),6),6);

       VAR:=EMA(MA(C,),);

       VAR:=FILTER((LLV(VAR,2)=LLV(VAR,7) AND COUNT(VAR<0,2) AND

       CROSS(VAR,MA(VAR,2)))=1,5);

       VAR:=FILTER((HHV(VAR,2)=HHV(VAR,7) AND COUNT(VAR>,2) AND

       CROSS(MA(VAR,2),VAR))=1,1);

       VAR:=SMA(EMA((C-REF(C,1))/REF(C,1),5)*,3,1)*;

       VAR:=FILTER(((CROSS(VAR,0) OR CROSS(C,VAR)) AND VAR)=1,3);

       VAR:=MA(C,)>=REF(MA(C,),3) AND CROSS(C,MA(C,));

       VAR:=VAR AND NOT(REF(VAR,1));

       RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*;

       K:=SMA(RSV,3,1);

       D:=SMA(K,3,1);

       J:=3*K-2*D;

       金叉:=CROSS(J,D);

       死叉:=CROSS(D,J);

       买1:=(VAROR VAR) AND VAR;

       买2:=(VAROR VAR) AND VAR;

       买3:=(VAROR VAR) AND VAR;

       买4:=(VARAND VAR) OR (VAR AND VAR);

       买5:=(金叉AND VAR) OR (金叉 AND VAR) OR (金叉 AND VAR);

       TTJ0:=VAR;

       TTJ1:=买1OR 买2OR 买3OR 买4OR 买5AND MM;

       XG0:=TTJ AND TTJ0;

       XG1:=TTJ AND TTJ1;

       XG:=XG0 OR XG1;

       { 以下波浪理论浪底重叠"买底"选股原码}

       PL5:=ZIG(3,5);

       EN1:=ZIG(3,5)>REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)<=REF(ZIG(3,5),2) ANDREF(ZIG(3,5),2)<=REF(ZIG(3,5),3);

       EX1:=ZIG(3,5)<REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)>=REF(ZIG(3,5),2) ANDREF(ZIG(3,5),2)>=REF(ZIG(3,5),3);

       PL:=ZIG(3,);

       EN2:=ZIG(3,)>REF(ZIG(3,),1) AND REF(ZIG(3,),1)<=REF(ZIG(3,),2)AND REF(ZIG(3,),2)<=REF(ZIG(3,),3);

       EX2:=ZIG(3,)<REF(ZIG(3,),1) AND REF(ZIG(3,),1)>=REF(ZIG(3,),2)AND REF(ZIG(3,),2)>=REF(ZIG(3,),3);

       PL:=ZIG(3,);

       EN3:=ZIG(3,)>REF(ZIG(3,),1) AND REF(ZIG(3,),1)<=REF(ZIG(3,),2)AND REF(ZIG(3,),2)<=REF(ZIG(3,),3);

       EX3:=ZIG(3,)<REF(ZIG(3,),1) AND REF(ZIG(3,),1)>=REF(ZIG(3,),2)AND REF(ZIG(3,),2)>=REF(ZIG(3,),3);

       PL:=ZIG(3,);

       走强1:=BARSLAST(PL5<REF(PL5,1));

       走弱1:=BARSLAST(PL5>REF(PL5,1));

       走强2:=BARSLAST(PL<REF(PL,1));

       走弱2:=BARSLAST(PL>REF(PL,1));

       走强3:=BARSLAST(PL<REF(PL,1));

       走弱3:=BARSLAST(PL>REF(PL,1));

       ZTJZ5:=IF(PL>REF(PL,1),COUNT(EN1,走强2),0);

       ZTJD5:=IF(PL>REF(PL,1),COUNT(EX1,走强2),0);

       DTJZ5:=IF(PL<REF(PL,1),COUNT(EN1,走弱2),0);

       DTJD5:=IF(PL<REF(PL,1),COUNT(EX1,走弱2),0);

       ZTJZ:=IF(PL>REF(PL,1),COUNT(EN2,走强3),0);

       ZTJD:=IF(PL>REF(PL,1),COUNT(EX2,走强3),0);

       DTJZ:=IF(PL<REF(PL,1),COUNT(EN2,走弱3),0);

       DTJD:=IF(PL<REF(PL,1),COUNT(EX2,走弱3),0);

       TJ:=EN2 AND ZTJZ5=1;

       TJ:=EN1 AND PL>REF(PL,1) AND ZTJZ5=2;

       TJ:=EN2 AND DTJZ=1;

       TJ:=EN3 AND ZTJZ=1;

       TJ:=EN2 AND PL>REF(PL,1) AND ZTJZ=2;

       XG:=TJ OR TJ OR TJ OR TJ OR TJ;

       { 以下二者结合共同选股}

       XG:=XG OR XG;

       W:EXIST(XG,1);

求一个能实现屏幕水波纹效果的vb代码

       '补模块3文件。一个放不下。

       '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

       ' 渲染子程序，将新的帧数据渲染到 lpDIBitsRender 中

       ' 算法：

       ' posx = Wave1(x-1,y)-Wave1(x+1,y)+x

       ' posy = Wave1(x,y-1)-Wave1(x,y+1)+y

       ' SourceBmp(x,y) = DestBmp(posx,posy)

       '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

       Public Sub WaveRender(lpWaveObject As WAVE_OBJECT)

       Dim dwPosX As Long, dwPosY As Long, dwPtrSource As Long, dwPtrDest As Long, dwFlag As Long

       Dim lpWave1 As Long, LineIdx As Long, LinePtr As Long

       Dim lpDIBitsSource As Long, lpDIBitsRender As Long

       Dim I As Long, J As Long

        dwFlag = 0

       With lpWaveObject

       'Debug.Print "WaveRender " & .dwFlag

        If (.dwFlag And F_WO_ACTIVE) = 0 Then Exit Sub

        .dwFlag = .dwFlag Or F_WO_NEED_UPDATE

        lpWave1 = .lpWave1

        LineIdx = .dwWaveByteWidth '像素指针

        For I = 1 To .dwBmpHeight - 2

        For J = 0 To .dwBmpWidth - 1

       '