Génération automatique de paramètre
Milou52
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
Je suis débutant en codage VB, mais ma question est d'ordre général je pense :
Est-ce qu'il est possible de créer un code permettant de générant automatiquement des nouveaux paramètres internes au code (et ensuite de les renommer avec un incrément), pour les utiliser par la suite ?
Le problème étant que je ne connais pas à l'avance le nombre de paramètres dont je vais avoir besoin.
Merci pour votre réponse
Je suis débutant en codage VB, mais ma question est d'ordre général je pense :
Est-ce qu'il est possible de créer un code permettant de générant automatiquement des nouveaux paramètres internes au code (et ensuite de les renommer avec un incrément), pour les utiliser par la suite ?
Le problème étant que je ne connais pas à l'avance le nombre de paramètres dont je vais avoir besoin.
Merci pour votre réponse
A voir également:
- Génération automatique de paramètre
- Logiciel de sauvegarde automatique gratuit - Guide
- Réponse automatique thunderbird - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Parametre dns - Guide
- Remettre parametre usine pc - Guide
5 réponses
Bonjour,
Huuummm plus claire que ça tu meure :DD
Essaye d'expliquer un peu mieux Stp, avec un exemple concret si possible.
A+
Huuummm plus claire que ça tu meure :DD
Essaye d'expliquer un peu mieux Stp, avec un exemple concret si possible.
A+
J'ai besoin d'un nombre inconnu de paramètre dans un code, dans l'idéal il faudrait que je puisse avoir une boucle du type :
For i=1 to n
param.i = "création param"
Next
si n vaut 3 j'obtiendrai
param.1
param.2
param.3
For i=1 to n
param.i = "création param"
Next
si n vaut 3 j'obtiendrai
param.1
param.2
param.3
Tes paramètres y ressemble à quoi ?
mais une piste..
Difficile de faire mieux sans renseignement concret.
A+
mais une piste..
Sub Essais()
Dim n As Integer, i As Integer
Dim Param()
'pour le test
n = 3
ReDim Param(n)
For i = 1 To n
Param(i) = "Param " & i
Next i
End Sub
Difficile de faire mieux sans renseignement concret.
A+
Puisque tu insistes je vais te mettre un morceau de code :
Sub CATMain()
[...]
'Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(hybridShapePlaneOffset1)
'Dim hybridShapeIntersection1 As HybridShapeIntersection
Set hybridShapeIntersection1 = hybridShapes1.Item("Intersection.25")
'Dim reference2 As Reference
Set reference2 = part1.CreateReferenceFromObject(hybridShapeIntersection1)
hybridShapeSpline1.AddPointWithConstraintExplicit reference2, Nothing, -1#, 1, Nothing, 0#
'Dim hybridShapeIntersection2 As HybridShapeIntersection
Set hybridShapeIntersection2 = hybridShapes1.Item("Intersection.26")
'Dim reference3 As Reference
Set reference3 = part1.CreateReferenceFromObject(hybridShapeIntersection2)
hybridShapeSpline1.AddPointWithConstraintExplicit reference3, Nothing, -1#, 1, Nothing, 0#
'Dim hybridShapeIntersection3 As HybridShapeIntersection
Set hybridShapeIntersection3 = hybridShapes1.Item("Intersection.27")
hybridShapeSpline1.AddPointWithConstraintExplicit reference3, Nothing, -1#, 1, Nothing, 0#
body1.InsertHybridShape hybridShapeSpline1
part1.InWorkObject = hybridShapeSpline1
part1.Update
End Sub
Je travaille sous CATIA, une fonction sert à créer une droite en reliant des points. Chaque point semble être stocké dans la variable "reference1", 2 ,3. je souhaite automatiser la sélection des points, leur nombre total est n. Je ne sais donc pas à l'avance combien créer de paramètre "référence" ...
Sub CATMain()
[...]
'Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(hybridShapePlaneOffset1)
'Dim hybridShapeIntersection1 As HybridShapeIntersection
Set hybridShapeIntersection1 = hybridShapes1.Item("Intersection.25")
'Dim reference2 As Reference
Set reference2 = part1.CreateReferenceFromObject(hybridShapeIntersection1)
hybridShapeSpline1.AddPointWithConstraintExplicit reference2, Nothing, -1#, 1, Nothing, 0#
'Dim hybridShapeIntersection2 As HybridShapeIntersection
Set hybridShapeIntersection2 = hybridShapes1.Item("Intersection.26")
'Dim reference3 As Reference
Set reference3 = part1.CreateReferenceFromObject(hybridShapeIntersection2)
hybridShapeSpline1.AddPointWithConstraintExplicit reference3, Nothing, -1#, 1, Nothing, 0#
'Dim hybridShapeIntersection3 As HybridShapeIntersection
Set hybridShapeIntersection3 = hybridShapes1.Item("Intersection.27")
hybridShapeSpline1.AddPointWithConstraintExplicit reference3, Nothing, -1#, 1, Nothing, 0#
body1.InsertHybridShape hybridShapeSpline1
part1.InWorkObject = hybridShapeSpline1
part1.Update
End Sub
Je travaille sous CATIA, une fonction sert à créer une droite en reliant des points. Chaque point semble être stocké dans la variable "reference1", 2 ,3. je souhaite automatiser la sélection des points, leur nombre total est n. Je ne sais donc pas à l'avance combien créer de paramètre "référence" ...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question