begin process at 2012 02 16 04:48:42
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Maths

 > PUISSANCE DE 2 : CALCUL

PUISSANCE DE 2 : CALCUL


 Information sur la source

Note :
Aucune note
Catégorie :Maths Niveau :Débutant Date de création :27/01/2003 Date de mise à jour :27/01/2003 11:53:29 Vu / téléchargé :6 501 / 91

Auteur : TheSaib

Ecrire un message privé
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

 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

  • 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
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)  

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip JOYSTICK , MANETTE GESTION EXEMPLE
ADRESSE IP PAR L'API WINSOCK
Source avec Zip Source avec une capture VALIDATION XML
CREATION DE FORM PAR API
MARRE DES JEUX HANOI SANS LES SOLUTIONS :)

 Sources de la même categorie

Source avec Zip Source avec une capture CONVERTISSEUR HEXAVIGÉSIMAL par shaeks
Source avec Zip Source avec une capture Source .NET (Dotnet) CRYPTOGRAPHIE AFFINE par Tigrou66
Source avec Zip Source avec une capture SCANNER FLEX par lajouad
Source avec Zip EQUATIONSECONDDEGRÉ,MATH,DEGRÉ par shadkitenge
Source avec Zip Source .NET (Dotnet) SOMME DE CHIFFRES CONTENUE DANS UN NOMBRE par alpha5

Commentaires et avis

Commentaire de hvb le 27/01/2003 11:49:16

"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)" ?

;)

Commentaire de TheSaib le 27/01/2003 11:52:15 administrateur CS

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.

Commentaire de hvb le 27/01/2003 12:24:56

héhéhé :)

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,686 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales