Another thing you might want to keep in the back of your head: To gain a lot of flexibility you can emit an AFL Formula to a text file and then run it. Or an include routine that can be used to alter a static AFL's behavior.
d > -----Original Message----- > From: [email protected] > [mailto:[EMAIL PROTECTED] On Behalf Of cstrader > Sent: Sunday, July 15, 2007 2:14 PM > To: [email protected] > Subject: Re: [amibroker] Re: query from Vb.net->work around > > Nice... I'm looking forward to do something similar > > chuck > > ----- Original Message ----- > From: "murthysuresh" <[EMAIL PROTECTED]> > To: <[email protected]> > Sent: Saturday, July 14, 2007 9:03 PM > Subject: [amibroker] Re: query from Vb.net->work around > > > > Here is the workaround that i did > > > > afl file > > AddColumn(EMA(Close,9),"EMA"); > > Buy=1; > > Sell=1; > > Filter=True; > > > > vb file. > > > > oAb = CreateObject("Broker.Application") > > oActiveDoc = oAb.activedocument > > txtSymbol.Text = oActiveDoc.Name > > oAA = oAB.Analysis > > oAA.applyTo = 1 'get the current symbol > > oAA.RangeN = 1 'get last day > > oAA.LoadFormula("C:\\Program > > Files\\AmiBroker\\Formulas\\Scans\\nineemascan.afl") > > oAA.explore() > > oAA.Export(sOutputFile) > > oRead = File.OpenText(sOutputFile) > > > > While oRead.EndOfStream <> True > > eachLine = oRead.ReadLine() > > eachLine = oRead.ReadLine() ' I am interestd in the > > second line only. > > > > End While > > > > oRead.Close() > > > > txt9Ema.Text = eachLine.ToString().Split(",")(2) > > > > > > > > Catch ex As Exception > > txtmessages.Text = ex.ToString() > > End Try > > > > > > > > --- In [email protected], "dingo" <[EMAIL PROTECTED]> wrote: > >> > >> You can't get to the AFL functions via OLE. Check the help file > > for the > >> things you CAN do. > >> > >> d > >> > >> > -----Original Message----- > >> > From: [email protected] > >> > [mailto:[EMAIL PROTECTED] On Behalf Of murthysuresh > >> > Sent: Friday, July 13, 2007 7:36 PM > >> > To: [email protected] > >> > Subject: [amibroker] query from Vb.net > >> > > >> > Hello > >> > I am trying to access ami from vb.net. Can i access AFL > >> > functions. I am > >> > tryign to get the 9 ema price and 20 DMA of volume. Here is > >> > my starter > >> > code > >> > Try > >> > ab = CreateObject("Broker.Application") > >> > activedoc = ab.activedocument > >> > txtSymbol.Text = activedoc.Name > >> > '' need to figure out how to get the 9 ema price > >> > and 20 dma > >> > volume. > >> > Catch ex As Exception > >> > txtmessages.Text = ex.ToString() > >> > End Try > >> > > >> > Regards > >> > Seede > >> > > >> > > >> > > >> > > >> > > >> > Please note that this group is for discussion between users only. > >> > > >> > To get support from AmiBroker please send an e-mail directly to > >> > SUPPORT {at} amibroker.com > >> > > >> > For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG: > >> > http://www.amibroker.com/devlog/ > >> > > >> > For other support material please check also: > >> > http://www.amibroker.com/support.html > >> > > >> > Yahoo! Groups Links > >> > > >> > > >> > > >> > > >> > > > > > > > > > > Please note that this group is for discussion between users only. > > > > To get support from AmiBroker please send an e-mail directly to > > SUPPORT {at} amibroker.com > > > > For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG: > > http://www.amibroker.com/devlog/ > > > > For other support material please check also: > > http://www.amibroker.com/support.html > > > > Yahoo! Groups Links > > > > > > > > > Please note that this group is for discussion between users only. > > To get support from AmiBroker please send an e-mail directly to > SUPPORT {at} amibroker.com > > For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG: > http://www.amibroker.com/devlog/ > > For other support material please check also: > http://www.amibroker.com/support.html > > Yahoo! Groups Links > > > >
