JL35
Nombre de messages : 7095
Localisation : 77
Date d'inscription : 29/11/2007
 | | Sujet: Re: Une grille sur l'écran Ven 29 Avr 2016 - 17:16 | |
| On s'est croisés Jean Claude, mais franchement, je ne vois pas ce que le display pouvait changer...
J'ai essayé de faire avant l'appel à la sub:
HIDE_ALL: ' cacher tous les objets système
puis au retour de la sub:
SHOW_ALL: ' montrer tous les objets système
mais ça ne change rien du tout ... ???
J'ai essayé également le CREATE_HIDE au début, ça crée bien des objets invisibles, mais impossible de les faire réapparaître... | |
|
JL35
Nombre de messages : 7095
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: Une grille sur l'écran Sam 30 Avr 2016 - 17:09 | |
| On peut aussi dessiner une belle ellipse... ou n'importe quoi finalement: - Code:
-
HIDE 0
Ellipse_Form(960,600,800,300,25,255*65536)
WHILE SCANCODE = 0: PAUSE 100: SCANCODE = 0: END_WHILE: ' clic pour sortir
TERMINATE
' ==============================================================================
SUB Ellipse_Form(xc%,yc%,w%,h%,e%,rgb%)
' Tracé d'une ellipse (ou cercle) sur l'écran principal
' centre xc%,yc%, enveloppe w%,h%, épaisseur du trait e%
DIM_LOCAL f%,rx%,ry%,x%,y%,r%,g%,b%,p,t
rx% = w%/2: ry% = h%/2
r% = INT(rgb%/65536): g% = BIN_AND(rgb%,65280)/256: b% = BIN_AND(rgb%,255)
f% = 900: WHILE OBJECT_EXISTS(f%)=1: f%=f%+1: END_WHILE
DEGREES
' pas de progression p% (degrés) à moduler en fonction des dimensions de
' l'ellipse et de l'épaisseur du trait
p = 1: ' degrés
FOR t = 0 TO 360 STEP p
x% = xc%+rx%*COS(t): y% = yc%+ry%*SIN(t)
f%=f%+1
FORM f%: HIDE f%: BORDER_HIDE f%: TOP f%,y%: LEFT f%,x%: WIDTH f%,e%
HEIGHT f%,e%: COLOR f%,r%,g%,b%: SHOW f%
NEXT t
END_SUB
' ============================================================================== | |
|
Calendrier