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 SubO erro está na atribuição do valor 193.84 à variável valor. O que é que me está a escapar?
Armadillo
21-07-2008, 10:16
Boas.
Dim gasto As Double
Dim valor As Double
valor = 193.84
gasto = valor * Val(Text1.Text)
isto está correcto. que erro te dá?
O VB6 às vezes implicava com as definições regionais...
Experimenta usar virgula em vez de ponto, como separador decimal.
jpaulino
21-07-2008, 12:08
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.
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!
Armadillo
21-07-2008, 12:52
deve ser da virgula
não é virgula, é ponto
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
21-07-2008, 15:46
comenta a linha onde atribuis o valor a "valor" e diz o que acontece, pf.
cumps
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
21-07-2008, 15:55
assim é C :p
com o caracter '
'valor = 193.84
jpaulino
21-07-2008, 15:55
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
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 :P
Obrigado a todos :)
Abraço