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 | 
 

 Promenade dans le Ciel

Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5980
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Promenade dans le Ciel   Dim 24 Juin 2018 - 3:13

Code:

rem ============================================================================
rem               Promenade dans le Ciel
rem ============================================================================
label choix
dim url$
full_space 0
main_menu 10
  sub_menu 11 : parent 11,10 : caption 11,"Votre choix"  
  sub_menu 12 : parent 12,11 : caption 12,"Système solaire"   : on_click 12,choix
  sub_menu 13 : parent 13,11 : caption 13,"Carte du ciel"     : on_click 13,choix
  sub_menu 14 : parent 14,11 : caption 14,"Equation du temps" : on_click 14,choix
  sub_menu 20 : parent 20,10 : caption 20,"Quitter"           : on_click 20,choix
  
alpha 99 : top 99, 10 : left 99,200 : font_size 99,24 : font_name 99,"tahoma"
dll_on "kgf"   : ' <---------------------------------- Adapter le chemin !!!

end
rem ============================================================================
Choix:
   select number_click
       case 12 : url$ = "https://www.le-systeme-solaire.net/"
       case 13 : url$ = "https://www.stelvision.com/carte-ciel/"
       case 14 : url$ = "http://olravet.fr/Aideedt/Equation.htm"
       case 20 : if message_confirmation_yes_no("Vous voulez vraiment quitter ?") = 1
                    terminate
                 end_if      
   end_select
   if url$ <> "" then Creer_Browser()
return
rem ============================================================================
SUB Creer_Browser()
    dim_local WB%,res%
    caption 99,"Veuillez patienter ..."
    WB% = dll_call1("WB_Create",handle(0))
    res% = dll_call5("WB_Locate",WB%,20,50,width_client(0)-50,height_client(0)-50)
    res% = dll_call2("WB_Url",WB%,adr(url$))
    caption 99,""
END_SUB
rem ============================================================================

Bon divertissement dans le cosmos !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
 
Promenade dans le Ciel
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Photosynth : promenade en 3D
» Liens inactifs dans Outlook Express
» compteur php dans page générée par e-anim
» Composition de trains dans RRTC 7.0 B1 Gold
» Insertion d'animation dans un php joomla

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: