Commentçamarche.net
CodeS-SourceS
Rechercher un code, un tuto, une réponse

Puissance de 2 : calcul

0/5 (3 avis)

Vue 7 804 fois - Téléchargée 106 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

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.