[vb6] problème : mon programme se plante

**sohaieb** · 13/05/2013, 23h41

salut à tous ,
mon programme se plante lorsque je choisi un fichier je sais pas pourquoi
voilà mon 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
 
Private Sub Form_Load()
Dim a As String
Dim b As String
With CommonDialog1
.Filter = "*.exe | *.exe"
.ShowOpen
End With
Open CommonDialog1.FileName For Binary As #1
a = Space(LOF(1))
Get #1, , a
Close #1
b = ""
For i = 1 To Len(a)
b = b & Mid(a, i, 1)
Next i
Open App.Path & "\n.exe" For Binary As #1
Put #1, , b
Close #1
 
End Sub

note: j'ai fai cette instruction juste pour savoir est ce que vb6 accepte de séparer les caractère ou non parce que aprés , j'en ai besoin pour les exploiter dans un tableau :

Code :

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

1
2
3
4
5
 
b = ""
For i = 1 To Len(a)
b = b & Mid(a, i, 1)
Next i

merci d'avance

**XylonAkau** · 14/05/2013, 07h29

___Ia ora na.
___J'ai testé votre programme et, hormis la nécessité de déclarer i :

Code :

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

Dim i as Long

il a fonctionné sans erreur ni problème - aussi bien dans l'interface de VB que comme .exe.
___Peut-être quelques précisions sur son plantage seraient-elles utiles (un message d'erreur ? un numéro de ligne ? un environnement ?).
NB- L'instruction App.Path se comporte différemment selon le mode d'exécution du programme.
___Bon courage pour la suite de votre travail.

**DAUDET78** · 14/05/2013, 07h34

Envoyé par sohaieb

mon programme se plante

Sur quelle ligne en "degug pas à pas" ?

Envoyé par sohaieb

Open CommonDialog1.FileName For Binary As #1

Le fichier EXE fait quelle taille ?

**sohaieb** · 14/05/2013, 12h41

Envoyé par XylonAkau

___Ia ora na.
___J'ai testé votre programme et, hormis la nécessité de déclarer i :

Code :

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

Dim i as Long

il a fonctionné sans erreur ni problème - aussi bien dans l'interface de VB que comme .exe.
___Peut-être quelques précisions sur son plantage seraient-elles utiles (un message d'erreur ? un numéro de ligne ? un environnement ?).
NB- L'instruction App.Path se comporte différemment selon le mode d'exécution du programme.
___Bon courage pour la suite de votre travail.

j'ai déja ajouter ça mais le problème existe encore

**sohaieb** · 14/05/2013, 12h42

Envoyé par DAUDET78

Sur quelle ligne en "degug pas à pas" ?
Le fichier EXE fait quelle taille ?

à propos , j'ai fait des breakpoint pour tester dans quelle ligne le programme se plante , j'ai trouvé que le problème est dans cette instruction :

Code :

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

1
2
3
For i = 1 To Len(a)
b = b & Mid(a, i, 1)
Next i

et pour la taille de fichier , déja le fichier n'as pas pu ce crée..

**DAUDET78** · 14/05/2013, 12h49

Envoyé par sohaieb

j'ai trouvé que le problème est dans cette instruction :

Code :

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

1
2
3
For i = 1 To Len(a)
b = b & Mid(a, i, 1)
Next i

Et où? dans quelle ligne? et Len(a) vaut combien ?

et pour la taille de fichier , déja le fichier n'as pas pu ce crée..

je parle du fichier EXE de départ que tu viens lire ..... pas de celui de sortie !

**sohaieb** · 14/05/2013, 15h37

Envoyé par DAUDET78

Et où? dans quelle ligne? et Len(a) vaut combien ?
je parle du fichier EXE de départ que tu viens lire ..... pas de celui de sortie !

la ligne qui cause le plantage c'est b=b & mid ..
et la taille de fichier d'entrer vaut 4.90 MO , et len(a) normalement vaut la taille totale de caractères dans le fichier d'entrer (qui est égale selon le bug à 5143504 )

**DAUDET78** · 14/05/2013, 15h55

Envoyé par sohaieb

et len(a) normalement vaut la taille totale de caractères dans le fichier d'entrer (qui est égale selon le bug à 5143504

Mais il vaut combien exactement quand ça se plante ?
Et quelle est la longueur de "b" ?
Et quelle est la valeur de "i" ?

**sohaieb** · 14/05/2013, 16h42

Envoyé par DAUDET78

Mais il vaut combien exactement quand ça se plante ?
Et quelle est la longueur de "b" ?
Et quelle est la valeur de "i" ?

quand je fait breakpoint sur cette instruction "b = b & Mid(a, i, 1)" il donne :

b=""
i=1

et quand j'ai fait breakpoint sur l'instruction "next i" il me donne :

b="MZ"
i=2

et dans le cas ou j'ai fait breakpoint sur "open app.path etc.." , là il se plante le programme ..

Note: j'ai testé testé sur un programme qui a comme taille 24 KO , il a marché trés bien , mais avec ces 4 MO , il se plante .. je pense que c'est un problème de taille ou je sais pas nn?

**DAUDET78** · 14/05/2013, 16h58

Envoyé par sohaieb

et dans le cas ou j'ai fait breakpoint sur "open app.path etc.." , là il se plante le programme ..

Il se plante? tu perds la main sur l'interface VB6 ou tu as une erreur d’exécution ?

**sohaieb** · 14/05/2013, 17h02

Envoyé par DAUDET78

Il se plante? tu perds la main sur l'interface VB6 ou tu as une erreur d’exécution ?

oui je perd la main sur l'interface vb6 et je peux pas faire rien que CRLT +ALT + SUPPR pour faire Fin de tâche et fermer vb6 , j'ai laissé ça meme 15 min de chargement et rien n'est effectué

**DAUDET78** · 14/05/2013, 17h11

Remplace :

Code :

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

1
2
3
For i = 1 To Len(a)
b = b & Mid(a, i, 1)
Next i

Par

Code :

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

1
2
3
For i = 1 To 55000
b = b & Mid(a, i, 1)
Next i

Ca marche ?
teste alors

Code :

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

1
2
3
For i = 1 To 85000
b = b & Mid(a, i, 1)
Next i

**sohaieb** · 14/05/2013, 17h28

Envoyé par DAUDET78

Remplace :

Code :

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

1
2
3
For i = 1 To Len(a)
b = b & Mid(a, i, 1)
Next i

Par

Code :

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

1
2
3
For i = 1 To 55000
b = b & Mid(a, i, 1)
Next i

Ca marche ?
teste alors

Code :

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

1
2
3
For i = 1 To 85000
b = b & Mid(a, i, 1)
Next i

les deux marchent bien mais sans copier tous les bits de fichier que j'ai choisie déja

**DAUDET78** · 14/05/2013, 17h59

Envoyé par sohaieb

les deux marchent bien

OK, donc ce n'est pas un problème de limite de la taille d'un string à 65536 caractères.

mais sans copier tous les bits de fichier que j'ai choisie déja

Les octets !
Mais c'est normal

Donc, à mon humble avis, c'est un problème de mémoire RAM disponible

**sohaieb** · 14/05/2013, 20h05

Envoyé par DAUDET78

OK, donc ce n'est pas un problème de limite de la taille d'un string à 65536 caractères. Les octets !
Mais c'est normal

Donc, à mon humble avis, c'est un problème de mémoire RAM disponible

Ah bon? donc j'essai à augmenter la RAM utilisé (parce que je travaille sur VMbox)

si j'ai rencontré le mem prob donc je vai vous informé

**DAUDET78** · 14/05/2013, 20h12

Pourquoi ça plante, c'est au delà de ma limite d’incompétence !

Par contre, tu peux tourner la difficulté en utilisant un string "b" plus petit
Tu traites les octet 1 à 50000 de "a" et tu mets le résultat dans "b" . tu enregistre "b" dans le fichier de sortie . tu fais "b"=""
Tu traites les octet 50001 à 100000 de "a" et tu mets le résultat dans "b" . tu enregistre "b" dans le fichier de sortie . tu fais "b"=""
etc etc etc etc
Quand tu arrives à la fin de "a" , tu fermes le fichier de sortie

**XylonAkau** · 14/05/2013, 22h51

___Ia ora na fa'ahou.
1) La limite d'une chaîne VB6 est de 2^31, un peu plus de deux milliards d'octets ; c'est d'ailleurs aussi celle d'un entier long qui permet de travailler dessus (-2 147 483 648 à 2 147 483 647).
2)

(parce que je travaille sur VMbox)

___Si vous exécutez un programme dans une machine virtuelle, vous risquez en effet d'être confronté aux limites de mémoire de cette machine, indépendamment de VB (Daudet78 a donné la solution).
3)

Code :

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

1
2
3
For i = 1 To Len(a)
   b = b & Mid(a, i, 1)
Next i

___L'instruction de la deuxième ligne oblige à recréer à chaque fois une nouvelle chaîne à partir de la précédente ; c'est sans conséquence pour des chaînes de taille réduite, mais devient très pénalisant avec des chaînes de plusieurs Mo ; il semble plus rapide à l'exécution de créer au départ une chaîne B de la longueur voulue (ici, len(A)) puis d'écrire

Code :

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

1
2
3
For I& = 1 To Len(A$)
   Mid$(B$, I&, 1) = Mid$(A$, I&, 1)
Next I&

___Je vous accorde que cette remarque est sans grand intérêt dans l'immédiat, puisque cette partie du programme est bidon, et que

Code :

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

B$ = A$

irait encore plus vite. Mais

j'ai fai cette instruction juste pour savoir est ce que vb6 accepte de séparer les caractère ou non

___Sauf que ce codage rien que pour voir génère une occupation de la mémoire et des délais qui peuvent ne pas être anodins.
___Bonne poursuite de vos travaux.

**sohaieb** · 15/05/2013, 00h02

Envoyé par DAUDET78

Pourquoi ça plante, c'est au delà de ma limite d’incompétence !

Par contre, tu peux tourner la difficulté en utilisant un string "b" plus petit
Tu traites les octet 1 à 50000 de "a" et tu mets le résultat dans "b" . tu enregistre "b" dans le fichier de sortie . tu fais "b"=""
Tu traites les octet 50001 à 100000 de "a" et tu mets le résultat dans "b" . tu enregistre "b" dans le fichier de sortie . tu fais "b"=""
etc etc etc etc
Quand tu arrives à la fin de "a" , tu fermes le fichier de sortie

j'ai meme utilisé tous ça en augmentant la taille de la RAM utilisé dans VMbox (puisuqe j'ai 8 GO de ram) mais j'ai eu le meme prob d'execution , en plus , j'ai vue que l'utilsation de CPU dans le gestionnaire de tache est de 100%

! c'est trop j crois

**sohaieb** · 15/05/2013, 00h07

Envoyé par XylonAkau

___Ia ora na fa'ahou.
1) La limite d'une chaîne VB6 est de 2^31, un peu plus de deux milliards d'octets ; c'est d'ailleurs aussi celle d'un entier long qui permet de travailler dessus (-2 147 483 648 à 2 147 483 647).
2)___Si vous exécutez un programme dans une machine virtuelle, vous risquez en effet d'être confronté aux limites de mémoire de cette machine, indépendamment de VB (Daudet78 a donné la solution).
3)

Code :

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

1
2
3
For i = 1 To Len(a)
   b = b & Mid(a, i, 1)
Next i

___L'instruction de la deuxième ligne oblige à recréer à chaque fois une nouvelle chaîne à partir de la précédente ; c'est sans conséquence pour des chaînes de taille réduite, mais devient très pénalisant avec des chaînes de plusieurs Mo ; il semble plus rapide à l'exécution de créer au départ une chaîne B de la longueur voulue (ici, len(A)) puis d'écrire

Code :

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

1
2
3
For I& = 1 To Len(A$)
   Mid$(B$, I&, 1) = Mid$(A$, I&, 1)
Next I&

___Je vous accorde que cette remarque est sans grand intérêt dans l'immédiat, puisque cette partie du programme est bidon, et que

Code :

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

B$ = A$

irait encore plus vite. Mais
___Sauf que ce codage rien que pour voir génère une occupation de la mémoire et des délais qui peuvent ne pas être anodins.
___Bonne poursuite de vos travaux.

merci pour votre aide , mais j'ai voulue savoir pourquoi on a utilisé les caractères $ et & avant et aprés les variable de cette instruction :

Code :

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

1
2
3
For I& = 1 To Len(A$)
   Mid$(B$, I&, 1) = Mid$(A$, I&, 1)
Next I&

enplus , j'ai voulue savoire séparer chaque caractère de la chaine car aprés je vai manipuler chaque caractère à coté , c'est pourquoi j'aime savoir faire tous ça mercii d'avance

**sohaieb** · 15/05/2013, 01h36

j'ai utilisé encore cette instruction :

For i = 1 To Len(a)
Mid(b, i, 1) = Mid(a, i, 1)
Next i

il m'a afficher l'eurreur :
"Run time error 5:
invalid procedure call or argument"

...

[vb6] problème : mon programme se plante

VB 6 et antérieur

Discussions similaires

Partager

Partager