Discussion :

[sandball22]

Bonjour, j'aimerais utiliser un tableau comme variable globale.
Mais mon tableu est un tableau dynamique.

Voici mon bout de 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
19
20
21
22
23
24
25
26
27
28
29
 
Dim P1() As Long
 
Private Sub cmdLancerBanc_Click()
....
N=100
 
'redimension de mon tableau
redim P1 (N)
 
'initialisation de mon tableau:
for i 0 to N 
P1(0)=20
Next i
 
end sub
 
 
Private Sub Timer1_Timer()
 
 
P1(0) = P1(0) - 1
 
If P1(0) = 0 Then
    MsgBox ("temps 1 de la pile 1 fini!!")
End If
 
 
End Sub

J'ai une erreur avec P1() dans la procédure Timer1_Timer()!!
Je comprends l'erreur mais je ne vois pas comment la corriger
Comment peut-on éviter cela?
Merci

[OhMonBato]

Bonjour,

je doute que ce soit un copier/coller exact de ton code quand je vois

Code :

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

for i 0 to N

Il manque le signe "=" plus le fait que je ne vois pas a quoi sert ta boucle puisque tu affectes 100 fois la valeur 20 a P1(0)

A part ca, quelle erreur as tu exactement ? En essayant de deviner tes souhaits, mais ma boule de cristal est de fiabilite moyenne, il te faut arreter ton timer quand tu atteints la valeur 0 pour P1(0) avec un

Code :

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

Timer1.Enabled = False

[sandball22]

oui ce n'est pas tout à fait un copier coller.
en gros je redimensionne mon tableau et je l'initialise dans cmdLancerBanc_Click() car c'est à cet endroit que je vais connaitre la taille de mon tableau.
Dans Timer1_Timer(), je veux utiliser ce même tableau mais comme je l'ai déclarer en variable globale en haut de ma form je ne peux pas l'utilisier car le tableau est vide!!

[ProgElecT]

Entre autres choses

Code :

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

1
2
3
for i 0 to N 
P1(0)=20
Next i

Code :

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

1
2
3
for i = 0 to N 
P1(i)=20 '<------------
Next i