[mOved] Jamais j'aurais pensé faire ça... - Page 30

Tu plaisante
C'est pas possible
Je pense que j'arriverais presque à gagné 30% en vitesse global du forum si je nettoyait rien que le source. Avec l'opti+le rassemblement des données, je pense multiplié par deux la vitesse par rapport à actuellement.
Qu'est-ce que ça vas être avec toi

Qu'est-ce que ça va être ac moi ? Rien du tout !!!

J'ai regardé rapidement tous les sous-programmes, et je ne vois rien à optimiser qui va vraiment me donner une différence significative.
Interum est et sera lent

Mais c'est pas possible
Envois moi ce truc et je double la vitesse, si je comprend qqc

Tiens, au passage, une édition spécial de [url= http://mapage.noos.fr/azerty83/komp.zip ]TI-yAka beta0.9[/url] en 1 seul fichier. Mais attention tu rique d'avoir des surprise

Ok v essayer ça...

pour Interum, ça va être vite vu, voilà un echantillon du code. Si t'as du mal à comprendre alors y'a peu de chances pr que tu puisse l'accelerer :

(s_chx,s_pth,s_usr)
Prgm
Local l_tmp,l_chx,l_key,l_lst,l_pth,l_drt
Local p_namfil,p_addfil,p_delfil,p_mntfil,p_dssfil

If s_chx=ª1:Goto def_dump

Define p_namfil(s_nam)=Func
Local l_tmp,l_hlp,l_var,l_nam
""»l_var
For l_tmp,1,5
mid(s_nam,l_tmp,1)»l_hlp
If l_hlpžchar(97) and l_hlpœchar(122) or l_hlpžchar(65) and l_hlpœchar(90) Then
l_var&l_hlp»l_var
Else
l_var&"x"»l_var
EndIf
EndFor
For l_tmp,1,99999
"z_"&left(l_var,6-dim(string(l_tmp)))&string(l_tmp)»l_nam
If getType(#l_nam)="NONE"
99999»l_tmp
EndFor
Return l_nam
EndFunc

Define p_addfil(s_var,s_pth)=Prgm
Local l_tmp
s_pth[dim(s_pth)]»l_tmp
augment(augment(left(#l_tmp,4),{s_var}),mid(#l_tmp,5))»#l_tmp
EndPrgm

Define p_delfil(s_chx,s_pth)=Prgm
Define itr_delt(s_chx,s_pth)=Prgm
Local l_tmp,l_hlp,l_dim,l_typ
dim(#s_pth)»l_dim
#(#s_pth[s_chx])[1]»l_typ
If getType(l_typ)"STR":"None"»l_typ
If l_typ="Dossier" Then
dim(#(#s_pth[s_chx]))»l_hlp
For l_tmp,5,l_hlp
itr_delt(5,#s_pth[s_chx])
EndFor
EndIf
DelVar #(#s_pth[s_chx])
augment(left(#s_pth,s_chx-1),mid(#s_pth,s_chx+1))»#s_pth
EndPrgm
itr_delt(s_chx,s_pth[dim(s_pth)])
DelVar itr_delt
EndPrgm

Define p_mntfil(s_chx,s_pth)=Prgm
Local l_tmp
s_pth[dim(s_pth)]»l_tmp
augment(augment(left(#l_tmp,4),mid(#l_tmp,s_chx,1)),augment(mid(#l_tmp,5,s_chx-5),mid(#l_tmp,s_chx+1)))»#l_tmp
EndPrgm

Define p_dssfil(s_chx,s_pth)=Prgm
Local l_tmp
s_pth[dim(s_pth)]»l_tmp
augment(augment(left(#l_tmp,s_chx-1),mid(#l_tmp,s_chx+1)),mid(#l_tmp,s_chx,1))»#l_tmp
EndPrgm

Lbl def_init
{"Fichier","Dossier","Externe","Memoire","Renommer","Modif. Icone","Deplacer","Supprimer","Remonter","Descendre","Utilisateurs","Pseudos","Grades","Droits","Stats","Message"}»l_drt
{"Main"}»l_pth
Goto def_list

Lbl def_menu
itr_menu(l_lst[1],mid(l_lst,2),"x_xtern1")
If ok=0 Then
If x_xtern1[1]="Apps"
Goto def_rkey
If x_xtern1[1]="Esc"
Goto def_prev
EndIf

Lbl def_next
If x_xtern1[2]=dim(l_lst)
Goto def_prev
l_lst[x_xtern1[2]+1]»l_pth[dim(l_pth)+1]
Goto def_list

Lbl def_prev
If dim(l_pth)>1 Then
left(l_pth,dim(l_pth)-1)»l_pth
Goto def_list
Else
Goto def_rkey
EndIf

Lbl def_list
l_pth[dim(l_pth)]»l_chx
If l_chx="Main" Then
{"Options","Creer","Modifier","Gerer","Quitter","Retour"}»l_lst
ElseIf l_chx="Creer" Then
{"Creer","Fichier","Dossier","Externe","Memoire","Retour"}»l_lst
ElseIf l_chx="Modifier" Then
If dim(#(s_pth[dim(s_pth)]))=3 Then
itr_dlog("Erreur",{"Texte",6,"Ce dossier est vide.",1},9,34,149,64)
Goto def_prev
Else
{"Modifier","Renommer","Modif. Icone","Deplacer","Supprimer","Remonter","Descendre","Retour"}»l_lst
EndIf
ElseIf l_chx="Gerer" Then
{"Gerer","Utilisateurs","Pseudos","Grades","Droits","Stats","Message","Retour"}»l_lst
ElseIf l_chx="Quitter" Then
Goto def_quit
Else
CopyVar l_drt,x_xtern3
itr_vrtl("var_srch","x_xtern3",l_chx,"/","exe_retr","x_xtern1")
If y_rights[x_xtern1[1]]>(y_users[3])[s_usr] Then
itr_dlog("Erreur",{"Texte",6,"Vous n'avez pas le grade suffisant.",1},9,34,149,64)
Goto def_prev
EndIf
Goto def_optn
EndIf
Goto def_menu

Lbl def_optn
goto #("opt_"&left(l_chx,4))

je reconnais ton style

C'est à dire ? Donne un adjectif

N'empeche que malgré l'aspect, c'est un code très fonctionnel et plutot rapide je pense... J'aimerais bien savoir coder comme ça en C

Ca vas être dur, avec tous ces goto
Mais, j'essayerais de te faire ça

Prétencieux
Si t'arrive à gagner 10% de vitesse, déjà je m'incinerais, mais n'espere pas trop optimiser ces lignes

C'est vrai qu'en regardant de plus prés, t'as que des If et des For. Je commence à comprendres pourquois c'est lent

Moué... T'as plus rapide ?

Pour l'instant, non. Et je pense pas pouvoir faire quelquechose de plus, à moins de refaire tous les algos de A à Z, ce que je peut pas faire.
Si tous tes progs sont comme ça, tu m'etonnes que l'opti te fasse chier

Et je vois pas l'intéret de foutres des defines partous. Tu perd de la place et de la vitesse, c'est tous.

1) Mes progs sont tous comme ça, mais ne vas pas me dire que c'est lent...
2) Les défines ça ne perd presque rien comme vitesse, et ça m'évite de réécrire 15 fois la même ligne de commande
3) Je ne pense pas qu'on puisse beaucoup optimiser ça... T'as beau dire, je commence a connaitre un peu le TiBasic, et a savoir comparer sans essayer différents algos. Celui la m'a semblé être le + rapide.

1)Je critique pas la vitesse Mais c'est toi qui dis que ça te fais chier d'optimiser tes progs. Et un prog comme ça, ça me fairait chier aussi, déjas que je lutte pour le prog lontext, qui ressemble pas mal à ça (sans les defines).
2)autant faire un sous prog
3)bah... y a toujours d'autres algos possibles auquels on pense pas (j'aimerais bien y penser, d'ailleur, ça m'aiderait beaucoup)

1) C'est pas que ça me fait chier d'optimiser mes progs, mais soit ce prog est déjà pas mal optimisé, soit voilà atteintes mes limites. Ça me semble normal que le prog aille lentement vu tout ce que je lui fait faire, c'est lent mais je n'y peux rien.

2) Aucun interet de faire un sous prog pour 3 lignes, si ce n'est foutre un peu plus le bordel...

3) Peut-être... Alors à ce moment là je n'ai pas le niveau... Mais dois-je te rappeller un algo dans le même style, qui découpait des textes ?

Bob, est-ce que tu pourrais essayer l'édition spécial de la beta0.9.
Elle fonctionne pas (prbm de dossier) mais c'est juste pour voir si elle démarre. Par contre, fait le sur ta 89 et archives tous. Y a des chances pour que ça plante ta calc. Mais, méchant.

Sur ma 89 ???
Je croyais que ton forum était sur 92, et puis je peux pas essayer sur VTI plutot ?

c koi ce source de taré ?

C le mien
Et si qqun pense avoir plus rapide, qu'il me prévienne, sinon qu'il se taise

petites recommendations...
evite les goto c super lent

Pas tant que ça... Du tout façon, y'en a pas bcp, y'a surtout des lbl, mais souvent sans le goto correspondant, c juste pour me repérer dans le code.

ahhh ok...
tu connais les commentaires?
et puis sinon j'ai du mal a voir quoi optimiser effectivement
enfin ton code m'apparait indigeste surtout....
mais chacun sa maniere de coder, je dis pas que le mien sera mieux

Les commentaire j'aime pas... et indigeste, je sais pkoi...

Si tu faisait "remplacer"
l_tmp par t
l_chx par c
l_hlp par h
etc...

ça t'apparaitrait beaucoup plus clair...
Mais bon, mon code apparait indigeste, pour vous. moi il me semble très clair, et surtout je ne peux pas faire bcp mieux.
Si je fais un truc "lisible", ça va voir appraitre bien plus clair, mais ça sera 3 fois plus gros et 3 fois plus lent. Je n'ai pas le niveau pour optimiser encore plus ce truc. MacIntoc avait l'air d'avoir des solutions, je serait curieux de les connaitre. Surtout que cet algo n'est pas particulièrement lent.

lol
c celui qui fait quoi ?

Lui ? il fait pas grand chose, il prépare le menu des options...
En fait, Interum rame surtout à cause de mes boites de dialogue. Elles sont TRES lentes, et comme y'en a partout dans le prog, evidement...

Voilà l'algo entier si qqun arrive à s'y retrouver :

(s_ttr,s_lst,s_px1,s_py1,s_px2,s_py2)
Prgm
Local l_tmp,l_hlp,l_var,l_key,l_ent,l_itm
If s_ttr="ª1":Goto def_dump

Lbl def_init
1»ok
0»l_key
0»l_ent
{1,4}»l_itm
itr_vrtl("txt_wdth",s_ttr,0,"/","exe_retr","x_xtern0")
itr_vrtl("drw_save","x_scrdlg",0,0,159,99,"/","drw_recp",s_px1+1,s_py1+1,s_px2-1,s_py2-1,1,"/","drw_recv",s_px1,s_py1,s_px2,s_py2,49,"/","drw_line",s_px1,s_py1+9,s_px2,s_py1+9,"/","drw_line",s_px1,s_py1+11,s_px2,s_py1+11,"/","txt_draw",s_ttr,int((s_px1+s_px2)/2)-int(x_xtern0[1]/2),s_py1+3)
DelVar x_xtern0

Lbl def_draw
For l_tmp,1,dim(s_lst)-3,4
If s_lst[l_tmp]="Texte" Then
If s_lst[l_tmp+3]=0 Then
s_px1+4»l_hlp
ElseIf s_lst[l_tmp+3]=1 Then
itr_vrtl("txt_wdth",s_lst[l_tmp+2],"/","exe_retr","x_xtern0")
int((s_px1+s_px2)/2)-int(x_xtern0[1]/2)»l_hlp
DelVar x_xtern0
ElseIf s_lst[l_tmp+3]=2 Then
itr_vrtl("txt_wdth",s_lst[l_tmp+2],"/","exe_retr","x_xtern0")
s_px2-4-x_xtern0»l_hlp
DelVar x_xtern0
EndIf
itr_vrtl("txt_draw",s_lst[l_tmp+2],l_hlp,s_py1+s_lst[l_tmp+1]+12)
Else
1»l_ent
itr_vrtl("drw_recv",s_px1+14,s_py1+s_lst[l_tmp+1]+10,s_px2-8,s_py1+s_lst[l_tmp+1]+18,1)
s_lst[l_tmp+when(s_lst[l_tmp]="Input",2,3)]»l_var
s_lst[l_tmp+2]»l_hlp
If getType(#l_var)="NUM" Then
{when(s_lst[l_tmp]="Input","",#l_hlp[#l_var]),#l_var}»#l_var
ElseIf getType(#l_var)="STR" Then
{#l_var,1}»#l_var
Else
{when(s_lst[l_tmp]="Input","",#l_hlp[1]),1}»#l_var
EndIf
itr_vrtl("txt_draw",#l_var[1],s_px1+16,s_py1+s_lst[l_tmp+1]+12)
EndIf
EndFor

Lbl def_item
If l_ent=0 Then
getKey()»l_key
Goto def_tkey
Else
While s_lst[l_itm[1]]="Texte"
l_itm[1]+l_itm[2]»l_itm[1]
If l_itm[1]<1 Then
dim(s_lst)-3»l_itm[1]
ElseIf l_itm[1]>dim(s_lst)-3 Then
1»l_itm[1]
EndIf
EndWhile
Goto def_entr
EndIf

Lbl def_entr
itr_vrtl("txt_draw",char(16),s_px1+2,s_py1+s_lst[l_itm[1]+1]+12)
If s_lst[l_itm[1]]="Input" Then
itr_vrtl("txt_stln","[Chars], [DEL], [CLEAR], [ENTER], [ESC]")
Else
itr_vrtl("txt_draw",char(17),s_px1+8,s_py1+s_lst[l_itm[1]+1]+12,"/","txt_draw",char(18),s_px2-6,s_py1+s_lst[l_itm[1]+1]+12,"/","txt_stln","[Droite], [Gauche], [ENTER], [ESC]")
EndIf
s_lst[l_itm[1]]»l_tmp

Lbl def_wkey
s_lst[l_itm[1]+when(l_tmp="Input",2,3)]»l_var
when(l_tmp="Input",{},s_lst[l_itm[1]+2])»l_hlp
0»l_key
While l_key=0
getKey()»l_key
EndWhile
If l_key=338 or l_key=344 or l_key=33106 or l_key=33112 or l_key=13 or l_key=264 Then
itr_vrtl("txt_draw"," ",s_px1+2,s_py1+s_lst[l_itm[1]+1]+12,0,1,"/","txt_draw"," ",s_px1+8,s_py1+s_lst[l_itm[1]+1]+12,0,1,"/","txt_draw"," ",s_px2-6,s_py1+s_lst[l_itm[1]+1]+12,0,1)
Goto def_tkey
ElseIf l_key=340 or l_key=337 or l_key=33108 or l_key=33105 Then
If l_tmp"Input" Then
#l_var[2]+when(l_key=340 or l_key=33108,1,ª1)»#l_var[2]
If #l_var[2]>dim(#l_hlp) Then
1»#l_var[2]
ElseIf #l_var[2]<1 Then
dim(#l_hlp)»#l_var[2]
EndIf
#l_hlp[#l_var[2]]»#l_var[1]
EndIf
ElseIf l_keyž1 and l_keyœ255 Then
If l_tmp"Selec"
#l_var[1]&char(l_key)»#l_var[1]
ElseIf l_key=257 Then
If l_tmp"Selec" and dim(#l_var[1])>0
left(#l_var[1],dim(#l_var[1])-1)»#l_var[1]
ElseIf l_key=263 Then
If l_tmp"Selec"
""»#l_var[1]
ElseIf l_key=265 Then
If l_tmp="Mixed" Then
itr_vrtl("drw_recp",s_px1+15,s_py1+s_lst[l_itm[1]+1]+11,s_px2-9,s_py1+s_lst[l_itm[1]+1]+17,1,"/","txt_draw","Loading...",s_px1+16,s_py1+s_lst[l_itm[1]+1]+12)
For l_key,1,dim(#l_hlp)
If #l_var[1]=left(#l_hlp[l_key],dim(#l_var[1])) Then
{#l_hlp[l_key],l_key}»#l_var
dim(#l_hlp)»l_key
EndIf
EndFor
EndIf
EndIf
itr_vrtl("drw_recp",s_px1+15,s_py1+s_lst[l_itm[1]+1]+11,s_px2-9,s_py1+s_lst[l_itm[1]+1]+17,1,"/","txt_draw",#l_var[1],s_px1+16,s_py1+s_lst[l_itm[1]+1]+12)
Goto def_wkey

Lbl def_tkey
If l_key=338 or l_key=33106 Then
ª4»l_itm[2]
ElseIf l_key=344 or l_key=33112 Then
4»l_itm[2]
ElseIf l_key=13 Then
Goto def_quit
ElseIf l_key=264 Then
0»ok
Goto def_quit
EndIf
l_itm[1]+l_itm[2]»l_itm[1]
If l_itm[1]<1 Then
dim(s_lst)-3»l_itm[1]
ElseIf l_itm[1]>dim(s_lst)-3 Then
1»l_itm[1]
EndIf
Goto def_item

Lbl def_quit
itr_vrtl("drw_pict","x_scrdlg",0,0,1)
DelVar x_scrdlg

Lbl def_dump
EndPrgm

hmmmmm
et pkoi tu les affiche pas ss boite de dialogue les post ?

Je les affiche sans boites de dialogue... elles étaient tellement lentes que j'ai préféré refaire un algo rien que pr les posts...
Mais il me reste ces boites extra-lentes, mais qui offrent plus de possibilités que celles du TiOS. Le code me semble déjà optimisé, je ne peux plus rien accelerer (sauf pê qq trucs sans importance)

mais elles te servent à quoi ces boites persos ?

- Taille configurable
- Position configurable
- Emplacements des textes et autres au choix de l'utilisateur
- Dropdown, Input et ComboBox

Vala... Alors du coup ça me donne un code de bourrin