當前位置:首頁 » 價格知識 » vb股票價格查詢
擴展閱讀
燕麥科技股票類似的股票 2025-06-19 09:49:56
怎麼在支付寶開股票賬戶 2025-06-19 07:59:47

vb股票價格查詢

發布時間: 2021-04-28 23:29:47

① 求vb高手 做一個軟體實現股票自動買賣 我會通過另一個軟體計算買賣時間和價格,用vb實現買賣過程

這個說復雜也容易,說容易也復雜。
容易就在於演算法大家都知道,只要能實現查詢,然後根據設計需要進行交易就是了。
復雜就在於凡屬於金融領域的,不管是殺毒軟體還是防火牆,都是重點監控種類。尤其是證券公司和銀行,對於客戶沒有使用它們的終端而發生資金變動的話,那豈不是銀行或證券公司的漏洞了?
要獲得銀行的訪問許可權,你看現在的銀行主頁,一輸入密碼就需要載入什麼控制項,那就是保護措施啊。然後證券公司的訪問許可權。當然,如果你的錢全部轉到了證券公司,那隻要證券公司的許可權就可以了。

所以現在能夠實現自動買賣的軟體,都是證券公司自己寫的程序。你現在應該知道其原因了。證券公司可不會隨便讓你查詢它的檔案的。

② 我想用VB做個教客戶如何使用股票交易軟體查詢功能的程序,要求界面和真正的股票交易軟體一樣

去參考下 大智慧 嘛 那軟體很多人用 而且也不錯``

③ 用VB做一個表格顯示基金的買賣價格

'添加一個控制項listview,把你需要顯示的內容保存到一個記事本內,格式如上,復制下面的代碼:
listview我不太會用,僅供參考!!
Private Sub Form_Load()
'設置表格表頭
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "名稱", ListView1.Width / 4
ListView1.ColumnHeaders.Add , , "價格1", ListView1.Width / 4
ListView1.ColumnHeaders.Add , , "價格2", ListView1.Width / 4
ListView1.ColumnHeaders.Add , , "價格3", ListView1.Width / 4
'填充數據
Dim x, y, z, i, fn
i = 0
fn = FreeFile
Open "c:\1.txt" For Input As fn'這里的c:\1.txt是保存的數據資料
Do While Not EOF(fn)
Line Input #fn, x
y = Split(x, "|")
ListView1.ListItems.Add , , y(0)
ListView1.ListItems.Item(i + 1).SubItems(1) = y(1)
ListView1.ListItems.Item(i + 1).SubItems(2) = y(2)
ListView1.ListItems.Item(i + 1).SubItems(3) = y(3)
i = i + 1
Loop
Close fn
End Sub

④ VB如何讀取股票大盤數據,20秒更新一次,並動態的顯示到文本框中,請高手幫忙

這個要連接資料庫的。。

⑤ 求VB代碼自動計算好,每個excel文件內漲幅,漲幅是等於(收盤-開盤)/開盤

一、數據准備階段
1
先打開同花順股票軟體電腦版,點擊進入任意一隻你打算分析的股票。

2
點擊左上角的「分析」選擇「歷史成交」。

3
這時我們就可以看到這只股票從發行到今天的所有歷史基本交易數據。

4
在任意一行數據上點擊滑鼠右鍵,點擊「導出數據」,選擇「導出所有數據」。

5
如圖,
1)點擊瀏覽,選擇好文件保存的位置。
2)修改文件名為股票名稱和股票代碼,方便日後查看,以免出現分析完不知道數據屬於哪只股票的情況。
3)連續點擊下一步,直到完成。

END
二、數據處理階段
1
用excel電子表格打開剛才導出保存的表格。我這里使用的是WPS,用Excel軟體界面略有不同,但是方法一樣,所以這里不贅述。

先把表格右邊的滾動條拖到最底下,我們看到這表格代碼有3483行。扣除頂部的一行標題,說明這只股票已經上市交易了3482個交易日。3482這個數據等下我們要使用。

2
在表格L1處輸入「漲幅超過5%」。具體操作如圖所示。

3
在L2處輸入代碼「=IF((E2-B2)/B2>=0.05,1,"")」代碼的意思是:
=如果((收盤價-開盤價)/開盤價>或=5%,那麼輸入1,否則不輸入)
「(收盤價-開盤價)/開盤價」 的意思就是「首日漲幅」。

其實也可以寫成 =IF(F2>=5%,1,"") 但是表格中有時候會顯示一些錯誤的代碼,這個時候計算結果還是會大於5%,造成統計不精確。而且有的股票軟體導出的表格具體的漲幅的位置和同花順的不一定一樣,所以解釋給大家看。

使用同花順的用戶直接復制我的代碼就可以了。

常見錯誤:1)括弧,引號,逗號沒有用英文半形。
2)計算公式錯誤比如把(E2-B2)/B2寫成E2-B2/B2。
3)等號沒寫。

寫這個公式的目的就是在漲幅超過5%的交易日後面都計數1,這樣等下我們可以直接用求和公式算出漲幅超過5%的交易日總數,方便計算這只股票歷史大漲的概率。

4
這時我們看到,第一個交易日,後面已經顯示1了。絕大多數股票首日漲幅都是超過5%的。所以第一個數據可以驗證我們公式和表格設置是否有錯。

如果沒有顯示1,而是顯示公式的話,請修改一下excel設置。

5
然後點擊L3, 輸入公式:「=IF((E3-E2)/E2>=0.05,1,"")」

代碼的意思是:
=如果((收盤價-昨天的收盤價)/昨天的收盤價>或=5%,那麼輸入1,否則不輸入)
「(收盤價-昨天的收盤價)/昨天的收盤價」 的意思就是「漲幅」。

6
然後單擊L3,然後滑鼠移動到L3框框右下角的小方塊上,使滑鼠變成一個十字。然後按住滑鼠左鍵,向下拖動到最後一行。

如果行數很多,覺得拖動很累,也可以 單擊L3,然後 :
1)"Shift+Ctrl+方向下按鈕"
2) 「Ctrl + D」
可以快速填充公式。

7
隨機檢查一下數據,發現沒有錯,然後進入下一步。

8
選擇整列,可以像剛才一樣手動拖動,也可以"Shift+Ctrl+方向下按鈕" (推薦)

然後如圖依次點擊,「公式」,「自動求和」

於是我們就看到右下方出現一個數字,這個數字就是這只股票歷史上漲超過5%的次數了。

9
接下來,我們只要把這個數字,除以總交易日的數目3482,就可以知道這只股票歷史上大漲超過5%的概率是:4.77%

10
依同樣方法,我們來隨機計算另一隻股票上漲超5%的概率

得到結果:5.86%

11
再用同樣方法,我們來計算一下深圳指數上漲超過3%的概率,因為大盤指數波動沒有那麼大,所以我們設置為3%。

所以之前的公式變成:「=IF((E3-E2)/E2>=0.03,1,"")」

得到的概率是:7.59%
END
三、數據分析階段
1
我們橫向比較數據,根據歷史數據發現第二隻股票上漲>5%大概率更大,所以這只股票更好。超過大盤上漲概率的股票可以跑贏大盤。
2
為了精確,我們可以把2015年以前的數據全選刪除,再比較一下哪個概率大。
3
數據相比大盤指數上漲偏離過高,超過20%的股票,一般最好不要選,因為說明一年內漲幅已經非常大。建議選擇略高於大盤漲幅概率股票。
4
漲幅超過5%的天數比例大的股票,說明股票漲幅多,但是不能確定跌幅,所以以後的課程還會介紹分析漲幅和跌幅的比例,分析股票的波動性。

⑥ 如何在VB6.0中根據設置的時間查詢股票的數據,急急急。。。

不可以設置

⑦ 用VB 讀取通達信實時股票數據(現價,漲幅)

關鍵是介面

我估計現在沒有免費的介面了!!!

所以你想自己編程獲取實時數據,幾乎不可能了!!!

總之,沒有有效的網路實時數據支持,這是開源股軟的最致命的地方!!!

⑧ 用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的完整源碼,並加註釋。

下載遨遊瀏覽器。打開你所需要的網頁,比如新浪的大盤那裡。然後點擊瀏覽器的查看按鈕,然後其中有個查看源代碼。
就會彈出一個筆記本,然後就是你要的源代碼。
也就是所謂的數據模式啦!我剛才一直想粘貼過來我剛剛得到的。可惜網路不讓我發,不知道為什麼。你自己試下就知道了。