Visual Basic 6.0 - Dúvida básica

[ThatsMe]

Boas.


Posso jurar que este código está certo, mas dá-me um erro.

Dim gasto As Double
Dim valor As Double
valor = 193.84
gasto = valor * Val(Text1.Text)

Private Sub Command1_Click()
Label3.Caption = gasto
End Sub

O erro está na atribuição do valor 193.84 à variável valor. O que é que me está a escapar?

 

[Armadillo]

Boas.

Dim gasto As Double
Dim valor As Double
valor = 193.84
gasto = valor * Val(Text1.Text)

isto está correcto. que erro te dá?

 

[Mig]

O VB6 às vezes implicava com as definições regionais...
Experimenta usar virgula em vez de ponto, como separador decimal.

 

[jpaulino]

O VB6 às vezes implicava com as definições regionais...
Experimenta usar virgula em vez de ponto, como separador decimal.

Isso é errado! O ponto é o separador e se colocar virgula dá logo erro.

 

[PJTuga]

Private Sub Command1_Click()
Dim gasto As Double
Dim valor As Double
valor = 193.84
gasto = valor * Val(Text1.Text)
Text2.Text = gasto
End Sub

o codigo está exactamente igual ao teu e aqui não se queixou!

 

[bikefire]

deve ser da virgula

 

[Armadillo]

deve ser da virgula

não é virgula, é ponto

 

[ThatsMe]

isto está correcto. que erro te dá?

Está correcto não esta? Bem me pareceu!

Da virgula/ponto não é, a virgula dá logo erro.


O erro é: "Compile Error: Invalid Outside Procedure." E aparece seleccionado o número.

 

[Armadillo]

comenta a linha onde atribuis o valor a "valor" e diz o que acontece, pf.

cumps

 

[ThatsMe]

Supostamente é assim que se comenta, nao é?

Dim gasto As Double
Dim valor As Double
valor = 193.84\\Comentario
gasto = valor * Val(Text1.Text)
Private Sub Command1_Click()
Label3.Caption = gasto
End Sub

 

[Armadillo]

assim é C

com o caracter '

'valor = 193.84

 

[jpaulino]

Está correcto não esta? Bem me pareceu!

O erro é: "Compile Error: Invalid Outside Procedure." E aparece seleccionado o número.

Não me digas que está a utilizar esse código fora de um Sub ou Function ? É que esse erro significa isso.

Faz tudo no evento Click

Private Sub Command1_Click()
Dim gasto As Double
Dim valor As Double
valor = 193.84
gasto = valor * Val(Text1.Text)
Label3.Caption = gasto
End Sub

 

[ThatsMe]

Não me digas que está a utilizar esse código fora de um Sub ou Function ? É que esse erro significa isso.

Faz tudo no evento Click

Private Sub Command1_Click()
Dim gasto As Double
Dim valor As Double
valor = 193.84
gasto = valor * Val(Text1.Text)
Label3.Caption = gasto
End Sub

Era esse o erro, já funciona! Se calhar foi estupidez da minha parte

Obrigado a todos

Abraço