[VB6] Pb avec fonction paramétré

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour , j'ai créé une fonction paramétré

Code:

1
2
3
4
5
6
7
8
9
Sub TraceVanne2Voies(longueur1 As Integer, longueur2 As Integer)
    ScaleMode = vbPixels        'dessine en pixel
    ForeColor = vbBlack         'couleur trait en noir
    Line (100, longueur1)-(300, longueur1)
    Line (100, longueur1)-(300, longueur2)
    Line (300, longueur1)-(100, longueur2)
    Line (100, longueur2)-(300, longueur2)
    FillStyle = vbFSSolid       'la forme dessiné est un solide
End Sub

et j'aimerai pouvoir incrémenté longueur1 de 2 et decrémenté longueur de -2 ou vise versa par le biais de deux commandbutton mais je n'arrive pas à le codé correctement, j'ai ecris ceci mais je sais et le compilateur me la confirmé que ca ne fonctionne pas ....

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click(Index As Integer)
    Select Case Index
        Case 0
        TraceVanne2Voies longueur1 = (TraceVanne2Voies longueur1) - 2
        TraceVanne2Voies longueur2 = (TraceVanne2Voies longueur2) + 2
        Case 1
        TraceVanne2Voies longueur1 = (TraceVanne2Voies longueur1) + 2
        TraceVanne2Voies longueur2 = (TraceVanne2Voies longueur2) - 2
    End Select
End Sub

merci d'avance
amicalement lucas

12/05/2006, 08h06
jmfmarques

Alors là c'est vraiment le pompon !
1) ce que tu appelles une fonction n'est qu'une routine puisqu'elle ne retourne pas sa valeur
2) tu utilises la valeur d'une "supposée" fonction qui n'en retourne aucune !
Alors :
Aide en ligne et reviens avec un code quand tu y auras appris ce qu'est une fonction et ce qu'elle retourne ainsi que ce qu'est une routine (à laquelle on passe des paramètres).
C'est là, Lucas, la moindre des choses... VRAIMENT (quand je pense que tu veux/voulais te lancer, avec ces connaissances, dans la constructions des propriétés d'un activex.... j'en reste baba)

si elle en retourne , la preuve , si j'ecris ca
Code:

1 2 3 4 5 6 7 8 Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 TraceVanne2Voies CInt(70), CInt(330) Case 1 TraceVanne2Voies CInt(30), CInt(370) End Select End Sub
j'ai donné le mauvais code , et le soucis , c'est que je narrive pas a prendre la valeur ecrite dans longueur1 et longueur2

12/05/2006, 08h14
Lucas42

c'est avec ByVal et ByRef ?? j'ai lu qu'il fallait pas mettre Sub pour une fonction paramétré ...
12/05/2006, 08h21
jmfmarques

Tu "as donné le mauvais code" ?.....8O
et tu continues avec :
"si, elle en retourne.."
et : "la preuve :..."
c'est celà que tu appelles le retour de la valeur d'une fonction, sans doute ?
Je n'enlève donc rien à mon message précédent... RIEN
Un tour dans l'aide en ligne, donc, pour commencer à apprendre ce qu'est une procédure paramétrée (ce que tu as fait .... et qui n'est pas, mais alors pas du tout... une fonction !)
J'y ajoute ceci (qui est ton nouveau problème) : apprends (aide en ligne) ce qu'est une variable globale et .... mets en oeuvre ...
Tu es, Lucas, tout simplement en train de te mettre à apprendre ce que l'on apprend au tout début, quel que soit le langage de développement utilisé !
Ne reviens, s'il te plait, conformément aux règles de ce forum, que lorsque que ces connaissances de base auront été acquises !
12/05/2006, 08h29
Lucas42

mais on trouve rien sur internet ni l'aide en ligne à FONCTION PARAMETREE ou PORCEDURE PARAMETREE
12/05/2006, 08h37
Lucas42

je vois pas en quoi ca te derange de voir que je galére , ce serai bcp plus simple de me mettre sur la voie plutot que de toujours tiréé vers le bas , c'est vraiment gavant , j'attend pas de reponse de ta part dans ce post

amicalement lucas
12/05/2006, 08h38
AlainTech

Dans l'aide en ligne, voir les définitions (et différences) de Sub et Function.

Ensuite, essayer de comprendre le différence entre ByRef et ByVal.
Savoir que ByRef est le paramètre par défaut, ce qui peut faire croire qu'une Sub "renvoie" une valeur.

En conclusion, PRIERE DE NE PAS PRENDRE LE FORUM POUR UNE AIDE EN LIGNE.
Nous ne sommes pas là pour combler vos défaillances d'étude mais pour donner un coup de main sur des problèmes ponctuels.
12/05/2006, 08h41
AlainTech

Citation:

Envoyé par Lucas42

je vois pas en quoi ca te derange de voir que je galére , ce serai bcp plus simple de me mettre sur la voie plutot que de toujours tiréé vers le bas , c'est vraiment gavant , j'attend pas de reponse de ta part dans ce post

amicalement lucas

C'est en donnant des solutions toutes faites qu'on "tire vers le bas".

En essayant de faire se débrouiller seul, on "tire vers le haut".

Le jour où tu auras compris ça, tu monteras... Et on aura le plaisir de te voir aider les autres comme nous essayons de le faire. ;)

je demande pas de me donner des reponses toutes faites , mais dis moi si dans les posts de JMFMARQUES tu voit kkpart qu'il a mentionné les terme de ByVal ou ByRef .... c'est pas ma faute si j'ai pas msdn d'installer sur mon poste ...
je pense qu'en mettant ca , ma fonction renvoie 2 valeurs
Code:

1 2 3 4 5 6 7 8 9 Function TraceVanne2Voies(ByVal longueur1 As Integer, ByVal longueur2 As Integer) ScaleMode = vbPixels 'dessine en pixel ForeColor = vbBlack 'couleur trait en noir Line (100, longueur1)-(300, longueur1) Line (100, longueur1)-(300, longueur2) Line (300, longueur1)-(100, longueur2) Line (100, longueur2)-(300, longueur2) FillStyle = vbFSSolid 'la forme dessiné est un solide End Function
mais impossible d'ecrire et de garder en mémoire les valeurs
je comprend vraiment pas pk , ca ca ne va pas

Code:

TraceVanne2Voies (longueur1) + 2, (longueur2) - 2

12/05/2006, 08h54
random

une fonction ne renvoie qu'une valeur
par contre cette valeur peut être un tableau (array) ou un type défini par
l'utilisateur voire une chaîne contenant plusieurs informations

serieux ?? k'une valeur ??
moi je vais en avoir 4 en final !! c pourri si ca renvoie qu'une valeur ....
ca ve dire qe jpe pas ecrire ca alors

Code:

1
2
3
4
5
6
7
8
9
Function TraceVanne2Voies(ByVal longueur1 As Integer, ByVal longueur2 As Integer, ByVal hauteur1 As Integer, ByVal hauteur2 As Integer)
    ScaleMode = vbPixels        'dessine en pixel
    ForeColor = vbBlack         'couleur trait en noir
    Line (hauteur1, longueur1)-(hauteur2, longueur1)
    Line (hauteur1, longueur1)-(hauteur2, longueur2)
    Line (hauteur2, longueur1)-(hauteur1, longueur2)
    Line (hauteur1, longueur2)-(hauteur2, longueur2)
    FillStyle = vbFSSolid       'la forme dessiné est un solide
End Function

12/05/2006, 09h00
AlainTech
Citation:

Envoyé par Lucas42

c'est pas ma faute si j'ai pas msdn d'installer sur mon poste ...

Déjà qu'il me paraît aberrant d'essayer de programmer dans en langage sans même en avoir les références, je trouve que c'est vraiment l'excuse bidon!

Si tu as accès à Internet (et tu l'as, puisque tu es sur ce forum), avec très peu de recherches, tu aurais pu trouver ça:
http://msdn.microsoft.com/library/de.../vb6anchor.asp

D'où j'ai extrait:
Citation:
Function Statement

See Also Example Specifics
Declares the name, arguments, and code that form the body of a Function procedure.
Syntax
[Public | Private | Friend] [Static] Function name [(arglist)] [As type]
[statements]
[name = expression]
[Exit Function]
[statements]
[name = expression]
End Function
The Function statement syntax has these parts:
Part
Description
Public
Optional. Indicates that the Function procedure is accessible to all other procedures in all modules. If used in a module that contains an Option Private, the procedure is not available outside the project.
Private
Optional. Indicates that the Function procedure is accessible only to other procedures in the module where it is declared.
Friend
Optional. Used only in a class module. Indicates that the Function procedure is visible throughout the project, but not visible to a controller of an instance of an object.
Static
Optional. Indicates that the Function procedure's local variables are preserved between calls. The Static attribute doesn't affect variables that are declared outside the Function, even if they are used in the procedure.
name
Required. Name of the Function; follows standard variable naming conventions.
arglist
Optional. List of variables representing arguments that are passed to the Function procedure when it is called. Multiple variables are separated by commas.
type
Optional. Data type of the value returned by the Function procedure; may be Byte, Boolean, Integer, Long, Currency, Single, Double, Decimal (not currently supported), Date, String, or (except fixed length),Object, Variant, or any user-defined type.
statements
Optional. Any group of statements to be executed within the Function procedure.
expression
Optional. Return value of the Function.

The arglist argument has the following syntax and parts:
[Optional] [ByVal | ByRef] [ParamArray] varname[( )] [As type] [= defaultvalue]
Part
Description
Optional
Optional. Indicates that an argument is not required. If used, all subsequent arguments in arglist must also be optional and declared using the Optional keyword. Optional can't be used for any argument if ParamArray is used.
ByVal
Optional. Indicates that the argument is passed by value.
ByRef
Optional. Indicates that the argument is passed by reference. ByRef is the default in Visual Basic.
ParamArray
Optional. Used only as the last argument in arglist to indicate that the final argument is an Optional array of Variant elements. The ParamArray keyword allows you to provide an arbitrary number of arguments. It may not be used with ByVal, ByRef, or Optional.
varname
Required. Name of the variable representing the argument; follows standard variable naming conventions.
type
Optional. Data type of the argument passed to the procedure; may be Byte, Boolean, Integer, Long, Currency, Single, Double, Decimal (not currently supported) Date, String (variable length only), Object, Variant, or a specific object type. If the parameter is not Optional, a user-defined type may also be specified.
defaultvalue
Optional. Any constant or constant expression. Valid for Optional parameters only. If the type is an Object, an explicit default value can only be Nothing.

Remarks
If not explicitly specified using Public, Private, or Friend, Function procedures are public by default. If Static isn't used, the value of local variables is not preserved between calls. The Friend keyword can only be used in class modules. However, Friend procedures can be accessed by procedures in any module of a project. A Friend procedure does't appear in the type library of its parent class, nor can a Friend procedure be late bound.
Caution Function procedures can be recursive; that is, they can call themselves to perform a given task. However, recursion can lead to stack overflow. The Static keyword usually isn't used with recursive Function procedures.
All executable code must be in procedures. You can't define a Function procedure inside another Function, Sub, or Property procedure.
The Exit Function statement causes an immediate exit from a Function procedure. Program execution continues with the statement following the statement that called the Function procedure. Any number of Exit Function statements can appear anywhere in a Function procedure.
Like a Sub procedure, a Function procedure is a separate procedure that can take arguments, perform a series of statements, and change the values of its arguments. However, unlike a Sub procedure, you can use a Function procedure on the right side of an expression in the same way you use any intrinsic function, such as Sqr, Cos, or Chr, when you want to use the value returned by the function.
You call a Function procedure using the function name, followed by the argument list in parentheses, in an expression. See the Call statement for specific information on how to call Function procedures.
To return a value from a function, assign the value to the function name. Any number of such assignments can appear anywhere within the procedure. If no value is assigned to name, the procedure returns a default value: a numeric function returns 0, a string function returns a zero-length string (""), and a Variant function returns Empty. A function that returns an object reference returns Nothing if no object reference is assigned to name (using Set) within the Function.
The following example shows how to assign a return value to a function named BinarySearch. In this case, False is assigned to the name to indicate that some value was not found.

Code:

1 2 3 4 5 6 7 8 9 Function BinarySearch(. . .) As Boolean . . . ' Value not found. Return a value of False. If lower > upper Then BinarySearch = False Exit Function End If . . . End Function

Variables used in Function procedures fall into two categories: those that are explicitly declared within the procedure and those that are not. Variables that are explicitly declared in a procedure (using Dim or the equivalent) are always local to the procedure. Variables that are used but not explicitly declared in a procedure are also local unless they are explicitly declared at some higher level outside the procedure.
Caution A procedure can use a variable that is not explicitly declared in the procedure, but a naming conflict can occur if anything you defined at the module level has the same name. If your procedure refers to an undeclared variable that has the same name as another procedure, constant, or variable, it is assumed that your procedure refers to that module-level name. Explicitly declare variables to avoid this kind of conflict. You can use an Option Explicit statement to force explicit declaration of variables.
Caution Visual Basic may rearrange arithmetic expressions to increase internal efficiency. Avoid using a Function procedure in an arithmetic expression when the function changes the value of variables in the same expression.
12/05/2006, 09h10
AlainTech

Citation:

Envoyé par Lucas42

je pense qu'en mettant ca , ma fonction renvoie 2 valeurs
[code]Function TraceVanne2Voies(ByVal longueur1 As Integer, ByVal longueur2 As Integer)

NON!

Elle reçoit 2 valeurs. Si, pour toi, donner = recevoir, on n'est pas sortis de l'auberge.
12/05/2006, 09h11
Lucas42

Pour ce ki est de l'escuxe bidon , tu le dira a mon patron ..... il a pas les cd's de la msdn ... donc j'y pe rien :evilred:
Aprés j'ai cherche sur le net , mais la yen a ki me disent que je pe renvoyer qu'un seul paramétre , et moi j'en ai 4 ...., donc aprés si yen a qui disent des conneries , ca aide pas
12/05/2006, 09h14
Lucas42
oui elle recoit 2 valeurs , vous aviez tous compris vu que mes 2 variables longueur1 et longueur2 ce trouvent dans la fonction ... 8O faut arrété de jouer sur les mots ....
mm quand je met sub devant tracevanne2voies , que j'enleve tous ce qui ce trouve dans les () , que je declare longueur1 et longueur2 en dim longueur1 as integer , je pe mm pas modifier la valeur de longueur1 en tapant
Code:

1 2 3 4 5 6 7 8 Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 longueur1 = longueur1+2 Case 1 longueur1 = longueur1-2 End Select End Sub
jcomprend plus la
12/05/2006, 09h21
malhivertman1

Code:

Private Sub Command1_Click(Index As Integer)

Je ne crois que pas que tu puisse mettre des paramatres dans le code d'un bouton, enfin il me semble pas..

Parce que si tu declare en debut de ton prog

Code:

dim longueur1 as integer

et que tu met dans une autre fonction genre

Code:

Private sub ChangeLong (Index as integer)

le même code que ce que tu met dans ton command1_click, la ca devrait marcher
12/05/2006, 09h26
AlainTech

Citation:

Envoyé par Lucas42

faut arrété de jouer sur les mots ....

ON NE JOUE PAS SUR LES MOTS!

La programmation demande de la rigueur. On ne peut se contenter d'à peu près.

Donc, il est important de comprendre la différence entre "Passer un paramètre" et "valeur renvoyée".

J'insiste pour que tu ailles sur ce lien et que tu étudies un peu le langage que tu veux utiliser.

bon voila , j'ai fait ca

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Option Explicit
Dim longueur1 As Integer
Dim longueur2 As Integer
Dim hauteur1 As Integer
Dim hauteur2 As Integer
Function TraceVanne2Voies(ByVal longueur1 As Integer, ByVal longueur2 As Integer, ByVal hauteur1 As Integer, ByVal hauteur2 As Integer)
    ScaleMode = vbPixels        'dessine en pixel
    ForeColor = vbBlack         'couleur trait en noir
    Line (hauteur1, longueur1)-(hauteur2, longueur1)
    Line (hauteur1, longueur1)-(hauteur2, longueur2)
    Line (hauteur2, longueur1)-(hauteur1, longueur2)
    Line (hauteur1, longueur2)-(hauteur2, longueur2)
    FillStyle = vbFSSolid       'la forme dessiné est un solide
End Function
Sub CouleurObjet(red As Integer, green As Integer, blue As Integer)
    FillColor = RGB(red, green, blue)
    FloodFill hDC, 200, 199, ForeColor
    FloodFill hDC, 200, 201, ForeColor
End Sub
Private Sub Command1_Click(Index As Integer)
    Select Case Index
        Case 0
        longueur1 = longueur1 + 2
        longueur2 = longueur2 - 2
        TraceVanne2Voies longueur1, longueur2, hauteur1, hauteur2
        Case 1
        longueur1 = longueur1 - 2
        longueur2 = longueur2 + 2
        TraceVanne2Voies longueur1, longueur2, hauteur1, hauteur2
    End Select
End Sub
Private Sub Form_Paint()
    TraceVanne2Voies CInt(50), CInt(350), CInt(100), CInt(300)
End Sub

ca ce compile , mais mes commandbutton n'ont acune action 8O 8O 8O

12/05/2006, 09h43
malhivertman1

Ah mais ok, tu as 2 boutons command1 avec un index, j'avais pas compris...

Citation:

ca ce compile , mais mes commandbutton n'ont acune action 8O 8O 8O

En mettant un point d'arrét, tu verrais que t'es valeur de longueur1 et longueur2 change et prenne bien +2 a chaque clic sur ton bouton, c'est juste que c'est aprés que ton programme ne fait rien, il entre dans tte tes fonctions mais elle ne lui demande rien. j'ai pas regardé en detail mais en tout cas, le clic parcours bien ton code..

Voir 40 message(s) de cette discussion en une page