a quoi sert Procedure return ?

jbernard13 · Message par **jbernard13** » jeu. 09/sept./2004 15:15

bonjour

j'ai une question sur les procedures

quand on creer une procedure
j'ai remarquer des fois par exemple

if .......
procedure return

endif
endprocedeure

a quoi sert Procedure return ?

merci

hardy · Message par **hardy** » jeu. 09/sept./2004 15:29

C'est pour retourner une valeur

exemple:

Code : Tout sélectionner

Procedure.s signe(a)
if a>=0
procedurereturn "positif"
else
procedurereturn "négatif"
endif
debug "ça ne s'affichera pas"
endprocedure

debug signe(12)
debug signe (-44)

remarquer que lorsqu'un procedurereturn est effectué, on sort de la procedure.

jbernard13 · Message par **jbernard13** » jeu. 09/sept./2004 15:39

merci hardy pour ton aide

j'ai vu dans cetain code
une ligne terminant par =#null
et en dessous
procedurereturn

ca veux quoi ??

Chris · Message par **Chris** » jeu. 09/sept./2004 16:47

Si tu as ProcedureReturn sans rien derrière, tu sors de la procedure sans rien retourner.

Selon le SDK de Microsoft
The Null keyword is used to indicate that a variable contains no valid data.

Donc, la constante #Null, veut dire que le résultat de la fonction, la variable, ou tout ce que tu veux d'autre, est nul, et donc ne contient aucune donnée. (Si la signification est la même en PureBasic, évidemment...)

jbernard13 · Message par **jbernard13** » jeu. 09/sept./2004 16:52

et comment programme ton l'option imprimer ?

Flype · Message par **Flype** » jeu. 09/sept./2004 19:12

ils ont tous deja tout dit

imprimer ? la doc te montre comment !
voici justement l'exemple de la doc.

au passage, autre condition pour progresser : lire les docs jbernard13
considère la documentation du langage que tu choisis comme ta bible.
si il y a bien un truc auquel il faut penser quand tu bloque c d'abord lire la doc. çà n'a rien de contraignant... et c generalement plus rapide que les reponses sur le forum

la doc = touche F1

Code : Tout sélectionner

If PrintRequester()

  If StartPrinting("PureBasic Test")
  
    If StartDrawing(PrinterOutput())

      DrawingFont(LoadFont(0, "Arial", 30))
  
      Locate(100, 100) : DrawText("PureBasic Printer Test")
      
      DrawingFont(LoadFont(0, "Arial", 100))
      
      Locate(100, 400) : DrawText("PureBasic Printer Test 2")
    
      If LoadImage(0, "Data\PureBasic.bmp")
        DrawImage(ImageID(), 200, 600)
      Else
        MessageRequester("","2",0)
      EndIf
      
      FrontColor(100,100,100)
      Box(200, 600, 100, 100)
        
      StopDrawing()
    EndIf
    
    StopPrinting()
  EndIf
EndIf

Flype · Message par **Flype** » jeu. 09/sept./2004 19:16

autre truc, sur ce forum, tout en haut : Bouton "Rechercher" tu clic, tu tapes 'imprimer', tu valides, et deja plein de reponses...

dont ici par exemple :

http://purebasic.hmt-forum.com/viewtopi ... t=imprimer

plus qu'utile, indispensable.

jbernard13 · Message par **jbernard13** » jeu. 09/sept./2004 19:28

je lis la doc
j'ai meme imprimer les parties qui m'interresser

j'ai rempli un classeur complet

tu crois que je progresse?

merci

Lukky · Message par **Lukky** » jeu. 09/sept./2004 19:37

Oui je pense que tu progresses fortement.

D'ici peu il se pourrait même bien que tu sois un des plus prolixe de ce forum.

Bravo.

JL

Jacobus · Message par **Jacobus** » jeu. 09/sept./2004 19:46

y en a quand même qui ont des nerfs d'acier sur ce forum !
Je sens que là Lukky était gonflé à bloc...

nico · Message par **nico** » jeu. 09/sept./2004 20:11

Tu croas que sy j'écrivès mieut, j'arivereit à me relyr....

C'est vrai que c'est impressionnant!

Quelle maîtrise!

Jacobus · Message par **Jacobus** » jeu. 09/sept./2004 20:17

je sors jean peu pus