Utilisez les tableaux
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.
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 :
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
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
par mail

imprimer
l'article
l'article

nos newsletters










agrandir la photo
