AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 04 21:19:10
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

SAVOIR SI UN NOMBRE EST PAIR OU IMPAIR


Information sur la source

Catégorie :Maths Classé sous : tester, parité, pair, impair, nombre Niveau : Débutant Date de création : 23/08/2000 Vu : 18 389
Auteur : Mr X Ecrire un message privé
Note :
6,4 / 10 - par 5 personnes
6,40 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

Description

xIsEven test si un nombre est pair, xIsOdd test si un nombre est impair.
 

Source

  • '***********************************************************************************************************
  • ' Name : xIsEven
  • ' Purpose : Test if a number is even.
  • ' Syntax : xIsEven(Number)
  • ' Parameters : Number : Number to be tested
  • ' Return : True or False
  • '***********************************************************************************************************
  • Public Function xIsEven(ByVal Number As Long) As Boolean
  • xIsEven = Not -(Number And 1)
  • End Function
  • '***********************************************************************************************************
  • ' Name : xIsOdd
  • ' Purpose : Test if a number is odd.
  • ' Syntax : xIsOdd(Number)
  • ' Parameters : Number : Number to be tested
  • ' Return : True or False
  • '***********************************************************************************************************
  • Public Function xIsOdd(ByVal Number As Long) As Boolean
  • xIsOdd = -(Number And 1)
  • End Function 
'***********************************************************************************************************
' Name       : xIsEven
' Purpose    : Test if a number is even.
' Syntax     : xIsEven(Number)
' Parameters : Number : Number to be tested
' Return     : True or False
'***********************************************************************************************************
Public Function xIsEven(ByVal Number As Long) As Boolean
    xIsEven = Not -(Number And 1)
End Function


'***********************************************************************************************************
' Name       : xIsOdd
' Purpose    : Test if a number is odd.
' Syntax     : xIsOdd(Number)
' Parameters : Number : Number to be tested
' Return     : True or False
'***********************************************************************************************************
Public Function xIsOdd(ByVal Number As Long) As Boolean
    xIsOdd = -(Number And 1)
End Function

Commentaires et avis

signaler à un administrateur
Commentaire de Zeroc00l le 12/05/2002 15:17:00

Je suis tout a fait d'accord avec Wardall
Franchement je vois pas l'interet de faire des function pour ce genre de truc.
Mod 2 suffit amplement ...
Mais bon on vit dans une societe libre ( ca reste a prouver ...)
Evitez ce genre de source SVP c'est trop simple ...

signaler à un administrateur
Commentaire de Arecibo le 01/06/2003 15:02:55

Je vais peut être répeter ce qu'ont dit les autres mais un simple Mod 2 suffit...

signaler à un administrateur
Commentaire de loskiller62 le 28/02/2005 15:21:13

C'est bien ce que je pensais. Le And utilisé par Mr X est une fonction de plus bas niveau que le Mod. et est donc plus efficace.
Après tests sur des valeurs aléatoires on peut constater que la fonction de Mr X est 10% plus rapide que la fonction utilisant le Mod.
Vu que je travaille sur de grosses analyses vous ne m'en voudrez donc pas de préférer la solution de Mr X  :o)
Bravo à toi! 8/10

signaler à un administrateur
Commentaire de BruNews le 28/02/2005 15:43:11 administrateur CS

Comment ça de 10% ???
AND est une operation binaire en 1 cycle !!! alors que le modulo est une division qui emploie au bas mot de 16 à 20 cycles processeur.
Alors qu'il suffit de tester le bit 0 pour savoir si un nombre est impair, on ne va tout de même pas aller faire une division, ce serait du délire complet.

If nbr And 1 Then IMPAIR
Else PAIR

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

calcul du bit de parité (pair ou impair) [ par senga34 ] Bonjour ! Etant débutant dans VB, qui peut m'indiquercomment faire pour générer le bit de parité pair ou impair , sachant que je sais TextBox [ par RS8 ] Bonjour, j'ai (de nouveau !) un problème en vb6!Sur ma feuille j'ai plusieurs Textbox et je voudrais tester si la valeur entrée par l'utilisateur est Tester si mes macros de mise à jour ce sont bien déroulées [ par SLEHOUX ] Bonjour à toutes et à tous ,Je cherche un moyen de faire un rapport sur l'éxécution de toutes mes macros exécuter quotid Tester si un nombre est entier ? [ par typhoon_74 ] Bonjour , J'ai essayé ce code dans mon programme pour tester si mon nombre était entier mais cela ne marche pas ... Le voici :If A <> Fonction Pair en vb [ par tortuegenie ] Bonjour à tous,j' ai un tout petit souciJ'utilise Excel et vb pour un programme.Dans Excel il existe une fonction PAIR(nombre) qui arrondit Image d'un fichier AVI [ par Janeo ] Bonjour, Comment faire pour aller chercher une image bien précise (par ex : image n°3) dans un fichier vidéo du type AVI, à partir d'un nombre qui m' compter le nombre de lignes cachés dans excel [ par Larsen21 ] Bonjour, je souhaiterai savoir quel est le code pour compter le nombre de lignes cachées dans une feuille excel. En effet, je développe un limiter le nombre de classeur excel qui peuvent-être ouvert dans la session Excel courante. [ par yocrita ] Bonjour,En fait j'ai fait une sorte de petit logiciel sous excel et j'aimerai changer la limite (si c'est possible) des classeurs qui peuvent-êtr probleme requete SQL avec nombre decimaux [ par stephG01 ] bonjour mon probleme vient du separateur decimal .dans une application develloppe sous access 2000 avec la virgule , j'ai une erreur le nombre de cham calculatrice VBA [ par abyss7500 ] voila, je dois réalisée une calculatrice sous vba est je galère. j'ai reussi à faire afficher les chiffres mais pour les opér


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version


Tomtom GO 740 LIVE
Entre 349€ et 508€


Visiter le guide achat

Photothèque Nouveau !

Photo sitges beachPhoto Cockpit Airbus A320
Photo homme nuPhoto ballon de basket

Visiter la 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
Temps d'éxécution de la page : 1,794 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.