J' ai une Ams 2.05 :Pas trouvé de kernel - Page 7

Mes programmes sont doppés

Et je viens de comprendre pourquois il était aussi rapide
Il fonctionne pas Il coupe au nombre voulue, sans se soucié des espaces
Du coup, le mien devrait être au moins aussi rapide que le tiens, quand il coupe correctement les phrases.

J'aimerais bien que tu fasses le teste de vitesse. C'est juste pour dissiper un doute, pas pour savoir qui est le meilleur ou quois que se soit.
Voilà le source:

chaine(str,nbr)

{}->lst
While dim(str)>nbr
min(inString(str,"©"),nbr)->b
If b=0 then
For b,nbr,1,-1
If mid(str,b,1)=" "
Exit
EndFor
EndIf
left(str,b-1)->lst[dim(lst)+1]
right(str,dim(str)-b)->str
EndWhile
str->lst[dim(lst)+1]

Un petit détail, si tu veux que t'es phrase soit coupé en 20 caratère, il faut mettre 21 en argument.

Si, il faisait gaffe aux espaces
Je l'ai utilisé un moment pr afficher les posts alors si il coupait les mots je l'aurais vu

Bon de tte façon je l'ai refait tt à l'heure en histoire, et maintenant il compte au pixel et non au nombre de lettres. Et il va vite

Ben pas chez moi

Et c'est quois le truc du pixel

Eh bien étant donné que la petite police n'est pas proportionnelle, c'est stupide de demander de couper à 20 lettres max, puisqu'une chaine de "m" est presque 3 fois plus longue qu'une chaine de "i". Donc j'ai refait l'algo et maintenant tu lui demande de couper pr que les bouts de chaines ne dépassent pas un certain nombre de pixels

Un truc totalement inutile sur 92+, en fait

Sur 92, non, mais pr les 2 grandes polices, oui. Enfin tant pis ça ralenti pas bcp, et j'en avait besoin.

Tu utilises Vertel ?

Bah oui, c le seul moyen pr connaitre la longueur de la chaine

Maintenant que j'y pense, Il devrait exister un moyen extrèmement plus rapide et plus petit pour faire un truc du genre. J'en suis pas sur, c'est mon cerveau qui vient juste de me sortir ça

On va voir ça

Par contre, est-ce que tu peut faire le teste de vitesse sur le code, c'est juste pour vérifier si "plus un programme est petit, plus il est rapide".

Pas la peine de vérifier, en effet un programme tourne de moins en moins vite quand il grossi. Mais bon la on est encore autours des 500 octets c pas tellement visible...

Bon, si tu le dis
Je te fais confiance

tu devrais pas

nan la pr 1 fois c pas une connerie, j'ai essayé

Comment ai-je pus passer à coter

" Bah oui, c le seul moyen pr connaitre la longueur de la chaine"
Nan, il y a FLib

Oui bon ok... J'y ait pensé en écrivant... Mais bon

[img][/img]

Heu... Faut mettre l'image à afficher dans les balises

(juste histoire de se manifester quand j' ai plus grand chose a dire....
Mais ca reviendra.

Il est trop bien ton prof de phy

Ouais c marrant surtout que quand j' écoutes pas ses blagues je programme et il me fout la paix!

Pendant le dernier cour j' ai fait un programme qui fait des cartes tou seul pour un RPG,
Et ca marche presque au 4/5 (evalué par rapport a l' objectif recherché.)

ça donne quoi comme genre de cartes ?

Tien au fait avec les niveaux de gris de flib on peut untiliser les lines et les fonction
de la calc comme d' hab ou pas?

non, les gris seront désactivés à la fin de flib.

qu'est-ce que t'entends pas "tout seul" ? C'est un prog qui génere des map aléatoires ? Quel genre de map ? Ça peut être interessant ça

En fait au départ j y croyais pas trop...

Mais j' explique mon système de cartesy a des truc qui servent a rien mais c' est correct et facilement optimisable)
le rpg est fait a partir d' un jeu sur Casio mais j' ai fait les progs tt seul,
En fait on affiche un chemin vu d' audessus, il y aquatres directions:
gauche , droite , haut ,bas.
Dans la matrice on trouve:
0.2 pour en bas,
0.04 pour la gauche,
0.006 pou la droite,
0.0008 pou le haut
Dans le progs je me débrouilles avec floor() et fpart() pour avoir des chiffres:
ex pour récuperer le 6 ou le 0 qui le rmplace::Card[y,x](@dans un double for endfor avec x et y en uncréments@)->Lieu
lieu*1000->L61
Floor(L61)/10->L62
Fpart(L62)*10->L6
donc l6 = 6 ou 0 selon la mat.
Dans le if,on fait:if L6 = 6 then
line
line etc...
Voila pour le rpg je commence pour le createur de carte.

Bon j' éspère que c tai comprhensible.

Creat(C,L)
@(colonne ligne)
rand(8)->R

For y,2,L
For x,2,C
If r=1
0.2468->card[x,y]
If r=2
0.2008->card[x,y]
If r=3
0.0468->card[x,y]
If r=4
0.246->card[x,y]
etc... jusqau 8.
endfor
endfor
Voila pour la 1ere boucle je tapes la suite tt de suite si ca interresse qq un