JL35
Nombre de messages : 7095
Localisation : 77
Date d'inscription : 29/11/2007
 | | Sujet: Pour faire patienter Mer 12 Aoû 2015 - 16:38 | |
| Affichage simple d'un chrono rotatif, de dimensions voulues, pour faire patienter le client lors d'une opération un peu longue. Ici on le stoppe en cliquant dessus, sinon il suffit de positionner la variable ff% à 1 dans le programme appelant. - Code:
-
DIM ff%
WIDTH 0,100: HEIGHT 0,100
Patience(50,50,250): ' chrono de 300x300 pixels
Terminate
' ========================================
SUB Patience(x%,y%,w%)
' Affichage en x%,y% d'un chrono rotatif de w% x w% pixels, pour faire patienter...
' Arrêt en cliquant sur le chrono, ou en positionnant la variable ff% à 1 dans
' le programme principal.
DIM_LOCAL s2p%,i%,sz%,mg%
IF LABEL("Fchrono")=0 THEN LABEL Fchrono
s2p% = NUMBER_PRINT_TARGET
FORM 198: BORDER_HIDE 198: WIDTH 198,w%: HEIGHT 198,w%
PICTURE 199: PARENT 199,198: FULL_SPACE 199: ON_CLICK 199,Fchrono
FONT_NAME 199,"Wingdings": sz% = w%*.9: FONT_SIZE 199,sz%: mg% = (w%-sz%)/2
PRINT_TARGET_IS 199: ff% = 0
WHILE ff% = 0
FOR i% = 183 TO 194
PRINT_LOCATE -1*mg%,-3*mg%: PRINT CHR$(i%): PAUSE 100: IF ff% = 1 THEN EXIT_FOR
NEXT i%
TO_FOREGROUND 198
END_WHILE
PRINT_TARGET_IS s2p%: DELETE 198: EXIT_SUB
Fchrono:
ff% = 1
RETURN
END_SUB
' ============================================================================== En fait on utilise les caractères 183 à 194 de la police Wingdings. A ce propos, je m'étais imaginé, je ne sais pas pourquoi, que la taille des caractères affichables était limitée à 255, mais non, il n'y a apparemment pas de limite, on peut remplir tout l'écran avec un seul caractère ! (avec un sale caractère aussi, mais c'est autre chose  ) | |
|
Yannick
Nombre de messages : 8610
Age : 52
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Mer 12 Aoû 2015 - 18:27 | |
| T' aurais pas un petit sablier ?...  Je plaisante, c' est une idée assez originale. | |
|
JL35
Nombre de messages : 7095
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: Pour faire patienter Mer 12 Aoû 2015 - 20:39 | |
| Le sablier j'avais la flemme d'avoir à le retourner périodiquement...
Et en ce moment y'a pas un grain de sable disponible... | |
|
Jicehel
Nombre de messages : 5947
Age : 51
Localisation : 77500
Date d'inscription : 18/04/2011
| | Sujet: Re: Pour faire patienter Mer 12 Aoû 2015 - 20:48 | |
| Sympathique  | |
|
Yannick
Nombre de messages : 8610
Age : 52
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Jeu 13 Aoû 2015 - 13:51 | |
| | |
|
Contenu sponsorisé
| | Sujet: Re: Pour faire patienter | |
| |
|
Calendrier