Décalage à droite [Résolu]

Signaler
Messages postés
4
Date d'inscription
lundi 22 mai 2006
Statut
Membre
Dernière intervention
31 mai 2006
-
christophe_martinache
Messages postés
4
Date d'inscription
lundi 22 mai 2006
Statut
Membre
Dernière intervention
31 mai 2006
-
Je ne parviens pas à réaliser un simple décalage à droite d'une valeur sur 8 bit. Quelle est la synthaxe SVP.

Merci

Chris

4 réponses

Messages postés
14670
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
28 mars 2020
139
Bonjour

Dans ce cas, divise le nombre par 2.

ps, évite les %, $ et autres signes, préfère les déclaration : Dim NomVar as Long, c'est plus parlant.
Pense aussi à mettre Option Explicit en haut de chaque module, form, cela permettra à ton programme d'aller plus vite.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)
Messages postés
14670
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
28 mars 2020
139
Bonjour

clng(Valeur / 256)
clng(Valeur/&h100)

Voila qui devrait répondre à ta question.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)
Messages postés
4
Date d'inscription
lundi 22 mai 2006
Statut
Membre
Dernière intervention
31 mai 2006

        toto% = (ctrl1% And &HFE)
1ère opération foraçage du bit Pfaible à 0

Puis je souhaite décaler toto d'un cran à droite (suppression du bit 0)

Comment faire?

Chris
Messages postés
4
Date d'inscription
lundi 22 mai 2006
Statut
Membre
Dernière intervention
31 mai 2006

Merci

Chris