vb股票軟體下載
A. 股票指標源代碼中的「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;
再試一下，可以關注我，有問題再聯系我。
B. 用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(',');
}
C. EXCEL如何用VBA自動獲取每個股票近幾天的漲幅
一般網頁上的數據都可以通過VBA進行抓取，應用得好，可以實現對很很多資料的動態監測。
漲幅就是指目前這只股票的上漲幅度。
漲幅的計算公式：漲幅=(現價-上一個交易日收盤價）/上一個交易日收盤價*100%
例如：某隻股票價格上一個交易日收盤價100，次日現價為110.01，就是股價漲幅為（110.01-100 ）/100*100%=10.01%.一般對於股票來說 就是漲停了!如果漲幅為0則表示今天沒漲沒跌，價格和前一個交易日持平。如果漲幅為負則稱為跌幅。
比如:一支股票的漲幅是：10%、-5%等 。
D. 用VB語言能否編出股票期貨類軟體
可以，現在還有很多公司和企業、政府用的軟體就是用VB編寫的。這個也不例外，只不過現在出現的編程語言越來越多，實現某個軟體可供選擇比較多而已。
E. VB 修改一個股票行情監測腳本 到了預定的股價就啟動程序a.exe
Dim file1, file2 As String
Private Sub Command1_Click()
If Val(Text1.Text) > Val(Text2.Text) Then Shell (file1)
'text2.text為大於這個值時 執行
If Val(Text1.Text) < Val(Text3.Text) Then Shell (file2)
'text3.text為小於這個值時 執行
End Sub
Private Sub Command2_Click()
WebBrowser1.Navigate "http://.hexun.com/stock/q.php?code=" & Text4.Text
End Sub
Private Sub Command3_Click()
CommonDialog1.DialogTitle = "選擇路徑"
CommonDialog1.ShowOpen
file1 = CommonDialog1.FileName
End Sub
Private Sub Command4_Click()
CommonDialog1.DialogTitle = "選擇路徑"
CommonDialog1.ShowOpen
file2 = CommonDialog1.FileName
End Sub
Private Sub Form_Load()
Timer1.Interval = 6000
End Sub
Private Sub Timer1_Timer()
WebBrowser1.Refresh
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If Not (pDisp Is WebBrowser1.object) Then Exit Sub
Dim wenben As String
Dim a() As String
wenben = Me.WebBrowser1.Document.Body.innerText
a = Split(wenben, vbCrLf)
Text1.Text = wenben
For i = 0 To UBound(a)
If InStr(a(i), "代碼:") > 0 And InStr(a(i), ".s") > 0 Then
Text1.Text = Right(a(i), (Len(a(i)) - InStr(a(i), ".s")) - 2)
Text5.Text = Mid(a(i), InStr(a(i), ".s") + 1, 2)
Exit For
End If
Next i
End Sub
F. 作股票分析軟體要用到什麼編程語言用哪種最好
一般C+和VB結合了 VB比較用的多點 簡單 http://tech.163.com/special/00091588/develop.html 學習的好地方 可以進去交流和學習吧
G. 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
...
順便說下,看股票的話免費軟體一大把,人家比你這個功能更強了,而且更新速度比這個網站更快
H. 我要在手機上下截廣發證券公司的股票軟體，還可以交易的。
如果你想用手機交易的話，你必須下載廣發手機交易買賣證券軟體，然後把你的帳號登錄進去，這樣就可以順利完成交易。
I. 用VB 讀取通達信實時股票數據(現價，漲幅)
關鍵是介面
我估計現在沒有免費的介面了！！！
所以你想自己編程獲取實時數據，幾乎不可能了！！！
總之，沒有有效的網路實時數據支持，這是開源股軟的最致命的地方！！！
J. 在VB.NET中如何使用新浪股票數據介面
這個你的拿錢和新浪那邊買個介面 人家給你代碼你復制到自己網站里就可以了