Bonsoir,
Je tente d’utiliser le composant IHM table en « recyclant » l’exemple de démonstration des IHM.
Cependant, je n’obtiens pas l’affichage complet de la table.
D'avance Merci, pour votre aide.
Voici, le livre :
<
CODE>
/*xxx
Spécification : 2.2.0
Auteur : pat
*/
bibliothèque
espèces
globale
form est un formulaire, titre vaut "xxx", largeur vaut 800, hauteur vaut 600
panneau_table est un panneau
table est un table, x vaut 10, y vaut 10,hauteur vaut 400 , largeur vaut 600
b_table est un bouton, texte vaut "Afficher la table", x vaut 500, y vaut 230
b_ajouter est un bouton, texte vaut "Ajouter une ligne", x vaut 500, y vaut 250
boite_table est un boite, x vaut 100, y vaut 400, largeur vaut 400, hauteur vaut 200
colonnes est un casier de texte <
- "Prénom", "Nom", "Âge"
ligne <
- 3
principale :
souffleurs
début
ajoute table dans panneau_table
ajoute panneau_table & boite_table & b_ajouter & b_table dans form
projette form
fais réagir b_table à "clic souris" pour afficher table
fais réagir b_ajouter à "clic souris" pour ajouter ligne
évoque table.colonnes (colonnes)
pour chaque ligne, _ table.ajouterligne()
évoque table.valeur(0,0,"Gilbert")
évoque table.valeur(0,1,"Dupond")
évoque table.valeur(0,2,35)
évoque table.valeur(1,0,"Robert")
évoque table.valeur(1,1,"Dupont")
évoque table.valeur(1,2,43)
évoque table.valeur(2,0,"Hugo")
évoque table.valeur(2,1,"Dupons")
évoque table.valeur(2,2,29)
pour chaque ligne, lis
c <
- joker
pour chaque 3, lis
évoque table.écriture(c,joker,vrai)
ferme
ferme
projette form
attends 7 secondes
afficher table :
*b est un bouton
contenu est un texte
début
pour chaque ligne, lis
contenu vaut contenu + table.retournevaleur(joker,0) + " " + table.retournevaleur(joker,1) + " à " +
table.retournevaleur(joker,2) + " ans"
contenu vaut contenu + chr 13 + chr 10
ferme
texte @ boite_table vaut contenu
reviens
ajouter ligne :
*b est un bouton
début
évoque table.ajouterligne()
incrémente ligne
évoque table.valeur(ligne-1,0,"")
évoque table.valeur(ligne-1,1,"")
évoque table.valeur(ligne-1,2,0)
évoque table.écriture(ligne-1,0,vrai)
évoque table.écriture(ligne-1,1,vrai)
évoque table.écriture(ligne-1,2,vrai)
reviens
<
/CODE>
Je tente d’utiliser le composant IHM table en « recyclant » l’exemple de démonstration des IHM.
Cependant, je n’obtiens pas l’affichage complet de la table.
D'avance Merci, pour votre aide.
Voici, le livre :
<
CODE>
/*xxx
Spécification : 2.2.0
Auteur : pat
*/
bibliothèque
espèces
globale
form est un formulaire, titre vaut "xxx", largeur vaut 800, hauteur vaut 600
panneau_table est un panneau
table est un table, x vaut 10, y vaut 10,hauteur vaut 400 , largeur vaut 600
b_table est un bouton, texte vaut "Afficher la table", x vaut 500, y vaut 230
b_ajouter est un bouton, texte vaut "Ajouter une ligne", x vaut 500, y vaut 250
boite_table est un boite, x vaut 100, y vaut 400, largeur vaut 400, hauteur vaut 200
colonnes est un casier de texte <
- "Prénom", "Nom", "Âge"
ligne <
- 3
principale :
souffleurs
début
ajoute table dans panneau_table
ajoute panneau_table & boite_table & b_ajouter & b_table dans form
projette form
fais réagir b_table à "clic souris" pour afficher table
fais réagir b_ajouter à "clic souris" pour ajouter ligne
évoque table.colonnes (colonnes)
pour chaque ligne, _ table.ajouterligne()
évoque table.valeur(0,0,"Gilbert")
évoque table.valeur(0,1,"Dupond")
évoque table.valeur(0,2,35)
évoque table.valeur(1,0,"Robert")
évoque table.valeur(1,1,"Dupont")
évoque table.valeur(1,2,43)
évoque table.valeur(2,0,"Hugo")
évoque table.valeur(2,1,"Dupons")
évoque table.valeur(2,2,29)
pour chaque ligne, lis
c <
- joker
pour chaque 3, lis
évoque table.écriture(c,joker,vrai)
ferme
ferme
projette form
attends 7 secondes
afficher table :
*b est un bouton
contenu est un texte
début
pour chaque ligne, lis
contenu vaut contenu + table.retournevaleur(joker,0) + " " + table.retournevaleur(joker,1) + " à " +
table.retournevaleur(joker,2) + " ans"
contenu vaut contenu + chr 13 + chr 10
ferme
texte @ boite_table vaut contenu
reviens
ajouter ligne :
*b est un bouton
début
évoque table.ajouterligne()
incrémente ligne
évoque table.valeur(ligne-1,0,"")
évoque table.valeur(ligne-1,1,"")
évoque table.valeur(ligne-1,2,0)
évoque table.écriture(ligne-1,0,vrai)
évoque table.écriture(ligne-1,1,vrai)
évoque table.écriture(ligne-1,2,vrai)
reviens
<
/CODE>