01net. web avec Google
Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01men
01net Pro Entreprise informatique
Bureautique
Multimédia
Internet
Utilitaires
Personnaliser son pc
Loisirs
Sécurité
Logiciels Mobiles
Services en ligne
Divers

Utilisez les tableaux

agrandir la photo
Les tableaux peuvent avoir plusieurs dimensions. Par exemple :
T2D[1][4] accède à l'élément en ligne 1 et colonne 4 d'un tableau à 2 dimensions nommé T2D.
Plus fort encore: les indexs d'un tableau n'ont pas à être nécessairement des numéros. On peut employer des noms.
Supposons que l'on veuille créer un carnet d'adresse avec pour chaque personne un nom, un prénom, un âge et un numéro de téléphone. Alors on pourrait par exemple utiliser :

MonCarnet[1]["nom"]["famille"] = "GATES"
MonCarnet[1]["nom"]["prenom"] = "Bill"
MonCarnet[1]["age"] = 50
MonCarnet[1]["tel"] = "44.01.02.00.00"
TextWindow.WriteLine(MonCarnet[1])

Voici un petit programme de saisie d'un carnet pour illustrer le concept :
' initialisations
i = 0
Reponse = "O"
' début de la boucle de saisie
While Reponse = "O"
    i=i+1
   TextWindow.Clear()
   TextWindow.Write("Saisissez le nom de la personne n°" + i + " : ")
   MonTableau[i]["nom"]["famille"] = TextWindow.Read()
   TextWindow.Write("Saisissez le prénom de la personne n°" + i + " : ")
   MonTableau[i]["nom"]["prenom"] = TextWindow.Read()
   TextWindow.Write("Saisissez l'age de la personne n°" + i + " : ")
   MonTableau[i]["age"] = TextWindow.ReadNumber()
   TextWindow.Write("Saisissez le téléphone de la personne n°" + i + " : ")
   MonTableau[i]["tel"] = TextWindow.Read()
    '
   TextWindow.WriteLine("")
   TextWindow.WriteLine("Ont été saisis jusqu'ici:")
   For x = 1 To Array.GetItemCount(MonTableau)
      TextWindow.Writeline(x+" "+MonTableau[x]["nom"])
   EndFor
   '
   TextWindow.Write("Voulez-vous saisir un autre contact (O/N)?")
   Reponse=TextWindow.Read()
   Reponse = Text.ConvertToUpperCase(reponse)
EndWhile
envoyer
par mail
imprimer
l'article