Tecking
Nombre de messages : 114
Age : 35
Localisation : Toulouse
Date d'inscription : 30/05/2010
 | | Sujet: conversion hexa Dim 25 Juil 2010 - 18:36 | |
| 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...  | |
|
Klaus
Nombre de messages : 12274
Age : 74
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: conversion hexa Dim 25 Juil 2010 - 18:47 | |
| 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 ! | |
|
Jean Claude
Nombre de messages : 5948
Age : 69
Localisation : 83 Var
Date d'inscription : 07/05/2009
| | Sujet: Re: conversion hexa Jeu 29 Juil 2010 - 11:51 | |
| 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 | |
|
jjn4
Nombre de messages : 2690
Date d'inscription : 13/09/2009
| | Sujet: +++ Jeu 29 Juil 2010 - 18:44 | |
| Et en plus, c'est pas de moi !  | |
|
Jean Claude
Nombre de messages : 5948
Age : 69
Localisation : 83 Var
Date d'inscription : 07/05/2009
| | Sujet: Re: conversion hexa Jeu 29 Juil 2010 - 20:26 | |
| Bon hé bien que l'auteur se fasse connaitre.
C'est un petit Prog bien pratique...
A+ | |
|
Calendrier
