Apprentissage

[dayvid]

Re: voilà je viens de penser à un truc

J'aimerais bien avoir un espèce de prof qui m'aide à évoluer en pure basic
par exemple en me fessant des exercices, des problème à résoudre, etc.
ce serais superbe sa

[Backup]

oui , ce serai bien, mais qui aura assez de temps a te consacrer ?

pas moi en tout cas , il me faudrai deja des journées de 48 heures !

[Ar-S]

Pour les bases ça devrait être possible mais ce genre de cours personnalisés prend du temps comme l'a dit Dobro, et plusieurs heures de formations privées (même à distance) ne seront pour ma part pas gratuite.
Je suis à 30€/heure. Avec la possibilité d'avoir un coup moindre pour un forfait x heures.

[gildev]

Et tu as de la chance car 30€/h ce n'est pas cher du tout.
Mais le plus gros problème va rester le temps car j'avoue que 24h dans une journée c'est trop peu, sauf si on peut vivre 200 ans!

[dayvid]

Je ne pensais pas que ce genre de message aurait une telle audience

Non les gars, je ne demande pas que ce soit acharner ou quoi que ce soit mais des petit trucs par si par-là de temps en temps, car je ne peux rien payer snif snif snif , tout travail mérite salaire et je le sais bien mais je ne demande pas que vous travaillez pour moi, non juste des petit court par ci par là, des petit problème à résoudre, des petit défis à faire, ce genre de petite chose

Et puis je vous est ici, c'est déjà superbe car grâce à vous j'ai appris pas mal de chose et je compte pas m'arrêter la
sauf si vous voulez me charter a coup de pompe dans le cul

Je suis avec vous depuis un moment déjà et au début je n’étais surement pas très facile mais ce n’étais pas méchant de ma part
et puis j’ai quand même un peut changer non ?

ATTENTION, celui qui dit "non" meurt sur le coup

Bon encore merci de m’accepter parmi vous car ce n’est pas facile pour moi, j’ai creusé un petit nid douillet ce qui est déjà un petit miracle en soit les gars
et en plus j’ai gagné un titre « le boulet »

Bon je ne perdrais sens doute pas ce titre aussi facilement mais ce n’est pas très grave çà en soit, peut-être qu’à l’avenir j’en gagnerais de meilleurs

Oh et puis dite le moi que vous m’aimer bien un peut quand même, même pas un petit peut, bah, ne dite rien ou je vais encore piquer ma crise de nerf
c’est comme Dobro quand il dit que il ne voie aucune différence dans mon orthographe que avent, ceci vexe beaucoup vous savez

Depuis que je suis ici, je me suis pris un tas de vanne et de moquerie etc.
j’ai été juger sur de nombreux point et pour temps je suis encore là, voilà

[Ar-S]

Ba le mieux est encore d'explorer encore et encore la doc et les tutos, y'a que comme ça que tu y arriveras.
Ma 1ère remarque est que tu commence 3000 programmes complexes alors que tu devrais sincèrement créer de petits utilitaires simples.

Pour commencer voilà ce que je te propose de créer,
- Fais 1 programme contenant
* un explorer gadget
* un bouton "lister"

Fais en sorte que lorsque l'utilisateur clique sur le bouton "lister", un messagerequester apparaisse et montre le listing des fichiers/dossiers contenus dans l'explorer gadget.
Je veux pas d'exe, montre de code !

Secundo, ne viens pas couiner si une réponse tarde à venir, je bosse à mon compte ce qui signifie que j'ai des horaires et des disponibilités très variables.

Enfin,

il ne voie aucune différence dans mon orthographe que avent, ceci vexe beaucoup vous savez

Le verbe voyer n'existe pas... Il ne voit (..)avant...

Il ne voit aucune différence dans mon orthographe par rapport à mes débuts, ce qui me vexe beaucoup

aurait été crédible mais ta vieille phrase en sanscrit ne l'est pas ^^

Bref, au boulot !

[dayvid]

La doc, elle est bien pour les débutant sinon elle est un peu juste car trop peu d'information je trouve

[Warkering]

C'est le but d'une documentation. Ce n'est pas un tutoriel, c'est une référence pour le langage en tant que tel.

[Ar-S]

Fais ce que je t'ai dit, ni plus ni moins et poste nous le code, que ça marche ou pas.
Ainsi :
- On verra ton niveau exacte et là ou tu en chie
- On pourra ainsi te montrer les éventuelles solutions
- Ainsi tu progresseras vraiment.

[dayvid]

Bien reçue mon colonel (lève la main)

[dayvid]

Ça y est j'ai réussi mais pas sans mal car je me suis interdis de m'aider
des exemples de la doc, ba ouais sinon c trop facile:

Code : Tout sélectionner

#Repertoire = 1

If ExamineDirectory(#Repertoire, "c:\", "*.*")
  
  Repeat
    
    If NextDirectoryEntry(#repertoire)
      Repertoire$ + DirectoryEntryName(#Repertoire)
      
      If DirectoryEntryType(#Repertoire) = #PB_DirectoryEntry_File
        Repertoire$ + " >>> Fichier" + Chr(13)
      ElseIf DirectoryEntryType(#Repertoire) = #PB_DirectoryEntry_Directory
        Repertoire$ + " >>> Repèrtoire" + Chr(13)
      EndIf
      
    Else
      Break
    EndIf
    
  ForEver
  
Else
  MessageRequester("Erreur", "Ne peut pas examiner le repèrtoire selectionner", 16)
EndIf

MessageRequester("Liste des fichiers", Repertoire$, 64)

[Ar-S]

Pas mal mais je répète
- Fais 1 programme contenant
* un explorer gadget
* un bouton "lister"

Fais en sorte que lorsque l'utilisateur clique sur le bouton "lister", un messagerequester apparaisse et montre le listing des fichiers/dossiers contenus dans l'explorer gadget.

[dayvid]

A oui mince, j'ai mal compris, désoler mon colonel

[dayvid]

Voilà, c'est fait:

Code : Tout sélectionner

Enumeration 1
#Repertoire
#ExplorerComboGadget
#Window_1
#lister
#ExplorerGadget
EndEnumeration

OpenWindow(#Window_1, 0, 0, 510, 540, "Exploreur de fichiers",  #PB_Window_SystemMenu | #PB_Window_Tool | #PB_Window_ScreenCentered)
;ExplorerComboGadget(#ExplorerComboGadget, 5, 5, 300, 25, "C:\")
ExplorerListGadget(#ExplorerGadget, 5, 35, 500, 470, "C:\", #PB_Explorer_GridLines)
ButtonGadget(#lister, 205, 510, 100, 25, "Lister")


Repeat
  Event = WindowEvent()
  GadgetID = EventGadget()

    If Event = #PB_Event_Gadget
      If GadgetID = #lister
        If ExamineDirectory(#Repertoire, "C:\", "*.*")
  
  Repeat
    
    If NextDirectoryEntry(#repertoire)
      Repertoire$ + DirectoryEntryName(#Repertoire)
      
      If DirectoryEntryType(#Repertoire) = #PB_DirectoryEntry_File
        Repertoire$ + " >>> Fichier" + Chr(13)
      ElseIf DirectoryEntryType(#Repertoire) = #PB_DirectoryEntry_Directory
        Repertoire$ + " >>> Repèrtoire" + Chr(13)
      EndIf
      
    Else
      Break
    EndIf
    
  ForEver
  
Else
  MessageRequester("Erreur", "Ne peut pas examiner le repèrtoire selectionner", 16)
EndIf

MessageRequester("Liste des fichiers", Repertoire$, 64)
      EndIf
    EndIf

  Until Event = #PB_Event_CloseWindow

C'est bien moi qui est tous fait

[Ar-S]

C'est pas mal du tout bravo
Maintenant, essaye de voir pourquoi lorsque l'on clique plusieurs fois sur "Lister", ce n'est pas la même liste qui apparait
et essaye de corriger.