vb股票交易策略代码

❶ 股票公式源码 谁能帮我翻译一下，跪谢了 我实在是看不懂啊

V1赋值:是否最后一个周期
V2赋值:N1*VARTIME日前的最高价=2*N1+1*VARTIME日内最高价的最高值
V3赋值:V2的N1日过滤
V4赋值:若V3则将最近N1+1周期置为1
V5赋值:V4的N1日过滤
V6赋值:V5 OR V1
V7赋值:N1日前的最低价=2*N1+1日内最低价的最低值
V8赋值:V7的N1日过滤
V9赋值:若V8则将最近N1+1周期置为1
VA赋值:V9的N1日过滤
VB赋值:VA AND 取反
VC赋值:若V6则将最近昨日上次VB距今天数+1周期置为1
VD赋值:VC>昨日VC
VE赋值:若VD则将最近2周期置为1
VF赋值:VE>昨日VE
V10赋值:若VFANDCOUNT(V6,昨日上次VB距今天数+2)=0则将最近昨日上次VB距今天数+2周期置为1
V11赋值:V10>昨日V10
V12赋值:若V11ANDCOUNT(V6,昨日上次VB距今天数+2)=0则将最近昨日上次VB距今天数+2周期置为1
V13赋值:V12>昨日V12
V14赋值:如果V6,返回统计昨日上次V6距今天数+1日中满足VB的天数,否则返回0
V15赋值:如果V14=1ANDV6,返回上次VF距今天数,否则返回0
V16赋值:如果V6ANDREF(最低价,上次VF距今天数)>=上次V11距今天数日前的最低价,返回上次V11距今天数,否则返回上次VF距今天数
V17赋值:如果V14=2ANDV6,返回V16,否则返回0
V18赋值:如果V14>=3ANDV6,返回如果V6ANDREF(最低价,V16)>=上次V13距今天数日前的最低价,返回上次V13距今天数,否则返回V16,否则返回0
V19赋值:V15+V17+V18
V1A赋值:若V6则将最近V19周期置为1
V1B赋值:V1A>昨日V1A
V1C赋值:若V1B则将最近2周期置为1
V1D赋值:V1C>昨日V1C
V1E赋值:V1D OR V1
V1F赋值:若V1E则将最近昨日上次V6距今天数+1周期置为1
V20赋值:V1F>昨日V1F
V21赋值:若V20则将最近2周期置为1
V22赋值:V21>昨日清旅V21
V23赋值:若V22ANDCOUNT(V1E,昨日上次V6距今天数+2)=0则将最近昨日上次V6距今天数+2周期置为1
V24赋值:V23>昨日V23
V25赋值:若V24ANDCOUNT(V1E,昨日上次V6距今天数+2)=0则将最近昨日上次V6距今天数+2周期置为1
V26赋值:V25>昨日V25
V27赋值:如果V1E,返回统计昨日上次V1E距今天数+1日中满足V5的天数,否则返回0
V28赋值:如果V27=1ANDV1E,返回上次V22距今天数,否则返回0
V29赋值:如果V1EANDREF(最高价,上次V22距今天数)<=上次V24距今天数日前的最高价,返回上次V24距今天数,否则返回上次V22距今天数
V2A赋值:如果V27=2ANDV1E,返回V29,否则返回0
V2B赋值:如果V27>=3ANDV1E,返回如果V1EANDREF(最高价,V29)<=上次V26距今天数日前的最高价,返回上次V26距今天数,否则返回V29,否则返回0
V2C赋值:V28+V2A+V2B
V2D赋值:若V1E则将最近V2C周期置为1
V2E赋值:V2D>昨日V2D
V2F赋值:若V2E则将最近2周期置为1
V30赋值:V2F>昨日V2F
V31赋值:若V1则将最近上次V1D距今天数+1周期置为1
V32赋值:V31>昨日V31
V33赋值:若V1则将最近上次V30距今天数+1周期置为1
V34赋值:V33>昨日V33
V35赋值:如果上次V32距今天数<上次V34距今天数,返回V32,否则返回V34
V36赋值:如果上次V32距今天数<上次V34距今天数,返回最低价,否则返回最高价
V37赋值:若V1则将最近上次V1D距今天数+1周期置为1
V38赋值:V37>昨日V37
V39赋值:若V38则将最近昨日上次V1D距今天数+2周期置为1
V3A赋值:V39>昨日V39
当满足条件V3A*VARTIME时,在最低价位置画直线起点，当满足条件V38*VARTIME时,在最低价答棚凳位置画直线终点,1表示是否延长.,LINETHICK1,画黄色,LINEDOT
V3B赋值:若V1则将最近上次V30距今天数+1周期置为1
V3C赋值:V3B>昨日V3B
V3D赋和孙值:若V3C则将最近昨日上次V30距今天数+2周期置为1
V3E赋值:V3D>昨日V3D
当满足条件V3E*VARTIME时,在最高价位置画直线起点，当满足条件V3C*VARTIME时,在最高价位置画直线终点,1表示是否延长.,LINETHICK1,画黄色,LINEDOT
输出 XX1: 上次V38距今天数*VARTIME日前的最低价,COLORCCFF99,LINETHICK2
输出 前二低: 上次V3A距今天数*VARTIME日前的最低价,画洋红色,LINETHICK2
输出 YY1: 上次V3C距今天数*VARTIME日前的最高价,COLORCCFF99,LINETHICK2
输出 前二高: 上次V3E距今天数*VARTIME日前的最高价,画洋红色,LINETHICK2
当满足条件是否最后一个周期*VARTIME时,在YY1位置书写数字
当满足条件是否最后一个周期*VARTIME时,在XX1位置书写数字
当满足条件是否最后一个周期*VARTIME时,在前二低位置书写数字
当满足条件是否最后一个周期*VARTIME时,在前二高位置书写数字

含义：对应代码的每一行

❷ vb 获取股票行情报价

这是页面内容采集问题,没啥难度

网上代码太多了(你可以搜 VB 抓取网页),以实现基本功能(把页面 http://www....)的内容抓过来
有了内容,你需要做的仅是截取部分有用内容后在使用正则表达式筛选即可

比如你抓过来的内容是截取部分有用内容后放到了字符串 str
那么使用下面的函数即可
' 正则求值

Public Function Value(ByVal str As String, ByVal RegexEx As String, ByVal SN As Integer) As String
Try
Dim regex As New Regex(RegexEx)
Dim m As MatchCollection = regex.Matches(str)
Try
Return m(SN).ToString()
Catch
Return ""
End Try
Catch
Return ""
End Try

End Function

你的text1可能是

需要过滤下

dim a as string = Value(str,"...",0).replace("<a>","")
text1.text = a

dim b as string = Value(str,"...",1).replace("<a>","")
text1.text = b

...

顺便说下,看股票的话免费软件一大把,人家比你这个功能更强了,而且更新速度比这个网站更快

❸ 用VB 读取通达信实时股票数据(现价，涨幅)

关键是接口

我估计现在没有免费的接口了！！！

所以你想自己编程获取实时数据，几乎不可能了！！！

总之，没有有效的网络实时数据支持，这是开源股软的最致命的地方！！！

❹ EXCEL如何用VBA自动获取每个股票近几天的涨幅

一般网页上的数据都可以通过VBA进行抓取，应用得好，可以实现对很很多资料的动态监测。
涨幅就是指目前这只股票的上涨幅度。
涨幅的计算公式：涨幅=(现价-上一个交易日收盘价）/上一个交易日收盘价*100%
例如：某只股票价格上一个交易日收盘价100，次日现价为110.01，就是股价涨幅为（110.01-100 ）/100*100%=10.01%.一般对于股票来说 就是涨停了!如果涨幅为0则表示今天没涨没跌，价格和前一个交易日持平。如果涨幅为负则称为跌幅。
比如:一支股票的涨幅是：10%、-5%等 。

❺ 用VB如何直接获取股票实时数据

可以通过调用ChinaStockWebService的服务来实现获取股票的实时数据，代码如下：

publicstring[]getStockInfo(stringstockcode)
{

//stringurl="http://hq.sinajs.cn/list="+stockcode;
//stockcode某只股票的代码
stringurl="http://hq.sinajs.cn/list=sh600683";
WebClientclient=newWebClient();
client.Headers.Add("Content-Type","text/html;charset=gb2312");
Streamdata=client.OpenRead(url);
StreamReaderreader=newStreamReader(data,Encoding.GetEncoding("gb2312"));
strings=reader.ReadToEnd();
reader.Close();
data.Close();
returns.Split(',');
}

❻ 股票指标源代码中的“VB”是指什么

你这是因为代码不全，把下面的代码，粘贴到你公式前面，
V1:=(C*2+H+L)/4*10;
V2:=EMA(V1,13)-EMA(V1,34);
V3:=EMA(V2,5); V4:=2*(V2-V3)*5.5;
主力撤: IF(V4<=0,V4,0),colorblue;
主力进: IF(V4>=0,V4,0),colorff00ff;
V5:=(HHV(INDEXH,8)-INDEXC)/(HHV(INDEXH,8)-LLV(INDEXL,8))*8;
V6:=EMA(3*V5-2*SMA(V5,18,1),5);
V7:=(INDEXC-LLV(INDEXL,8))/(HHV(INDEXH,8)-LLV(INDEXL,8))*10;
V8:=(INDEXC*2+INDEXH+INDEXL)/4;
V9:=EMA(V8,13)-EMA(V8,34);
VA:=EMA(V9,3);
VB:=(V9-VA)/2;
再试一下，可以关注我，有问题再联系我。