Algo errado na soma...

[Messana 0]

Olá,

estou desenvolvendo um programa, o campo media_escola.Text é um valor.

 

Será feito um calculo, e com isso se a a SOMA der menos que 7 será exibida uma mensagem de reprovado

se for mais que 7, aprovado.

 

Porém..

 

Quando alguem tira 10, ele da a mensagem de reprovado, e 0 pra ele, é aprovado.

 

Como concerto isso?

 

Segue o codigo..

 

Private Sub verif_Click()

ma.Text = Val(p1.Text) + Val(p2.Text) + Val(p3.Text) + Val(p4.Text)

If ma.Text > media_escola.Text Then

sit.Text = "Aprovado"

Else

sit.Text = "Recuperação"

End If

End Sub

[Raphael_Suporte 0]

cara eu fiz exatamente como você e funcionou, tem alguma parte do prog que você não copiou??

 

Private Sub verif_Click()

ma.Text = Val(p1.Text) + Val(p2.Text) + Val(p3.Text) + Val(p4.Text)

If val(ma.Text) > val(media_escola.Text) Then

sit.Text = "Aprovado"

Else

sit.Text = "Recuperação"

End If

End Sub

[Claudio Neto 3]

Olá,

estou desenvolvendo um programa, o campo media_escola.Text é um valor.

 

Será feito um calculo, e com isso se a a SOMA der menos que 7 será exibida uma mensagem de reprovado

se for mais que 7, aprovado.

 

Porém..

 

Quando alguem tira 10, ele da a mensagem de reprovado, e 0 pra ele, é aprovado.

 

Como concerto isso?

 

Segue o codigo..

 

Private Sub verif_Click()

ma.Text = Val(p1.Text) + Val(p2.Text) + Val(p3.Text) + Val(p4.Text)

If ma.Text > media_escola.Text Then

sit.Text = "Aprovado"

Else

sit.Text = "Recuperação"

End If

End Sub

 

Tente fazer isso, veja se muda alguma coisa:

 

CODE

Private Sub verif_Click()

ma.Text = Val(p1.Text) + Val(p2.Text) + Val(p3.Text) + Val(p4.Text)

If val(ma.Text) > val(media_escola.Text) Then

sit.Text = "Aprovado"

Else

sit.Text = "Recuperação"

End If

End Sub

Se der certo, é porque ele estava considerando os valores dentro das text's como strings, e não como números, se não der certo não sei o que está ocorrendo, rs...