WDForge.org - Forums - WD 12 - chaine vers Hexa comme dans le débugeur

Index des forums WDForge.org

WD 12

chaine vers Hexa comme dans le débugeur

Bas

Suivant S'enregistrer pour contribuer

	chaine vers Hexa comme dans le débugeur	#1
Utilisateur WDF Inscrit: 25/10/2006 10:29 Post(s): 93	Bonjour, Je traduit un programme VB -> Windev et je bloque sur un bout de traduction En VB je peux récupérer une clé de la base de registre directement dans un tableau avec valeurs hexadécimal. Sous Windev je récupère une chaine non héxa. Impossible de la convertir en héxadecimal dans le code alors que la fonction héxa du déboguer fonctionne très bien ! Ce que je cherche a faire c'est reproduire cette fonctionnalité du débogueur. Si quelqu'un à une idée Merci ! Contribution le : 26/07/2008 13:00
Utilisateur WDF Inscrit: 25/10/2006 10:29 Post(s): 93

Re: chaine vers Hexa comme dans le débugeur

Stagiaire WDF

Inscrit:
23/12/2004 18:25

De Rennes

Post(s): 35

Bonjour,

Voir code que donne la soucoupe de windev:

//-- début code généré par l'assistant --
// Conversion du décimal 1203 en hexadécimal
Info("1203 = "+EntierVersHexa(1203))
//--fin code généré par l'assistant --

FONCTION EntierVersHexa(Num)
ValD est un entier
ValH est une chaîne
Reste est un entier
ValD=Num
Boucle 
    // On récupère le reste de la division par 16
    Reste=Modulo(ValD,16)
    // On le convertit en chiffre hexadécimal
    // et on le place au début du résultat
    Selon Reste
        CAS 10: ValH="A"+ValH
        CAS 11: ValH="B"+ValH
        CAS 12: ValH="C"+ValH
        CAS 13: ValH="D"+ValH
        CAS 14: ValH="E"+ValH
        CAS 15: ValH="F"+ValH
        Autres cas: ValH=Reste+ValH    
    fin
    // On récupère la partie entière de la division par 16
    ValD=ValD/16
    // On arrête quand on arrive à 0
    si ValD=0 alors sortir
fin
// Renvoie le résultat

RENVOYER ValH

Bonne journée

Vince
http://vroy1.free.fr/wpfr/

Contribution le : 28/07/2008 15:06

	Re: chaine vers Hexa comme dans le débugeur	#3
Utilisateur WDF Inscrit: 15/09/2006 17:34 Post(s): 77	Bonsoir, `nTest est entier sHexa est chaine sHexa = "0x"+NumériqueVersChaîne(nTest, "08X" )` Contribution le : 28/07/2008 21:44
Utilisateur WDF Inscrit: 15/09/2006 17:34 Post(s): 77

	Re: chaine vers Hexa comme dans le débugeur	#4
Stagiaire WDF Inscrit: 23/12/2004 18:25 De Rennes Post(s): 35	En effet, avec numeriqueverschaine, c est vraiment plus simple ;) Contribution le : 29/07/2008 14:03

Haut

S'enregistrer pour contribuer

Vous ne pouvez pas débuter de nouveaux sujets.

Vous pouvez voir les sujets.

Vous ne pouvez pas répondre aux contributions.

Vous ne pouvez pas éditer vos contributions.

Vous ne pouvez pas effacez vos contributions.

Vous ne pouvez pas ajouter de nouveaux sondages.

Vous ne pouvez pas voter en sondage.

Vous ne pouvez pas attacher des fichiers à vos contributions.

Vous ne pouvez pas poster sans approbation.