fr . comp . lang . basic


Service Usenet Gratuit - You The Net .Com Consultez les groupes de news usenet nntp avec www.youthenet.com Postez et suivez voos fils de discussions gratuitement avec you the net .com le service gratuit de news en ligne

Re: significations des opérateurs \ et * sur Fr Comp Lang Basic



Groupes les plus fournis
comp mail serveurs soc religion comp os ms-windows xp rec arts musique metal tv tnt lettres langues-anciennes grec usenet-fr emile durkheim rec tv series comp graphisme pao petites-annonces rencontres comp lang perl comp sys mac programmation comp usenet lecteurs-de-news sci astronautique informations sci psychologie soc alcoolisme lettres langues-anciennes latin misc actualite rec sport arts-martiaux


Derniers posts youthenet
Re: Démission pour création d'entreprise commerce ou service Que pensez-vous de la doctrine de James Madison ? Re: envoi des données à un serveur html la demeure du chaos Re: Alice au pays de Free (d'après la t ribune) Re: Est-ce ue violation de la GPL? Re: L'ultra libéralisme du chemin de fer prôné par Sarkozy... Président langue de bois ? la compagnie de l'autre

actualité

Basic le pigeon voyageur s'est posé au Hainaut
La Voix du Nord - 24 oct 2008
Dragana Basic sort, au profit d'Émilie Petkovic. Image trompeuse d'une joueuse que le Hainaut a recrutée pour en faire sa patronne. L'avenir dira si Dragana ...
source

actualité

Les Cigales, des investisseurs au service du développement ...
La Voix du Nord - 8 nov 2008
Ont notamment été aidés : le parc récréatif Kid &Boul, les magasins Opale bio (Boulogne), « Basic Ethnic » (Boulogne, aliments et cosmétiques ethniques) ou ...
source

Accueil |  Ajouter aux Favoris |  Inscription |  connexion |  Flux RSS de fr.comp.lang.basic |

fr . comp . lang . basic

Re: significations des opérateurs \ et *



accueil . fr . comp . lang . basic




Re: significations des opérateurs \ et *

   
Sujet: Re: significations des opérateurs \ et *
De: vlepage (l' arobase) aol.com (val)
Groupes: fr.comp.lang.basic
Organisation: http://groups.google.com
Date: 15. Mar 2008, 11:45:35
On 14 mar, 20:19, "Jean-marc" <NO_SPAM_jean_marc...@yahoo.fr.invalid>
wrote:
val wrote:
Bonjour,

Je transcris un programme vb en c mais je ne sais pas comment
interpréter les opérateurs
\ (anti slash) et * (étoile) dans le code suivant d'un calcul de CRC.

  tCRC = 0
  For x = 1 To Len(sData)
    tIndex = ((tCRC \ &H100&) And &HFF&) Xor Asc(Mid(sData, x, 1))
    tCRCa = ((tCRC And &HFF&) * &H100&)
    tCRCb = tTable(tIndex) And &HFFFF&
    tCRC = (tCRCa Xor tCRCb) And &HFFFF&
  Next
  CRC16 = tCRC And &HFFFF&

Du coup la traduction devient triviale :

// Il suffit de mettre les bonnes constantes dans tTable ...

#include<stdio.h>
#include<string.h>
#include<stdlib.h>

long tTable[256] =   {  0x00, 0x01, 0x02, 0x04,
                        0x05, 0x06, 0x07, 0x08
                        /* define constants here */
                     };

long CRC16(unsigned char *sData)
{
long tCRC      = 0L;
long tIndex    = 0L;
long tCRCa     = 0L;
long tCRCb     = 0L;
long size      = 0L;
long i         = 0L;

   size = strlen(sData);
   for(i = 0L; i<size; i++)
   {
      tIndex = ((tCRC >> 8) & 0xFF) ^ sData[i];
      tCRCa  = (tCRC & 0xFF) << 8;
      tCRCb  = tTable[tIndex] & 0xFFFF;
      tCRC   = (tCRCa ^ tCRCb) & 0xFFFF;
   }
   return tCRC & 0xFFFF;

}

int main(void)
{
unsigned char testString[] = "COUCOU LES GARS";
long crc = 0L;

   crc = CRC16(testString);

   printf("crc = %ld\n", crc);

   return 0;

}

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB:http://faq.vb.free.fr/
mailto: remove '_no_spam_' ; _no_spam_jean_marc...@yahoo.fr- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Super ! Plus qu'à rajouter

unsigned char hextab[] = "0123456789ABCDEF";
  putchar(hextab[(tCRC >> 4) & 0x0F]);
  putchar(hextab[tCRC & 0x0F]);
  putchar(hextab[(tCRC >> 12) & 0x0F]);
  putchar(hextab[(tCRC >> 8) & 0x0F]);

pour avoir les deux octets du CRC en hexa.

Merci !

val


Date Sujet  Auteur
14.03. * significations des opérateurs \ et *val
14.03. +- Re: significations des opérateurs \ et *Jean-marc
14.03. `* Re: significations des opérateurs \ et *Jean-marc
15.03.  `* Re: significations des opérateurs \ et *val
15.03.   `- Re: significations des opérateurs \ et *Jean-marc
Derniers articles
petites-annonces informatique autos mitsubishi jobs offres jobs demandes jobs d jobs misc finance soc politique soc environnement usenet forums evolution petites-annonces photo petites-annonces musique comp os linux debats comp reseaux ip comp lang python

Derniers messages
petites-annonces informatique autos mitsubishi jobs offres jobs demandes jobs d jobs misc finance systemes gps soc politique comp applications genealogie soc environnement usenet forums evolution misc engueulades sci philo lettres langue francaise

actualité

Basic le pigeon voyageur s'est posé au Hainaut
La Voix du Nord - 24 oct 2008
Dragana Basic sort, au profit d'Émilie Petkovic. Image trompeuse d'une joueuse que le Hainaut a recrutée pour en faire sa patronne. L'avenir dira si Dragana ...
source

actualité

Promo sur Drumagog Basic
Mac Music - 30 oct 2008
WaveMachine Labs vient d'annoncer que jusqu'à la fin de l'année Drumagog Basic serait commercialisé à un tarif de 99$ contre 199$ en temps normal. ...
source


 




Copyright 2008 ©  - YouTheNet.com

| conua.com |