Puissance de 2 : calcul

Soyez le premier à donner votre avis sur cette source.

Vue 9 046 fois - Téléchargée 271 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

hvb
Messages postés
939
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
27 janvier 2009
1 -
"Il est bloquer a 1024 met c tres simple a changer."
Si les admins codes-sources se mettent aussi à faire des fautes de francais incroyables, qui va tenter de faire comprendre aux jeunes cette phrase : "AVANT DE VALIDER MERCI DE VERIFIER L'ORTHOGRAPHE DE VOS TEXTES. (cela peut être un motif de suppression en cas d'abus)" ?

;)
TheSaib
Messages postés
2369
Date d'inscription
mardi 17 avril 2001
Statut
Modérateur
Dernière intervention
26 décembre 2007
13 -
Si tu regardes l'heure de dépot tu comprendras :)... Non bah tu verras pas en fait lol
3h.. et jetais claqué, impardonnable je suis.
hvb
Messages postés
939
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
27 janvier 2009
1 -
héhéhé :)

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.