|
 |
 |
 |
| |
 Convertion Binaire --> Decimal
Paramètres en entrée : Car (chaîne)
Paramètres en sortie : BinaireDecimal
Description : donne la valeur décimale d'une valeur binaire
Public Function BinaireDecimal#(Car$)
'convertit en numérique une chaîne binaire
'(le type réel permet de traiter des entiers longs sur 32 bits)
MaxLen% = Len(Car$)
Deci# = 0
For X% = 1 To MaxLen%
B% = Val(Mid$(Car$, X%, 1))
Deci# = Deci# + B% * 2 ^ (MaxLen% - X%)
Next X%
BinaireDecimal# = Deci#
End Function
|
|
 |
 |
 |
|