Option Base 1

Bonjour,

J'ai un gros problème. Je dois nécessairement utiliser un tableau avec un index débutant à 1 et non à 0 pour utiliser une méthode.
Sans cela, elle me renvoie une erreur. J'ai essayé d'envoyer un tableau de dimension n+1 avec le premier terme nul, j'ai aussi une erreur. Si je rentre le tableau de dimension n, j'ai une erreur aussi. :aie:

Il y a-t-il un moyen de remplacer l'option base 1 de VB6?
Cette option n'est plus disponible en VB.Net.

Merci,

Nicolas

Ton tableau utilise un indice? du genre mon_tableau(i)...
Dans ce cas la, il faut initialiser i à 1.

J'espère que c'est ça que tu demandais.

En fait,

Je déclare mon tableau comme ceci:

Code:

---

Dim ServerHandles(1) as Long

---

Cela me crée un tableau ayant deux 'places' avec l'index 0 et l'index 1.
J'aimerais créer un tableau avec une seule 'place' à l'index1.

C'est possible?

nicolas

Citation:

---

Envoyé par nicohutse

J'aimerais créer un tableau avec une seule 'place' à l'index1.

---

C'est possible mais quel intérêt ? Un tableau avec une seule "case" n'est plus un tableau.

Sinon

Code:

---

Dim ServerHandles(1) as Long

---

Crée un tableau pouvant contenir un seul objet (ici un Long). Ne pas confondre les index pour accéder aux éléments qui sont en base 0 (0 est l'index du premier élément) et le nombre d'éléments que peut contenir un tableau.

En fait l'intérêt est le suivant:

Je fais appel à une méthode wrappée de VB6 vers .Net.

Code:

---

Remove(NumItems as Integer, ByRef ServerHandles As System.Array, ByRef Errors as System.Array)

---

Le tableau ServerHandles me permet de supprimer de instances de classes que je souhaite. Dans ce cas, je ne veux en supprimer qu'une seule.

Le problème est qu'une s'agit d'un tableau option BASE 1.

Quand j'utilise un tableau avec un seul élément, l'index est 0 et c'est une erreur.
Quand j'envoie un tableau avec deux éléments, (celui placé en index 1 étant l'identifiant de mon instance), j'ai une erreur.:mur:

Comment me sortir de là?

Nicolas

Citation:

---

Envoyé par nicohuts

Je fais appel à une méthode wrappée de VB6 vers .Net.

---

C'est à dire ? Tu appelles une DLL VB6 depuis VB.Net ?

Citation:

---

Envoyé par nicohutse

Quand j'envoie un tableau avec deux éléments, (celui placé en index 1 étant l'identifiant de mon instance), j'ai une erreur.:mur:

---

Dans ton message précédent tu pensais faire un tableau avec deux éléments mais en fait tu ne prévoyais la place que pour un. Tu peux toujours tester en utilisant effectivement un tableau de deux éléments.

Après comme je ne m'y connais pas en VB, je ne pourrais pas faire grand chose d'autre pour toi :aie:

moi même qui programme un peut en vb.net,
je ne comprend pas ce que tu recherche "nicohutse"...

En fait il s'agit de la dll OPCDAAUTO.dll. C'est une dll qui a été développée à la base pour VB6 puis adaptée (wrappée) pour VB.Net. Maintenant je n'en sais pas beaucoup plus. J'ai testé en VB6 cette méthode, il n'y avait aucun problème.

Avec un tableau à deux cases, j'ai une erreur aussi.

J'ai joint un print screen du code avec l'erreur.


Merci pour l'aide,

Nicolas

il est ou le problème ...?
je vois pas pourquoi il te faut absolument un tableau ...

met plutôt:

Code:

---

1 2 3 4 5

Dim ServerHandles as Long   '...   ServerHandles = OPCItemToRemove.GetItemServerHandle

---

sa devrais aller la non ??



PS: quand tu a du code a mettre,
met le dans les balises de code *stp*
:tagcode:

Dans le document précédent, ServerHandles possèdent deux valeurs, une à l'index 0 et une à l'index 1.

J'aimerais que ServerHandles n'aie que (1) 76620656 sans (0) 0.

La méthode OPCItems.Remove n'accepte pas de recevoir un tableau avec une index qui commence à 0 car elle a été programmée avec l'option base 1.

J'ai essayé avec un tableau n'ayant que (0) 76620656 mais ca ne fonctionne pas. Il faut expressément (1) 76620656 sans 'case' à l'index (0).

Désolé je sens que je ne m'exprime pas bien mais j'essaye.

Merci pour l'aide,

Nicolas

Non, si je ne met pas de tableau mais un LONG pur, il est mis :

Citation:

---

Une valeur de type 'long' ne peut pas être convertie en 'System.Array'.

---

tu pourra pas ...
les index commencent forcément à '0'

j'ais cherché et j'ais rien trouvé de mon coté non + ...
bizarre ta .dll :?

Il y a pas moyen de créer mon propre type de tableau ou un truc du genre avec mon index à moi?

Cette dll permet de faire un client OPC, c'est-à-dire qu'elle me permet de lire des valeurs contenues dans un automate. C'est pour une appli industrielle.

Merci de votre aide en tout cas,

Nicolas

Je connais les serveurs OPC ;)
(tu a même une carte OPC ou applicom sur ton ordi je crois)

je développe également dans un secteur Industriel mais pas sur OPC *dsl*
en tout cas de souvenir, je ne me rappel pas avoir été embêté a ce point sur OPC

Bonne continuation,

Bonsoir,

Si ce que tu souhaites c'est ne récupérer que l'élément d'indice 1 de ton tableau tu peux essayer ceci je suppose:

Code:

---

1 2 3 4

Dim ServerHandle as Long '... ServerHandle = OPCItemToRemove.GetItemServerHandle(1)

---

@StormimOn

Citation:

---

Envoyé par StormimOn

Sinon

Code:

---

Dim ServerHandles(1) as Long

---

Crée un tableau pouvant contenir un seul objet (ici un Long). Ne pas confondre les index pour accéder aux éléments qui sont en base 0 (0 est l'index du premier élément) et le nombre d'éléments que peut contenir un tableau.

---

Ceci est inexact en VB.Net malheureusement, lors de la déclaration d'un tableau l'argument ne représente pas le nombre d'éléments de celui-ci mais l'index maximum du tableau.

Code:

---

1 2 3 4

Dim myArray(1) As String MessageBox.Show(myArray.Length) ' Affichera 2 et non pas 1

---

Citation:

---

Envoyé par Sehnsucht

@StormimOn

Ceci est inexact en VB.Net malheureusement, lors de la déclaration d'un tableau l'argument ne représente pas le nombre d'éléments de celui-ci mais l'index maximum du tableau.

---

Je me disais que ce serait comme C# pour quelque chose comme ça ... mais non :aie:
Je le saurais pour la prochaine fois ;)

en vb6 on pouvait faire

Code:

---

dim tbl(3 to 6) as string

---

essaye, on sait jamais ...

Bonjour,

Bien essayé pour le Array(1 to 2), j'y ai cru mais VB m'oblige quand même
à commencer à zéro.

Du coup j'ai recommencé à chercher et j'ai trouvé:mouarf:.

Enfin il y a deux alternatives.

Soit je vais rechercher par Ref le System.Array dans l'instance de ma dll. Le tableau référencé est alors en base 1. Voir document joint. C'est le seul moyen que j'ai trouvé d'avoir un tableau en base 1 dans VB.Net. Ca ne m'arrange pas trop seulement.

J'ai alors pensé écrire une mini bibliothèque de classe en VB6 me permettant de faire 'interface' pour transformer et récupérer en base 1 mes tableaux VB.Net. Certain que ça marche mais c'est lourd!

La deuxième option est le bidouillage. C'est ce que j'ai fait:mrgreen:

J'ai fait par essai-erreur jusqu'à ce que ca fonctionne, l'explication est probablement dans la dll.

Voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim ServerHandles(1) As Int32 Dim Errors as System.Array Dim Count As Long   'Mon instance de classe OPCItemToRemove =_oPCGroupsItems.Item(ItemKey)   'La méthode suivante me retourne un entier ServerHandles(1) =OPCItemToRemove.GetItemServerHandle   'La case qui m"interresse est en 1, elle doit être différente de 0 If Int(ServerHandles(1))<>0 Then Count =1 'Le system.Array Errors m'est transmis par ref. ServerHandles est donc 'bien de deux cases...Et ca marche. _oPCGroupObj.OPCItems.Remove(Count,ServerHandles,Errors) End If

---

Mais ce qui est sûr c'est qu'il ne fallait pas absolument, comme je le pensais, un tableau avec index commençant à 1.

Un tout grand merci pour votre aide. Il est efficace ce forum.

Nicolas