FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  RechercherRechercher  Dernières imagesDernières images  S'enregistrerS'enregistrer  MembresMembres  Connexion  
Derniers sujets
» demande explication KGF pour imprimer en mm
Pour faire patienter Emptypar JL35 Aujourd'hui à 17:28

» Petit passage furtif
Pour faire patienter Emptypar Froggy One Hier à 14:26

» SPIN et aide langage (résolu)
Pour faire patienter Emptypar leclode Sam 23 Mar 2024 - 15:20

» Aide-mémoire des mots-clés Panoramic
Pour faire patienter Emptypar papydall Mer 20 Mar 2024 - 21:23

» Je ne comprend pas pourquoi la largeur de la scene 3d change
Pour faire patienter Emptypar Marc Mar 12 Mar 2024 - 20:06

» Comment télécharger panoramic?
Pour faire patienter Emptypar lepetitmarocain Sam 9 Mar 2024 - 13:31

» @lepetitmarocain <==> KGFGrid
Pour faire patienter Emptypar Klaus Dim 3 Mar 2024 - 9:59

» Tangram-Toukaré
Pour faire patienter Emptypar jjn4 Mer 28 Fév 2024 - 18:12

» Editeur EliP 6 : Le Tiny éditeur avec 25 onglets de travail
Pour faire patienter Emptypar jjn4 Mer 28 Fév 2024 - 18:09

» KGF_dll - nouvelles versions
Pour faire patienter Emptypar Klaus Mer 28 Fév 2024 - 17:01

» Mes souhaits d'amélioration de Panoramic.
Pour faire patienter Emptypar Pedro Lun 26 Fév 2024 - 18:12

» Testez-votre-QI
Pour faire patienter Emptypar jjn4 Dim 25 Fév 2024 - 17:12

» Utilisation d'Élip
Pour faire patienter Emptypar jjn4 Sam 24 Fév 2024 - 18:33

» Récapitulatif ludothèque panoramic jjn4
Pour faire patienter Emptypar jjn4 Sam 24 Fév 2024 - 18:11

» Générateur de mots de passe
Pour faire patienter Emptypar mindstorm Mar 20 Fév 2024 - 20:09

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mars 2024
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier
-20%
Le deal à ne pas rater :
Pack Gigabyte Ecran PC Gamer 27″ LED M27Q (rev2.0) + Radeon RX 6950 ...
749 € 939 €
Voir le deal

 

 Pour faire patienter

Aller en bas 
3 participants
AuteurMessage
JL35




Nombre de messages : 7090
Localisation : 77
Date d'inscription : 29/11/2007

Pour faire patienter Empty
MessageSujet: Pour faire patienter   Pour faire patienter EmptyLun 14 Mai 2018 - 0:05

Un petit gadget circulaire animé pour faire patienter l'opérateur pendant une opération quelconque un peu longue, de largeur donnée, affichage n'importe où sur l'écran:
Pour faire patienter Im210
Code:
LABEL Arret
DIM w%,stp%
BUTTON 1: CAPTION 1,"Arrêt": ON_CLICK 1,Arret
w% = 64: ' largeur du cadran (pixels)
Tempo(200,500,w%): ' en x=200 y=500 pixels absolus de l'écran
END

Arret:
  stp% = 1
RETURN
' ==============================================================================
SUB Tempo(x%,y%,w%)
  ' Affichage d'un cadran circulaire rotatif, en x%,y% absolus de l'écran,
  ' dimensions w% x w% pixels.
  ' Arrêt par positionnement de la variable commune stp% = 1
  IF LABEL("Desarc") = 0 THEN LABEL Desarc
  DIM_LOCAL f%,p%,et%,xc,yc,r1,r2,deb,fin,db,fn,x,y,a,xf,yf
  f% = 900
  FORM f%: BORDER_HIDE f%: TOP f%,y%: LEFT f%,x%: WIDTH f%,w%: HEIGHT f%,w%
  p%=f%+1: PICTURE p%: PARENT p%,f%: FULL_SPACE p%
  et% = w%/12: IF et%>20 THEN et% = 20
  xc = w%/2: yc = xc: r1 = xc-et%/2: r2 = 2*r1/3
  2D_TARGET_IS p%: 2D_RECTANGLE 0,0,w%,w%
  2D_PEN_WIDTH et%: 2D_PEN_COLOR 0,255,0
  DEGREES
  WHILE 2>1
    FOR deb = 0 TO 350 STEP 10
        2D_CIRCLE xc,yc,r1
        db = deb: GOSUB Desarc: 2D_CIRCLE xf,yf,et%/2
        db = db+180: GOSUB Desarc: 2D_CIRCLE xf,yf,et%/2
        PAUSE 50: IF stp% = 1 THEN EXIT_WHILE
    NEXT deb
  END_WHILE
  2D_TARGET_IS 0: DELETE f%
EXIT_SUB
Desarc:
  fn = db+140
  x = r2*COS(db): y = r2*SIN(db): 2D_POLY_FROM xc+x,yc-y
  FOR a = db TO fn
      x = r2*COS(a): y = r2*SIN(a): 2D_POLY_TO xc+x,yc-y
  NEXT a
  xf = xc+x: yf = yc-y
RETURN
END_SUB
' ==============================================================================
Revenir en haut Aller en bas
Minibug

Minibug


Nombre de messages : 4566
Age : 57
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

Pour faire patienter Empty
MessageSujet: Re: Pour faire patienter   Pour faire patienter EmptyLun 14 Mai 2018 - 7:54

Salut JL35 !

Ton gadget est très bien, bravo !  Très bonne idée. cheers

J'ai simplement modifié le code pour le faire tourner dans le sens des aiguilles d'une montre.
Qui à mon sens, semble plus logique. En modifiant la ligne 27. Wink
Code:
FOR deb=350 TO 0 STEP -10

Pour chipoter, j'ai aussi changé les couleurs en ajoutant un commentaire sur le code sur les ligne 23 et 24.
Code:
 2D_TARGET_IS p% : 2D_FILL_COLOR 240,240,240 : 2D_RECTANGLE 0,0,w%,w% : ' Couleur du fond
  2D_PEN_WIDTH et% : 2D_PEN_COLOR 0,0,0 : ' Couleur du logo

Pour faire patienter Sans_t56

Il ne reste plus qu'a inventer d'autres motifs.. Laughing Laughing Laughing
Revenir en haut Aller en bas
http://gpp.panoramic.free.fr
Jean Claude

Jean Claude


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

Pour faire patienter Empty
MessageSujet: Re: Pour faire patienter   Pour faire patienter EmptyLun 14 Mai 2018 - 9:27

Très bonne idée cet objet tempo !

J'ai mis de coté car ça va surement servir Very Happy

Bravo JL35.

J'ai arrangé à ma sauce en reprenant l'idée des couleurs de Minibug et j'ai introduit la numérotation automatique de FORM f%.
Code:
LABEL Arret
dim no%

no%=no%+1 : BUTTON no%: CAPTION no%,"Arrêt": ON_CLICK no%,Arret


Tempo(screen_x/2,screen_y/2,150,255,255,0,40,240,240)

END

Arret:
  stp% = 1
RETURN
' ==============================================================================
SUB Tempo(x%,y%,wh%,rf%,gf%,bf%,rl%,gl%,bl%)
  ' Affichage d'un cadran circulaire rotatif, en x%,y% absolus de l'écran,
  ' dimensions wh% x wh% pixels.
  ' Arrêt par positionnement de la variable commune stp% = 1
  ' rf%,gf%,bf% couleurs du fond  -  rl%,gl%,bl% couleurs du logo
  ' création automatique du Form f% par no%=no%+1
  IF LABEL("Desarc") = 0 THEN LABEL Desarc
  if variable("stp%")=0  then dim stp%
  DIM_LOCAL f%,p%,et%,xc,yc,r1,r2,deb,fin,db,fn,x,y,a,xf,yf
  no%=no%+1 : f%=no%
  FORM f%: BORDER_HIDE f%: TOP f%,y%: LEFT f%,x%: WIDTH f%,wh%: HEIGHT f%,wh%
  p%=f%+1: PICTURE p%: PARENT p%,f%: FULL_SPACE p%
  et% = wh%/12: IF et%>20 THEN et% = 20
  xc = wh%/2: yc = xc: r1 = xc-et%/2: r2 = 2*r1/3
  2D_TARGET_IS p% : 2D_FILL_COLOR rf%,gf%,bf% : 2D_RECTANGLE 0,0,wh%,wh% : ' Couleur du fond
  2D_PEN_WIDTH et% : 2D_PEN_COLOR rl%,gl%,bl% : ' Couleur du logo
  DEGREES
  WHILE 2>1
    FOR deb = 350 TO 0 STEP -10
        2D_CIRCLE xc,yc,r1
        db = deb: GOSUB Desarc: 2D_CIRCLE xf,yf,et%/2
        db = db+180: GOSUB Desarc: 2D_CIRCLE xf,yf,et%/2
        PAUSE 50: IF stp% = 1 THEN EXIT_WHILE
    NEXT deb
  END_WHILE
  2D_TARGET_IS 0: DELETE f%
EXIT_SUB
Desarc:
  fn = db+140
  x = r2*COS(db): y = r2*SIN(db): 2D_POLY_FROM xc+x,yc-y
  FOR a = db TO fn
      x = r2*COS(a): y = r2*SIN(a): 2D_POLY_TO xc+x,yc-y
  NEXT a
  xf = xc+x: yf = yc-y
RETURN
END_SUB
' ==============================================================================

A+
Revenir en haut Aller en bas
JL35




Nombre de messages : 7090
Localisation : 77
Date d'inscription : 29/11/2007

Pour faire patienter Empty
MessageSujet: Re: Pour faire patienter   Pour faire patienter EmptyLun 14 Mai 2018 - 9:27

@Minibug,
J'y avais bien pensé pour le sens de rotation, mais je m'étais dit du moment que ça tourne...
Et je n'ai pas voulu te priver de ce plaisir  Very Happy

Et après, la porte est ouverte à toutes les variantes, fond, couleurs, c'est fait pour ça !

Salut Jean Claude, je vois que tu t'y mets aussi, ça fait plaisir !
Revenir en haut Aller en bas
Minibug

Minibug


Nombre de messages : 4566
Age : 57
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

Pour faire patienter Empty
MessageSujet: Re: Pour faire patienter   Pour faire patienter EmptyLun 14 Mai 2018 - 10:24

JL35 a écrit:
je n'ai pas voulu te priver de ce plaisir

Merci ! lol! lol! lol!
Revenir en haut Aller en bas
http://gpp.panoramic.free.fr
JL35




Nombre de messages : 7090
Localisation : 77
Date d'inscription : 29/11/2007

Pour faire patienter Empty
MessageSujet: Re: Pour faire patienter   Pour faire patienter EmptyLun 14 Mai 2018 - 12:31

Perso, à mon âge, je préfère le temps qui va à rebours, c'est à dire le sens trigonométrique.
Une remarque concernant ton changement de sens: les petites boules sont censées représenter des pointes de flèches (je ne me suis pas trop fatigué là-dessus !). En inversant le sens, il aurait aussi fallu inverser la position de ces boules...
comme ceci (j'ai repris tes modifs de couleurs):
Code:
LABEL Arret
DIM w%,stp%
WIDTH 0,150: HEIGHT 0,100: COLOR 0,255,0,0: FONT_SIZE 0,18
BUTTON 1: TOP 1,20: LEFT 1,30: CAPTION 1,"Arrêt": ON_CLICK 1,Arret
w% = 128: ' largeur du cadran (pixels)
Tempo(200,300,w%): ' en x=200 y=300 pixels absolus de l'écran
END

Arret:
  stp% = 1
RETURN
' ==============================================================================
SUB Tempo(x%,y%,w%)
  ' Affichage d'un cadran circulaire rotatif, en x%,y% absolus de l'écran,
  ' dimensions w% x w% pixels.
  ' Arrêt par positionnement de la variable commune stp% = 1
  IF LABEL("Desarc") = 0 THEN LABEL Desarc
  DIM_LOCAL f%,p%,et%,xc,yc,r1,r2,deb,fin,db,fn,x,y,a,xf,yf
  f% = 900
  FORM f%: BORDER_HIDE f%: TOP f%,y%: LEFT f%,x%: WIDTH f%,w%: HEIGHT f%,w%
  p%=f%+1: PICTURE p%: PARENT p%,f%: FULL_SPACE p%
  et% = w%/12: IF et%>20 THEN et% = 20
  xc = w%/2: yc = xc: r1 = xc-et%/2: r2 = 2*r1/3
  2D_TARGET_IS p% : 2D_FILL_COLOR 240,240,240 : 2D_RECTANGLE 0,0,w%,w% : ' Couleur du fond
  2D_PEN_WIDTH et% : 2D_PEN_COLOR 0,0,0 : ' Couleur du logo
  DEGREES
  WHILE 2>1
    FOR deb = 350 TO 0 STEP -10
        2D_CIRCLE xc,yc,r1
        db = deb: GOSUB Desarc
        db = db+180: GOSUB Desarc
        PAUSE 50: IF stp% = 1 THEN EXIT_WHILE
    NEXT deb
  END_WHILE
  2D_TARGET_IS 0: DELETE f%
EXIT_SUB
Desarc:
  fn = db+140
  x = r2*COS(db): y = r2*SIN(db): 2D_CIRCLE xc+x,yc-y,et%/2
  2D_POLY_FROM xc+x,yc-y
  FOR a = db TO fn
      x = r2*COS(a): y = r2*SIN(a): 2D_POLY_TO xc+x,yc-y
  NEXT a
  xf = xc+x: yf = yc-y
RETURN
END_SUB
' ==============================================================================
Revenir en haut Aller en bas
Jean Claude

Jean Claude


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

Pour faire patienter Empty
MessageSujet: Re: Pour faire patienter   Pour faire patienter EmptyLun 14 Mai 2018 - 13:25

Effectivement, c'est plus cohérent d'avoir les têtes dans le sens de rotation.

Si seulement le compte à rebours dans le sens inverse des aiguilles d'une montre pouvait nous faire remonter dans le temps, quel aubaine !
Il y aurait bien des choses à changer....

Mais attention à ne pas dépasser sa date de naissance....
lol!

A+
Revenir en haut Aller en bas
JL35




Nombre de messages : 7090
Localisation : 77
Date d'inscription : 29/11/2007

Pour faire patienter Empty
MessageSujet: Re: Pour faire patienter   Pour faire patienter EmptyLun 14 Mai 2018 - 16:52

Bien sûr il faut savoir s'arrêter à temps ! mais j'ai largement le temps de voir venir avant de remonter à Cro-Magnon... qui n'avait même pas un portable si ça se trouve !
Revenir en haut Aller en bas
Minibug

Minibug


Nombre de messages : 4566
Age : 57
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

Pour faire patienter Empty
MessageSujet: Re: Pour faire patienter   Pour faire patienter EmptyLun 14 Mai 2018 - 19:53

JL35 a écrit:
Une remarque concernant ton changement de sens: les petites boules sont censées représenter des pointes de flèches (je ne me suis pas trop fatigué là-dessus !). En inversant le sens, il aurait aussi fallu inverser la position de ces boules... comme ceci (j'ai repris tes modifs de couleurs):

Ah ben oui, j'avais même pas fait attention à ça !

Concernant les flèches au lieu des boules il faudrait reprendre ce que Papydall et Klaus avaient fait concernant l'organigramme de Klaus ! drunken

Revenir en haut Aller en bas
http://gpp.panoramic.free.fr
JL35




Nombre de messages : 7090
Localisation : 77
Date d'inscription : 29/11/2007

Pour faire patienter Empty
MessageSujet: Re: Pour faire patienter   Pour faire patienter EmptyLun 14 Mai 2018 - 20:02

Franchement, je ne crois pas que ça vaille le coup de se casser la tête pour ça, ce n'est qu'un gadget visuel qui tourne... il y a des choses bien plus importantes, un éditeur par exemple.. Smile
Revenir en haut Aller en bas
Jean Claude

Jean Claude


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

Pour faire patienter Empty
MessageSujet: Re: Pour faire patienter   Pour faire patienter EmptyLun 14 Mai 2018 - 20:23

JL35 a écrit:
Bien sûr il faut savoir s'arrêter à temps ! mais j'ai largement le temps de voir venir avant de remonter à Cro-Magnon... qui n'avait même pas un portable si ça se trouve !

Ben... on a des preuves ! Serte leurs ordinateurs n'étaient pas très "portables", mais ils étaient solides comme la pierre.

lol!

Pour faire patienter 33023810
Revenir en haut Aller en bas
JL35




Nombre de messages : 7090
Localisation : 77
Date d'inscription : 29/11/2007

Pour faire patienter Empty
MessageSujet: Re: Pour faire patienter   Pour faire patienter EmptyLun 14 Mai 2018 - 20:56

et en plus il regarde des photos cochonnes... quelle époque !
Revenir en haut Aller en bas
Minibug

Minibug


Nombre de messages : 4566
Age : 57
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

Pour faire patienter Empty
MessageSujet: Re: Pour faire patienter   Pour faire patienter EmptyLun 14 Mai 2018 - 21:25

Citation :
Franchement, je ne crois pas que ça vaille le coup de se casser la tête pour ça
Et ben si justement pour l'intégrer dans l'éditeur ! Laughing Laughing

Et pour l'éditeur, c'est par ici ! Wink
Revenir en haut Aller en bas
http://gpp.panoramic.free.fr
Contenu sponsorisé





Pour faire patienter Empty
MessageSujet: Re: Pour faire patienter   Pour faire patienter Empty

Revenir en haut Aller en bas
 
Pour faire patienter
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Pour faire patienter...
» Pour faire patienter
» Pour patienter
» Pour faire plaisir à Marc37.
» Pour faire plaisir à jjn4.

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