Discussion :

[Clo72]

Bonjour à tous,

Comment initialiser le tableau ci-dessous avec VB6 ?
C'est un tableau en langage C :

Hand_T tableName##[13][4] = { \
{{ 1,0,0,0}, {0, 1,0,0}, {0,0, 1,0}, {0,0,0, 1}}, \
{{ 2,0,0,0}, {0, 2,0,0}, {0,0, 2,0}, {0,0,0, 2}}, \
{{ 4,0,0,0}, {0, 4,0,0}, {0,0, 4,0}, {0,0,0, 4}}, \
{{ 8,0,0,0}, {0, 8,0,0}, {0,0, 8,0}, {0,0,0, 8}}, \
{{ 16,0,0,0}, {0, 16,0,0}, {0,0, 16,0}, {0,0,0, 16}}, \
{{ 32,0,0,0}, {0, 32,0,0}, {0,0, 32,0}, {0,0,0, 32}}, \
{{ 64,0,0,0}, {0, 64,0,0}, {0,0, 64,0}, {0,0,0, 64}}, \
{{ 128,0,0,0}, {0, 128,0,0}, {0,0, 128,0}, {0,0,0, 128}}, \
{{ 256,0,0,0}, {0, 256,0,0}, {0,0, 256,0}, {0,0,0, 256}}, \
{{ 512,0,0,0}, {0, 512,0,0}, {0,0, 512,0}, {0,0,0, 512}}, \
{{1024,0,0,0}, {0,1024,0,0}, {0,0,1024,0}, {0,0,0,1024}}, \
{{2048,0,0,0}, {0,2048,0,0}, {0,0,2048,0}, {0,0,0,2048}}, \
{{4096,0,0,0}, {0,4096,0,0}, {0,0,4096,0}, {0,0,0,4096}} \
}

Merci par avance
Claude

[ProgElecT]

Je ne connais pas beaucoup le langage C, mais il me semble que cela devrait donner cela en VB6

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 tableName(12, 3) As Long
'{{ 1,0,0,0}, {0, 1,0,0}, {0,0, 1,0}, {0,0,0, 1}}, \
'{{ 2,0,0,0}, {0, 2,0,0}, {0,0, 2,0}, {0,0,0, 2}}, \
tableName(0, 0) = 1: tableName(0, 1) = 0: tableName(0, 2) = 0: tableName(0, 3) = 0
tableName(1, 0) = 2: tableName(1, 1) = 2: tableName(1, 2) = 2: tableName(1, 3) = 2
'{{4096,0,0,0}, {0,4096,0,0}, {0,0,4096,0}, {0,0,0,4096}}
tableName(12, 0) = 4096: tableName(12, 1) = 4096: tableName(12, 2) = 4096: tableName(12, 3) = 4096
 
'ou bien
 
Dim T As Integer, U As Integer
For T = 0 To 12
    For U = 0 To 3
        tableName(T, U) = 2 ^ (T)
    Next U
    ' tableName(T, 0) = tableName(T, 0) 'Remer quant OK
    ' tableName(T, 3) = tableName(T, 0) 'Rermer quant OK
Next T