Décalage à droite

Résolu
christophe_martinache Messages postés 4 Date d'inscription lundi 22 mai 2006 Statut Membre Dernière intervention 31 mai 2006 - 31 mai 2006 à 10:11
christophe_martinache Messages postés 4 Date d'inscription lundi 22 mai 2006 Statut Membre Dernière intervention 31 mai 2006 - 31 mai 2006 à 12:48
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

NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 159
31 mai 2006 à 10:37
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)
3
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 159
31 mai 2006 à 10:16
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)
0
christophe_martinache Messages postés 4 Date d'inscription lundi 22 mai 2006 Statut Membre Dernière intervention 31 mai 2006
31 mai 2006 à 10:32
        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
0
christophe_martinache Messages postés 4 Date d'inscription lundi 22 mai 2006 Statut Membre Dernière intervention 31 mai 2006
31 mai 2006 à 12:48
Merci

Chris
0
Rejoignez-nous