FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Planétarium virtuel.
par Pedro Alvarez Hier à 16:57

» Roues dentées
par jean_debord Hier à 10:40

» Attention arnaque !
par mindstorm Jeu 19 Juil 2018 - 19:18

» Qui fait quoi ?
par silverman Mer 18 Juil 2018 - 15:21

» ITEM_SELECT N,L pour synedit
par silverman Mer 18 Juil 2018 - 15:20

» Boussole
par jean_debord Mer 18 Juil 2018 - 11:06

» Roue à n faces
par Marc Dim 15 Juil 2018 - 22:16

» Exemple d'une nouvelle version d'un GRID
par Jean Claude Ven 13 Juil 2018 - 10:32

» Une simple question
par Oscaribout Sam 7 Juil 2018 - 23:20

» BUG sur l'objet TAB
par Jack Sam 7 Juil 2018 - 21:12

» Monopoly moderne
par jjn4 Sam 7 Juil 2018 - 15:06

» Récapitulatif ludothèque panoramic jjn4
par jjn4 Ven 6 Juil 2018 - 17:41

» Lignes ondulées
par JL35 Ven 6 Juil 2018 - 17:39

» bug off_activate 0 : sans d'effet
par silverman Ven 6 Juil 2018 - 13:02

» Position des objets d'un conteneur dans FBPano et Panoramic
par Navigateur Ven 6 Juil 2018 - 12:59

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juillet 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Boucle de menus débile

Aller en bas 
AuteurMessage
Invité
Invité



MessageSujet: Boucle de menus débile   Ven 18 Déc 2009 - 21:36

Bonjour !

Pour faire un test j'ai fait une boucle de menus. je me suis rendu compte que c'est complétement débile ;

100 sous-menus qui contiene chacun 51 menus.

Code:
dim i,j,x

main_menu 1
for j=1 to 100
  x = 51*(j-1) + 2
  sub_menu x:parent x,1:caption x,"Sous-Menu "+str$(j)
  for i=x+1 to x+50
    sub_menu i:parent i,x:caption i,"Menu "+str$(i)
  next i
next i
Revenir en haut Aller en bas
jjn4

avatar

Nombre de messages : 1761
Date d'inscription : 13/09/2009

MessageSujet: Re: Boucle de menus débile   Sam 19 Déc 2009 - 1:27

En tout cas, c'est amusant que le système accepte autant de sous-menus sans se planter, cela montre qu'il a du ressort.
PS : petite erreur à la dernière ligne, il fallait écrire : next j
alien
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Jean Claude

avatar

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

MessageSujet: Re: Boucle de menus débile   Sam 19 Déc 2009 - 9:11

les menus sont des sous-menu et vis et versa.

Code:
dim i,j,x

main_menu 1
for j=1 to 100
  x = 51*(j-1) + 2
  sub_menu x:parent x,1:caption x,"Menu "+str$(j)
  for i=x+1 to x+50
    sub_menu i:parent i,x:caption i,"Sous-Menu "+str$(i)
  next i
next j

C'est mieux comme çà
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Boucle de menus débile   

Revenir en haut Aller en bas
 
Boucle de menus débile
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Boucle de menus débile
» Boucle de retournement
» boucle de retournement
» flash CS5 mettre fin à une boucle
» Intellibox et boucle de retournement

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: