Discussion :

[marco62118]

bonsoir toutes et tous

j'ai très souvent besoin d'avoir la dimension de mon tableau dynamique.
dans une ligne de code comme celle ci

Code :

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

MonTableau(Ubound(MonTableau)).SousTablo(Ubound(MonTableau(Ubound(MonTableau)).SousTablo))

est ce que ceci ne serait pas plus rapide

Code :

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

1
2
MaxMonTableau=Ubound(MonTableau)
MonTableau(maxMonTableau).SousTablo(Ubound(MonTableau(MaxMonTableau).SousTablo))

simplement pour essayer d'avoir un code plus rapide et peut être plus correcte
qu'en pensez vous
merci d'avance

[l_autodidacte]

MonTableau(maxMonTableau).SousTablo(Ubound(MonTableau(MaxMonTableau).SousTablo))

Une telle syntaxe ne peut pas passer pour la simple raison que MonTableau est un tableau qui peut contenir n'importe quel type de données.
Le point(.) entre MonTableau et SousTablo indiquerait que MonTableau est un objet et que SousTablo est l'une de ses propriétés; ce qui n'est le cas.

[marco62118]

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
19
20
21
 
Public Type RetCel
    ligne As Integer
    colonne As Integer
    valeur As Integer
    cand As Integer
End Type
Public Type RetCelS
    RetCelS() As RetCel
End Type
 
Public RetourS() As RetCelS 'ensemble des retours en arrière
 
 
......
ReDim Preserve RetourS(UBound(RetourS)).RetCelS(1 To nbEnreg)
 
'j'aurais pu écrire:
 
ReDim Preserve RetourS(UBound(RetourS)).RetCelS(1 To (RetourS(UBound(RetourS)).RetCelS))
.......

ce code fonctionne parfaitement

[l_autodidacte]

OK mais la déclaration Public RetourS() As RetCelS fait référence au TYPE et non au tableau.

D'ailleurs si tu exécutes ce

Code :

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

1
2
3
4
Dim RCS As RetCelS
Private Sub Form_Click()
    MsgBox VarType(RCS.RetCelS)
End Sub

tu auras un beau message d'erreur. Il faudra alors remonter au type RetCel...

[marco62118]

ok mais
qu'est ce qu'il vaut mieux mettre la taille du tableau dans une variable MaxTablo=Ubound(Tablo) et appeler à chaque fois la variable si besoin de la taille du tablo ou alors appeler à chaque fois Ubound(Tablo)?
le quel est le plus rapide ? est ce nécessaire d’embarrasser le programme avec une variable supplémentaire

[l_autodidacte]

Toute variable déclarée(utilisée ou non) occupe de la mémoire.
Moi, j'opterais pour Ubound(Tablo) plus rapide, quoiqu'une variable(intMaxTbl par exemple) qui contiendrait cette valeur serait plus explicite.

[marco62118]

merci pour cette info

et à quel moment les variables sont elles chargées au début du programme? au début de chaque procédure pour les variables déclarées dans une procédure? au début d'un module pour toutes les variables?

[l_autodidacte]

Elles sont chargées là où elles sont déclarées et appelées.
Si une procédure(Sub) ou une fonction n'est pas appelée, les variables qui y sont déclarées(variables locales) ne sont pas utilisées. (Je tente de dire comme si elles n'existaient pas)

[marco62118]

les variables publiques elles seront chargées dès le début du programme ou seulement si une procédure ou fonction les appels
et les variables déclarées au niveau d'un module elles seront chargées dès qu'une procédure ou fonction y fera appel ?

[l_autodidacte]

Le système réserve(alloue) une mémoire à une variable déclarée Public ou Global même si elle n'est pas appelée(utilisée) et elle vue dans tous les modules(Feuille, module de base .bas module de classe .cls...) elle est chargée lorsqu'elle appelée.


Allocution de mémoire et chargement sont, à mon sens, deux concepts différents : Allocution de mémoire c'est en quelque sorte une réservation d'une certaine quantité de mémoire alors que chargement est une utilisation réelle de la mémoire déjà réservée.

De ce fait, à toute variable variable déclarée (locale ou globale) correspondrait une partie qui lui est réservée de la mémoire et qui n"est utilisée que si cette variable est appelée.
Par exemple, si une variable est déclarée en locale(Dim ou Private) dans une procédure et/ou fonction, elle utilise la mémoire qui lui est allouée si la procédure/fonction est appelée. Une fois l'utilisation de la fonction/procédure est terminée, la variable est réinitialisée donc devient vide et n'utilise plus la mémoire qui lui reste cependant allouée.

[marco62118]

bonsoir

de la mémoire allouée, quelle soit vide ou quelle soit chargée d'une variable donc appelée par une fonction, occupe toujours autant de place dans l'espace mémoire!
Si j'ai bien compris quelque soit la position de la variable il lui ait réservé, alloué un espace mémoire qui ne peut plus être utilisé

[l_autodidacte]

Oui en quelque sorte.
Mais vue la taille des nouvelles mémoires, cela n'a d'influence que si le nombre de variables est considérable.

[marco62118]

ok merci pour ces éclaircissements.

[DarkVader]

Bonjour,

L'optimisation d'un code (et de la nécessité de l'optimisation) dépend de plusieurs facteurs.
Quelques exemples :
- le moment où le code à étudier est exécuté :
par exemple, gagner quelques 1/100ème de secondes lors d'interaction avec l'utilisateur final n'a que peu ou pas d'intérêts
alors que dans une boucle très répétitive chaque cycle compte,
- utiliser une variable intermédiaire de stockage est utile si l'appel est répétitif sans que la valeur change,
- le temps de calcul n'est pas toujours la seule incidence à prendre en compte : la surcharge du processeur peut aussi être importante
etc.


La solution pour optimiser un code est évidemment de mesurer en premier lieu le temps écoulé par bloc à étudier.
La 1ère solution serait d'utiliser une mesure de temps (MicroTickCount - VB6i.dll)
qui mesure un temps avec précision puisqu'elle pratique une évaluation très inférieure à la 1ms
alors que GetTickCount n'est précis qu'à n Ms(10 à 20) .
La mesure de temps a le mérite d'être parlante mais la précision d'évaluation est plutôt du coté de la fonction RDTSC
qui mesure le nombre de cycles depuis l'ouverture de la session.
Ces 2 méthodes ont le mérite aussi de ne pas nécessiter l'utilisation d'une boucle répétitive du même test
qui est souvent trompeuse car c'est souvent le premier appel qui consomme des ressources.


Coté récupération des limites de tableaux, voir du coté de SA() qui retourne ue image complète d'un tableau
(taille, dimensions, limites etc.)
Il te reste à tester avec RDTSC pour évaluer quelle solution te convient le mieux


Concernant l'exemple précité, l'usine à gaz du tableau de tableau - a()() : sauf erreur de ma part
cela revient à faire un tableau de tableau a(0 to 0, 0 to m)(0 to 0, 0 to n) !!!
Sauf cas très particuliers qui ici m'échappe (hormis peut-être pouvoir faire des redim preserve sur chaque dimension finale)
un tableau à 2 dim serait plus lisible a(0 to m, 0 to n).

Pour info, coté gestion de Tableau, la même librairie (VB6i) permet également
- de redimensionner totalement un tableau à 2 dimensions (pas seulement la dernière dim comme avec redim preserve de vb6) avec Preserve2
si cette fonction peut t'être utile mais elle est à vérifier avec les tableaux UDT !

[marco62118]

bonjour
merci pour ces précisions.
Je pense effectivement que mon programme ne se ralentit pas pour quelques variables intermédiaires qui rendent mon code plus lisible et plus facile à écrire.
Mais je vais regardé tout de même ces fonctions que tu m'as cité

quant à mon usine à gaz, je n'ai pas bien saisi tes explications, alors voilà ce que j'ai voulu faire avec mes tableaux:

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
 
'le type retCel permet de mémoriser les propriétés d'une cellule de "sudoku"
Public Type RetCel
    ligne As Integer
    colonne As Integer
    valeur As Integer
    cand As Integer
End Type
 
'RetCelS() est un tableau de plusieurs cellules qui ont été modifiées au cours de la même opération (ex: suppression d'un candidat sur plusieurs cellules)
Public Type RetCelS
    RetCelS() As RetCel
End Type
 
Retours() est le tableau de tous les coups  
Public RetourS() As RetCelS 'ensemble des retours en arrière

je ne sais pas par avance le nombre de cellules touchées par une action, j'aurais pu mettre le nombre maximum de 20 et bien sûr ne pas tout utiliser
Et pour le tableau Retours() là je suis obligé de le redimensionner au fur et à mesure car si non je ne saurais pas quel est le dernier enregistrement.

[DarkVader]

...
quant à mon usine à gaz, je n'ai pas bien saisi tes explications, alors voilà ce que j'ai voulu faire avec mes tableaux:
...

Un tableau (1 to m) est équivalent à un tableau (1 to 1, 1 to m)
un tableau (1 to m) de tableau imbriqué (1 to n) comme tu le décris peut s'écrire montableau()() ; il est donc équivalent à
montableau(1 to m)(1 to n) ou montableau(1 to 1, 1 to m)(1 to 1, 1 to n).
La construction montableau(1 to m, 1 to n) remplit les mêmes fonctions et couvre les mêmes plages de valeurs.

C'était juste un constat général sans s'occuper de savoir si l'exemple est cohérent.

[marco62118]

ok

au niveau rapidité ou encombrement mémoire les 2 méthodes font une différence?