[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[amibroker] Re: query from Vb.net->work around



PureBytes Links

Trading Reference Links

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 amibroker@xxxxxxxxxxxxxxx, "dingo" <dingo@xxx> 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: amibroker@xxxxxxxxxxxxxxx 
> > [mailto:amibroker@xxxxxxxxxxxxxxx] On Behalf Of murthysuresh
> > Sent: Friday, July 13, 2007 7:36 PM
> > To: amibroker@xxxxxxxxxxxxxxx
> > 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

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/amibroker/

<*> Your email settings:
    Individual Email | Traditional

<*> To change settings online go to:
    http://groups.yahoo.com/group/amibroker/join
    (Yahoo! ID required)

<*> To change settings via email:
    mailto:amibroker-digest@xxxxxxxxxxxxxxx 
    mailto:amibroker-fullfeatured@xxxxxxxxxxxxxxx

<*> To unsubscribe from this group, send an email to:
    amibroker-unsubscribe@xxxxxxxxxxxxxxx

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/