PureBasic

Code : Tout sélectionner

Enumeration
  #Fenetre
  #Cadre1:#Texte1:  #Button1
  #Cadre2:#Texte2:#Editor:  #Button2
EndEnumeration
 
 Procedure.s ProcedureTartanpion(Rang.b)
 ;Le but de cette procedure pour l'exemple est de renvoyer a partir du numéro de rang, 
 ;des données (ici de différent type) en une seule fois.
  
 ;traitement quelconque
 Select Rang
 			Case 1	 :	Enregistrement.l=5654		:Nom$="Zébulon"		:Age.b=45	:Taille.f=182.567
			Case 2	 :	Enregistrement.l=523058	:Nom$="Margotte"	:Age.b=21	:Taille.f=122.081
 			Case 3	 :	Enregistrement.l=1			:Nom$="Emboise"	:Age.b=18	:Taille.f=4.789
			Case 4	 :	Enregistrement.l=23446567:Nom$="Azalé"		:Age.b=78	:Taille.f=123422.081
 			Case 5	 :	Enregistrement.l=78341169:Nom$="Polux"		:Age.b=6	:Taille.f=0.864
EndSelect
;Comment renvoyer, dans cette exemple le numero d'enregistrement, le nom, l'age et la taille ????
;Tous cela en une seule fois, sans utilisé de structure avec un pointeur . D'autant plus que s'il y a beaucoup 
;de procedure cela risque de faire beaucoup de structure avec leurs pointeurs. Pas facile a gérer !
;Il reste la possibilité de déclarer toutes les variables en globales. C'est vite la zone. Beaucoup de variables
;ne sont utilisé que pour une procédure, ce qui augmente le nombre de variables globale inutilement.

;Voici la solution que j'utile, j'ai utilisé pour cette exemple des variable de tous type
;Le principe c'est de former une chaine de caractére de long fixe (selon vos besoin, ici 40 ) pour chacune des variables
;puis des les regroupé en une seule qui sera renvoyer par la fonction

Texte$=LSet(StrU(Enregistrement, #Long), 	40) 	;	pour le numero d'enregistrement
Texte$+LSet(Nom$, 	40)									;	pour le nom
Texte$+LSet(Str(Age), 	40)								;	pour l'age
Texte$+LSet(StrF(Taille),	40)							;	pour la taille
	
ProcedureReturn Texte$ 		;     	renvoi de la valeur


 EndProcedure

Titre$="Une astuce a Ulix"
If OpenWindow(#Fenetre, 216, 0, 583, 283,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , Titre$)
    If CreateGadgetList(WindowID())
      Frame3DGadget(#Cadre1, 5, 10, 570, 115, "Avant la procedure")
      TextGadget(#Texte1, 25, 35, 400, 70, "", #PB_Text_Border)
      
      ButtonGadget(#Button1, 440, 55, 115, 50, "Appel procedure",#PB_Button_MultiLine)
     
      Frame3DGadget(#Cadre2, 5, 150, 570, 125, "Retour de procedure") 
      ButtonGadget(#Button2,  35, 190, 115, 50, "Ferme")
      TextGadget(#Texte2, 30, 185, 130, 30, "")
      EditorGadget(#Editor, 215, 175, 300, 80)
   EndIf
  EndIf
 
 
 Texte$="Comment recevoir en retour d'une procédure plusieurs valeurs de type différente"+Chr(10)
 Texte$+"Tous cela en une seule fois, sans utilisé de structure, ni pointeur (pas facile a gérer)"+Chr(10)
 Texte$+"Il reste la possibilité de déclarer toutes les variables en globales. -  C'est vite la zone."+Chr(10)
 Texte$+"Beaucoup de variables ne sont utilisé que pour une procédure, ce qui augmente le"+Chr(10)
 Texte$+"nombre de variables globale inutilement. Essayé Appel procedure pour voir le retour"
 
 
 SetGadgetText(#Texte1, Texte$)
 Valeur.b=0 ; variable locale
 
 Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget ; Evenement gadget
          Select EventGadgetID(); retourne le numero du gadget
          		Case  #Button2 : CloseWindow(#Fenetre):End
          		Case  #Button1
		          		
		          		Valeur+1 : SetGadgetText(#Button1, "Appel procedure  Valeur demandé "+Str(valeur))
		          		If valeur>5:valeur=1:EndIf
		          		
		          		Retour$=ProcedureTartanpion(valeur); ici appelle de la procedure
										          		
		          										If Retour$="" ;	vide
		          										 			;TraitementQuelconque() ;message or ProcedureReturn
		          										
										          		Else ; il y a quelque chose
										          					;De retour de la procédure il suffit de la redécomposés 
					          										;la chaine de Retour$ en ces variables d'origines
										          					;il suffit de respecté l'ordre (des variables) le type des variables 
					          										;la position (dans Mid() ) et la longueur ( ici 40 )
					          										UnEnregistrement.l	=	Val(RTrim(Mid(Retour$,1,40)))
										          					UnNom$	=	RTrim(Mid(Retour$,41,40))
					          										UnAge.b	=	Val(RTrim(Mid(Retour$,81,40)))
										          					UneTaille.f	=ValF(RTrim(Mid(Retour$,121,40)))
					          										;Noté que les variables reste locale (dans cette exemple) pour le code 
										          					;qui appelle la procédure, et sont locale aussi pour la procédure appellé
					          										;La liste des variables ainsi renvoyer n'est limité comme que par la taille de retour$
					          										
										          					;affichage pour l'exemple
					          										ClearGadgetItemList(#Editor)
										          					AddGadgetItem(#Editor, -1, "Numéro d'enregistrement : "+Str(UnEnregistrement))
																	AddGadgetItem(#Editor, -1, "Nom de la personne : "+UnNom$)
																	AddGadgetItem(#Editor, -1, "Age de la personne  : "+Str(UnAge))
																	AddGadgetItem(#Editor, -1, "Taile de la personne : "+StrF(UneTaille))

										          		EndIf ; fin test de retour
		           		          		
          EndSelect
          
Case #PB_EventCloseWindow
          CloseWindow(#Fenetre)
EndSelect
ForEver 
End