conversion hexa

Soit je ne les ais pas trouvé, soit il nous les manque:

A = HEX(A$)
A$ = HEX$(A)

exemple

Dim A$ = "4D"
Dim A
A = HEX(A$)
' A = 77

A = 511
A$ = HEX$(A)
' A$ = "1F"

conversion numerique-hexa.

Je te donne le principe pour t'avancer Jack, bien que je ne doute pas de tes compétence :

Pour HEX :

Code:: INT I, J, K, K$, A, A$

I = LEN(A$)
A = 0

FOR J = 1 TO I
K$ = Mid$(A$, I+1-J,1)
SELECT K$
CASE "A"
K = 10
CASE "B"
K = 11
CASE "C"
K = 12
CASE "D"
K = 13
CASE "E"
K = 14
CASE "F"
K = 15
CASE Other
K = VAL(K$)
END_SELECT
A = A + K*POWER(16, J-1)
NEXT J

Si tu veux que je t'avance sur HEX$ ya qu'à demander... Wink

Il y a plusieurs sous-programmes de conversion hexa-décimal et inverse sur le forum. Cherche un peu et tu trouveras. Plusieurs d'entre nous en ont eu besoin et ont créé des solutions - alors n'hésite pas : c'est un libre-service !

D'accord avec toi klaus, j'ai même fait le mien :
https://panoramic.1fr1.net/vos-sources-vos-utilitaires-a-partager-f2/conversion-decimale-hexadecimale-t1007.htm#8011

mais que ce soit intégré ne serait pas une mauvaise chose, du moins je pense.

mais bon rien est pressé... flower

J'ai çà sur mon bureau, je m'en sert souvent.

à l'époque je ne gardait pas les noms de auteurs, ce que je fais maintenant, mais de mémoire je crois que c'est JJN4.

Code:: dim i%,j,cod$,a$,k,nom$,num,titre$
label point,debut,fin
list 1
left 1,25 : top 1,40 : width 1,150 : height 1,350
font_size 1,10
font_names_load 1
full_space 0
font_size 0,11

alpha 2 : font_name 2,"arial"
left 2,40 : top 2,420 : width 2,100 : height 2,25
caption 2,AFFICHER
on_click 2,debut
alpha 3 : font_name 3,"arial"
left 3,45 : top 3,480 : width 3,100 : height 3,25
caption 3,QUITTER
on_click 3,fin
alpha 4 : hide 4 : left 4,400 : top 4,15
font_name 4,"arial"
2d_line 20,416,140,416
2d_line 140,416,140,441
2d_line 140,441,20,441
2d_line 20,441,20,416
2d_line 20,476,140,476
2d_line 140,476,140,501
2d_line 140,501,20,501
2d_line 20,501,20,476
end
debut:
font_color 2,255,0,0
wait 500
font_color 2,0,0,0
num= item_index(1)
if num=0 then return
nom$= item_read$(1,num)
cls
2d_line 20,416,140,416
2d_line 140,416,140,441
2d_line 140,441,20,441
2d_line 20,441,20,416
2d_line 20,476,140,476
2d_line 140,476,140,501
2d_line 140,501,20,501
2d_line 20,501,20,476
titre$ = nom$ + " "
show 4 : caption 4,titre$
k=0 : j=0
font_name 0,nom$
display
for i%=1 to 255
cod$ = str$(i%) + "= " + chr$(i%)
j=j+1
print_locate 180+k*100,25+j*26
print cod$
if j>25 then gosub point
next i%
2d_line 20,416,140,416
2d_line 140,416,140,441
2d_line 140,441,20,441
2d_line 20,441,20,416
2d_line 20,476,140,476
2d_line 140,476,140,501
2d_line 140,501,20,501
2d_line 20,501,20,476
return
point:
k=k+1
j=0
return
fin:
font_color 3,255,0,0
wait 500
font_color 3,0,0,0
wait 100
terminate

EDIT: je suis à coté du sujet, il s'agit des codes ASCII

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Et en plus, c'est pas de moi !
Laughing

Bon hé bien que l'auteur se fasse connaitre.

C'est un petit Prog bien pratique...

A+

tout bonnement génial, le seul hic c'est que j'ai un netbook 1024*600 je vais donc me rajouter une scroll bar.

pour ce qui est du convertisseur en voila un, le sujet est resolu :

https://panoramic.1fr1.net/vos-sources-vos-utilitaires-a-partager-f2/conversion-decimale-hexadecimale-t1007.htm

PS : merci encore JL35.

» conversion héxa en décimal
» Conversion hexa/décimal (erreur, annulé)
» Une petite calculette en Hexa
» Conversions Décimal<->Hexa
» Notions élémentaires de binaire et hexa