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
Promenade dans le Ciel Emptypar JL35 Aujourd'hui à 17:28

» Petit passage furtif
Promenade dans le Ciel Emptypar Froggy One Hier à 14:26

» SPIN et aide langage (résolu)
Promenade dans le Ciel Emptypar leclode Sam 23 Mar 2024 - 15:20

» Aide-mémoire des mots-clés Panoramic
Promenade dans le Ciel Emptypar papydall Mer 20 Mar 2024 - 21:23

» Je ne comprend pas pourquoi la largeur de la scene 3d change
Promenade dans le Ciel Emptypar Marc Mar 12 Mar 2024 - 20:06

» Comment télécharger panoramic?
Promenade dans le Ciel Emptypar lepetitmarocain Sam 9 Mar 2024 - 13:31

» @lepetitmarocain <==> KGFGrid
Promenade dans le Ciel Emptypar Klaus Dim 3 Mar 2024 - 9:59

» Tangram-Toukaré
Promenade dans le Ciel Emptypar jjn4 Mer 28 Fév 2024 - 18:12

» Editeur EliP 6 : Le Tiny éditeur avec 25 onglets de travail
Promenade dans le Ciel Emptypar jjn4 Mer 28 Fév 2024 - 18:09

» KGF_dll - nouvelles versions
Promenade dans le Ciel Emptypar Klaus Mer 28 Fév 2024 - 17:01

» Mes souhaits d'amélioration de Panoramic.
Promenade dans le Ciel Emptypar Pedro Lun 26 Fév 2024 - 18:12

» Testez-votre-QI
Promenade dans le Ciel Emptypar jjn4 Dim 25 Fév 2024 - 17:12

» Utilisation d'Élip
Promenade dans le Ciel Emptypar jjn4 Sam 24 Fév 2024 - 18:33

» Récapitulatif ludothèque panoramic jjn4
Promenade dans le Ciel Emptypar jjn4 Sam 24 Fév 2024 - 18:11

» Générateur de mots de passe
Promenade dans le Ciel 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
-24%
Le deal à ne pas rater :
PC Portable Gaming 15.6″ Medion Erazer Deputy P40 (FHD 144Hz, RTX ...
759.99 € 999.99 €
Voir le deal

 

 Promenade dans le Ciel

Aller en bas 
AuteurMessage
papydall

papydall


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

Promenade dans le Ciel Empty
MessageSujet: Promenade dans le Ciel   Promenade dans le Ciel EmptyDim 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
http://papydall-panoramic.forumarabia.com/
 
Promenade dans le Ciel
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Un bug dans FILEBIN_HEXA_WRITE ?
» C'est pas dans l'axe...
» un label dans une sub
» Bug dans Panoramic.
» pb dans Panoramic_Editor.exe et Panoramic.exe

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: