2 TPs d'apprentissage

Module Module1

Sub Main()
'Zone déclarations
Dim A, B As String
Dim C, D, E, F, G As Integer
'Initialisation
A = 0
B = 0
C = 0
D = 0
'Accueil du client
Console.WriteLine("Bonjour. Bienvenue sur le programme Calcul.")
Console.WriteLine("Nous allons vous assister dans la réalisation d'une addition.")
Console.WriteLine("Pour commencer, entrez le premier chiffre à additionner.")
'Première boucle pour vérification que c'est bien un chiffre, et tant que non, on recommence
While C = 0
'On récupère A
A = Console.ReadLine()
'On vérifie que A est bien un chiffre
If IsNumeric(A) Then
Console.WriteLine("Merci, nous avons reçu le chiffre " & A)
F = A
C = 1
'Et sinon, on recommence.
Else
Console.WriteLine("Vous n'avez pas entré de chiffre valide. Recommencez.")
End If
End While
'Même méthode pour le second chiffre. On annonce au client, on récolte, on vérifie et on passe à la suite.
Console.WriteLine("Bien. Passons maintenant au second chiffre à additionner à " & A)
Console.WriteLine("Entrez ce chiffre ici.")
While D = 0
B = Console.ReadLine()
If IsNumeric(B) Then
Console.WriteLine("Le second chiffre est reçu avec succès. Passons à l'addition.")
G = B
D = 1
Console.Read()
Else
Console.WriteLine("Vous n'avez pas entré de chiffre valide. Recommencez.")
End If
End While
'Fin de la vérification, et donc de la récolte.
'Début du calcul
E = F + G
Console.WriteLine("Nous effectuons le calcul suivant :")
Console.WriteLine(A & "+" & B & "=" & E)
Console.WriteLine("Calcul effectué avec succès.")
Console.WriteLine(" ")
Console.WriteLine("Appuyez sur entrée pour quitter le programme")
Console.Read()
Console.Read()
'Fin du programme
End Sub

End Module

Module Module1

Sub Main()
'###############################
'# Calculatrice #
'###############################
'Déclaration des variables
Dim Text, Text2, Text3, Choix, A, B As String
Dim Numb As Integer = 0
Dim Numb2 As Integer = 0
Dim Numb3 As Integer = 0
Dim Numb4 As Integer = 0
Dim Numb5 As Integer = 0
Dim Numb6 As Integer = 0
Dim C, D, E, F, G As Integer
A = 0
B = 0
C = 0
D = 0
E = 0
F = 0
G = 0
'Déclaration des fixes
'Début code
Console.WriteLine("Bienvenue sur le programme Calculatrice.")
Console.WriteLine("Choisissez l'opération à effectuer :")
Console.WriteLine("a = addition")
Console.WriteLine("s = soustraction")
Console.WriteLine("m = multiplication")
Console.WriteLine("d = division")
Choix = Console.ReadLine()
Select Case Choix
' --------------------------------------------------- Addition ---------------------------------------------------
Case "a"
Console.WriteLine("Nous allons donc vous assister dans la réalisation d'une addition.")
Console.WriteLine("Pour commencer, entrez le premier chiffre à additionner.")
'Première boucle pour vérification que c'est bien un chiffre, et tant que non, on recommence
While C = 0
'On récupère A
A = Console.ReadLine()
'On vérifie que A est bien un chiffre
If IsNumeric(A) Then
Console.WriteLine("Merci, nous avons reçu le chiffre " & A)
F = A
C = 1
'Et sinon, on recommence.
Else
Console.WriteLine("Vous n'avez pas entré de chiffre valide. Recommencez.")
End If
End While
'Même méthode pour le second chiffre. On annonce au client, on récolte, on vérifie et on passe à la suite.
Console.WriteLine("Bien. Passons maintenant au second chiffre à additionner à " & A)
Console.WriteLine("Entrez ce chiffre ici.")
While D = 0
B = Console.ReadLine()
If IsNumeric(B) Then
Console.WriteLine("Le second chiffre est reçu avec succès. Passons à l'addition.")
G = B
D = 1
Console.Read()
Else
Console.WriteLine("Vous n'avez pas entré de chiffre valide. Recommencez.")
End If
End While
'Fin de la vérification, et donc de la récolte.
'Début du calcul
E = F + G
Console.WriteLine("Nous effectuons le calcul suivant :")
Console.WriteLine(A & "+" & B & "=" & E)
Console.WriteLine("Calcul effectué avec succès.")
Console.WriteLine(" ")
Console.WriteLine("Appuyez sur entrée pour quitter le programme")
Console.Read()
Console.Read()
' --------------------------------------------------- Soustraction ---------------------------------------------------
Case "s"
Console.WriteLine("Nous allons donc vous assister dans la réalisation d'une soustraction.")
Console.WriteLine("Pour commencer, entrez le premier chiffre à soustraire.")
'Première boucle pour vérification que c'est bien un chiffre, et tant que non, on recommence
While C = 0
'On récupère A
A = Console.ReadLine()
'On vérifie que A est bien un chiffre
If IsNumeric(A) Then
Console.WriteLine("Merci, nous avons reçu le chiffre " & A)
F = A
C = 1
'Et sinon, on recommence.
Else
Console.WriteLine("Vous n'avez pas entré de chiffre valide. Recommencez.")
End If
End While
'Même méthode pour le second chiffre. On annonce au client, on récolte, on vérifie et on passe à la suite.
Console.WriteLine("Bien. Passons maintenant au second chiffre à soustraire au premier à " & A)
Console.WriteLine("Entrez ce chiffre ici.")
While D = 0
B = Console.ReadLine()
If IsNumeric(B) Then
Console.WriteLine("Le second chiffre est reçu avec succès. Passons à la soustraction.")
G = B
D = 1
Console.Read()
Else
Console.WriteLine("Vous n'avez pas entré de chiffre valide. Recommencez.")
End If
End While
'Fin de la vérification, et donc de la récolte.
'Début du calcul
E = F - G
Console.WriteLine("Nous effectuons le calcul suivant :")
Console.WriteLine(A & "-" & B & "=" & E)
Console.WriteLine("Calcul effectué avec succès.")
Console.WriteLine(" ")
Console.WriteLine("Appuyez sur entrée pour quitter le programme")
Console.Read()
Console.Read()
' --------------------------------------------------- Multiplication ---------------------------------------------------
Case "m"
Console.WriteLine("Nous allons donc vous assister dans la réalisation d'une multiplication.")
Console.WriteLine("Pour commencer, entrez le premier chiffre à multiplier.")
'Première boucle pour vérification que c'est bien un chiffre, et tant que non, on recommence
While C = 0
'On récupère A
A = Console.ReadLine()
'On vérifie que A est bien un chiffre
If IsNumeric(A) Then
Console.WriteLine("Merci, nous avons reçu le chiffre " & A)
F = A
C = 1
'Et sinon, on recommence.
Else
Console.WriteLine("Vous n'avez pas entré de chiffre valide. Recommencez.")
End If
End While
'Même méthode pour le second chiffre. On annonce au client, on récolte, on vérifie et on passe à la suite.
Console.WriteLine("Bien. Passons maintenant au second chiffre à multiplier avec " & A)
Console.WriteLine("Entrez ce chiffre ici.")
While D = 0
B = Console.ReadLine()
If IsNumeric(B) Then
Console.WriteLine("Le second chiffre est reçu avec succès. Passons à la multiplication.")
G = B
D = 1
Console.Read()
Else
Console.WriteLine("Vous n'avez pas entré de chiffre valide. Recommencez.")
End If
End While
'Fin de la vérification, et donc de la récolte.
'Début du calcul
E = F * G
Console.WriteLine("Nous effectuons le calcul suivant :")
Console.WriteLine(A & "x" & B & "=" & E)
Console.WriteLine("Calcul effectué avec succès.")
Console.WriteLine(" ")
Console.WriteLine("Appuyez sur entrée pour quitter le programme")
Console.Read()
Console.Read()
' --------------------------------------------------- Division ---------------------------------------------------
Case "d"
Console.WriteLine("Nous allons donc vous assister dans la réalisation d'une division.")
Console.WriteLine("Pour commencer, entrez le premier chiffre à diviser.")
'Première boucle pour vérification que c'est bien un chiffre, et tant que non, on recommence
While C = 0
'On récupère A
A = Console.ReadLine()
'On vérifie que A est bien un chiffre
If IsNumeric(A) Then
Console.WriteLine("Merci, nous avons reçu le chiffre " & A)
F = A
C = 1
'Et sinon, on recommence.
Else
Console.WriteLine("Vous n'avez pas entré de chiffre valide. Recommencez.")
End If
End While
'Même méthode pour le second chiffre. On annonce au client, on récolte, on vérifie et on passe à la suite.
Console.WriteLine("Bien. Passons maintenant au second chiffre à diviser avec " & A)
Console.WriteLine("Entrez ce chiffre ici.")
While D = 0
B = Console.ReadLine()
If IsNumeric(B) Then
Console.WriteLine("Le second chiffre est reçu avec succès. Passons à la division.")
G = B
D = 1
Console.Read()
Else
Console.WriteLine("Vous n'avez pas entré de chiffre valide. Recommencez.")
End If
End While
'Fin de la vérification, et donc de la récolte.
'Début du calcul
E = F / G
Console.WriteLine("Nous effectuons le calcul suivant :")
Console.WriteLine(A & "/" & B & "=" & E)
Console.WriteLine("Calcul effectué avec succès.")
Console.WriteLine(" ")
Console.WriteLine("Appuyez sur entrée pour quitter le programme")
Console.Read()
Console.Read()
End Select
'Fin code
End Sub

End Module