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;
再試一下，可以關注我，有問題再聯系我。