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
» Problème mathématique en 3D
par papydall Aujourd'hui à 2:59

» Reprise du développement et de la documentation
par Yannick Aujourd'hui à 1:21

» Une copie de Panoramic Editeur
par Jean Claude Mar 22 Mai 2018 - 21:03

» Objet 3D_PLANE, réalisation d'un dé en 3D
par Marc Mar 22 Mai 2018 - 0:33

» Cacher la barre des tâches
par Klaus Lun 21 Mai 2018 - 21:27

» Une "base de connaissance" - pour jouer ou plus si affinité
par Minibug Lun 21 Mai 2018 - 10:29

» quel est ce comportement de Panoramic_editor
par Oscaribout Lun 21 Mai 2018 - 0:22

» Des FORM(s) Colorés
par Jean Claude Dim 20 Mai 2018 - 20:58

» Recherches dans un fichier texte
par JL35 Dim 20 Mai 2018 - 20:18

» Problème d'affichage des pages du forum (Résolu)
par Jean Claude Dim 20 Mai 2018 - 20:00

» Créer une application *.exe
par Yannick Ven 18 Mai 2018 - 20:01

» [RÉSOLU] Priorité affichage des objets : comment la définir?
par papydall Ven 18 Mai 2018 - 18:22

» Aucune différence entre ON_CLICK et ON_DOUBLE_CLICK
par Jean Claude Jeu 17 Mai 2018 - 8:37

» [Résolu] Récuperer les fonctions systeme de Panoramic
par Minibug Mar 15 Mai 2018 - 23:21

» Est-ce qu'un fichier est inclus dans l'application ?
par Yannick Mar 15 Mai 2018 - 12:04

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mai 2018
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Menu en 3D.

Aller en bas 
AuteurMessage
Pedro Alvarez

avatar

Nombre de messages : 1002
Date d'inscription : 19/01/2014

MessageSujet: Menu en 3D.   Mar 7 Nov 2017 - 10:06

Bonjour à tous.

Voici un petit code de menu en 3D, à adapter à votre goût.

Code:
dim a, angle, k, largeur_ecran%, hauteur_ecran%

largeur_ecran%=1440

maximize 0

label fin

create_hide
for k=1 to 10
    scene3d k
   
    ' angle=(360.0/8.0)*k
    ' message angle
    ' left k,720+200*sin(angle)-50
    ' top k,450+200*cos(angle)-50     
   
    if k<6
      left k,largeur_ecran%/2-350+k*150
      top k,400
          else
      left k,largeur_ecran%/2-350+(k-5)*150 
      top k,550
    end_if     
   
    width k,100
    height k,100
   
    on_click k,fin
    3d_target_is k
    3d_cube k+10,1
    3d_load_texture k+10,"images\"+trim$(mid$("chef_etab    enseignant  eleves3      vocabulaire4 traduire9    bibliotheque espagne1    options      sites        vacances1    ",k*13-12,12))+".jpg"
    hint k,trim$(mid$("Chef d'Etablissement Enseignant          Etudiant            Flashcards          Traducteur          Bibliothécaire      Géographie          Modifications        Version en cours    Si on jouait        ",k*21-20,20))
next k

create_show
for k=1 to 10
    show k
next k

for a=0 to 360 step 5
    for k=11 to 20
        3d_y_rotate k,a
    next k
    wait 100
next a
   
end

fin:
  message str$(number_click)
  terminate
return
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
Menu en 3D.
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» commande menu "Enregistrer"
» [resolu]mettre fichier dans le menu bar
» Menu création de variables
» context menu strip
» [Résolu] Perte d'icônes "raccourci" ou comment créer mon propre menu?

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: