Récupération dans le registre d'un type Vector3

Version imprimable

27/11/2014, 11h47
ekydeta

Récupération dans le registre d'un type Vector3
Bonjour,

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

J'effectue :
Code:

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:

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

Mais cela ne fonctionne pas.

Une idée ?
27/11/2014, 12h09
Invité

je ferais un truc du genre :

Code:

dim monObj as Object = Key.GetValue("Quaternion")
27/11/2014, 13h20
ekydeta
Citation:

Envoyé par romulus001

je ferais un truc du genre :

Code:

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:

1 2 3 Dim Quaternion As Object = Key.GetValue("Quaternion") Dim Quaternion1 As Vector3 = Quaternion Quat.Value = Quaternion1
Quelqu'un aurais une autre solution ?
27/11/2014, 14h00
Invité

Code:

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:

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?
27/11/2014, 14h03
ekydeta

1 pièce(s) jointe(s)

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

Citation:

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 :
Pièce jointe 162433
27/11/2014, 14h16
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:

dim monVec3 as Vector3 = New Vector3(monObj)

tu as quoi?

Citation:

Envoyé par romulus001

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:

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:

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 !

27/11/2014, 14h55
Invité

Code:

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.
27/11/2014, 15h08
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 !
27/11/2014, 15h21
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.
28/11/2014, 13h49
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.

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:

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

28/11/2014, 14h30
ekydeta

Merci Romulus pour toute ton aide, j'utilise dorénavant ta méthode qui fonctionne !
28/11/2014, 14h35
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
28/11/2014, 14h53
ekydeta

Citation:

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 !

Bonjour à tous,

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

Code:

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,