A voir également:
- SVP aider moi sinon j'aurais un 0 en td
- Comment faire un 0 barré sur telephone ✓ - Forum Windows
- Si #n/a alors 0 - Forum Bureautique
- Si sinon excel - Guide
- En informatique, les informations sont codées par des 0 et des 1, appelés bits. un bit correspond à un espace mémoire. parmi les séquences ci-dessous, lesquelles occupent le moins d'espace en mémoire ? - Forum Programmation
- Qualité de signal parabole 0 - Forum TNT / Satellite / Réception
2 réponses
blurk
Messages postés
486
Date d'inscription
vendredi 16 avril 2004
Statut
Membre
Dernière intervention
15 mars 2009
160
20 déc. 2004 à 00:10
20 déc. 2004 à 00:10
désolé, mais
pourquoi ferais-je gratuitement les devoirs
de quelqu'un qui ne veut pas travailler,
alors que je suis au chômage depuis 18 mois ?
tu veux devenir informaticien ?
¤
pourquoi ferais-je gratuitement les devoirs
de quelqu'un qui ne veut pas travailler,
alors que je suis au chômage depuis 18 mois ?
tu veux devenir informaticien ?
¤
je joins une fonction visual basic utilisable jusqu'à la base 200, cela fonctionnerait au delà, le problème c'est de trouver des signes pour
représenter des chiffres
Function cbase(ByVal nb As Long, base As Variant) As String
Dim rep As String
Dim nbetape As Byte
Dim boucle As Byte
Dim modulo As Variant
On Error GoTo fin
nbetape = CByte(Log(nb) / Log(base)) + 1
For boucle = 1 To nbetape
modulo = nb - (Int(nb / base) * base)
If modulo >= 10 Then
modulo = Chr(modulo + 55)
End If
rep = modulo & rep
nb = Int(nb / base)
Next boucle
cbase = rep
Exit Function
fin:
MsgBox ("données invalides")
End Function
représenter des chiffres
Function cbase(ByVal nb As Long, base As Variant) As String
Dim rep As String
Dim nbetape As Byte
Dim boucle As Byte
Dim modulo As Variant
On Error GoTo fin
nbetape = CByte(Log(nb) / Log(base)) + 1
For boucle = 1 To nbetape
modulo = nb - (Int(nb / base) * base)
If modulo >= 10 Then
modulo = Chr(modulo + 55)
End If
rep = modulo & rep
nb = Int(nb / base)
Next boucle
cbase = rep
Exit Function
fin:
MsgBox ("données invalides")
End Function