Page 1 sur 1
a quoi sert Procedure return ?
Publié : jeu. 09/sept./2004 15:15
par jbernard13
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
Publié : jeu. 09/sept./2004 15:29
par hardy
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.
Publié : jeu. 09/sept./2004 15:39
par jbernard13
merci hardy pour ton aide
j'ai vu dans cetain code
une ligne terminant par =#null
et en dessous
procedurereturn
ca veux quoi ??
Publié : jeu. 09/sept./2004 16:47
par Chris
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...)
Publié : jeu. 09/sept./2004 16:52
par jbernard13
et comment programme ton l'option imprimer ?
Publié : jeu. 09/sept./2004 19:12
par Flype
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
Publié : jeu. 09/sept./2004 19:16
par Flype
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.
Publié : jeu. 09/sept./2004 19:28
par jbernard13
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
Publié : jeu. 09/sept./2004 19:37
par Lukky
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
Publié : jeu. 09/sept./2004 19:46
par Jacobus
y en a quand même qui ont des nerfs d'acier sur ce forum !
Je sens que là Lukky était gonflé à bloc...
Publié : jeu. 09/sept./2004 20:11
par nico
Tu croas que sy j'écrivès mieut, j'arivereit à me relyr....
C'est vrai que c'est impressionnant!
Quelle maîtrise!
Publié : jeu. 09/sept./2004 20:17
par Jacobus
