Bonjour à tous,
je viens vers vous car j'essai de faire tourner une ligne qui est ajouter dans un casier de ligne.
Voici le code
Pour essayer, cliquez sur la ligne du haut.
Sur la nouvelle ligne en dessous, faire clique droit de la souris et déplacer.
Le problème est que je ne récupère jamais "clique" et que la boucle ne s'arrête plus.:huh:
Cordialement
je viens vers vous car j'essai de faire tourner une ligne qui est ajouter dans un casier de ligne.
Voici le code
Code:
globale
ecran est une toile, visible vaut "oui", couleur vaut "blanc"
ligne_passe est une ligne, visible vaut "oui", couleur vaut "bleu", x1 vaut 450, y1 vaut 50, x2 vaut 500, y2 vaut 50, taille vaut 10
Liste_ligne est un casier de ligne valant ligne_passe
ligne_casier est un casier de ligne
programme_encours est un drapeau valant vrai
texte1 est un texte
Principale :
début
projette ecran
pour chaque Liste_ligne,lis
projette joker
// Fais réagir joker à "glisser-déposer" pour test
Fais réagir joker à "clic souris" pour crea
ferme
Tant que programme_encours, lis
/*boucle infinie*/
Temporise
texte1 vaut touche
si texte1 est non vide, lis
// texte de affichage vaut texte1
// affiche texte1
si texte1 = "Echap", programme_encours = faux
ferme
Vide touches
Vide texte1
Ferme
crea :
*li est un ligne
début
parcours creation avec #li
reviens
creation :
*li est un ligne
début
visible @ li vaut "oui"
y1 @ li vaut y1 @ li + 100
y2 @ li vaut y2 @ li + 100
angle @ li vaut 0
projette li
ajoute li dans ligne_casier
Fais réagir li à "glisser-déposer" pour changement ligne
Fais réagir li à "début glisser-déposer" pour début changement ligne
Fais réagir li à "clic souris" pour rien ligne
Fais réagir li à "clic droit souris" pour rotation ligne
Reviens
changement ligne :
*li est un ligne
début
transparence @ li vaut 100
Reviens
début changement ligne :
*li est un ligne
début
transparence @ li vaut 50
Reviens
rien ligne :
*li est un ligne
début
// créer uniquement pour faire marcher clic droit souris (rotation) dans les évènements
reviens
rotation ligne :
*li est un ligne
b est un nombre
texte_recu est un texte
début
vide touche
b = 1
tant que b , lis
texte_recu vaut touche
temporise
affiche texte_recu
x2 @ li = sourisx
y2 @ li = sourisy
si texte_recu = "Clique" , b = 0
ferme
Reviens
Pour essayer, cliquez sur la ligne du haut.
Sur la nouvelle ligne en dessous, faire clique droit de la souris et déplacer.
Le problème est que je ne récupère jamais "clique" et que la boucle ne s'arrête plus.:huh:
Cordialement