Forum de Ti-Gen.org, le site francophone des TI

Bienvenue Invité ! Se connecter Mes sujets	Administrer
Utilisateurs actifs : Aucun membre + 1 visiteur

Avant de poster sur le forum, il y a des régles de bases à respecter pour une bonne entente et un respect de tous.
Veuillez lire la charte du forum.

:: Index » Forum Ti68K » Programmation TI-Basic » Masque reseau! (12 réponse(s))

./POST DE DEPART (post n°0) Marquer comme non lu.

geogeo

Ecrit le: Lundi 21 juin 2004 à 17:01

Fondateur

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 4257

Membre n°3

Inscrit le 29 janvier 2004

Binary (x) convertie un chiffre en binaire, resultat inversé.

binary(x)
func
local intbit
""->intbit
while x>0
intbit&string(mod(x,2))->intbit
int(x/2)->x
endwhile
intbit
endfunc

nbits(x) renvoie le nombre de bit à 1 dans x

nbits(x)
func
local bits
0->bits
while x>0
bits+mod(x,2)->bits
int(x/2)->x
endwhile
bits
endfunc

inttoip(x) convertie un chiffre en adresse ip, résultat retourné dans value.

inttoip(x)
prgm
local bit
24->bit
""->value
while bit>0
value&string(int(x/2^bit) and 255)&"."->value
bit-8->bit
endwhile
value&string(x and 255)->value
endprgm

iptoint(x) convertie une adresse ip en nombre, résultat renvoyé dans value.

iptoint(x)
prgm
local i,start,end,bit
1->start
1->end
0->value
24->bit

for i,1,dim(x)
if mid(x,i,1)="." then
i->end
value+expr(mid(x,start,end-start))*2^bit->value
bit-8->bit
i+1->start
endif
endfor
value+expr(mid(x,start,dim(x)-start+1))*2^bit->value
endprgm

Voilà y a la base donc au boulot. Si les pros du basic trouvent des améliorations, n'hésitez pas!
-Edité le Lundi 21 juin 2004 à 17:03 par geogeo-

Webmaster du site.
Programmeur sur TI68K. Arkanoid, Nebulus, GFA-Basic.

Plus d'informations sur GFA-Basic (un langage Basic pour TI68K).
http://www.tigen.org/gfabasic

./Post n°1 Marquer comme non lu.

Zilion

Ecrit le: Lundi 21 juin 2004 à 17:15

Membre: Newbie

Messages: 1

Membre n°317

Inscrit le 21 juin 2004

merci geogeo

je vaisvoir comment on fé

./Post n°2 Marquer comme non lu.

Lionel Debroux

Ecrit le: Lundi 21 juin 2004 à 17:19

Envoyer un message privé à Lionel Debroux

Membre: Maître Ultime

Messages: 1721

Membre n°10

Inscrit le 31 janvier 2004

Peut-être utiliser des shifts / rotates ?

Lionel Debroux - membre de TICT.

./Post n°3 Marquer comme non lu.

bobti89

Ecrit le: Lundi 21 juin 2004 à 17:29

Membre: Maître Ultime

Messages: 2494

Membre n°45

Inscrit le 09 février 2004

Pour le premier, le résultat inversé est pas très utilisable dans certains cas.
J'étudie la question...

bob ou bob, vous ne voyez pas la différence. Pourtant il y en a une fondamentale, l'un est écrit à l'endroit, l'autre à l'envers.

Visitez mon site : http://www.bobti89.fr.st
Testez mon forum ici

./Post n°4 Marquer comme non lu.

bobti89

Ecrit le: Lundi 21 juin 2004 à 17:42

Membre: Maître Ultime

Messages: 2494

Membre n°45

Inscrit le 09 février 2004

Voilà pour le premier :

binary(x)
func
right(string(expr(string(x)&">Bin")),int(ln(2*x)/(ln(2))))
endfunc

J'adore ce genre de basic

bob ou bob, vous ne voyez pas la différence. Pourtant il y en a une fondamentale, l'un est écrit à l'endroit, l'autre à l'envers.

Visitez mon site : http://www.bobti89.fr.st
Testez mon forum ici

./Post n°5 Marquer comme non lu.

mathiniste

Ecrit le: Lundi 21 juin 2004 à 20:57

Membre: Maître Ultime

Messages: 2057

Membre n°189

Inscrit le 12 avril 2004

je vais regarder nbits

la mort n'a aucun rapport avec nous.Quand nous sommes vivants, la mort n'est pas là et quand elle est là, nous ne sommes plus...

./Post n°6 Marquer comme non lu.

mathiniste

Ecrit le: Lundi 21 juin 2004 à 22:04

Membre: Maître Ultime

Messages: 2057

Membre n°189

Inscrit le 12 avril 2004

je n'ai pas encore terminé mais essayez nbits(8): vous obtiendrez 1 au-lieu de 3!

Excusez-moi , j'ai fait une erreur d'inattention et ne vous inquiétez pas, le prog de Geogeo ne bugge pas.
En revanche, j'ai un prog plus court (de 10 octets)

nb(x)
Func
Local a,b
0->b
0->a
While x>=2^a
b+mod(iPart(x/2^a),2)->b
a+1->a
EndWhile
b
Endfunc
-Edité le Lundi 21 juin 2004 à 22:14 par mathiniste-
-Edité le Lundi 21 juin 2004 à 22:21 par geogeo-
-Edité le Lundi 21 juin 2004 à 22:27 par mathiniste-

la mort n'a aucun rapport avec nous.Quand nous sommes vivants, la mort n'est pas là et quand elle est là, nous ne sommes plus...

./Post n°7 Marquer comme non lu.

geogeo

Ecrit le: Lundi 21 juin 2004 à 22:23

Fondateur

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 4257

Membre n°3

Inscrit le 29 janvier 2004

J'ai fais ça vite fait, donc oui y a toujours mieux.

Webmaster du site.
Programmeur sur TI68K. Arkanoid, Nebulus, GFA-Basic.

Plus d'informations sur GFA-Basic (un langage Basic pour TI68K).
http://www.tigen.org/gfabasic

./Post n°8 Marquer comme non lu.

mathiniste

Ecrit le: Lundi 21 juin 2004 à 22:27

Membre: Maître Ultime

Messages: 2057

Membre n°189

Inscrit le 12 avril 2004

a ce propos Geogeo, c'est quoi une adresse ip?

la mort n'a aucun rapport avec nous.Quand nous sommes vivants, la mort n'est pas là et quand elle est là, nous ne sommes plus...

./Post n°9 Marquer comme non lu.

geogeo

Ecrit le: Lundi 21 juin 2004 à 22:45

Fondateur

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 4257

Membre n°3

Inscrit le 29 janvier 2004

http://www.commentcamarche.net/internet/ip.php3

C'est plus simple que de tout expliquer ici.

Webmaster du site.
Programmeur sur TI68K. Arkanoid, Nebulus, GFA-Basic.

Plus d'informations sur GFA-Basic (un langage Basic pour TI68K).
http://www.tigen.org/gfabasic

./Post n°10 Marquer comme non lu.

mathiniste

Ecrit le: Lundi 21 juin 2004 à 23:01