Sujet Précédent Sujet Suivant

Ecriture en base 8 , help me!!!

Résolu
amerie83 Messages postés 2 Date d'inscription lundi 30 avril 2007 Statut Membre Dernière intervention 30 avril 2007 - 30 avril 2007 à 12:21
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 - 30 avril 2007 à 14:45
Bonjour,  
je dois completer la macro suivante:

sub base()
dim v as string
t=8
y=x\t
z=x-t*y
v=cstr(z)
select case y
case Is<1:
Case Is < 8: v = CStr(y) + v
Case Else:
 
 
 
end select
end sub

je dois completer cette macro seulement, j'obtiens des mauvais resultats en affichant v. Si quelqun a des idées, elles seront les bienvenues.
Merci

4 réponses

Réponse 1 / 4
cs_Exploreur Messages postés 4821 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 15
30 avril 2007 à 12:33
Salut,

Moi ce que je comprend pas, c'est pourquoi tu converti un String en numérique ?

sub base()
Dim v as Integer
Dim t as Integer
Dim y as Integer
Dim z As Integer

t= 8
y= x\t
z=(x-t)*y 
v= z
select case v
case Is<1:
Case Is < 8: v = y + v
Case Else: 

end select
end sub

A+
Exploreur

 
3
Réponse 2 / 4
amerie83 Messages postés 2 Date d'inscription lundi 30 avril 2007 Statut Membre Dernière intervention 30 avril 2007
30 avril 2007 à 12:54
en fait v est un string
y est convertit en string pour permettre l'affichage des restes de la division entiere.
3
Réponse 3 / 4
jmfmarques Messages postés 7666 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 27
30 avril 2007 à 13:37
Là, ça devient du n'importe quoi !

je vois un mélande incroyable de strings et d'un opérateur +


 


 
0
Réponse 4 / 4
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 34
30 avril 2007 à 14:45
à noter que la Fonction existe déjà en VB6 en VBA je ne sais pas
    v = oct$(x)

Daniel
0

Discussions similaires

macro pour écriture automatique
thomthom27 -
simH -

3 réponses
Ecriture caractère spécial
papyvore -
f0xi -

11 réponses
Racine cubique
lanosic -
Sammy0007 -

5 réponses
Convertions GT/s, MT/s, GB/s, Mhz
Duke49 -
Duke49 -

7 réponses
Prob de Restauration base de données
cindyb -
Orange -

3 réponses
Rejoignez-nous