1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Visual Basic 6.0 - Dúvida básica

Discussão em 'Programação' iniciada por ThatsMe, 21 de Julho de 2008. (Respostas: 12; Visualizações: 1026)

  1. ThatsMe

    ThatsMe [email protected] Member

    Boas.


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

    Código:
    Dim gasto As Double
    Dim valor As Double
    valor = 193.84
    gasto = valor * Val(Text1.Text)
    Código:
    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?
     
  2. Armadillo

    Armadillo Folding Member

    isto está correcto. que erro te dá?
     
  3. Mig

    Mig Power Member

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

    jpaulino Power Member

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

    PJTuga Power Member

    Código:
    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!
     
  6. bikefire

    bikefire Banido

    deve ser da virgula
     
  7. Armadillo

    Armadillo Folding Member

    não é virgula, é ponto
     
  8. ThatsMe

    ThatsMe [email protected] Member

    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.
     
  9. Armadillo

    Armadillo Folding Member

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

    cumps
     
  10. ThatsMe

    ThatsMe [email protected] Member

    Supostamente é assim que se comenta, nao é?

    Código:
    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
     
  11. Armadillo

    Armadillo Folding Member

    assim é C :p

    com o caracter '
    Código:
    
    'valor = 193.84
    
     
  12. jpaulino

    jpaulino Power Member

    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

    Código:
    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
    
     
  13. ThatsMe

    ThatsMe [email protected] Member

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

    Obrigado a todos :)

    Abraço
     

Partilhar esta Página