Permet de calculer les puissances de 2 que composent un nombre
Il est bloqué à 1024 mais c'est très simple de le changer.
Les personnes qui comprennent savent très bien dans quel cas s'EN servir :)
Source / Exemple :
Dim resP(1 To 11) As Integer
Private Sub cmdCalc_Click()
lstPuiss.Clear
'ok = False
mavar = CInt(Text1.Text)
incr = 1024
temp = 0
i = 11
lblRes.Caption = "Resultat : "
Do
If incr <= mavar Then
temp = mavar \ incr
mavar = mavar - incr
End If
resP(i) = temp
lstPuiss.AddItem ("2^" & i - 1 & ":" & CBool(temp))
temp = 0
incr = incr / 2
i = i - 1
Loop While incr >= 1
For i = UBound(resP) To LBound(resP) Step -1
If resP(i) <> 0 Then lblRes.Caption = lblRes.Caption & " + 2^" & i - 1
Next i
End Sub
Conclusion :
Zip Is Easier for Debugging :)
Très simple probablement déjà dans plusieurs sources du site (Supposition)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.