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
» I Love You
par papydall Aujourd'hui à 1:15

» mise a jour calculatrice
par joeeee2017 Aujourd'hui à 1:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Hier à 18:49

» [solved] 3D_LINE How to ?
par papydall Hier à 6:51

» supprimé
par joeeee2017 Dim 15 Oct 2017 - 20:02

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» supprimé
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

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

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Jean Claude

avatar

Nombre de messages : 5033
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 - 23: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
Voir le sujet précédent Voir le sujet suivant 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: