① 用VB 读取通达信实时股票数据(现价,涨幅)
关键是接口
我估计现在没有免费的接口了!!!
所以你想自己编程获取实时数据,几乎不可能了!!!
总之,没有有效的网络实时数据支持,这是开源股软的最致命的地方!!!
② EXCEL如何用VBA自动获取每个股票近几天的涨幅
一般网页上的数据都可以通过VBA进行抓取,应用得好,可以实现对很很多资料的动态监测。
涨幅就是指目前这只股票的上涨幅度。
涨幅的计算公式:涨幅=(现价-上一个交易日收盘价)/上一个交易日收盘价*100%
例如:某只股票价格上一个交易日收盘价100,次日现价为110.01,就是股价涨幅为(110.01-100 )/100*100%=10.01%.一般对于股票来说 就是涨停了!如果涨幅为0则表示今天没涨没跌,价格和前一个交易日持平。如果涨幅为负则称为跌幅。
比如:一支股票的涨幅是:10%、-5%等 。
③ 如何在VB6.0中根据设置的时间查询股票的数据,急急急。。。
不可以设置
④ VB编程怎么编个能把一个网站的即时数据载入后按我的要求计算的程序,比如导入及时股票价格
不管你用什么编程语言,你都需要面对相同的问题:
1、导入网站数据需要网站给你提供XML服务、编程接口,这个需要问网站的管理员或者开发者;
2、如果第1条不适用,那么你需要分析网页的语法结构,通过规则性的字符串查找方法提取网站上的数据,这种方法就不怎么靠谱了!
⑤ 如何用VB做股票数据接收系的源代码
报价方,在开盘时共同商定价位,再实时的价位是因市场交易,自动变化的
⑥ 在VB.NET中如何使用新浪股票数据接口
这个你的拿钱和新浪那边买个接口 人家给你代码你复制到自己网站里就可以了
⑦ 怎样用excel 实时读取 股票日线数据
定量分析的第一步,是获取数据。
获取股票历史行情数据最方便的途径,就是直接读取股票行情软件留在你电脑中的日线数据文件。
但如果不是程序员,电脑里一般不会有VB、VC之类的编程语言。
其实,大家的电脑中一般都有OFFICE。OFFICE中的EXCEL自带了一个VBA语言的编程环境。功能也很强大。
我用EXCEL里的VBA编写了一段代码,读取通达信股票行情软件的日线文件。已经测试通过。
代码如下。与爱好定量分析的朋友分享。
TypeMyType
a1AsLong'标示码
a2AsLong'日期
a3AsSingle'开盘价
a4AsSingle'最高价
a5AsSingle'最低价
a6AsSingle'收盘价
a7AsSingle'成交金额
a8AsLong'成交量
EndType
Sub按钮1_Click()
DimFile2AsInteger
DimbAsMyType
File1=FreeFile
Opensh600000.dayForBinaryAccessReadAs#File1i=1DoWhileNotEOF(File1)
Get#File1,,b
Cells(i,1)=b.a1
Cells(i,2)=b.a2
Cells(i,3)=b.a3
Cells(i,4)=b.a4
Cells(i,5)=b.a5
Cells(i,6)=b.a6
⑧ 如何获取“实时”股票行情并写库
发现一款直接借助“通达信”行情软件获取行情数据接口的软件,可于http://www.vbgood.com/thread-102830-1-1.html处下载演示。
⑨ VB如何读取股票大盘数据,20秒更新一次,并动态的显示到文本框中,请高手帮忙
这个要连接数据库的。。
⑩ vb转换股票数据的问题
大智慧股票数据
每个记录40 byte
格式
long Date 0'相对开头偏移量 byte
long Open=4
long High=8
long Low=12
long Close=16
long Volume=20
不是二进制方式,使用随机方式 Random 读取, 读取以后 价格 /1000 就行了
定义类型
Private Type ddzh
Date As Long
Open As Long
High As Long
Low As Long
Close As Long
Volume As Long
End1 As Long
End2 As Long
End3 As Long
End4 As Long
End Type
Private Type dzh
Date As Long
Open As Single
High As Single
Low As Single
Close As Single
Volume As Long
End Type
用 Get 读取记录到 就可以了
ReDim ddzh(1 To 1) As ddzh
ReDim dzh(1 To 1) As dzh
Open "000001.day" For Random As #1 Len= Len(ddzh(1))
ReDim ddzh(1 To Lof(1)/Len(ddzh(1))) As ddzh
For i = 1 To ReadToTal
Get #1, i, ddzh(i)
Next i
Close #1
读取以后转换到
dzh里就可以了
大福星数据比较好用,分中图都可以读取