㈠ 求VB编程常用代码大全
1.数值型函数：
abs(num):
返回绝对值
sgn(num):
num>0
1;
num=0
0;
num<0
-1;判断数值正负
hex(num):
返回十六进制值
直接表示：&Hxx
最大8位
oct(num):
返回八进制值
直接表示：&Oxx
最大8位
sqr(num):
返回平方根
num>0
int(num):
取整
int(99.8)=99;
int(-99.2)=100
fix(num):
取整
fix(99.8)=99;
fix(-99.2)=99
round(num,n):
四舍五入取小数位
round(3.14159,3)=3.142
中点数值四舍五入为近偶取整
round(3.25,1)=3.2
log(num):
取以e为底的对数
num>0
exp(n):
取e的n次幂
通常用
num^n
sin(num):
三角函数，以弧度为值计算
(角度*Pai)/180=弧度
con(num);
tan(num);
atn(num)
2.字符串函数：
len(str)：计算字符串长度
中文字符长度也计为一！
mid(str,起始字符,[读取长度])：截取字符串中间子字符串
left(str,nlen)：从左边起截取nlen长度子字符串
right(str,nlen)：从右边起截取nlen长度子字符串
Lcase(str)：字符串转成小写
Ucase(str)：字符串转成大写
trim(str)：去除字符串两端空格
Ltrim(str)：去除字符串左侧空格
Rtrim(str)：去除字符串右侧空格
replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串
注：默认值：起始字符
1；替代次数
不限；比较方法
区分大小写（0）
InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串
可选参数需同时选
返回起始位置
InStrRev(str,查找字符串[,起始字符][,比较方法])：反向检测是否包含子字符串
返回起始位置
space(n)：构造n个空格的字符串
string(n,str)：构造由n个str第一个字符组成的字符串
StrReverse(str)：反转字符串
split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组
可选参数需同时选
3.数据类型转换函数：
Cint(str)：转换正数
True
-1；False
0；日期
距离1899/12/31天数；时间
上午段
0；下午段
1；
Cstr(str)：日期
输出格式
yyyy/mm/dd；时间
输出格式
Am/Pm
hh:mm:ss
Clng(str)：与Cin()类似
Cbool(num)：num不为零
True；反之
False
Cdate(str)：转换日期格式
0：#Am
12:00:00#；正数
距离1899/12/31天数的日期；浮点数
日期＋小数时间
Cbyte(num)：num<255
转换为字节
Csng(str)：转换为单精度数值
Cdbl(str)：转换为双精度数值
Ccur(str)：转换为现金格式
4.时间函数：
date：取系统当前日期
time：取系统当前时间
now：取系统当前时间及日期值
Datetime类型
timer：取当前时间距离零点秒值，计时器，可计算时间差
DateAdd(间隔单位,间隔值,日期)：推算相邻日期
DateDiff(间隔单位,日期一,日期二)：计算时间差
日期二-日期一
Datepart(间隔单位,日期)：计算日期的间隔单位值
Dateserial(date)：输出日期值（按序列计算）
Timeserial(time)：输出时间值（按序列计算）
Datevalue(datetime)：取出字符串中日期值
Timevalue(datetime)：取出字符串中时间值
weekday(date)：计算星期几
MonthName(date)：输出月分名
year(datetime)：截取年份
month(datetime)：截取月份
day(datetime)：截取日
hour(datetime)：截取小时
minute(datetime)：截取分钟
second(datetime)：截取秒
5.其它函数：
Array(unit,..)：动态生成数组
Asc(str)：输出字符串第一个字符的ASCII码
Chr(asc)：转换ASCII为字符
Enter：Chr(13)&Chr(10)
Filter(数组名称,关键字符串,[,包含][,比较方法])：
将字符串数组中含有关键字符串的元素存成新的数组（默认）
[包含]为false则取不包含的元素
oin(ArrayName)：将数组中元素连成字符串
Ubound(ArrayName[,维数])：取得数组相应维数的上界
Lbound(ArrayName[,维数])：取得数组相应维数的下界
一般为0
Randmize
n：启动随机数种子
Rnd(n)：取得随机数，n>0或为空，取序列下一随机值，n<0，随机值相同，n=0，生产与上一随机值相同的数
取介于A和B之间的随机正数C，公式：C=Int((B-A+1)*Rnd+A)
条件（B>A）
子程序和自定义函数
Sub
StrSubName
Function
StrFunName(arg[1],..)
子程序体
函数体
Exit
Sub
中途跳出
Exit
Function
中途跳出
End
Sub
StrFunName＝value
返回值
End
Function
[call]
StrSubName
引用子程序
Var=StrFunName(arg[1],..)
引用函数
㈡ 请具体告诉我怎么做，怎样实现vb程序根据股票k线图进行分类
简单点你就写成多头和空头吧
㈢ 用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开发过股票软件
采用vb中的浏览器控件。然后自己弄个空间弄个网站，然后弄个空白页，插入股票的代码，然后在用浏览器控件链接到上面就可以了。
㈤ VB代码怎么分析
透明图像拷贝，你的代码还需要调用两个api函数（alphablend和memory）以及定义一个类型rblendprops
showtransparency
picture2,
picture1,
100就是将picture1图片和picture2图片按透明度100(0是不透明，255是完全透明)叠加，然后拷贝进picture1
㈥ 求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%的天数比例大的股票，说明股票涨幅多，但是不能确定跌幅，所以以后的课程还会介绍分析涨幅和跌幅的比例，分析股票的波动性。
㈦ 用VB 读取通达信实时股票数据(现价，涨幅)
对rmb收入有一定帮忙吗?.呵呵.好东东.那我也做作.
..这样呀.那我帮你看看好了 你把你的源代码发一下
你的意思是某些控件句柄你没法获取到..还是其他意思
算了.发邮箱[email protected] 源代码.附带说明.还有一个什么股票软件.一起.或者给个地址.完整一下.要不又要问你这那.
个人感觉好像没什么用吧..看了先
㈧ vb6.0编制股票交易程序公式
很复杂，不可以三言两语说清楚的。
㈨ 股票指标源代码中的“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;
再试一下，可以关注我，有问题再联系我。