PureBasic

Code : Tout sélectionner

; ********************************************************************************************************
;  LA Nouvelle fonction :                             "Threaded Variable"                                            
;  ---------------------------------------------------------------------------------------------------------------------------
; Pour qu'une variable soit "visible" dans un processus que l'on appelle il faut normalement la déclarer comme globale. 
; 
; Avec la instruction : "Threaded" Var, il est possible que Var soit considéré comme globale seulement par les Threads
;  ------------------------------------------------------------------------------------------------------------------------------------------------------
;  On appelle thread un processus qui s'exécute : Un "CreateThead(@....)" s'execute quand il a la "main" 
;  soit quand le programme qui l'a crée marque une pause ou a le temps... Si plusieurs Threads sont crées 
;  par la même séquence de programme ils seront traités dans un ordre dépendant de la disonibilité...
; 
;  Par exemple : Dans la séquence ci dessous, il y a un "MessageRequester" entre les créations, (neutralisé)
;  alors forcément pendant l'attente chaque précédent "Threads" s'execute... 
;
;  Mais si je ne l'aissais que le dernier, nous aurions les exécutions des Threads qui s'exécuterais "pas forcément" dans l'ordre... 
;  Cela dépend exclusivement de la disponibilité et l'ordre dans la pile d'execution.  Pour s'en rendre compte il suffi de mettre
;  l'ensemble ci-dessous dans une boucle (comme c'est le cas) .... 
;  -------------- ------------ ----------- -------------- ------------ ----------- -------------- ------------ -----------
; Voyons cela en exemple : 
; ---------------------------------
Threaded Var.s = "Valeur de départ"  ; La variable "Var.s" est déclarée Globale pour les Threads 
;                                                               mais est aussi locale avant toute autre affectation locale.
Procedure change(*parameter)
      Var = "**** thread  Change : "+Str(*parameter)
EndProcedure
;
Procedure thread(*parameter)
      Static a=2                                         ; Placé ici pour compter les passage....
      a+1
      Debug "* thread "+Str(*parameter) ; Affiche l'état du paramètre passé ICI  cela devrait être : le N° de "*parameter" (1,2,3)
      Debug Str(a)+"-"+Var                      ; Affiche la variable "Declarée" comme globale POUR THREADS donc "Valeur de départ"
      change(*parameter)                         ; Appel une autre procédure avec le même paramétre Mais la elle va changer d'affectation 
      Debug Str(a)+"-"+Var                      ; Et ici Afficher le résultat du changement local dans la Threads
EndProcedure
;
; ************************ Corps du programme ************************************************
;
For j=1 To 5                                         ;    Boucle pour test peut-être neutralisée.... 
    Debug "* Début * Boucle N° : "+Str(j)+" <"
    Debug "------------------------------------"
    Debug "1-"+Var                               ; la première fois "Var" garde sa première affectation et donc 
    ;                                                          je dois avoir "Var" = "valeur de départ" la toute première fois 
    ; 
    Var = "Maintenant"                           ; Puis je le change en "Var" en "Maintenant" qui va rester la N° 1
    Debug "2-"+Var                              ; Donc Ici je dois avoir "Var" = "Maintenant"
    Debug "-----------*------------"
    ;                                                         MAIS DANS l'appel à ===>  thread(*parameter)   Quel est le comportement de "Var"
    ;                                                         Malgré l'affectation dans change(*parameter) en "Var" = "**** thread  Change : "+Str(*parameter)
    ;                                                         -------------------------------------------------------------------------------                             
    CreateThread(@thread(), 1)                 ; Création du premier Premier Thread .... 
    Debug "---------* *----------"                    ; Pourquoi cela apparait avant l'appel 
    ;****************
    ;MessageRequester("","Continue",#PB_MessageRequester_Ok)
    ;
    CreateThread(@thread(), 2)                ;  Deuxième Thread ....
    Debug "------* * * -------"                       ; ------------------------------------------------------------------------- 
    ;****************                                                    
    ;MessageRequester("","Continue",#PB_MessageRequester_Ok)
    CreateThread(@thread(), 3)                ;  Troisième Thread                                  (Peut ajouter des Créations)
    Debug "------* * * * -------"                    ; ------------------------------------------------------------------------- 
    ;****************
    MessageRequester("","Continue",#PB_MessageRequester_Ok) ; Au moins un pour observer l'effet des Treads !
    ;
    Debug "----* * * * ----"                          ; ------------------------------------------------------------------------- 
    Debug "* Fin *"                                    ; et à la fin ... !!!
    Debug "-----------------------------------"  ; je reste avec "Var" ayant la denière valeurs affectée 
    Debug "Dernier = "+Var                      ; à "Var", c'est à dire "Maintenant"
; -----------------------------------------------------------------------------------------------------------------------------
Next j
; *****************************************************************