ERRO NA COMPILACAO

BELLEBS 16/11/2011 15:39:56
#389227
Boa Tarde

Estou com um erro no meu projeto na hora de declarar uma variável pública, eis o código:


Public Sub ()


Public ini As Double
Public saldo As Double
Public said As Double
Public ent As Double

saldo = ini + ent - said

Public funinati As Integer
Public funcad As Integer
Public funexc As Integer
Public funati As Integer

End Sub


O problema também é quando também eu escrevo qualquer coisa ao lado de Sub o programa dá erro em um outro formulário que utiliza a variável ent, neste código aqui:


Private Sub Form_Load()

Dim acum As Double
Dim acum2 As Double


acum = acum + ent
acum2 = acum2 + said

txtent.Text = FormatCurrency(acum)
txtsaid.Text = FormatCurrency(acum2)
txtsaldo.Text = FormatCurrency(saldo)

Skin1.ApplySkin Me.hWnd

End Sub


Desde já agradeço.
KERPLUNK 16/11/2011 16:13:14
#389229
Qual o erro que dá?
BELLEBS 16/11/2011 16:18:33
#389230
O erro é:
Citação:

Compile Error:
Can[ô]t find project or library



E fica selecionado a variável ent
MARCELO.TREZE 16/11/2011 20:27:12
#389248
Só dará erro mesmo, primeiro vc esta misturando SB PUBLICA com VARIAVEL PUBLICA, uma difere da outra, ou seja

para um SUB publica o ideal seria declara-la em um módulo da seguinte maneira

Public Sub [txt-color=#0000f0]nome_da_sub[/txt-color]()
[ô] aqui vc colocaria aluma função e não declarar variaveis
End Sub

veja bem acima declarei uma sub, e não uma variavel agora no mesmo modulo vou declarar as variaveis

Public ini As Double
Public saldo As Double
Public said As Double
Public ent As Double

Public funinati As Integer
Public funcad As Integer
Public funexc As Integer
Public funati As Integer

[ô] ou seja as variavies devem estar fora da sub
[ô] então posso criar a sub para calculo assim

Public Sub CalcularSaldo ()
saldo = ini + ent - said
End Sub



no caso acima as variaveis deverão estar carregadas com valores para poder funcionar

assim vc poderá usar sem erros assim

txtsaldo.Text = FormatCurrency(CalcularSaldo)


espero que vc tenha entendido
Tópico encerrado , respostas não são mais permitidas