Discussion :

[jayrem98]

Salut!
j'aimerai apres avoir éclaté un code binaire dans un tableau, récuperer les index pour lequels la valeur dans le tableau est 1!!
par exemple si j'ai 0 1 0 1,je voudrais récupérer les valeurs 1 et 3car il y a un 1 pour l'index 1 et un autre 1 pour l'index 3.
mes tentatives dans se sens font que je n'obtient qu'une valeur car les autres sont écrasées je suppose.
voyez plutot:

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
 'recuperation des index pour la valeur tb(i)=1
        Dim tb(3) As String
        tb(0) = 0
        tb(1) = 1
        tb(2) = 0
        tb(3) = 1
 
        Dim tbx(3) As Integer
        For i = 0 To 3
            For j = 0 To 3
                If tb(i) = 1 Then
                    tbx(j) = i
                    TextBox1.Text = tbx(j)
                End If
            Next
        Next

[hunteshiva]

Bonjour,

il existe la feinte du caribou
essaye de créer un tableau et d'y ajouter tes valeurs

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
'Déclaration des variables
Dim MaSuite() as string
Dim Positions As List(Of Integer)
 
'Import de la suite de bits
MaSuite = {0,1,0,1}
 
'Efface la TextBox
TextBox1.Text = Nothing
 
'Détéction des positions des bits = 1
For i = 0 To MaSuite.Lenght
  If MaSuite(i) = 1 Then
    'Ajout dans une liste des Index
    Positions.Add(i)
    ' Ajout des index dans la TextBox
    If TextBox1.Text = Nothing then
      TextBox1.Text = i
    Else
      TextBox1.Text = TextBox1.Text & "/" & i
    End If
 
  End If
Next

Voila je n'ai jamais essayé ce genre de code mais je pense que ça doit donner quelque chose

[jayrem98]

haha merci gars!!
c'est nice de ta part tu m'as bien débloqué.
@ +