JL35
Nombre de messages : 7095
Localisation : 77
Date d'inscription : 29/11/2007
 | | Sujet: Pour faire patienter... Mer 4 Aoû 2021 - 13:31 | |
| Une petite pendule animée pour faire patienter l'opérateur quand une opération est un peu longue à exécuter, et lui confirmer que le programme n'est pas planté. Taille (w) à choisir entre 0 et 255, emplacement x,y n'importe où sur l'écran. Arrêt: variable ff positionnée à 1 dans le programme appelant.  - Code:
-
LABEL Fin
DIM ff
BORDER_SMALL 0: ON_CLICK 0,Fin
Attente(200,10,64)
END
Fin:
ff = 1
RETURN
SUB Attente(x,y,w)
' Pendulette d'attente en x,y, dimensions w x w, arrêt quand ff = 1
' (ff positionné dans le programme appelant)
DIM_LOCAL pt,dt,f,p,wt,ht,mg,mh,v
dt = NUMBER_2D_TARGET: pt = NUMBER_PRINT_TARGET
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
FONT_NAME p,"Wingdings": FONT_SIZE p,w
2D_TARGET_IS p: PRINT_TARGET_IS p
2D_FILL_COLOR 255,255,0
wt = TEXT_WIDTH(CHR$(183),p): ht = TEXT_HEIGHT(CHR$(183),p)
mg = wt/12: mh = ht/7
WHILE ff = 0
FOR v = 183 TO 194
PRINT_LOCATE -1*mg,-1*mh: PRINT CHR$(v)
IF ff = 1 THEN EXIT_WHILE
PAUSE 500
NEXT v
END_WHILE
2D_TARGET_IS dt: PRINT_TARGET_IS pt: DELETE p
END_SUB | |
|
Minibug
Nombre de messages : 4566
Age : 57
Localisation : Vienne (86)
Date d'inscription : 09/02/2012
| | Sujet: Re: Pour faire patienter... Mer 4 Aoû 2021 - 14:53 | |
| Salut JL35 Pas mal l'idée. Simple et rapide à mettre en place ! Ca mérite d'être approfondi et améliorer... Là je suis en peu occupé par mon éditeur d'objets mais j'y reviendrai surement plus tard. Merci pour le partage JL35.  | |
|
Calendrier