Discussion :

[ekydeta]

Bonjour,

J'ai un problème lorsque j'utilise un Sample en C#.

En C#, cette fonction fonctionne ( Pas drôle )

Code :

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

1
2
3
4
5
6
RsIrc5Controller rsIrc5Controller = (RsIrc5Controller)task.Parent;
//Get virtual controller instance from  RsIrc5Controller
ABB.Robotics.Controllers.Controller controller =
    new ABB.Robotics.Controllers.Controller(new Guid(rsIrc5Controller.SystemId.ToString()));
//get task
ABB.Robotics.Controllers.RapidDomain.Task vTask = controller.Rapid.GetTask(task.Name);

Lorsque je la traduis en VB.net avec un converter j'obtiens ceci :

Code :

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

1
2
3
4
5
Dim rsIrc5Controller As RsIrc5Controller = DirectCast(task.Parent, RsIrc5Controller)
'Get virtual controller instance from  RsIrc5Controller
Dim controller As New ABB.Robotics.Controllers.Controller(New Guid(rsIrc5Controller.SystemId.ToString()))
'get task
Dim vTask As ABB.Robotics.Controllers.RapidDomain.Task = controller.Rapid.GetTask(task.Name)

Malhereusement, il existe un problème de Cast que je ne peux outrepasser.

Après plusieurs essais, je me remets donc à vous.

Merci d'avance

[_Ez3kiel]

Bonjour,

J'ai un problème lorsque j'utilise un Sample en C#.

En C#, cette fonction fonctionne ( Pas drôle )

Code :

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

1
2
3
4
5
6
RsIrc5Controller rsIrc5Controller = (RsIrc5Controller)task.Parent;
//Get virtual controller instance from  RsIrc5Controller
ABB.Robotics.Controllers.Controller controller =
    new ABB.Robotics.Controllers.Controller(new Guid(rsIrc5Controller.SystemId.ToString()));
//get task
ABB.Robotics.Controllers.RapidDomain.Task vTask = controller.Rapid.GetTask(task.Name);

Lorsque je la traduis en VB.net avec un converter j'obtiens ceci :

Code :

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

1
2
3
4
5
Dim rsIrc5Controller As RsIrc5Controller = DirectCast(task.Parent, RsIrc5Controller)
'Get virtual controller instance from  RsIrc5Controller
Dim controller As New ABB.Robotics.Controllers.Controller(New Guid(rsIrc5Controller.SystemId.ToString()))
'get task
Dim vTask As ABB.Robotics.Controllers.RapidDomain.Task = controller.Rapid.GetTask(task.Name)

Malhereusement, il existe un problème de Cast que je ne peux outrepasser.

Après plusieurs essais, je me remets donc à vous.

Merci d'avance

Essaye avec CType() qui est plus permissif que DirectCast()

http://stackoverflow.com/questions/3...type-in-vb-net

[ekydeta]

Essaye avec CType() qui est plus permissif que DirectCast()

http://stackoverflow.com/questions/3...type-in-vb-net

Merci de ta réponse, mais avec un CType j'obtiens une erreur du même type.

[mactwist69]

Bonjour,

Le type de task.Parent est il RsIrc5Controller ?

Si c'est le cas, alors ceci ne fonctionne pas (?) :

Code :

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

Dim rsIrc5Controller As RsIrc5Controller = task.Parent

Si en revanche ce ne sont pas les même types, alors le DirectCast ne fonctionnera pas, effectivement.
Et dans ce cas, je me demande ce qui est fait en C# pour que ça fonctionne...

[Sehnsucht]

Merci de ta réponse, mais avec un CType j'obtiens une erreur du même type.

Ça serait sans doute plus simple avec le message d'erreur exact qui est renvoyé (si ça se trouve le problème vient d'ailleurs dans la conversion entre C# et VB.Net mais n'est visible qu'arrivé à ce niveau là du code)

[clementmarcotte]

Bonjour,

Je présume que tu y as pensé mais bon. Vérifie tes références dans l'Explorateur de solution. Si tu vois un manquant, tu supprimes la vieille référence et tu en établis une nouvelle.

Sinon, je suis d'accord avec l'idée de fournir le texte exact du message d'erreur.

[ekydeta]

Bonjour,

Merci à vous pour les messages. En effet, cela provenait pas du CType/DirectCast mais d'une déclaration supplémentaire qu'il fallait rajouter en VB.net spécifique à mon SDK.

Cordialement,