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
» quel est ce comportement de Panoramic_editor
par Klaus Aujourd'hui à 18:30

» Découpe dans une image
par Jean Claude Aujourd'hui à 18:15

» bug BORDER_HIDE : bloque la commande full_space
par silverman Aujourd'hui à 1:19

» FNC IsDateValide(d$) pour vérifier la validité d'une date
par papydall Hier à 18:57

» Pour faire plaisir à jjn4.
par Pedro Alvarez Hier à 8:13

» Pour faire plaisir à Marc37.
par Marc Jeu 22 Fév 2018 - 21:46

» Couleur d'une variable qui n'est pas un mot-clé
par bignono Jeu 22 Fév 2018 - 14:03

» Un catalogue de photos de fleurs, avec KBDD, affichage HTML
par Klaus Mer 21 Fév 2018 - 22:44

» KGF_dll - nouvelles versions
par Klaus Mer 21 Fév 2018 - 22:30

» Mah-Jong anglais
par jjn4 Mer 21 Fév 2018 - 14:22

» Partie fractionnaire d'un flottant
par silverman Mer 21 Fév 2018 - 14:19

» bug CREATE_HIDE : corruption de form
par silverman Mer 21 Fév 2018 - 13:32

» Racine carrée d’un nombre par l’algorithme de Héron
par Ouf_ca_passe Mer 21 Fév 2018 - 9:52

» Méthode manuelle d'extraction de la racine carrée
par pascal10000 Mer 21 Fév 2018 - 7:47

» [annulé]ON_MOVE n,l ne fonctionne que sur le form 0
par silverman Mar 20 Fév 2018 - 16:52

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Février 2018
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
262728    
CalendrierCalendrier

Partagez | 
 

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

Aller en bas 
AuteurMessage
Jean Claude

avatar

Nombre de messages : 5181
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
-
» Lecteur MIDI files pour FR-3/5/7
» Chemin pour enregistrement de cartes OSMAND+ sur tablette [résolu]
» 3- tuto " Bonne fête maman"
» Partitons sur tablettes
» Cabasse tronic velsatis chargeur 6 cd 6hp

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: