VB6, "constant expression required"

**olliprogdeb** · 03/12/2017, 13h42

Bonjour à toutes et tous.
Je suis débutant sur VB6 et je souhaite faire tourner un programme qui refuse de démarrer alors que théoriquement tout devrait être OK...
Voici la partie du programme en question:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
'Store some data types from draw module. If we moved them back to Draw module, VB reports a circular reference
Public Type drawPoint_t
    offset As vector_t
    projectedX As Double
    projectedY As Double
End Type
 
Public Type drawLine_t
    startPoint As Integer
    endPoint As Integer
    color As ColorConstants
End Type
 
' From here down we have the particle data types, constants, etc
Public Enum jointType_t
    gJointType_FrontLeft_c = 0
    gJointType_FrontRight_c = 1
    gJointType_Rear_c = 2
End Enum
 
Public Type particle_t
    posCenterMass As vector_t
    rotationAngle As vector_t
    velocity As vector_t
    acc As vector_t
    mass As Double
 
    sinRotAngle As vector_t
    cosRotAngle As vector_t
 
    ' Offsets of the front left, front right and rear joints
    flJointOffset As vector_t
    frJointOffset As vector_t
    rJointOffset As vector_t
    ' Positions of the front left, front right and rear joints
    flJointPos As vector_t
    frJointPos As vector_t
    rJointPos As vector_t
 
    ' Information related to drawing
    drawPoints() As drawPoint_t
    drawLines() As drawLine_t
End Type
 
' Declare all parts of the truck
Public aParticleList(cTruckStructure_ParticleMax) As particle_t
 
 
Public Sub Particle_Init(P As particle_t)
    Vector_Reset P.posCenterMass
    Vector_Reset P.rotationAngle
    Vector_Reset P.velocity
    Vector_Reset P.acc
 
    P.sinRotAngle.X = 0
    P.cosRotAngle.X = 1
    P.sinRotAngle.Y = 0
    P.cosRotAngle.Y = 1
    P.sinRotAngle.Z = 0
    P.cosRotAngle.Z = 1
 
    'Resize array of drawable lines and points to 0
    ReDim P.drawLines(0)
    ReDim P.drawPoints(0)
End Sub
 
 
Public Sub Particle_SetJointOffsets(P As particle_t, frontJointsWidth As Double, frontJointsOffsetX As Double, rearJointOffsetX As Double, allJointsYOffset As Double)
    ' Set offsets for front left joint
    P.flJointOffset.X = frontJointsOffsetX
    P.flJointOffset.Y = allJointsYOffset
    P.flJointOffset.Z = -frontJointsWidth / 2
    ' Set offsets for front right joint
    P.frJointOffset.X = frontJointsOffsetX
    P.frJointOffset.Y = allJointsYOffset
    P.frJointOffset.Z = frontJointsWidth / 2
    ' Set offsets for rear joint
    P.rJointOffset.X = rearJointOffsetX
    P.rJointOffset.Y = allJointsYOffset
    P.rJointOffset.Z = 0
End Sub
 
Public Sub Particle_SetJointPosition(P As particle_t, joint As jointType_t, X As Double, Y As Double, Z As Double)
    Select Case joint
        Case gJointType_FrontLeft_c
            P.flJointPos.X = X
            P.flJointPos.Y = Y
            P.flJointPos.Z = Z
        Case gJointType_FrontRight_c
            P.frJointPos.X = X
            P.frJointPos.Y = Y
            P.frJointPos.Z = Z
        Case gJointType_Rear_c
            P.rJointPos.X = X
            P.rJointPos.Y = Y
            P.rJointPos.Z = Z
    End Select
End Sub
 
'------------------------------------------------------------------------------------------------
' Particle related private functions
'------------------------------------------------------------------------------------------------
 
Public Sub Particle_SetCenterMassPositionAndRotation(P As particle_t)
    Dim frontJointsY As Double
    Dim jointsLengthX As Double
    Dim frontJointsWidth As Double
 
    frontJointsY = (P.flJointPos.Y + P.frJointPos.Y) / 2
    frontJointsWidth = P.frJointOffset.Z - P.flJointOffset.Z
    jointsLengthX = P.rJointOffset.X - P.frJointOffset.X
 
    ' Compute rotation angle on z axis
    P.rotationAngle.Z = Atn((P.rJointPos.Y - frontJointsY) / jointsLengthX)
    ' Compute rotation angle on x axis
    P.rotationAngle.X = Atn((P.flJointPos.Y - P.frJointPos.Y) / frontJointsWidth)
 
    'store cos and sin
    P.sinRotAngle.X = Sin(P.rotationAngle.X)
    P.sinRotAngle.Z = Sin(P.rotationAngle.Z)
    P.cosRotAngle.X = Cos(P.rotationAngle.X)
    P.cosRotAngle.Z = Cos(P.rotationAngle.Z)
 
    ' compute position of center of mass
    P.posCenterMass.X = P.flJointPos.X - P.flJointOffset.X * P.cosRotAngle.Z + P.flJointOffset.Y * P.sinRotAngle.Z
    P.posCenterMass.Y = P.flJointPos.Y - P.flJointOffset.Y * P.cosRotAngle.Z - P.flJointOffset.X * P.sinRotAngle.Z + P.flJointOffset.Z * P.sinRotAngle.X
    P.posCenterMass.Z = P.flJointPos.Z - P.flJointOffset.Z * P.cosRotAngle.X - P.flJointOffset.Y * P.sinRotAngle.X
End Sub
 
Sub Particle_UpdateCabinPosition()
    On Error Resume Next
    Particle_SetJointPosition aParticleList(cTruckStructure_ParticleCabin), gJointType_FrontLeft_c, dampedSpringList(cDampedSpring_FlCabin).basePos.pos.X, dampedSpringList(cDampedSpring_FlCabin).basePos.pos.Y + dampedSpringList(cDampedSpring_FlCabin).length / CSng(frmConfigurator.txtSpringMaxLength) * 0.6 * 100, dampedSpringList(cDampedSpring_FlCabin).basePos.pos.Z
    Particle_SetJointPosition aParticleList(cTruckStructure_ParticleCabin), gJointType_FrontRight_c, dampedSpringList(cDampedSpring_FrCabin).basePos.pos.X, dampedSpringList(cDampedSpring_FrCabin).basePos.pos.Y + dampedSpringList(cDampedSpring_FrCabin).length / CSng(frmConfigurator.txtSpringMaxLength) * 0.6 * 100, dampedSpringList(cDampedSpring_FrCabin).basePos.pos.Z
    Particle_SetJointPosition aParticleList(cTruckStructure_ParticleCabin), gJointType_Rear_c, dampedSpringList(cDampedSpring_RCabin).basePos.pos.X, dampedSpringList(cDampedSpring_RCabin).basePos.pos.Y + dampedSpringList(cDampedSpring_RCabin).length / CSng(frmConfigurator.txtSpringMaxLength) * 0.6 * 100, dampedSpringList(cDampedSpring_RCabin).basePos.pos.Z
    Particle_SetCenterMassPositionAndRotation aParticleList(cTruckStructure_ParticleCabin)
End Sub

L'erreur "constant expression required " revient constamment pour la ligne:

Code :

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

1
2
' Declare all parts of the truck
Public aParticleList(cTruckStructure_ParticleMax) As particle_t

Quelqu'un peut-il m'aider à comprendre ce qu'il se passe?
Merci d'avance.

**ProgElecT** · 03/12/2017, 17h22

Salut olliprogdeb, bienvenue sur DVP

La partie grandeur (cTruckStructure_ParticleMax) du tableau de ta déclaration Public aParticleList(cTruckStructure_ParticleMax) As particle_t doit être une constante.
'recherche ailleurs dans le code que nous a pas mis la déclaration de cTruckStructure_ParticleMax
Elle doit être déclarée avant son utilisation et de cette façon

Code :

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

Public Const cTruckStructure_ParticleMax = 1' ICI UN CHIFFRE

ou bien tu déclares ton tableau de cette façon

Code :

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

Public aParticleList() As particle_t

**olliprogdeb** · 03/12/2017, 20h08

Salut ProgELect,

Merci pour ta réponse.

Ce programme est constitué de plusieurs modules:
Nom : Capture.JPG
Affichages : 208
Taille : 36,1 Ko

Effectivement, quand je fouille attentivement dans tous les autres modules en plus de celui où mon erreur apparaît, impossible de trouver la déclaration de cette constante... (je ne sais pas si cette vérification est bien pertinente mais je ne suis qu'un "noob" ;-) )

Si je modifie le code comme tu me le suggère:

Code :

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

Public aParticleList() As particle_t

je déclare ma constante comme un tableau sans valeurs, c'est bien ça? as-tu une idée de ce qu'il va se passer?

et encore merci pour ton aide.

VB6, "constant expression required"

VB 6 et antérieur

Discussions similaires

Partager

Partager