当前位置:首页 » 价格知识 » vb股票价格查询
扩展阅读
bunge公司股票代码 2025-06-19 13:00:09
漯河曙光健士股票代码 2025-06-19 12:44:42
燕麦科技股票类似的股票 2025-06-19 09:49:56

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的完整源码,并加注释。

下载遨游浏览器。打开你所需要的网页,比如新浪的大盘那里。然后点击浏览器的查看按钮,然后其中有个查看源代码。
就会弹出一个笔记本,然后就是你要的源代码。
也就是所谓的数据模式啦!我刚才一直想粘贴过来我刚刚得到的。可惜网络不让我发,不知道为什么。你自己试下就知道了。