Discussion :

[nicohutse]

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.

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

[feldi]

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.

[nicohutse]

En fait,

Je déclare mon tableau comme ceci:

Code :

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

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

[StormimOn]

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 :

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

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.

[nicohutse]

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

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

Code :

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

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.

Comment me sortir de là?

Nicolas

[StormimOn]

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

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

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

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

[hunteshiva]

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

[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

[hunteshiva]

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

met plutôt:

Code :

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

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*

[nicohutse]

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

[nicohutse]

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

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

[hunteshiva]

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

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

[nicohutse]

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

[hunteshiva]

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,

[Sehnsucht]

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 VB.Net :

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

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

@StormimOn

Sinon

Code :

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

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 VB.Net :

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

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

[StormimOn]

@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
Je le saurais pour la prochaine fois

[Pol63]

en vb6 on pouvait faire

Code :

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

dim tbl(3 to 6) as string

essaye, on sait jamais ...

[nicohutse]

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é.

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

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

Voici le code:

Code :

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