Entrar Ainda não tem acesso?
Solucionado (ver solução)
Solucionado
(ver solução)
4
respostas

[Dúvida] erro no programa

Referente ao curso VB.NET com Windows Forms Parte 1, no capítulo Controle de fluxo com laços de repetição e atividade Projeto da aula anterior

por ELTON SOUZA DOS REIS
| 7.7k xp | 6 posts

Tentei fazer um programa para mostrar se o aluno ta aprovado ou não, mas ta dando erro. 

 Private Sub Btn_Resultado_Click(sender As Object, e As EventArgs) Handles Btn_Resultado.Click

   Dim unidadeI As Double = Val(txt_nota1.Text)
    Dim unidadeII As Double = Val(txt_nota2.Text)
    Dim unidadeIII As Double = Val(txt_nota3.Text)
    Dim resultado As String = ""

    resultado = ((unidadeI + unidadeII + unidadeIII)/3)
    resultado += "O resultado " + " é " + resultado.ToString + vbCrLf


    If (resultado >= 5) Then
        txtResultado.Text = "aprovado."

    Else


    If resultado < 5 Then
            txtResultado.Text = "reprovado."
        End If

    End If
    End
    txtResultado.Text = resultado
End Sub
End Class
4 respostas
por André Bessa
| 649.1k xp | 1185 posts
Alura Scuba Team Instrutor

Bom dia Elton, tudo bem?

Você pode especificar o erro que está ocorrendo? Estou simulando o seu código aqui e funcionou:


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim unidadeI As Double = Double.Parse(TextBox1.Text)
        Dim unidadeII As Double = Double.Parse(TextBox2.Text)
        Dim unidadeIII As Double = Double.Parse(TextBox3.Text)
        Dim resultado As Double

        resultado = ((unidadeI + unidadeII + unidadeIII) / 3)
        'resultado += "O resultado " + " é " + resultado.ToString + vbCrLf

        If resultado >= 5 Then
            TextBox4.Text = "aprovado."
        Else
            If resultado < 5 Then
                TextBox4.Text = "reprovado."
            End If
        End If
        End
        'TextBox4.Text = resultado

    End Sub

Note que comentei duas linhas somente e deixei de usar o Val e substitui por Double.Parse(.

Espero que tenha ajudado e, qualquer coisa, estamos à disposição!

Abraços e bons estudos 😄

Caso este post tenha lhe ajudado, por favor, marcar como solucionado ✓. Bons Estudos!
por ELTON SOUZA DOS REIS
| 7.7k xp | 6 posts

o erro que ta dando Insira aqui a descrição dessa imagem para ajudar na acessibilidade

por ELTON SOUZA DOS REIS
| 7.7k xp | 6 posts

no seu codigo não mostrar o resultado

solução!
por André Bessa
| 649.1k xp | 1185 posts
Alura Scuba Team Instrutor

Fala Elton, blz?

Mestre o seu erro é de conversão na linha neste trecho:

Insira aqui a descrição dessa imagem para ajudar na acessibilidadePara resolver joguei a mensagem em outta variável:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim unidadeI As Double = Val(TextBox1.Text)
        Dim unidadeII As Double = Val(TextBox2.Text)
        Dim unidadeIII As Double = Val(TextBox3.Text)
        Dim resultado As Double
        Dim msg As String

        resultado = ((unidadeI + unidadeII + unidadeIII) / 3)
        resultado += "O resultado " + " é " + resultado.ToString + vbCrLf

        If resultado >= 5 Then
            TextBox4.Text = "aprovado."
            'MsgBox(msg)

        Else
            If resultado < 5 Then
                TextBox4.Text = "reprovado."
                'MsgBox(msg)
            End If
        End If

        'TextBox4.Text = resultado

    End Sub

O Código não estava parando pq, tinha um end perdido. Hehehe mas agora vai.

Espero que tenha ajudado e, qualquer coisa, estamos à disposição!

Abraços e bons estudos 😄

Caso este post tenha lhe ajudado, por favor, marcar como solucionado ✓. Bons Estudos!