estou tentando carregar varias tabelas:
Ex:
Public Type Rna
Bias() As Double ' Dados da tabela Bias
Pesos() As Double ' Dados da tabela Pesos
Neuronios() As Double ' Dados da tabela Neuronios
Conexoes() As Double ' Dados da tabela Conexoes
PesosRNA() As Double ' Dados da tabela PesosRNA
ConfigRNA() As Double ' Dados da tabela ConfigRNA
End Type
Quando tento referenciar
' Carregar a RNA treinada e os dados históricos
Dim rnaTreinada As Rna
Set rnaTreinada = CarregarRNATreinada()
função CarregarRNATreinada
dadosBias = CarregarDadosDaTabelaBias()
dadosPesos = CarregarDadosDaTabelaPesos()
dadosNeuronios = CarregarDadosDaTabelaNeuronios()
dadosConexoes = CarregarDadosDaTabelaConexoes()
dadosPesosRNA = CarregarDadosDaTabelaPesosRNA()
dadosConfigRNA = CarregarDadosDaTabelaConfigRNA()
no trecho de rerenciar (Set rnaTreinada = CarregarRNATreinada()) da o erro ""Erro de Compilação - O Objeto é obrigatório", onde estou errando ?
Ex:
Public Type Rna
Bias() As Double ' Dados da tabela Bias
Pesos() As Double ' Dados da tabela Pesos
Neuronios() As Double ' Dados da tabela Neuronios
Conexoes() As Double ' Dados da tabela Conexoes
PesosRNA() As Double ' Dados da tabela PesosRNA
ConfigRNA() As Double ' Dados da tabela ConfigRNA
End Type
Quando tento referenciar
' Carregar a RNA treinada e os dados históricos
Dim rnaTreinada As Rna
Set rnaTreinada = CarregarRNATreinada()
função CarregarRNATreinada
dadosBias = CarregarDadosDaTabelaBias()
dadosPesos = CarregarDadosDaTabelaPesos()
dadosNeuronios = CarregarDadosDaTabelaNeuronios()
dadosConexoes = CarregarDadosDaTabelaConexoes()
dadosPesosRNA = CarregarDadosDaTabelaPesosRNA()
dadosConfigRNA = CarregarDadosDaTabelaConfigRNA()
no trecho de rerenciar (Set rnaTreinada = CarregarRNATreinada()) da o erro ""Erro de Compilação - O Objeto é obrigatório", onde estou errando ?