Discussion :

[ekydeta]

Bonjour,

Je n'arrive pas à récupérer une valeur du registre de type Vector3.

J'effectue :

Code :

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

1
2
Key.SetValue("Quaternion", Quat.Value) '' Sauvegarde de la valeur dans le registre
Quat.Value. = Key.GetValue("Quaternion") '' Recupérer la valeur

Il me mets un problème : " le cast spécifié n'est pas valide vb.net "

J'ai regardé un peu sur le forum, j'ai vu qu'il fallait utiliser CType.

J'ai donc fait :

Code :

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

Quat.Value. = CType(Key.GetValue("Quaternion"),Vector3)

Mais cela ne fonctionne pas.

Une idée ?

[Invité]

je ferais un truc du genre :

Code vb :

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

dim monObj as Object = Key.GetValue("Quaternion")

[ekydeta]

je ferais un truc du genre :

Code vb :

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

dim monObj as Object = Key.GetValue("Quaternion")

Merci de ta réponse Romulus mais " le cast spécifié n'est pas valide vb.net "
Pourtant j'ai essayé de rajouté aussi :

Code :

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

1
2
3
 Dim Quaternion As Object = Key.GetValue("Quaternion")
                Dim Quaternion1 As Vector3 = Quaternion
                Quat.Value = Quaternion1

Quelqu'un aurais une autre solution ?

[Invité]

Code vb :

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

dim monObj as Object = Key.GetValue("Quaternion")

Met un point d'arrêt et regarde comment la valeur récupérée est construite.
Comme je ne connais pas ta classe Vector3, je ferais un truc dans ce style là:

Code vb :

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

dim monVec3 as New Vector3(monObj.x, monObj.y, monObj.z)

Au lieu de faire une affectation directe, pourrais tu construire manuellement un objet de cette classe?

[ekydeta]

Merci de cette réponse Romulus, je vais voir ce que je peux faire.

En attendant, voici la classe vector3 que tu m'as demandé :

http://developercenter.robotstudio.c...dad08db7f9.htm

et le contrôle à qui je souhaite ajouter cette valeur :

http://developercenter.robotstudio.c...7faf5b1f59.htm

Met un point d'arrêt et regarde comment la valeur récupérée est construite

Voici ce que j'obtiens comme valeur de la part du registre :

[Invité]

En mode débogage, tu as une fenêtre espion qui s'ouvre normalement. Ainsi, si tu peux ajouter l'objet monObj dans la liste des espions, et tu peux ainsi voir ses propriétés et valeurs obtenues.
Après, si tu essayes

Code vb :

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

dim monVec3 as Vector3 = New Vector3(monObj)

tu as quoi?

[ekydeta]

En mode débogage, tu as une fenêtre espion qui s'ouvre normalement. Ainsi, si tu peux ajouter l'objet monObj dans la liste des espions, et tu peux ainsi voir ses propriétés et valeurs obtenues.
Après, si tu essayes

Code vb :

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

dim monVec3 as Vector3 = New Vector3(monObj)

tu as quoi?

Impossible d'utiliser ce code ça me mets cette erreur :

La résolution de surcharge a échoué, car aucun 'New' accessible ne peut être appelé sans conversion restrictive*:

Code :

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

1
2
3
    'Public Sub New(axis As ABB.Robotics.Math.Axis)'*: L'argument qui correspond au paramètre 'axis' passe de 'Object' à 'ABB.Robotics.Math.Axis'.
    'Public Sub New(vec As ABB.Robotics.Math.Vector4)'*: L'argument qui correspond au paramètre 'vec' passe de 'Object' à 'ABB.Robotics.Math.Vector4'.
    'Public Sub New(vec() As Double)'*: L'argument qui correspond au paramètre 'vec' passe de 'Object' à 'Tableau à 1 dimension(s) de Double'

Merci de prendre le temps de m'aider Romulus, c'est super sympa !

[Invité]

Code VB :

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

dim monObj as Object = Key.GetValue("Quaternion")

après cette affectation effectuée, regarde ce que tu obtiens dans la liste des espions. Dans la colonne valeur, il te met quoi? Normalement, tu as marqué son nouveau type.

[ekydeta]

Voici ce que j'obtiens:

monobj Nothing Object

J'ai regardé dans mon registre il existe bien une valeur pour Quaternion lorsque j'y accède avec Regedit.

Bizarre !

[Invité]

Rien a été récupéré? Sinon, j'aurais une solution, j'espère ne pas trop casser dans ton projet. Selon moi, le type Vector3 n'est pas un type reconnue dans la base de registre. Ce que je te conseille de faire, c'est une sérialisation / désérialisation binaire.

[ekydeta]

La méthode de la sérialisation m'a l'air vraiment compliqué et je n'aurais guère le temps de la développer. Je te pris de m'excuser Romulus !

En continuant à chercher, je suis tomber sur ce paramètre : http://msdn.microsoft.com/en-us/libr...v=vs.110).aspx

N'y aurais t'il pas possibilité d'utiliser ceci ?

J'ai essayé quelques trucs mais ça n'a pas l'air de fonctionner.

[Invité]

Pour moi, tu ne peux utiliser la base de registre pour enregistrer des types avancés, comme Vector3, ça reste à confirmer par contre.

justement non, ça ne tient pas à grand chose, ça se présente ainsi :

Code vb :

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

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
 
'Etape 1 : définir la classe à sérialiser
<Serializable()> 
Public Class Vector3Serialisable
Private _monVec as Vector3
 
Public Sub New()
_monVec=Nothing
 
Public Property DefVect
get
return _monVec
end Get
Set(value)
_monVec=value
End Set
End Property
End Class
 
'Etape 2: la sérialisation
dim monVec as Vector3
'ici, tu lui affectes tes valeurs mais pas via la lecture dans la base des registres
dim FluxDeFichier as FileStream = File.create("vect.bin")
Dim Serialiseur as New BinaryFormatter
Serialiseur.Serialize(FluxDeFichier, monVec )
FluxDeFichier.close
 
'Etape 3 : la désérialisation
dim monVec as Vector3
dim FluxDeFichier as Stream = File.openRead("vect.bin")
Dim Deserialiseur as New BinaryFormatter
monVec = CType(Deserialiseur.Deserialize(FluxDeFichier), Vector3Serialisable)
FluxDeFichier.Close()

[ekydeta]

Merci Romulus pour toute ton aide, j'utilise dorénavant ta méthode qui fonctionne !

[Invité]

Là, je t'ai montré la sérialisation binaire car son point fort, c'est que cela fonctionne sur des types avancés, comme Vector3, hashtable, .... chose qui n'est pas le cas pour la sérialisation XML, bien que le code reste quasi-identique.
Après, tu peux également ouvrir une pop-up afin de permettre à l'utilisateur de pouvoir justement ouvrir ou enregistrer son fichier binaire là où il veut, avec le nom qu'il désire:
- Pour l'ouverture, utiliser un objet de type OpenFileDialog
- Pour enregistrer, utiliser un objet de type SaveFileDialog

[ekydeta]

Après, tu peux également ouvrir une pop-up afin de permettre à l'utilisateur de pouvoir justement ouvrir ou enregistrer son fichier binaire là où il veut, avec le nom qu'il désire:
- Pour l'ouverture, utiliser un objet de type OpenFileDialog
- Pour enregistrer, utiliser un objet de type SaveFileDialog

Je me sers déjà de ces contrôles Romulus.

L'utilisateur ne doit rien avoir à saisir, c'est un peu compliqué comme projet à expliquer.

Mais ton aide m'a suffit, merci !

[ekydeta]

Bonjour à tous,

J'ai trouvé la solution à mon problème si des gens ont le même soucis que moi je partage.

Code :

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

1
2
3
4
5
  Dim RobPosKey As New Vector3(KeyRobTarget.GetValue("PositionX"), KeyRobTarget.GetValue("PositionY"), KeyRobTarget.GetValue("PositionZ"))
                    RobPos.Value = RobPosKey
                    Dim RobQuatKey As New Vector3(KeyRobTarget.GetValue("QuaternionX"), KeyRobTarget.GetValue("QuaternionY"), KeyRobTarget.GetValue("QuaternionZ"))
                    RobPos.Value = RobPosKey
                    Rob_Quat.Value = RobQuatKey

Cordialement,