DEBUTANT - VB 2005

Le
Nesta
Bonjour à tous,

Je souhaite savoir comment faire pour repérer des nombres pairs qui sont
inscrit dans l'option text d'un textbox.
Comment est-possible svp ?
Merci d'avance pour votre aide.


Nesta
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jean-marc
Le #15414901
Nesta wrote:
Bonjour à tous,

Je souhaite savoir comment faire pour repérer des nombres pairs qui
sont inscrit dans l'option text d'un textbox.
Comment est-possible svp ?
Merci d'avance pour votre aide.



Bonjour,

ce groupe est consacré à VB6 et antérieur.

Il existe un groupe dédié à VB 2005:
microsoft.public.fr.dotnet.vb

Pour ce qui est du test de la parité, c'est assez simple.

Si le bit de poids le plus faible vaut 1 alors le nombre est impair.

Donc on récupère la valeur du text dans un long,
puis on teste comme ceci:

Dim Valeur As Long

Valeur = CLng(Text1.Text)

If (Valeur And 1) = 1 Then
MsgBox "Le nombre est impair"
Else
MsgBox "Le nombre est pair"
End If

Bonne suite :-)

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/
Nesta
Le #15414891
Jean-marc a écrit :
Nesta wrote:
Bonjour à tous,

Je souhaite savoir comment faire pour repérer des nombres pairs qui
sont inscrit dans l'option text d'un textbox.
Comment est-possible svp ?
Merci d'avance pour votre aide.



Bonjour,

ce groupe est consacré à VB6 et antérieur.

Il existe un groupe dédié à VB 2005:
microsoft.public.fr.dotnet.vb

Pour ce qui est du test de la parité, c'est assez simple.

Si le bit de poids le plus faible vaut 1 alors le nombre est impair.

Donc on récupère la valeur du text dans un long,
puis on teste comme ceci:

Dim Valeur As Long

Valeur = CLng(Text1.Text)

If (Valeur And 1) = 1 Then
MsgBox "Le nombre est impair"
Else
MsgBox "Le nombre est pair"
End If

Bonne suite :-)



Bonjour Jean-Marc,

Désolé, je me suis trompé de forum.
Mais merci en tout cas pour ce bout de code qui m'aidera très certainement !
A bientôt.

Nesta
Publicité
Poster une réponse
Anonyme