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),COLORGREEN;
主力进: IF(V4>=0,V4,0);
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;
大盘资金进场:
IF(VB>=0,VB,0),COLORYELLOW;
大盘资金撤走:
IF(VB<=0,VB,0),COLORRED;
V11:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);
趋势线: EMA(V11,3);
V12:=(趋势线-REF(趋势线,1))/REF(趋势线,1)*100;
准备现金: STICKLINE(趋势线<=13,0,20,5,0),COLORCC9900;
AA:=(趋势线<=13) AND FILTER((趋势线<=13),15);
DRAWTEXT (AA,30,'准备现金'),COLORCC9900;
买入股票: STICKLINE(趋势线<=13 AND V12>13,0,50,5,0),COLOR0099FF;
BB:= (趋势线<=13 AND V12>13) AND FILTER((趋势线<=13 AND V12>13),10) ;
DRAWTEXT (BB,60,'买入股票'),COLOR0099FF;
见顶清仓: STICKLINE(趋势线>=90 AND V12,0,30,5,0),COLORRED;
CC:=(趋势线>=90 AND V12) AND FILTER((趋势线>=90 AND V12),10);
同时出现:=主力进>0 AND 大盘资金进场>0 AND 主力撒=0 AND 大盘资金撒走=0 ;
标计:DRAWTEXT(同时出现,20,'同时出现');
如果后面能跟写趋势线数值最好,什么意思,这个指标会出现趋势线数字的啊

⑶ 股票指标源代码中的“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;
再试一下，可以关注我，有问题再联系我。

⑷ 用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计算器计算股票的高低点

你把每一列的算法列出来，用EXCEL就能完成了，简单的公式就行，不必动VB

⑹ 在VB.NET中如何使用新浪股票数据接口

基本没有，你得和人家有合作关系

⑺ 编写股票分析软件需要学会哪些计算机语言

编写股票分析软件需要学会的计算机语言是C++、Java、Java Script 、 VB 、Visual Foxpro 语言。
股票分析软件准确称为是证券决策分析系统，它是在普通行情软件的基本功能整加了一些特定的功能，如一些分析大盘的指标、公式，新闻资讯，预警系统，选股系统，盘后分析，信息实时发布系统，研究报告，赢富数据等。" 股市有风险，投资需谨慎"，广大股民朋友要根据自己的需求选择合适自己的股票软件，而后结合一定的分析理论和自己的炒股经验，形成一套自己的、行之有效炒股模式。股票分析软件实质是通过对股市行情数据的统计，按照一定的分析模型和交易模型汇总成一系列的报表，指标图形，实时资讯，让广大股民朋友更加清晰直观的从基本面、技术面分析大盘和个股，即时方便的掌握股市的动向。股票分析软件是炒股的工具，所以请广大股民朋友要灵活运用。

⑻ 哪位哥们用VB开发过股票软件

采用vb中的浏览器控件。然后自己弄个空间弄个网站，然后弄个空白页，插入股票的代码，然后在用浏览器控件链接到上面就可以了。

⑼ 求股票主图指标 布林线和箱体叠加的指标公式

【箱顶】:PEAK(CLOSE,N1,1)*0.98,LINETHICK2;
【箱底】:TROUGH(CLOSE,N1,1)*1.02.LINETHICK2;
【箱高】:100*(【箱顶】-【箱底】)/【箱底】,NODRAW;

BOLL:MA(CLOSE,N2),POINTDOT,LINETHICK5;
UPPER:BOLL+2*STD(CLOSE,N2),LINETHICK1;
LOWER:BOLL-2*STD(CLOSE,N2),LINETHICK1;

箱体的参数：N1；
布林线参数：N2；
线性、线宽和颜色你自己调吧

⑽ VB 修改一个股票行情监测脚本 到了预定的股价就启动程序a.exe

Dim file1, file2 As String
Private Sub Command1_Click()

If Val(Text1.Text) > Val(Text2.Text) Then Shell (file1)
'text2.text为大于这个值时 执行
If Val(Text1.Text) < Val(Text3.Text) Then Shell (file2)
'text3.text为小于这个值时 执行
End Sub

Private Sub Command2_Click()
WebBrowser1.Navigate "http://.hexun.com/stock/q.php?code=" & Text4.Text
End Sub

Private Sub Command3_Click()
CommonDialog1.DialogTitle = "选择路径"
CommonDialog1.ShowOpen
file1 = CommonDialog1.FileName
End Sub
Private Sub Command4_Click()
CommonDialog1.DialogTitle = "选择路径"
CommonDialog1.ShowOpen
file2 = CommonDialog1.FileName
End Sub

Private Sub Form_Load()
Timer1.Interval = 6000
End Sub

Private Sub Timer1_Timer()
WebBrowser1.Refresh
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If Not (pDisp Is WebBrowser1.object) Then Exit Sub
Dim wenben As String
Dim a() As String
wenben = Me.WebBrowser1.Document.Body.innerText
a = Split(wenben, vbCrLf)
Text1.Text = wenben
For i = 0 To UBound(a)
If InStr(a(i), "代码:") > 0 And InStr(a(i), ".s") > 0 Then
Text1.Text = Right(a(i), (Len(a(i)) - InStr(a(i), ".s")) - 2)
Text5.Text = Mid(a(i), InStr(a(i), ".s") + 1, 2)
Exit For
End If
Next i
End Sub