量学论坛 › 周末讲座 › 量柱擒涨停十步之法

雪狼星光 发表于 2012-11-25 15:52

向高手学习！向高手致敬！

雪狼星光 发表于 2012-11-25 15:54

:victory::victory::victory::victory::victory::victory:

柱里乾坤 发表于 2012-11-25 16:03

谢谢分享，学习了。

柱里乾坤 发表于 2012-11-25 16:18

谢谢分享，学习了。

天马空空 发表于 2012-11-25 19:52

:):):):):)

股坛云游 发表于 2012-11-25 20:28

    :handshake

牛松 发表于 2012-11-25 20:42

支持楼主，严格执行，绝不手软！
本文来自: 股海明灯论坛详细文章参考：http://www.178448.com/thread-230725-1-1.html

大卢 发表于 2012-11-25 21:07

向你学习，量柱擒涨停

潮起潮落太阳升 发表于 2012-11-25 21:14

学习学习...

赵明廉 发表于 2012-11-25 21:21

Function Custom_GL(NUMBER) 'Custom_GL表示软件要调用的函数名,这个不可改变
Custom_GL = False 'False表示NUMBER不会被过滤,首先初始化设置号码不被过滤

BW = CInt(Left(NUMBER, 1)) 'BW表示号码的百位
SW = CInt(Mid(NUMBER, 2, 1)) 'SW表示号码的十位
GW = CInt(Right(NUMBER, 1)) 'GW表示号码的个位

If BW < SW Then
    S = BW
    BW = SW
    SW = S
End If

If BW < GW Then
    S = BW
    BW = GW
    GW = S
End If

If SW < GW Then
    S = SW
    SW = GW
    GW = S
End If

S = SW 'S是中间数了


T = "%条件%"

If InStr("," & T & ",", "," & S & ",") <> 0 Then
    Custom_GL = True '如果满足上面条件的就是true,也就是号码就会被过滤掉
Else
    Custom_GL = False
End If


''''''''''''''''''
''''''''''''''''''
End Function '这是语法的结尾,请不要删了~~
''''''''''''''''''
''''''''''''''''''

神奇的手 发表于 2012-11-26 10:32

楼主辛苦了

证券先锋 发表于 2012-11-26 22:48

:loveliness:

农夫喜黄牛 发表于 2012-11-27 17:00

好好学习天天向上

狐狸糊涂 发表于 2012-11-27 21:45

学习中

孙开杰 发表于 2012-11-28 07:00

好好学习天天向上

查看完整版本: 量柱擒涨停十步之法