㈠ 求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;
再試一下，可以關注我，有問題再聯系我。