[VB6] ASSERTION FAILED

Version imprimable

18/07/2012, 11h48
racoune

[VB6] ASSERTION FAILED

Bonjour à tous,

Je développe une application sous VB6 avec Win98 SE.
Je traîne cette erreur depuis plusieurs semaines :

http://data.imagup.com/10/1157270280.png

J'effectue une acquisition de données via le bus GPIB et le programme s'arrête en affichant cette fenêtre.

Je ne comprends pas pourquoi une telle erreur survient, et ne sait pas où chercher pour la résoudre.

Avez vous déjà rencontré ce genre de problème ?

Merci d'avance pour votre aide

Aurélien
18/07/2012, 12h29
ProgElecT

Salut

Citation:

Je développe une application ....

donc tu as les sources, une partie du code serai le bienvenue, quelque lignes avant et après cette ligne 521.

Oui le voilà :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 ElseIf Option11.value = True Then
 
        sheet.Cells(53, 11).value = Abs(tension_tab(0))
        sheet.Cells(54, 11).value = Abs(tension_tab(1))
        sheet.Cells(55, 11).value = Abs(tension_tab(2))
        sheet.Cells(56, 11).value = Abs(tension_tab(3))
        sheet.Cells(57, 11).value = Abs(tension_tab(4))
        sheet.Cells(58, 11).value = Abs(tension_tab(5)) ' Ligne 521
        sheet.Cells(59, 11).value = Abs(tension_tab(6))
        sheet.Cells(60, 11).value = Abs(tension_tab(7))
        sheet.Cells(61, 11).value = Abs(tension_tab(8))
        sheet.Cells(62, 11).value = Abs(tension_tab(9))
        sheet.Cells(63, 11).value = Abs(tension_tab(10))
        sheet.Cells(64, 11).value = Abs(tension_tab(11))
        sheet.Cells(65, 11).value = Abs(tension_tab(12))
        sheet.Cells(66, 11).value = Abs(tension_tab(13))
        sheet.Cells(67, 11).value = Abs(tension_tab(14))
        sheet.Cells(68, 11).value = Abs(tension_tab(15))
        sheet.Cells(69, 11).value = Abs(tension_tab(16))
        sheet.Cells(70, 11).value = Abs(tension_tab(17))
        sheet.Cells(71, 11).value = Abs(tension_tab(18))
        sheet.Cells(72, 11).value = Abs(tension_tab(19))
        sheet.Cells(73, 11).value = Abs(tension_tab(20))

Mais lorsque le programme s'arrête il ne passe pas par ces lignes...

Salut,

Le code n'indique rien quant à l'erreur citée.
Parfois, lorsqu'une variable reçoit une valeur NULL (ou une chaîne vide), une erreur semblable peut survenir.
Par la même occasion, tu te donnes trop de mal à écrire un tel code (une vingtaine de ligne) alors qu'une boucle le raccourcit énormément :
Code:

1 2 3 4 5 6 7 8 9 ElseIf Option11.value = True Then Dim Ind% For Ind = 0 To Nbr ' Nbr c'est le nombre total des éléments du tableau ' tension_tab et à ne pas oublier qu'on commence le ' comptage à partir de zéro. On peut tout aussi bien ' remplacer Nbr par Ubound(tension_tab) Sheet.Cells(Ind+53, 11).value = Abs(tension_tab(Ind)) Next Ind ' suite du code .....
A toi de voir si cela te convient ou non !

Citation:

Mais lorsque le programme s'arrête il ne passe pas par ces lignes...

L'origine de l'erreur n'est pas cette ligne(521) mais bien avant, avant même la condition "If"
Pour plus d’infos voir ici