Saisie une note et afficher un message
Résolu/Fermé
roylatif
Messages postés
36
Date d'inscription
vendredi 12 juin 2015
Statut
Membre
Dernière intervention
19 janvier 2018
-
Modifié par roylatif le 12/06/2015 à 00:36
roylatif Messages postés 36 Date d'inscription vendredi 12 juin 2015 Statut Membre Dernière intervention 19 janvier 2018 - 13 juin 2015 à 21:35
roylatif Messages postés 36 Date d'inscription vendredi 12 juin 2015 Statut Membre Dernière intervention 19 janvier 2018 - 13 juin 2015 à 21:35
A voir également:
- Saisie une note et afficher un message
- Comment recuperer un message supprimé sur whatsapp - Guide
- Message d'absence thunderbird - Guide
- Forwarded message ✓ - Forum Mail
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Diff message ✓ - Forum Mail
2 réponses
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
12 juin 2015 à 14:54
12 juin 2015 à 14:54
Bonjour,
Comme ceci:
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
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
13 juin 2015 à 08:07
13 juin 2015 à 08:07
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:
Bon courage
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
roylatif
Messages postés
36
Date d'inscription
vendredi 12 juin 2015
Statut
Membre
Dernière intervention
19 janvier 2018
1
13 juin 2015 à 21:35
13 juin 2015 à 21:35
merci un frère le code passe très bien j'avais pas comprit que seul la condition est n>=10
merci infiniment
merci infiniment
Modifié par roylatif le 13/06/2015 à 00:45
je vous in forme que sait en application console