Forum Graph100

Guest · 01 Dec 2002 07:37:44

Valà tout est dans le titre smile
THX
A++

KTr · 01 Dec 2002 07:47:56

Explique toi un peu mieux STp...

Guest · 01 Dec 2002 07:54:23

Bah en fait je voudrais que lorsque j'ouvre un fichier je puisse faire defiler des ecrans de textes en appuyant sur une touche...
Ou mieux encore faire un chtit programme avec un menu et dans ce menu je choisirai d'aller la ou je veux (comme un sommaire)
J'espère avoir etait plus clair...

Merci
A+

Guest · 01 Dec 2002 09:33:24

Code:

"1"<-
"2"<-
"3"<-
"4"<-
"5"<-
"6"<-
"7"<-
"8"<-
"9"<-
"10"<-
"11"<-

En faisant ça le texte défile mais ne s'arete pas a chaque écran hmm
Personne sait comment faire stopper le texte a chaque écran??

Merci

Julien · 01 Dec 2002 10:04:02

Pas facile! si j'ai bien compris tu veux pouvoir faire défiler du texte en appuyant sur une touche, vers le haut ou vers le bas?

Si c'est juste vers le bas, tu mets

Code:

Do:LpWhile Not Getkey

apres chaque ligne de texte... :?
Au pire tu fais

Code:

Do
For 1->A To ( nombre de ligne de texte ) 
A=1=>" ( premiere ligne de texte ) "
A=2=>" ( deuxieme ligne de texte ) "
...
A= ( nombre de ligne de texte ) =>" ( derniere ligne de texte ) "
Do:LpWhile Not Getkey
LpWhile A-B

Sinon, plus compliqué mais plus intéressant, tu laisses la possibilité de pouvoir revenir en arriere dans le defilement avec la touche haut par exemple, c'est a toi de voir ce qu'il te faut wink

scq · 01 Dec 2002 10:22:02

y a rien de si compliquer la dedans!!!
il suffit de se servir de lbl et goto !!!

Julien · 01 Dec 2002 11:12:45

y a rien de si compliquer la dedans!!!
il suffit de se servir de lbl et goto !!!

8O

Tuez le. :evil:

Guest · 01 Dec 2002 11:28:51

Excusez moi mais je suis n00b en prg...
Quand je fais le truc pour faire défiler le texte ca me sort des erreurs de partout....

Personne voudrais me faire un exemple concret?? (avec ecrit nimporte quoi)
Je lui en serai très reconnaissnt wink

Julien · 01 Dec 2002 12:35:47

Exemple:

Code:

For 1->A To 17
A=1=>"L'interet de faire " 
A=2=>"des exemples concrets" 
A=3=>"pour les n00bs" 
A=4=>"en programmation" 
A=5=>"est extremement" 
A=6=>"vaste. En effet," 
A=7=>"on peut observer" 
A=8=>"que ceux-ci ont" 
A=9=>"une étrange tendance" 
A=10=>"a se compliquer la vie." 
A=11=>"C'est pourquoi," 
A=12=>"depuis quelques" 
A=13=>"temps, des forums" 
A=14=>"spécialisés dans le" 
A=15=>"domaine ont vu le" 
A=16=>"jour a plusieurs" 
A=17=>"endroits sur le net." 
Do:LpWhile Not Getkey 
Next

je me rends compte que j'ai fais une erreur dans mon explication d'au-dessus, ceci est correct maintenant wink
Je précise évidemment que " -> " c'est la fleche que tu tapes avec la touche au dessus de AC/ON, et que " =>" c'est....
m***e. :oops:
Zut, j'ai oublié qu'il y a plus la commande " => " sur g100... :x

Bon, ben tu dois taper ca, désolé ( a moins que tu aies le cable big_smile , dans ce cas tu transferes ce que j'ai écrit juste ici en haut ):

Code:

For 1->A To 17
If A=1:Then "L'interet de faire":IfEnd
If A=1:Then "des exemples concrets":IfEnd
If A=1:Then "pour les n00bs":IfEnd
If A=1:Then "en programmation":IfEnd
If A=1:Then "est extremement":IfEnd
If A=1:Then "vaste. En effet,":IfEnd
If A=1:Then "on peut observer":IfEnd
If A=1:Then "que ceux-ci ont":IfEnd
If A=1:Then "une étrange tendance":IfEnd
If A=1:Then "a se compliquer la vie":IfEnd
If A=1:Then "C'est pourquoi,":IfEnd
If A=1:Then "depuis quelques":IfEnd
If A=1:Then "temps, des forums":IfEnd
If A=1:Then "spécialisés dans le":IfEnd
If A=1:Then "domaine ont vu le":IfEnd
If A=1:Then "jour a plusieurs":IfEnd
If A=1:Then "endroits sur le net.":IfEnd
Do:LpWhile Not Getkey 
Next

Guest · 01 Dec 2002 14:41:49

bha nan ça

Code:

For 1->A To 17 
If A=1:Then "L'interet de faire":IfEnd 
If A=1:Then "des exemples concrets":IfEnd 
If A=1:Then "pour les n00bs":IfEnd 
If A=1:Then "en programmation":IfEnd 
If A=1:Then "est extremement":IfEnd 
If A=1:Then "vaste. En effet,":IfEnd 
If A=1:Then "on peut observer":IfEnd 
If A=1:Then "que ceux-ci ont":IfEnd 
If A=1:Then "une étrange tendance":IfEnd 
If A=1:Then "a se compliquer la vie":IfEnd 
If A=1:Then "C'est pourquoi,":IfEnd 
If A=1:Then "depuis quelques":IfEnd 
If A=1:Then "temps, des forums":IfEnd 
If A=1:Then "spécialisés dans le":IfEnd 
If A=1:Then "domaine ont vu le":IfEnd 
If A=1:Then "jour a plusieurs":IfEnd 
If A=1:Then "endroits sur le net.":IfEnd 
Do:LpWhile Not Getkey 
Next

ça fait défiler du texte a fond hmm
Il faudrait que à chaque ecran ca s'arette et pis en apuyant sur par exemple "bas" ça passe a l'écran suivant tu vois ce que je veux dire??

Merci
A++

Julien · 01 Dec 2002 15:26:06

Arf c pas mon jour lol

désolé, c'est

Code:

For 1->A To 17 
If A=1:Then "L'interet de faire":IfEnd 
If A=2:Then "des exemples concrets":IfEnd 
If A=3:Then "pour les n00bs":IfEnd 
If A=4:Then "en programmation":IfEnd 
If A=5:Then "est extremement":IfEnd 
If A=6:Then "vaste. En effet,":IfEnd 
If A=7:Then "on peut observer":IfEnd 
If A=8:Then "que ceux-ci ont":IfEnd 
If A=9:Then "une étrange tendance":IfEnd 
If A=10:Then "a se compliquer la vie":IfEnd 
If A=11:Then "C'est pourquoi,":IfEnd 
If A=12:Then "depuis quelques":IfEnd 
If A=13:Then "temps, des forums":IfEnd 
If A=14:Then "spécialisés dans le":IfEnd 
If A=15:Then "domaine ont vu le":IfEnd 
If A=16:Then "jour a plusieurs":IfEnd 
If A=17:Then "endroits sur le net.":IfEnd 
Do:LpWhile Not Getkey 
Next

J'ai fais un copier-coller et j'ai oublié de changer les valeurs de A :oops:

Guest · 01 Dec 2002 15:50:59

Maintenant ca ecrit L'interet de faire et ça bloque :oops:
T'aurais une idée??

THX a toi smile

Julien · 01 Dec 2002 15:59:39

ben ca bloque parce que ca attend que tu appuies sur une touche pour continuer wink

Guest · 02 Dec 2002 12:00:03

Ben nan j'ai beau appuyer sur nimporte quelle touche ca se bloke hmm :cry:

scq · 02 Dec 2002 12:32:09

oua ca doit mettre au moins...
...
...
...
...
...
...
...
...
...
...
...
DES HEURES A AFFICHER CA !!!
"tuez le",
non mais et puis quoi encore,
je me souviens avoir fait une carotte
en anglais pour les verbe irreguliers,
tout bien comme il faut :
ligne 1 : traduction
ligne 2 : -------------------
ligne 3/4/5 le verbe et ses declinaison,
et les deux derniere je les utilisait pour
marquer H/B/G/D le tout sans ordi,
le prgm devait prendre plus de 14Ko
et si j'avais utiliser votre system,
putain qu'est ce que c'a aurait été long
pour avoir mon verbe,
ha ca c'est sur ca aurai tenu en un seul
morceau, mais j'aurais du attndre au moins
5min avant de l'avoir, surtout s'il était en fin
de liste, alors julien calme toi :twisted:
lol cool

K-zio · 02 Dec 2002 13:19:29

Clrtext
c'est pas plutot ca que tu veux:

Code:

1->A
Locate 3,1,"page1"
Locate 3,2,"page2"
Locate 3,3,"page3"
Do
Getkey->
Locate 1,A,"->"
if G=28:then Isz A:ifend
if G=37:then Dsz A:ifend
If A=4 :then 1->A:ifend
If A=0 :then 3->A:ifend
LpWhile G!=31
If A=1:then Goto 1:Ifend
If A=2:then Goto 2:Ifend
If A=3:then Goto 3:Ifend
Lbl 1
Clrtext
"ICI"
"LE"
"TEXT"
"DE"
"LA"
"PAGE"
"1"
Do
Getkey->G
LPWhile G!=37
Lbl 2
Clrtext
"ICI"
"LE"
"TEXT"
"DE"
"LA"
"PAGE"
"2"
Do
Getkey->G
If G=28:then Goto 1:Ifend
LPWhile G!=37
Lbl 3
Clrtext
"ICI"
"LE"
"TEXT"
"DE"
"LA"
"PAGE"
"3"
Do
Getkey->G
LPWhile G!=28
Goto 2

Comme ca au debut tu as un menu et ca t'emmene à la page que tu choisis sur les pages si tu appuis sur haut tu va à la page prècédente et bas la page suivante

scq · 03 Dec 2002 05:40:48

eh bien voila !!!
on peut utilser les goto et lbl
alors julien !!! cool

bugbug · 03 Dec 2002 06:14:45

essayez ce jeu en basic que j'avait fait il y a 4-5 ans
http://www.multimania.com/casio100/GETGOGO.CAT
il y avait deja un bel exemple de ce que vous demandez (helas je n'ai toujours pas de graph100, je dit ca en souvenir)

Julien · 03 Dec 2002 07:38:41

eh bien voila !!!
on peut utilser les goto et lbl
alors julien !!!

Evidemment qu'on peut les utiliser, mais tu sais bien que je les ai en horreur lol

Bon je dois avouer que j'ai fait tout ca sans tester, je vais voir ce que ca donne ce soir... :P

Guest · 03 Dec 2002 12:36:19

big_smile C presque nikel...
A la fin ya ecrit Goto 2 et la ca déconne hmm
C quoi le blème??
Merci
A++

scq · 03 Dec 2002 13:02:18

c'est souvent que l'on me contredit
je trouve, surtout qu'a chaque fois
je vérifie mes info, c'est comm si je
dit qu'il est possible de send des prog
de la G100+ à une G65 par exemple

Julien · 03 Dec 2002 14:05:14

Ouais mais le "des heures a afficher ca" pour mon prog la tu parles dans le vide, l'affichage du texte est instantané... :P
Et si effectivement ca ne marchait pas, c'est parce que la boucle

Code:

Do:LpWhile Not Getkey

Que j'utilise ne fonctionne pas sur g100.. roll
Il faut mettre

Code:

Do
Getkey->B
LpWhile B=0

A la place... roll

( Et cette fois-ci c'est bon, j'ai testé :!: )

Swifter · 04 Dec 2002 02:39:35

arg!!!
Ce putain de "Lpwhile not getkey", que de mauvais souvenirs!!!
J'avais remplacé tous mes lpwhile getkey=0 par l'expression ci dessus, tout ca pour me rendre compte que finallement ca marchait pô!!!
Résultat une 1/2 heures de perdue sur mon temps précieux :? :?

Julien · 04 Dec 2002 07:39:21

Moi comme ca marchait sur les autres modeles je me suis dit que ca irait aussi sad

Azor · 04 Dec 2002 07:45:45

moi je faisait ca :

Code:

0->k
while(k=0)
getkey-k
while-end

Parce que si k est a une autre valeur, bin ca passe direct !

Forum Graph100

Annonce

#1 01 Dec 2002 07:37:44

Comment ou avec quoi faire défiler du texte sur G100+???

#2 01 Dec 2002 07:47:56

Re: Comment ou avec quoi faire défiler du texte sur G100+???

#3 01 Dec 2002 07:54:23

Re: Comment ou avec quoi faire défiler du texte sur G100+???

#4 01 Dec 2002 09:33:24

Re: Comment ou avec quoi faire défiler du texte sur G100+???

Code:

#5 01 Dec 2002 10:04:02

Re: Comment ou avec quoi faire défiler du texte sur G100+???

Code:

Code:

#6 01 Dec 2002 10:22:02

Re: Comment ou avec quoi faire défiler du texte sur G100+???

#7 01 Dec 2002 11:12:45

Re: Comment ou avec quoi faire défiler du texte sur G100+???

#8 01 Dec 2002 11:28:51

Re: Comment ou avec quoi faire défiler du texte sur G100+???

#9 01 Dec 2002 12:35:47

Re: Comment ou avec quoi faire défiler du texte sur G100+???

Code:

Code:

#10 01 Dec 2002 14:41:49

Re: Comment ou avec quoi faire défiler du texte sur G100+???

Code:

#11 01 Dec 2002 15:26:06

Re: Comment ou avec quoi faire défiler du texte sur G100+???

Code:

#12 01 Dec 2002 15:50:59

Re: Comment ou avec quoi faire défiler du texte sur G100+???

#13 01 Dec 2002 15:59:39

Re: Comment ou avec quoi faire défiler du texte sur G100+???

#14 02 Dec 2002 12:00:03

Re: Comment ou avec quoi faire défiler du texte sur G100+???

#15 02 Dec 2002 12:32:09

Re: Comment ou avec quoi faire défiler du texte sur G100+???

#16 02 Dec 2002 13:19:29

Re: Comment ou avec quoi faire défiler du texte sur G100+???

Code:

#17 03 Dec 2002 05:40:48

Re: Comment ou avec quoi faire défiler du texte sur G100+???

#18 03 Dec 2002 06:14:45

Re: Comment ou avec quoi faire défiler du texte sur G100+???

#19 03 Dec 2002 07:38:41

Re: Comment ou avec quoi faire défiler du texte sur G100+???

#20 03 Dec 2002 12:36:19

Re: Comment ou avec quoi faire défiler du texte sur G100+???

#21 03 Dec 2002 13:02:18

Re: Comment ou avec quoi faire défiler du texte sur G100+???

#22 03 Dec 2002 14:05:14

Re: Comment ou avec quoi faire défiler du texte sur G100+???

Code:

Code:

#23 04 Dec 2002 02:39:35

Re: Comment ou avec quoi faire défiler du texte sur G100+???

#24 04 Dec 2002 07:39:21

Re: Comment ou avec quoi faire défiler du texte sur G100+???

#25 04 Dec 2002 07:45:45

Re: Comment ou avec quoi faire défiler du texte sur G100+???

Code:

Pied de page des forums