Saisie une note et afficher un message

Résolu
roylatif Messages postés 43 Statut Membre -  
roylatif Messages postés 43 Statut Membre -
bonsoir svp
je suis pas doue en bv.net quelqu'un pourrai me donner un coup de main svp
je voudrai saisie une note et afficher un message ; la note est en dessous de la moyenne
Sub Main()
Dim n As Integer
Console.WriteLine("entrer une note svp")
n = Console.ReadLine
If (n >= 0) Then
Console.WriteLine("la note est au dessus de la moyenne")
Else

End If
If (n <= 10) Then

Console.WriteLine("la note est en dessous de la moyenne")
Else

End If

Console.Read()

2 réponses

  1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    Comme ceci:

    Option Strict On
    Public Class Form1
        Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            Dim input As Integer
            Dim userInput As String = InputBox("Entrez une note svp", "test", "10")
            Dim validInput As Boolean = Integer.TryParse(userInput, input)
            If validInput = False Then
                MessageBox.Show("Entrée non numérique, recommencez!", "test", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Else
                If (CDbl(userInput) >= 10) Then
                    MessageBox.Show("la note est au dessus de la moyenne!", "test", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Else
                    MessageBox.Show("la note est en dessous de la moyenne!", "test", MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            End If
        End Sub
    End Class
    


    0
    1. roylatif Messages postés 43 Statut Membre 2
       
      merci pour ton aide mai j ai fait le même code sa ne marche pas non plus
      je vous in forme que sait en application console
      0
  2. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Désolé, ce code est fait pour un compilateur.
    En mode console, je ne sais pas comment envoyer un message!
    Par contre je peux corriger ton code comme ceci:

    Sub Main() 
     Dim n As Integer 
     Console.WriteLine("entrer une note svp") 
     n = Console.ReadLine 
     If  n >= 10 Then 
     Console.WriteLine("la note est au dessus de la moyenne") 
     Else 
     Console.WriteLine("la note est en dessous de la moyenne") 
      End If 
    Console.Read()


    Bon courage
    0
    1. roylatif Messages postés 43 Statut Membre 2
       
      merci un frère le code passe très bien j'avais pas comprit que seul la condition est n>=10
      merci infiniment
      0