Index du Forum




 FAQFAQ   RechercherRechercher   MembresMembres   GroupesGroupes   S’enregistrerS’enregistrer 
 ProfilProfil   Se connecter pour vérifier ses messages privésSe connecter pour vérifier ses messages privés   ConnexionConnexion 

Divers exemples avec les méthodes Console.Write et Console.WriteLine

 
Poster un nouveau sujet   Répondre au sujet     Index du Forum -> Visual Basic.Net -> Exemples de code
Sujet précédent :: Sujet suivant  
Auteur Message
Dayvid
Administrateur

Hors ligne

Inscrit le: 24 Oct 2012
Messages: 89
Localisation: Vienne - Poitiers (86000)
Masculin Lion (24juil-23aoû)
Point(s): 107
Moyenne de points: 1,20

MessagePosté le: Sam 28 Sep 2013 - 18:00    Sujet du message: Divers exemples avec les méthodes Console.Write et Console.WriteLine Répondre en citant

Bonjour,

Je vous propose des petits exemples pour utiliser la méthode Console.Write:

Code:
' Exemple réalisé par monsieur Dieppedalle David le 28 Septembre 2013

Module Module1

    Sub Main()

        ' Exemple n°1:

        ' Création des variables et affectations des valeurs
        Dim A As String = "Abc", B As String = "Bcd", C As String = "Cde", D As String = "Def", E As String = "Efg", F As String = "Fgh"
        Dim G As String = "Ghi", H As String = "Hij", I As String = "Ijk"

        ' Affichages des variables
        Console.Write("A = {0}, B = {1}, C = {2}, D = {3}, E = {4}, F = {5}, G = {6}, H = {7}, I = {8}", A, B, C, D, E, F, G, H, I & vbCrLf)

        ' ---------------------------------------------------------------------------------------------------------------------------------------------------

        ' Exemple °2:

        ' Création d'un tableau et affectations des valeurs (1 par index, Index commence à 0)
        Dim MonTableau() As String = {"Abc", "Bcd", "Cde", "Def", "Efg", "Fgh", "Ghi", "Hij", "Ijk"}
        Dim Compteur As Integer = 0

        ' Parcours du tableau index par index et affichages des valeurs
        For Each MaChaine As String In MonTableau

            Console.Write(MaChaine.Substring(0, 1) & " = " & MaChaine)

            If Compteur < MonTableau.Length - 1 Then
                Console.Write(", ")
            End If

            Compteur += 1

        Next

        Compteur = 0
        Console.Write(vbCrLf)

        ' ---------------------------------------------------------------------------------------------------------------------------------------------------

        ' Exemple °3:

        ' Variable pour la création de la chaîne
        Dim MaChaîne As String = ""

        ' Création et affichage direct des valeurs créées
        For NuméroLettre As Integer = 97 To 105

            MaChaîne = (Chr(NuméroLettre)).ToString.ToUpper & Chr(NuméroLettre + 1) & Chr(NuméroLettre + 2)
            Console.Write(MaChaîne.Substring(0, 1) & " = " & MaChaîne)

            If NuméroLettre < 105 Then
                Console.Write(", ")
            End If

        Next

        MaChaîne = ""
        Console.Write(vbCrLf)

        ' ---------------------------------------------------------------------------------------------------------------------------------------------------

        ' Exemple °4:

        ' Création de la chaîne contenant les lettres séparées par une virgule
        For NuméroLettre As Integer = 97 To 105

            MaChaîne += (Chr(NuméroLettre)).ToString.ToUpper & Chr(NuméroLettre + 1) & Chr(NuméroLettre + 2)

            If NuméroLettre < 105 Then
                MaChaîne += ", "
            End If

        Next

        ' Extractions de toutes les valeurs entre les virgules et affichage
        For Each Chaîne In MaChaîne.Split({", "}, StringSplitOptions.None)

            Console.Write(Chaîne.Substring(0, 1) & " = " & Chaîne)

            If Compteur < MonTableau.Length - 1 Then
                Console.Write(", ")
            End If

            Compteur += 1

        Next

        Console.ReadLine()

    End Sub

End Module


N'hésitez pas à donner vos avis Clin d'œil / Conseil
_________________
Le respect n'est pas en option, mais une obligation !
Je serai intransigeant sur ce point-ci !

Veuillez s'il vous plait, aider les membres du mieux que vous le pouvez,
mais ne faites pas tout à leur place non plus, car ce n'est pas les aider !
La programmation est déjà assez difficile comme ça !


Revenir en haut
Publicité






MessagePosté le: Sam 28 Sep 2013 - 18:00    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet     Index du Forum -> Visual Basic.Net -> Exemples de code Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  

Index | Creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com