v3 - Page 14

Ok Vertyos ! J'apprécie l'effort.
Mais je trouve qu'il est bien mon petit explorer; même si les info ne s'affiche pas en ligne mais en colonne
A la base c'est fait pour sélectionner des images et ramener la liste des selections ; après j'ai rajouter des filtres et le defilement Auto avec APPS

Tain, c'est chiant : j'ai persu mon cable ti-ti et j'ai que flib sur ma 89, alors je peux même pas essayer vertel ... Sinon , une petite question : où je peux trouver un prog sur PC pour faire des images pour TI89 ??? Parce que j'ai un peu de mal à faire des dessins on-calc ... Après, j'aurais plus qu'à retrouver mon cable ti-ti !

Essaye TiPaint Plus... Et je vois pas le rapport entre cette question et le topic

Bas, c'est que j'avais pas envie d(utiliser un nouveau topic juste pour cette question ... Désolé !!!
Et merci pour la réponse !

ptite question à propos des fonctions "load" et "locl" :

me demandait s'il était possible de faire une sorte de "passage par adresse" à l'aide ces fonctions... je m'explique:

Prog()
Local p_var

Define ssprog(sp_var)=Prgm
[4]modification de la valeur de p_var avec de vertel[/4]
EndPrgm

gros truc (ex matrice 10*10) -> p_var

ssprog("p_var")

EndPrgm

pour l'instant je crois que ce n'est pas possible car on ne peut pas changer le dossier de stochage des variables locales dans le même appel de vertel (en fait seulement vers "l'arrière" je crois).
voilà

Ben si c'est possible ?
Au début de "ssprog", tu fais vertel("locl",1,"","load","#"&sp_var,"","locl","","retr","var"), tu la modifie comme tu veux (ça l'a copiée dans le sous-programme local), et à la fin du fais l'operation inverse pour la recopier dans le programme principal : vertel("load","var","","locl",1,"","retr",sp_var).

exellent
j'pensais pas qu'un simple "locl" sans argument
permettait de revenir dans le dossier de ssprog
merci beaucoup
à ton avis c'est plus rapide de faire ça que de laisser évaluer une grosse variable passée en paramètres ?

Bah "locl" sans argument c'est "locl",0 (fallait lire la notice ) donc ça revient 0 dossiers en arrière : tu te retrouve dans le dossier courant.
Heu sinon pour la vitesse... Franchement aucune idée, mais ça me semble bien compliqué pour un simple passage en parametre. C'est utile pour faire des fonctions qui, comme en C, modifient leur parametre, mais c'est tout

Bah "locl" sans argument c'est "locl",0 (fallait lire la notice )

ouais, me souvient que tu m'avait déjà expliqué pour le 0 mais bon tu chipotes là

un simple passage en parametre

ouais, enfin justement, ça dépend quel paramètre ...
enfin c ptet un peu vrai que j'ai tendance à compliquer les choses
merci en tous cas

imbibinebe :
ouais, me souvient que tu m'avait déjà expliqué pour le 0 mais bon tu chipotes là

-> "Deuxièmement, tous les arguments numeriques omis sont fixés à 0 par défaut. Ainsi vertel("fonc",0) est exactement équivalent à vertel("fonc"). Attention toutefois, les 0 peuvent être nécessaire si d'autres arguments numériques non-nuls doivent suivre : dans le cas de vertel("fonc",0,1), il est impossible de supprimer le 0 (le 1 serait alors considéré comme étant le 1er argument numérique, alors qu'il est le 2eme)."
C'est écrit noir sur blanc

J'ai un petit soucis avec un Prog Vertyos Alors je te le post et je l'envoi par mail
Il est sensé faire scroller une liste de chaine de caractères
Il marche mais pas comme je voudrait mais là n'est pas le problemé
ce qui m'intrigue c'est le clipping qu'il y a à chaque chargement d'une portion de la liste au format Picture
Sinon Voici le Code
************************************************************************************

€ remplace ALPHA la lettre grec

scrolpic(l,x,y,f,m,w,h, €)
Prgm
//ItemLIST,X,Y,FONT,MODE,WIDTH,HEIGHT,SPEED(entier négatif != 0 )
Local a,b,c,d,e,g,i,j,k,n,o,p,q,r,z,p1,p2,€
{0,0,0,1}»r

// Calcul des Dimensions
y+h»p
{6,8,10}[f+1]»a
iPart((h-2)/a)»c
seq(y+1+a*i,i,0,c-1)»b
dim(l)»n
ceiling(n/c)»d
left({"p1","p2"},d)»e
dim(e)»o
max(1,n-c+1)»g
main\vertel({"keyi","keyr"},"","retr","z","",{"keyi","keyr"},{30,15},"","stxt","USE ?? [ENTER]=OK [ESC]=CANCEL")

// Chargement Initiale dans les 2 images au maxi pour simuler le scrolling
For i,1,o
main\vertel({"bufr","recp","clip"},x+1,y+1,x+w-1,p-1,m,"","text",mid(l,1+(i-1)*c,c),x+1,"#b",f,3,"","save",e[i],x+1,y+1,x+w-1,p-1)
EndFor
1»i
0»k
0»j
0»q


While k!=264 and k!=13

// Affichage pour simuler le scrollling
// Le probleme est que il y a un clipping à chaque chargement malgré l'utilisation du 'bufr'

main\vertel({"bufr","recp","recv","clip"},x+r,y+r,x+w-r,p-r,m,"","pict","#e",x+1,y+j+1+{0,h},1,"","bufr","","stxt",string(e)&string(i))
getKey()»k
If k=338 Then
abs(€)»€
ElseIf k=344 Then
-abs(€)»€
EndIf
j»q
max(-h,min(0,j+€))»j

// Test pour Charger Une Sous Liste en Picture

If j=0 and sign(€)=1 and i!=1 or j=-h and sign(€)=-1 and i!=g Then
max(1,min(n-c+1,i-2*€*c))»i
rotate(e,sign(€))»e
main\vertel({"bufr","recp","clip"},x,y,x+w,p,m,"","text",mid(l,i,c),x+1,"#b",f,3,"","save",e[when(sign(€)=1,1,o)],x+1,y+1,x+w-1,p-1)
w»j
0»q
EndIf

If j=q
-€»€
EndWhile
main\vertel({"keyi","keyr"},"#z")
EndPrgm
**************************************************************************************************

On peut choisir le sens du scrolling mais ça marche pas fort pour le moment ; je reglerai ça tout à l'heure
mon problème c'est plutot le clipping

Heu j'ai même pas capté quel était le problème ? (pas essayé le prog, il est trop long)

Oulalalala, c'est beaucoup trop long, et y'a beaucoup trop de variables dans ton scroll...

C clair, un prog bien fait en utiliserait deux ou trois

Ca va faire 4 fois que je le mets ce programme.

Prgm
Clrhome
local f,att,temp,a
vertel("type","l","/","retr","a")
if a [1]=/="LIST"
Stop
vertel("clrs","/","save","temp",0,0,159,99)
for a,1,dim(l)
99->f
while f>=99-(expr(left(l[a],1))+3)*2
vertel("pict","temp",0,-1,1,"/","line",0,99,159,99,1,"/","draw",right(l[a],dim(l[a])-1),999,f,expr(left(l[a],1)),1,"/","save","temp",0,0,159,99,"/","pict","temp",0,-1,1)
f-1->f
endwhile
endfor
for a,-1,-102,-1
vertel2("pict","temp",0,a,1)
for att,1,15
endfor
endfor
lbl fin
endprgm

Exemple d'Utilisation :
genfin({"0C'était","2DES CHIFFONS ET","2DES LETTONS","1 ","0Presente par","1Patrice AFFRONT","2 ","0(C) 2003 FRANCE DEGUEU"})


Ah mais.

Vertyos>ça me fait pensé à un petit truc que tu pourrait peut-être rajouté à load.
Mettre 2 arguments facultatif qui permettrait de charger seulement une partie de la liste/chaine (faire l'équivalent d'un mid() en fait).

pendant que j'y suis, un truc qui manque à vertel pour faire des bons trucs en gray:
la gestion de touches; et donc la modification de l'affichage sans sortir de l'appel, parceque sinon ça désactive les grays, et il fo réafficher les sprites. Mais bon maintenant j'ai arrêté le basic (ASM powaaaaaaaaaaa!!!!!! )

Y'a pas de grays dans vertel -> pb reglé

et pour le #405 ??

Ah oui j'avais commencé une réponse et comme ça m'a fait chier j'ai laissé tomber
Heu... En fait bof, ça serait mieux de faire une fonction mid dans Vertel.

mais si tu fait une fonction mid, load ne sert plus à rien ???

ben si, ça n'a aucun rapport ?

mué... je vois pas en koi ça n'as aucun rapport, enfin bon, je te laisse faire comme tu veux, c toi qui programme.

Nan mais explique moi le rapport plutot

bah... au lieu de charger toutes la listes, tu charge une parties de la listes.
load est un cas particulier de mid, puisqu'en faisant mid(list,1,dim(list)) c comme si tu faisait load list.
A la limite, enlever load et le remplacer par mid, mais bon, pour la compatibilité, c pas génial.

Ah c'était mid pour les listes que tu voulais, pas pour les chaines ?
Ben heu... Oué enfin là c'est chiant quoi

(pê en ajoutant 2 arguments à load... sépo)

que ce soit pour les listes ou les chaines, c pareils. En ti-basic, mid() fonctionne avec les deux.

oui mais c'est une surcharge, j'ai pas l'intention de refaire les deux (déjà que un... )

mué... c pas demain la veille qu'on verrat Vertel 4

Y'a des chances ^^