FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Problème de compilateur.
par Pedro Alvarez Hier à 20:01

» COMPILATEUR V 0.9 beta 8 du 18 aout 2017
par Pedro Alvarez Hier à 19:54

» Pb 17 (en analyse): ITEM_SELECT ne fonctionne pas
par Jack Jeu 17 Aoû 2017 - 19:26

» Compilateur FBPano
par Mike Jeu 17 Aoû 2017 - 13:52

» un nouveau editeur panobasic
par Jean Claude Jeu 17 Aoû 2017 - 10:18

» Le compilateur.
par Pedro Alvarez Jeu 17 Aoû 2017 - 8:36

» Pb 16 (en analyse): ON_CLOSE plante à l'exécution
par Jack Mer 16 Aoû 2017 - 20:00

» Pb 15 (en analyse): TIMER_ON plante à l'exécution
par Jack Mer 16 Aoû 2017 - 19:58

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

» Carte de France des régions
par Yannick Sam 12 Aoû 2017 - 21:33

» Pb 14 (en analyse): PRINT_LOCATE plante à l'exécution
par Jack Ven 11 Aoû 2017 - 22:37

» Petit avertissement [Mots réservés]
par papydall Ven 11 Aoû 2017 - 13:45

» Distances sur plan
par JL35 Jeu 10 Aoû 2017 - 21:29

» Tracé : Triangle, Carrée, Dents de scie, Sinusoïde redressée
par papydall Jeu 10 Aoû 2017 - 14:52

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Testeur de ligne

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Invité
Invité



MessageSujet: Testeur de ligne   Dim 28 Fév 2010 - 6:34

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 Sleep Sleep ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
Revenir en haut Aller en bas
Invité
Invité



MessageSujet: Re: Testeur de ligne   Dim 28 Fév 2010 - 10:44

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.
Revenir en haut Aller en bas
Jean Claude

avatar

Nombre de messages : 4989
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Testeur de ligne   Dim 28 Fév 2010 - 10:52

Bravo Nicolas un utilitaire intéressant qui facilite le dessin.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: Testeur de ligne   Dim 28 Fév 2010 - 16:44

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

lol!
Revenir en haut Aller en bas
Klaus

avatar

Nombre de messages : 10062
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Testeur de ligne   Dim 28 Fév 2010 - 17:24

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Invité
Invité



MessageSujet: Re: Testeur de ligne   Jeu 4 Mar 2010 - 19:21

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
Revenir en haut Aller en bas
Invité
Invité



MessageSujet: Re: Testeur de ligne   Jeu 4 Mar 2010 - 20:55

Plusieurs choses
Comme je l'ai fait remarqué dans le post suivant:
http://panoramic.free-boards.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
Revenir en haut Aller en bas
Contenu sponsorisé




MessageSujet: Re: Testeur de ligne   

Revenir en haut Aller en bas
 
Testeur de ligne
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Testeur de ligne
» Test anti-trojans en ligne
» Comboost : un diaporama hébergé en ligne
» Webjam : créer un site en ligne
» Des jeux en ligne qui prend 5 min

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Vos sources, vos utilitaires à partager-
Sauter vers: