Testeur de ligne

Invité

Bonjour !

Pour faciliter de faire des graphiques 2d j'ai créer rapidement ce petit utilitaire :

Code:: label point1,point2,code:dim x,y,x2,y2
width 0,400
height 0,290
caption 0,"2 points formant une ligne"

alpha 1
left 1,5
top 1,239
caption 1,"Point 1 : Point 2 :"

picture 2
left 2,5
top 2,5
width 2,382
height 2,231
2d_target_is 2
2d_rectangle 0,0,382,231
on_click 2,point1

button 3
height 3,17
top 3,239
left 3,300
caption 3,"CODE"
on_click 3,code

form 4
hide 4
width 4,500:height 4,350
caption 4,"CODE"
command_target_is 4

memo 5
full_space 5
bar_vertical 5
font_name 5,"fixedsys"
end
point1:
x=mouse_x_position(2)
y=mouse_y_position(2)
2d_point x,y
caption 1,"Point 1 : "+str$(x)+","+str$(y)+" Point 2 :"
on_click 2,point2
return
point2:
x2=mouse_x_position(2)
y2=mouse_y_position(2)
2d_point x2,y2
caption 1,"Point 1 : "+str$(x)+","+str$(y)+" Point 2 : "+str$(x2)+","+str$(y2)
2d_line x,y,x2,y2
on_click 2,point1
item_add 5,"2d_line "+str$(x)+","+str$(y)+","+str$(x2)+","+str$(y2)
return

code:
show 4
return

Et là c'est l'heure de Sleep

... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...

Invité

C'est pratique. Tu devrais toutefois rajouter un bouton qui aurait pour effet de garder le dernier point, et le clic suivant serrait le second point. Ainsi on créé une ligne brisée continue.

Bravo Nicolas un utilitaire intéressant qui facilite le dessin.

Invité

TIENS :

Code:: label point1,point2,code,point3:dim x,y,x2,y2
width 0,400
height 0,290
caption 0,"2 points formant une ligne"

alpha 1
left 1,5
top 1,239
caption 1,"Point 1 : Point 2 :"

picture 2
left 2,5
top 2,5
width 2,382
height 2,231
2d_target_is 2
2d_rectangle 0,0,382,231
on_click 2,point1

button 3
height 3,17
top 3,239
left 3,300
caption 3,"CODE"
on_click 3,code

form 4
hide 4
width 4,500:height 4,350
caption 4,"CODE"
command_target_is 4

memo 5
full_space 5
bar_vertical 5
font_name 5,"fixedsys"
end
point1:
x=mouse_x_position(2)
y=mouse_y_position(2)
2d_point x,y
caption 1,"Point 1 : "+str$(x)+","+str$(y)+" Point 2 :"
on_click 2,point2
return
point2:
x2=mouse_x_position(2)
y2=mouse_y_position(2)
2d_point x2,y2
caption 1,"Point 1 : "+str$(x)+","+str$(y)+" Point 2 : "+str$(x2)+","+str$(y2)
2d_line x,y,x2,y2
on_click 2,point3
item_add 5,"2d_line "+str$(x)+","+str$(y)+","+str$(x2)+","+str$(y2)
return
point3:
x=x2:y=y2
x2=mouse_x_position(2)
y2=mouse_y_position(2)
2d_line x,y,x2,y2
item_add 5,"2d_line "+str$(x)+","+str$(y)+","+str$(x2)+","+str$(y2)
return

code:
show 4
return

Salut,

Il est chouette, ton programme ! On imagine aisément ce que l'on peut en faire en ajoutant d'autres boutons, tels que "Rectangle", "Cercle", "Couleur", "Epaisseur" etc.

Un tel programme pourrait facilement être utilisé pour générer des graphiques spécifiques pour Panormic, comme des encadrements d'objets.

Je suis curieux de voir la suite, si tu as l'intention de pousser cela plus loin !

Cordialement Klaus

Invité

J'avais déjà fait le test de lignes courbes, mais c'est inquittable par la croix rouge en haut en droite.

Alors j'ai laisser tombé à moitié
P.S : il faut que tu clique sur le picture et ça commence. et met tout de suite le gestionnaire des taches en marche ;

Code:: label trace
dim k,x1,y1,x2,y2

picture 1
full_space 1
2d_target_is 1
on_click 1,trace

end

trace:
k=1
while mouse_left_up(1)=0
if k=1
x1=mouse_x_position(1)
y1=mouse_y_position(1)
k=0
else
x2=mouse_x_position(1)
y2=mouse_y_position(1)
2d_line x1,y1,x2,y2
x1=x2:y1=y2
end_if
end_while
return

Invité

Plusieurs choses
Comme je l'ai fait remarqué dans le post suivant:
https://panoramic.1fr1.net/un-bug-dans-panoramic-f3/probleme-d-affichage-sur-picture-t613.htm
l'affichage de tout changement dans un picture est devenu vraiment désagréable.
tu devrait mettre ce genre de code suplémentaire: dans une boucle:
if scancode = 27 (ou autre) then exit_while (ou stop, ou autre)
de cette façon on sort de la boucle sans avoir à lancer le gestionnaire de tâche.
Saolutation

» saut de ligne sur la dernière ligne
» Testeur de DLL
» Qui est en ligne ?
» suivie de ligne
» Numerotation ligne de programme