gigi75
Nombre de messages : 101
Age : 51
Date d'inscription : 13/04/2013
 | | Sujet: Convertisseur de base 10 de 2 à 36 Sam 14 Oct 2017 - 16:36 | |
| Bonjour,
J'ai retrouvé ceci sur une vielle clé USB, un convertisseur de base 2 en ce que vous voulez (Jusqu'à 36).
Cela ne servira à personne, le voir fonctionner, est génial.
Ne vous attendez pas à un programme hyper pratique, il ne sert à rien. Il est mal fait, il peut-être plus court.
Il est dans mon webdav.
gilles | |
|
Marc
Nombre de messages : 2389
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014
| | Sujet: Re: Convertisseur de base 10 de 2 à 36 Sam 14 Oct 2017 - 20:18 | |
|
Bonjour Gilles,
Merci pour ton partage.
La présentation est propre et le programme parfaitement fonctionnel.
J'en ai profité pour jeter un œil sur le programme de l'image radar ainsi que sur ta vidéo de ton robot.
C'est super! Bravo !
| |
|
gigi75
Nombre de messages : 101
Age : 51
Date d'inscription : 13/04/2013
| | Sujet: Merci Sam 14 Oct 2017 - 20:54 | |
| Pour la base le programme est très long,
Mais c'est un programme bien inutile.
| |
|
papydall
Nombre de messages : 7004
Age : 73
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
| | Sujet: Re: Convertisseur de base 10 de 2 à 36 Mar 17 Oct 2017 - 16:52 | |
| Et si on convertissait de la base 10 à la base ... 256 ? ça donne ceci : - Code:
-
rem ============================================================================
rem Conversion de la base 10 vers la base 256
rem les "chiffres" de la base 256 sont les caractères du code ASCII
rem ============================================================================
dim n,s$,result$
width 0,1050 : height 0,800 : color 0,150,100,50
alpha 10 : top 10,10 : left 10, 250 : font_bold 10 : font_name 10,"arial"
font_size 10,20 : font_color 10, 0,255,255 : caption 10,"Conversion base 10 vers base 256"
for n = 1 to 5
list 100*n : height 100*n, 700 : width 100*n, 170 : top 100*n, 50 : left 100*n, 200*n-180
color 100*n,0,0,255 : font_color 100*n,255,255,0 : font_bold 100*n
next n
for n = 1 to 255
Decimal_To_Base256(n)
if n < 100 then s$ = " "
if n < 10 then s$ = " "
if n < 51
item_add 100, s$ + str$(n) + " décimal = " + result$ + " base 256"
else
if n < 102
item_add 200, s$ + str$(n) + " décimal = " + result$ + " base 256"
else
if n < 153
item_add 300, s$ + str$(n) + " décimal = " + result$ + " base 256"
else
if n < 204
item_add 400, s$ + str$(n) + " décimal = " + result$ + " base 256"
else
item_add 500, s$ + str$(n) + " décimal = " + result$ + " base 256"
end_if
end_if
end_if
end_if
next n
' ******************************************************************************
end
rem ============================================================================
SUB Decimal_To_Base256(nombre_decimal)
dim_local q,r,c$
q = nombre_decimal : result$ = ""
while q > 0
r = mod(q,256) : q = int(q/256)
c$ = chr$(r) : result$ = c$ + result$
end_while
end_sub
rem ============================================================================
Remarquez l’élégance du code de la procédure SUB Decimal_To_Base256(nombre_decimal) | |
|
gigi75
Nombre de messages : 101
Age : 51
Date d'inscription : 13/04/2013
| | Sujet: Convertisseur de base 10 de 2 à 36 Mar 17 Oct 2017 - 17:49 | |
| bonjours PAPYDALL,
J'en conviens, plus court, merci à toi
gilles | |
|
Contenu sponsorisé
| | Sujet: Re: Convertisseur de base 10 de 2 à 36 | |
| |
|
Calendrier