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
Une grille sur l'écran - Page 2 Emptypar lepetitmarocain Aujourd'hui à 12:55

» Petit passage furtif
Une grille sur l'écran - Page 2 Emptypar Froggy One Hier à 14:26

» SPIN et aide langage (résolu)
Une grille sur l'écran - Page 2 Emptypar leclode Sam 23 Mar 2024 - 15:20

» Aide-mémoire des mots-clés Panoramic
Une grille sur l'écran - Page 2 Emptypar papydall Mer 20 Mar 2024 - 21:23

» Je ne comprend pas pourquoi la largeur de la scene 3d change
Une grille sur l'écran - Page 2 Emptypar Marc Mar 12 Mar 2024 - 20:06

» Comment télécharger panoramic?
Une grille sur l'écran - Page 2 Emptypar lepetitmarocain Sam 9 Mar 2024 - 13:31

» @lepetitmarocain <==> KGFGrid
Une grille sur l'écran - Page 2 Emptypar Klaus Dim 3 Mar 2024 - 9:59

» Tangram-Toukaré
Une grille sur l'écran - Page 2 Emptypar jjn4 Mer 28 Fév 2024 - 18:12

» Editeur EliP 6 : Le Tiny éditeur avec 25 onglets de travail
Une grille sur l'écran - Page 2 Emptypar jjn4 Mer 28 Fév 2024 - 18:09

» KGF_dll - nouvelles versions
Une grille sur l'écran - Page 2 Emptypar Klaus Mer 28 Fév 2024 - 17:01

» Mes souhaits d'amélioration de Panoramic.
Une grille sur l'écran - Page 2 Emptypar Pedro Lun 26 Fév 2024 - 18:12

» Testez-votre-QI
Une grille sur l'écran - Page 2 Emptypar jjn4 Dim 25 Fév 2024 - 17:12

» Utilisation d'Élip
Une grille sur l'écran - Page 2 Emptypar jjn4 Sam 24 Fév 2024 - 18:33

» Récapitulatif ludothèque panoramic jjn4
Une grille sur l'écran - Page 2 Emptypar jjn4 Sam 24 Fév 2024 - 18:11

» Générateur de mots de passe
Une grille sur l'écran - Page 2 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
Le Deal du moment : -20%
Pack Gigabyte Ecran PC Gamer 27″ LED M27Q ...
Voir le deal
749 €

 

 Une grille sur l'écran

Aller en bas 
+2
Jean Claude
JL35
6 participants
Aller à la page : Précédent  1, 2
AuteurMessage
JL35




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

Une grille sur l'écran - Page 2 Empty
MessageSujet: Re: Une grille sur l'écran   Une grille sur l'écran - Page 2 EmptyVen 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...
Revenir en haut Aller en bas
JL35




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

Une grille sur l'écran - Page 2 Empty
MessageSujet: Re: Une grille sur l'écran   Une grille sur l'écran - Page 2 EmptySam 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
' ==============================================================================
Revenir en haut Aller en bas
 
Une grille sur l'écran
Revenir en haut 
Page 2 sur 2Aller à la page : Précédent  1, 2
 Sujets similaires
-
» grille 3D
» Combien de triangles y a-t-il sur cette grille ?
» Grille sur le bureau
» Résoudre une grille de SUDOKU
» Une grille en caractères graphiques

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les inutilitaires-
Sauter vers: