Discussion :

[Lucas42]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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)

[Lucas42]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Lucas42]

c'est avec ByVal et ByRef ?? j'ai lu qu'il fallait pas mettre Sub pour une fonction paramétré ...

[jmfmarques]

Tu "as donné le mauvais code" ?.....
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 !

[Lucas42]

mais on trouve rien sur internet ni l'aide en ligne à FONCTION PARAMETREE ou PORCEDURE PARAMETREE

[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

[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.