Puissance de 2 : calcul

Soyez le premier à donner votre avis sur cette source.

Vue 9 010 fois - Téléchargée 270 fois

Description

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)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de hvb

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.