Mon premier programme!! - Page 1

Bon voilà, je viens de faire mon premier programme en basic tout tout seul... (il esixte déjà surement mais bon... ce n'est qu'un début) J'voulais juste avoir l'avis de ceux qui ont du temps à perdre: http://membres.lycos.fr/fili18/BINAIRE.89P
thank's



ps: A tous ceux qui deteste les nioob (arff, pkoi t pu là vark... ) et tous ceux qui ont perdu 7seconde et demi à ouvrir cette page qui les as fais shier---->DSL

Faut bien commencer par qqchose

Un reproche... Le prog fait 200Ko, et tu utilise FLib qui en prends 8000 juste pour écrire ton nom à la fin
Y'a des limites quand même

flib?
Je croyais que c'était en basic tout seul!
J'ai encore moins envie de le DL qu'avant de cliquer sur la flèche bas d'IE...

vertyos>oué je sais, c'est juste pour délirer ça...aucun interet quoi....
J'ai juste copier ça sur un autre prog car ça m'amusait mais je connais quedale des ressource de flib (enfin je connais déjç celle çi, c'est pas mal...)

Oui... Mais bon franchement là... Tu ferais mieux de retirer cette ligne vu son utilitée...

ou alors si tu veux le garder tout en restant avec un prog tout en basic, tu te sers de 'exec' (avec moults précautions...)

Si tu veux l'exec...
le code qu'il faudrait utiliser (si quelqu'un passe par là et pense qu'on pourrait mieux faire, qu'il le dise):

movea.l $c8,a0
pea texte(pc)
movea.l ST_helpMsg*4(a0),a0
jsr (a0)
addq.l #4,a7
rts
texte:
dc.b 'Fili',39,'s spirit',169,0

Ca donne en exec:
"207800C8487A000C206803984E90588F4E7546696C69277320737069726974A90000"
Maintenant si vous voulez on peut adapter ce code à n'importe quel chaîne de caractère, il suffit de changer tout ce qu'il y a après le 4E75 (rts) par la chaîne de caractère que l'on veut en hexadécimal et de ne pas oublier le "0000" à la fin.

Petites questions:
Je viens de faire un piti prog graphique (je découvre...) je fais apparaître un cercle plein puis disparaitre ( http://membres.lycos.fr/fili18/BETA.89P si yen a qui sont tenté...) et le cercle n'est pas totalement plein,il y a plein de pixel qui s'activent pas....pourquoi????
Et puis est ce qu'il y a moyen d'enlever la barre de menu des "f1-f2..etc"??

thank's

Pas possible de d/l le prog

Tes cercles ça doit être parceque tu fais for a,0,10xlcrcl 79,49,a:endfor et que ça laisse en effet des pixels.

Enfin pour la barre de menu, c'est pas possible en basic pur il faut une lib mais très honnêtement il faut que tu t'améliore avant d'en utiliser une

c bon c d/lable maitnenant...
nan j'ai pas utilisé de boucle "for" (jaurais surement du...)

Pour les libs, je pense aussi que je dois attendre légèrement...

BiHi a écrit :
Si tu veux l'exec...
le code qu'il faudrait utiliser (si quelqu'un passe par là et pense qu'on pourrait mieux faire, qu'il le dise):

movea.l $c8,a0
pea texte(pc)
movea.l ST_helpMsg*4(a0),a0
jsr (a0)
addq.l #4,a7
rts
texte:
dc.b 'Fili',39,'s spirit',169,0

Ca donne en exec: "207800C8487A000C206803984E90588F4E7546696C69277320737069726974A90000"

J'ai mieux:
Exec "207800C82268042422514851206804284E9053884A2066FC48680001207800C8206803984E90508F4E750000", "Ton message"
Avec ça, pas besoin de changer la chaîne Exec pour changer le message.

j'viens de refaire le prog du cercle avec une "for" et c'est vrai que c'est bien plus simple et plus court...
Mais ces pixels.....?aucun moyens de les faire ranger dans le rang?? pourquoi ils s'activent???

C'est quoi la différence dans le code?

http://membres.lycos.fr/fili18/BETA.89P

()
Prgm
Local x,y
FnOff
setGraph("axes","off")
0»x
0»y
Lbl t
For x,0,39,1
PxlCrcl 39,79,x
EndFor
For x,39,0,ª1
PxlCrcl 39,79,x,ª1
EndFor
y+1»y
If y<5 Then
Goto t
Else
Pause
DispHome
FnOn
setGraph("axes","on")
EndIf
EndPrgm

fili
a écrit : setGraph("axes","off")

Raaaah! Y-en a marre des programmes qui touchent aux modes pour ça! C'est totalement idiot! Pour effacer l'écran Graph (et donc supprimer temporairement les axes), un:
:Local p
toPic p
:XorPic p
(avec éventuellement un DelVar p juste après pour libérer la RAM utilisée par 1 PIC plein-écran tout de suite) suffit.

Oui, c'est vrai que c'est mieux....
mais bon, "setGraph("axes","off")" je comprend ce que je fais....
avec ton truc je pige pas tout...
:stopic p (-->tu crée une image p qu'est pas défini dc ya que du blanc....?)
:xorpic p (-->là je capte pas du tout...)

Avec stopic tu enregistre l'écran et ses axes dans p, avec xorpic tu affiche l'image en mode XOR, donc les axes sont effacés (noir sur noir -> blanc).

C'est encore une des techniques tordues de Kevin pour rester compatible avec toutes les langues, et celle là a en plus l'avantage de prendre un peu plus de 1500 octets sur une Ti89.

Vertyos
a écrit : Avec stopic tu enregistre l'écran et ses axes dans p, avec xorpic tu affiche l'image en mode XOR, donc les axes sont effacés (noir sur noir -> blanc).

En effet. Merci d'avoir expliqué ça à ma place.

C'est encore une des techniques tordues de Kevin pour rester compatible avec toutes les langues,

Ce n'est pas que pour ça que c'est utile, mais aussi pour éviter qu'on se retrouve sans axes en cas d'interruption forcée du programme.

et celle là a en plus l'avantage de prendre un peu plus de 1500 octets sur une Ti89.

Voilà à quoi sert le DelVar p que je conseille de mettre juste après.

3074 sur V200

Bof.
Tu aimes bien ne rien changer à la configuration de l'utilisateur, et trouver des moyens détournés pour y arriver. C'est un point de vue.

Des moyens détournés? StoPic/XorPic est tout bête! C'est le moyen naturel d'effacer l'écran!

A la fin du prog, ya donc moyen de ré-afficher l'image enregistrer dans p?


Sinon pour les pixels récalcitrants, ya rien à faire???? on connait la raison?

bah si: il est impossible de faire un cercle parfait, il faudrait une infinité de pixels... Or les cercles que tu obtiens avec pxlcircle sont des approximations, et les pixels non remplissont du à ces approximations...
Non?

vertel("d_clrs")

et là t'as plus rien
Plus d'axes, plus de menu, plus de status line, rien

fili
a écrit : A la fin du prog, ya donc moyen de ré-afficher l'image enregistrer dans p?

Oui, à condition de ne pas avoir utilisé DelVar p, évidemment.
Un simple RplcPic p suffit.

Double-K, image>On peut faire un Delvar sur une var locale

Double-K, st_helpMsg>Oui, j'ai fait un prog comme ça, mais pas en strout... Il prend 69 octets... Dis, le passage de paramètres à une chaine exec, c'est exactment pareil que pour un prog asm? (top_estack, getstrarg, etc)

Xeno, cercle>La méthode de mon cousin Alk, elle peut marcher en asm si on la recode:
cercleplein(xcentre,ycentre,rayon)
Prgm
Local xa,xb,ya,yb,x,y
floor(-rayon)->xa
xa->ya
ceiling(rayon)->xb
xb->yb
rayon^2->rayon
For y,ya,yb
For x,xa,xb
If x^2+y^2<=rayon
PxlOn ycentre+y,xcentre+x
EndFor
EndFor
EndPrgm

Attention, je n'ai pas eu le temps de le tester, je m'y mets sur-le-champ. Mais si ce n'est ce prog, c'est donc son frère (c'est proche, quoi)

Edit:Débuggage effectué, corrections en gras:
-y1,y2 était des noms de variable réservés
-Nécessité d'une 3e veriable pour la boucle en x. Je l'ai rajouté à la boucle en y dans mon élan; mais vous pouvez la supprimer si vous voulez...
-le carré de l'hypoténuse doit être inférieur ou égal au carré du rayon.

Link a écrit :
Double-K, image>On peut faire un Delvar sur une var locale

Oui.

Double-K, st_helpMsg>Oui, j'ai fait un prog comme ça, mais pas en strout... Il prend 69 octets... Dis, le passage de paramètres à une chaine exec, c'est exactment pareil que pour un prog asm? (top_estack, getstrarg, etc)

Non, il y a la chaîne Exec sous forme de chaîne de caractère en premier paramètre. Pour le reste, c'est pareil.

Dans quel état est une variable locale deletée ?
J'ai essayé de voir rapidement, elle est présente dans le dossier 000x correspondant, on peut obtenir son SYM_ENTRY et son handle, mais elle n'a pas de taille, donc aucune donnée enregistrée. Quoi d'autre de particulier ?

Je me suis mis dans la creation d'un jeu tout pourri (mais faut bien débuter....)
Un petit bonhomme qui bouge et faut le faire passer dans un labirynthe sans toucher les bords...
Le bonhomme, je le fais bouger avec une boucle for mais elle est trop rapide et on le voit presque pas...
Est ce qu'il y a moyen de ralentir cette boucle?

Oui, tu fais une autre boucle qui tourne dans le vide (for a,1,100:endfor par exemple), ou bien tu utilise "exe_wait" / "e_wait" de Vertel, ou son équivalent FLib.