Documento: OCX para acesso a arquivos de longo prazo .LP
Disponibilidade: programa Gol 5.0
publicado em 02/10/02 por omar reis <omar@enfoque.com.br>

 

Introdução

Para permitir o acesso a arquivos de séries históricas de preços (séries .LP), a Enfoque disponibiliza um controle do tipo OCX. Este controle pode ser usado em qualquer ambiente de desenvolvimento que aceite OCX, como Visual Basic, Delphi, scripts em VBA, VBScript ou JavaScript, disponíveis nos programas Excel, Word e Internet Explorer.

Controle OCX ArquivoLPX (egsx.ocx)

O exemplo abaixo ilustra o uso deste tipo de controle no Visual Basic 5.0. O objeto ALP é do tipo TArquivoLPX. Este exemplo mostra as cotações em um grid.

Sub BCarrega_Click()
    ALP.Diretorio = "c:\gol\LPs\"  'diretório que contem as séries
    ALP.Ativo = "ibvsp.lp"        'Nome da série carregada
    ALP.Indexador = "euscom.lp"   'opcional (pode deixar em branco)
    ALP.SerieSemanal = False      'False=diario, true=semanal
    ALP.TiraFeriados = True       'tira feriados (registros vazios)
    ALP.MaxRecs = 1000            'Carrega os ultimos 1000 registros
    ALP.CarregaLP                 'Este comando carrega a serie
    LNumRecs.Caption = Str(ALP.NumRecs) + "  registros"
    Grid.Clear                    'Este mostra as cotações num Grid
    Grid.Rows = ALP.NumRecs + 1
    For i = 1 To ALP.NumRecs
        ALP.Posicao = i           'Posiciona no registro i da série
        Grid.Row = i
        Grid.Col = 0
        Grid.Text = Str(i)
        If ALP.Data <> 0 Then     'Data <> 0 --> registro inicializado
          Grid.Col = 1
          Grid.Text = Str(ALP.Data)
          Grid.Col = 2
          Grid.Text = Str(ALP.Fechamento) 'pega os valores
          Grid.Col = 3
          Grid.Text = Str(ALP.Maximo)
          Grid.Col = 4
          Grid.Text = Str(ALP.Minimo)
          Grid.Col = 5
          Grid.Text = Str(ALP.Abertura)
          Grid.Col = 6
          Grid.Text = Str(ALP.Volume)
          Grid.Col = 7
          Grid.Text = Str(ALP.NumNeg)
        End If
    Next
End Sub

 

Nota: Este exemplo foi desenvolvido com Visual Basic 5.0. É necessário ter o runtime do VB 5.0 instalado para roda-lo. Voce vai detectar esse problema se, ao rodar o exemplo compilado lpsamp.exe, der a mensagem de erro: "Component MSFLXGRD.OCX not correctly registered". Neste caso pode ser feito o download do runtime a partir de www.microsoft.com

Para usar o controle, inclua o arquivo EGSX.OCX no seu projeto. O componente ArquivoLPX vai aparecer na palette de componentes do Visual Basic. É um componente não visual (de fato na versão atual não aparece nem no ambiente de desenvolvimento). Coloque o controle no Form.

Para carregar uma série, setar as propriedades como no exemplo e chamar o método CarregaLP. Depois basta ajustar a Posicao para o numero do registro desejado e ler os valores. O número real de registros carregados é dado pela propriedade NumRecs.

Instalação e registro do componente

Para instalar o componente de acesso a LPs:

1) Faça o download pelo link abaixo, e salve em um diretorio chamado enfoque (p.e. c:\enfoque\ )

2) Unzipe os arquivos no diretório

3) É necessário registrar o componente no Windows ao instalá-lo. Para isso, no prompt do DOS dentro do mesmo diretorio, digitar:

regsvr32 egsx.ocx

Isso instalará o componente no Windows.

 

> Download do componente e exemplo em Visual Basic.

 

 

(c)copr 1988-2005 Enfoque Gráfico Sistemas Ltda - todos os direitos reservados