Forum Liberty Basic France

Général » Exploratur de volume 4 niveaux
Le 13/05/2021 à 14h59

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2438
Pour le fun:
Code VB :
 
 
    NOMAINWIN
     mapw=410: maph= 500
    WindowWidth=mapw+15: WindowHeight=maph+40
    UpperLeftX = 10: UpperLeftY = 20
    TEXTBOX #w.box, 195 , 10, 40, 25
    BUTTON #w.go, "Go !", [go], UL, 280, 10, 40, 25
    TEXTEDITOR #w.te, 10, 50, 400, 430
   GRAPHICBOX #w.g, 5, 5, mapw, maph
    OPEN "Help" FOR window_nf AS #w
    #w, "TRAPCLOSE [closeHelp]"
    #w.g, "down;fill darkpink;color white;backcolor darkpink"
    dim info$(10, 10): dim array$(10, 10): dim brut$(10,10)
    dim pdff$(10,10): dim doo$(10,10): dim all$(10,10): dim dbas$(10,10)
    #w.g, "place 20 20": #w.g, "\Changer de Volume ? -->:"
    #w.box, "!font courrier 12 bold": #w.te, "!font courrier 12 bold"
    #w.box, "F"
  wait
 [go]
   #w.box, "!contents? vol$"
    dim info$(10, 10): dim array$(10, 10): dim deu$(10,10): dim troi$(10,10)
  files vol$;":\", "*.", info$() '---racin
    nbim$=info$(0,1): nbim=val(nbim$)
    if nbim=0 then notice, "Volume vide ou absent"
    for xa=1 to nbim
       a$=info$(xa, 1)
       #w.te, a$ '---------
       files vol$;":\";a$,"*.", array$() '---first under level
       nfi$=array$(0,1): nfi=val(nfi$)
       for xx=1 to nfi
          ab$=array$(xx, 1)
          #w.te, "       ";ab$'--------------
          files vol$;":\";a$;"\";ab$,"*.", deu$()'---second under level
          de$=deu$(0,1): de=val(de$)
          for xd=1 to de
             ad$=deu$(xd,1)
              #w.te, "             ";ad$ '----------
             files vol$;":\";a$;"\";ab$;"\";ad$,"*.", troi$()'---thirthand under level
             df$=troi$(0,1): df=val(df$)
             for xe=1 to df
                ae$=troi$(xe,1)
                #w.te, "                 ";ae$ '-----------
             next xe
          next xd
       next xx
    next xa
  wait
  [closeHelp]
    CLOSE  #w
    END
 
 
 
 
____________________
Roro

   
Général » Exploratur de volume 4 niveaux  

 |  |

1 Utilisateur en ligne : 0 Administrateur, 0 Modérateur, 0 Membre et 1 Visiteur
Utilisateur en ligne : Aucun membre connecté
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie