Discussion :

[dolsky]

Nous travaillons sur cet exercice et on a trouvé des difficultés à le résoudre.
SVP, si vous pouvez nous aider à le resoudre


Un CODEC est un logiciel compresseur décompresseur de fichiers. En effet, les suite de bits composant un fichier
comportent des similitudes comme 10000111. Plutôt que de stocker la totalité de cet octet, on gagne de la place en
écrivant 14031 (qui se lit un quatre zéros trois un). Cet octet (huit bits) retrouva ensuite son format original à la
décompression.
Il s'agit alors de saisir une chaîne de huit chiffres formée uniquement 0 et 1 pour désigner un octet puis la compresser
suivant le principe de compression du CODEC et enfin l'afficher.
Exemple :
Si octet = ˝10010111˝ Alors l'octet compressé est : ˝1201031˝


Voici le code VB:

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
Module
Module1 
Sub Main() 
Dim tab() As String 
Dim ok As Boolean = True 
Dim i, l, occ As Integer 
Dim car As String 
Dim octet As String = "" 
Dim oct As String 
Console.WriteLine(
"Tapez la valeur de l'octet") 
oct = Console.ReadLine
l = oct.Length
ReDim tab(l) 
For i = 0 To l - 1 
tab(i) = oct.Substring(i, 1)
Console.WriteLine(tab(i))
Next 
 
Do 
If tab(i) <> 0 Or tab(i) <> 1 Then 
i = i + 1
End If 
Loop Until (ok = False) Or (i > 8) And l = 8 
i = 1
Do 
occ = 1
ok = 
True 
Do 
If tab(i) = tab(i + 1) Then 
occ = occ + 1
i = i + 1
Else 
ok = 
False 
End If 
Loop Until ok = False Or i > 8 
If occ = 1 Then 
octet = oct & occ
Else 
Console.WriteLine(oct & occ)
End If 
i = i + 1
Loop Until i > 8 
Console.WriteLine(
"l'octet compressé est" & octet) 
Console.ReadKey()
End Sub 
End
Module

[smyley]

J'étais habitué à voir le CODEC comme un logiciel qui fait que j'ai de la vidéo et du son sur mon pc ...

Blague à part, peut de nous seront prêt à faire l'exercice pour toi. Alors dit nous précisément sur quel point tu bloques (qu'est-ce que ton code fait ? qu'est-ce qu'il fait mal ?, etc..).

[dolsky]

je ne reçoit pas message d'erreur.
Il boucle à l'infinie.

Je suis débutant en VB et j'ai voulu travailler cet exercice.
Si vous pouvez m'aider à le réaliser

merci

[smyley]

Je hais le vb...
Bon, quelques remarques :

Code :

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

ReDim tab(l)

Alors que je pensais que ReDim tab(l) créait un tableau de taille l, il crée un tableau de taille (l+1) alors déjà utilise ReDim tab(l-1). (Pourquoi crée un tableau de 9 cases pour stocker 8 éléments ?)

Code :

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

Do

Apparemment tu te perds avec les Do..While (et moi aussi d'ailleurs, c'est illisible). Essayes de refaire ton programme avec que des boucles For, au moins là tu vois exactement d'où tu pars et où tu arrives alors que là j'ai l'impression que la condition de fin est faite un peut au hasard ...

Code :

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

tab(i) = tab(i + 1)

Du coup fait attention, ton i doit aller pour un tableau de 8 éléments de 0 à 6 car 6+1=7 est valide mais pas 7+1=8 (on compte à partir de 0, donc l'élément 8 sur un tableau de 8 éléments n'existe pas).

Code :

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

1
2
3
4
5
If occ = 1 Then
                octet = oct & occ
            Else
                Console.WriteLine(oct & occ)
            End If

Dans le cas "Else", comment tu rajoutes occ dans oct ? donc finalement le occ tu le laisses dans le néant j'ai l'impression, il faudrait toujours faire octet = oct & occ (quelle abération, utiliser & pour concaténer, l'est bizarre VB )

C'est tout pour l'instant, essayes de refaire avec les z'indications.

[SaumonAgile]

Cela dit concernant ton algorithme, j'espère que tu vous avez bien analysé les probabilités des séquences de données, car dans le cas le moins favorable, ton fichier compressé fera le double du fichier initial.

[Faladin]

Cela dit concernant ton algorithme, j'espère que tu vous avez bien analysé les probabilités des séquences de données, car dans le cas le moins favorable, ton fichier compressé fera le double du fichier initial.

Si tu parles du fait de rencontrer:
1 0 1 0 1 0

Et que le CODEC le modifie en:
11 10 11 10 11 10

Je crois pas que ça fasse ça selon la description initial de notre ami. Du moins j'espère bien, sinon c'est complètement stupide..héhé

C'est tout de même intéressant comme compression...
http://fr.wikipedia.org/wiki/Codec