vb开发的股票软件实例
㈠ 求vb高手 做一个软件实现股票自动买卖 我会通过另一个软件计算买卖时间和价格,用vb实现买卖过程
这个说复杂也容易,说容易也复杂。
容易就在于算法大家都知道,只要能实现查询,然后根据设计需要进行交易就是了。
复杂就在于凡属于金融领域的,不管是杀毒软件还是防火墙,都是重点监控种类。尤其是证券公司和银行,对于客户没有使用它们的终端而发生资金变动的话,那岂不是银行或证券公司的漏洞了?
要获得银行的访问权限,你看现在的银行主页,一输入密码就需要加载什么控件,那就是保护措施啊。然后证券公司的访问权限。当然,如果你的钱全部转到了证券公司,那只要证券公司的权限就可以了。
所以现在能够实现自动买卖的软件,都是证券公司自己写的程序。你现在应该知道其原因了。证券公司可不会随便让你查询它的档案的。
㈡ VB 股票 自动委托 编程 软件 怎样用
自动委托没什么大用途的 只是为了方便一些没时间操作电脑的人用。能下单就可以了
㈢ 能不能用VB来制作一个股票软件呢
你的求知能力很强,但不支持。因为这样的软件都是一个团队开发出来的。个人没有也不可能有能力做到的。
现在每个免费的看股票软件都很好很强大。
我们完全可以把精力放在怎样用好别人的软件去赚钱的。
㈣ vb程序设计实例 编写一个VB程序,进行自我介绍
1:
列出你希望要的程序大纲(比如:
架构图---
各个窗体的功能分配等等)
2:
就是拖控件,
添加控件事件处理程序.
思路过程就这么简单,
做起来也很快......连数字计算都不需要
如果你希望别人做好给你,
我觉得一是不现实,二是没有意义.
毕竟自己做出来的才有成就感
你随便找本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编程实例~
控件:image,picture,timer代码:Dim x As Integer
Dim y As IntegerPrivate Sub Form_Load()
x = 100
y = 100
Timer1.Interval = 100
End SubPrivate Sub Timer1_Timer()
If img.Top >= pic.Height - img.Height Then
y = -100
End If
If img.Top <= 0 Then
y = 100
End If
If img.Left >= pic.Width - img.Width Then
x = -100
End If
If img.Left <= 0 Then
x = 100
End If
img.Top = img.Top + y
img.Left = img.Left + x
End Sub
以上代码实现的是图片框中的一个小球做的规律的运动,当小球碰到图片框边缘时便反弹继续运动
㈦ vb开发实例大全与vb实例1200例哪个好用
如果你vb基础知识比较好,选用前者;
如果你没什么基础知识,选用后者。
㈧ 请举个例子那个著名软件是用VB写出来的
财务方面著名:用友:vb+vc 金蝶:vb+vc
他们的基本模式都是采用vb实现基本功能 vc做低层应用;
图像方面:xnview 采用vb编写的~
不过绝大部分都是c语言写的!
㈨ 哪位哥们用VB开发过股票软件
采用vb中的浏览器控件。然后自己弄个空间弄个网站,然后弄个空白页,插入股票的代码,然后在用浏览器控件链接到上面就可以了。
㈩ 一个简单的VB实例的编写。
Private Sub Command1_Click()
If Command1.Caption = "显示" Then
Text1.Text = "这是我的第一个VB程序"
Command1.Caption = "继续"
ElseIf Command1.Caption = "继续" Then
Text1.Text = "请你赐教,谢谢!"
Command2.Enabled = True
End If
End Sub
Private Sub Command2_Click()
End
End Sub