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
» Et encore un éditeur...
par Fredisland Aujourd'hui à 6:39

» Recherche de texte AVANT/ARRIERE dans un SYNEDIT
par Fredisland Aujourd'hui à 2:12

» Convertir un fichier BAS panoramic en fichier EXE
par Klaus Hier à 23:16

» Astuce dans un string
par Marc Hier à 18:42

» TRACE_ON problème
par Oscaribout Hier à 17:55

» [RÉSOLU] Priorité affichage des objets : comment la définir?
par Minibug Hier à 17:43

» FLAT Design
par Klaus Hier à 13:15

» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Minibug Hier à 11:22

» [RÉSOLU] Equivalent de MOUSE_IS_DOWN ?
par Fredisland Hier à 10:14

» Crash récurent de l'éditeur
par Fredisland Ven 20 Avr 2018 - 23:34

» Logiciel de traduction: dernières avancées.
par Minibug Ven 20 Avr 2018 - 17:36

» GPP - Nouvelle version en cours de développement
par Minibug Ven 20 Avr 2018 - 17:08

» lecture d'une info sur le copyright
par Klaus Ven 20 Avr 2018 - 12:54

» Le ptit plus du jeu panoramic plane suite...
par Jean Claude Ven 20 Avr 2018 - 7:42

» Couleur Progress_bar
par Klaus Ven 20 Avr 2018 - 2:51

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

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

Partagez | 
 

 Sélecteur de chemin pour création d'un nouveau dossier

Aller en bas 
AuteurMessage
Jean Claude

avatar

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

MessageSujet: Sélecteur de chemin pour création d'un nouveau dossier    Mer 26 Fév 2014 - 21:10

Bonsoir à tous,

Voici un autre "Sélecteur de chemin pour création d'un nouveau dossier" (inspirer d'un code de Cosmos)

Comme toujours, j'attend vos commentaires et éventuel bug(s).

Code:
' Sélecteur de dossier pour déterminer un chemin
dim a$,b$,no%,dep%,fin%,dir$,bouton_renew%,bouton_select%
label continu,init,sortie,fin

width 0,1180:height 0,600:on_close 0,fin

no%=no%+1:list no%:width no%,160:height no%,500:top no%,10:left no%,5
dep%=no%
no%=no%+1:list no%:width no%,160:height no%,500:top no%,10:left no%,left(no%-1)+width(no%-1)+5
no%=no%+1:list no%:width no%,160:height no%,500:top no%,10:left no%,left(no%-1)+width(no%-1)+5
no%=no%+1:list no%:width no%,160:height no%,500:top no%,10:left no%,left(no%-1)+width(no%-1)+5
no%=no%+1:list no%:width no%,160:height no%,500:top no%,10:left no%,left(no%-1)+width(no%-1)+5
no%=no%+1:list no%:width no%,160:height no%,500:top no%,10:left no%,left(no%-1)+width(no%-1)+5
no%=no%+1:list no%:width no%,160:height no%,500:top no%,10:left no%,left(no%-1)+width(no%-1)+5
fin%=no%
no%=no%+1:bouton_renew%=no%:button no%:width no%,100:top no%,520:left no%,5:caption no%,"Recommencer"
no%=no%+1:bouton_select%=no%:button no%:width no%,100:top no%,520:left no%,width(0)-125:caption no%,"Sélectionner"

for no%=dep% to fin%
on_click no%,continu:inactive no%
next no%

on_click bouton_renew%,init
on_click bouton_select%,sortie

gosub init
END
' ==============================================================================
sortie:
if right$(dir$,1)="\" then dir$=left$(dir$,len(dir$)-1)
caption 0,dir$:' Résultat dans le bandeau
dir_change dir$:' à conserver ou pas
wait 2000:' pour donner le temps de voir le résultat
terminate:' à adapter suivant vos besoin
return

init:
  for no%=dep% to fin%
    clear no%:active no%
    dir$="C:\":dir_change dir$
    afi_sous_rep(dep%)
  next no%
return

continu:
   no%=number_click:inactive no%:b$=item_index$(no%)
if b$="."
   dir$=left$(dir$,len(dir$)-1):caption 0,dir$:return
else
   if b$=".."
      dir$=left$(dir$,len(dir$)-1):caption 0,dir$:return
   end_if
end_if
   a$=dir$+b$+"\":dir$=a$
   dir_change a$
   no%=no%+1
if no%<fin%+1
   afi_sous_rep(no%)
else
   dir$=left$(dir$,len(dir$)-1):caption 0,dir$:return
   message "Impossible de continuer la recherche":return
end_if
   caption 0,dir$
return

Sub afi_sous_rep(num_list%)
active num_list%
  dim_local test%
  clear num_list%
a$=file_find_first$
  while a$<>"_"
      test%=File_Exists(a$)
      if test%=0
         item_add num_list%,a$
      end_if
      a$=file_find_next$
  end_while
file_find_close
  if count(num_list%)=0
     dir$=left$(dir$,len(dir$)-1):caption 0,dir$
     message "Recherche terminé"
  end_if
End_sub

fin:
terminate
return

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
Sélecteur de chemin pour création d'un nouveau dossier
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» 3- tuto " Bonne fête maman"
» Cabasse tronic velsatis chargeur 6 cd 6hp
» combien de temps pour création de ligne
» création d' une image pour tagger
» Création de base de POI avec tableur LibreOffice pour Garmin - csv, gpx, gpi… sur MAC

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: