• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

tukith

ajuda simples com váriavel (minhas primeiras =D)

9 mensagens neste tópico

galera, eu fiz 2 variaveis

dim parte2 as string

dim parte3 as string

sem elas o programa n funcionava, eu fiz elas e funcionou, é um programa de IMC (índice de massa corporal) até testei o resultado em sites e deu certo, mas aparece um erro depois que eu aperto calcular, eh o seguinte erro:

Run-time error '5':

Invalid procedure call or argument

como arrumo isso? valeu galera

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tens que ser mais especifico, posta aqui o código onde te dá erro.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tens de perceber que essa mensagem não nos diz muito... essa mensagem pode ocorrer em muitas situações...

posta o codigo, ou entao o programa... mas o melhor seria o codigo...

cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Dim parte2 As String
Dim parte3 As String

Private Sub Command1_Click()
If Val(resultado.Text) = Val(peso.Text) / (altura.Text) Then
resultado.Text = "15, Abaixo do Peso I."
Else
resultado.Text = "15 a 18.5, Abaixo do Peso"
End If
If parte2 Then
resultado.Text = "18.6 a 24.9, Peso Normal."
Else
resultado.Text = "25 a 29.9, Acima do Peso."
End If
If parte3 Then
resultado.Text = "30 a 39.9, Obesidade I."
Else
resultado.Text = "40 ou mais, Obesidade II."
End If
End Sub

Private Sub sair_Click()
    End
End Sub

Private Sub sobre_Click()
    Load Form2
    Unload Me
    Form2.Show
End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

primeiro nao percisas das variaveis que tens... "parte2 e parte3"

segundo estas a meter ao contrario, ou seja tens de meter o indice na condicao, ou seja,

If  peso.Text / altura.Text < 15 Then
resultado.Text = " Abaixo do Peso I."
Elseif peso.Text / altura.Text  <18.5 then
resultado.Text = " Abaixo do Peso"
Elseif peso.Text / altura.Text  <24.9 then
resultado.Text = " Peso Normal."
Elseif peso.Text / altura.Text  <29.9 then
resultado.Text = " Acima do Peso."
Elseif peso.Text / altura.Text  <39.9 then
resultado.Text = "30 a 39.9, Obesidade I."
Elseif peso.Text / altura.Text  >40 then
resultado.Text = " Obesidade II."
End If

supono que tenhas uma text box "resultado", "altura" e "peso"

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

sim tenho, claro

o meu código tava funcionando, só dava aquele erro no final, como arrumo aquilo?

o codigo que vc me passou não está funcionando

/Tukith

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

hã eu coloquei assim

no txtbox peso: 20

altura: 1,70

resultado = obesidade II

agora :

peso: 80

altura: 1,20

resultado:  Abaixo do Peso I.

está trocando 0o

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora