- Code: Select all
Lbl 0:
--Initialisation fenêtre--
-1 ->P
#Optionnel 1:
Menu("Chapitres","Trigo",1,"Proba",2,"QUITTER",Q)
#FinOptionnel1
#Optionnel 2, si pas option 1!
int(text.length/(NB_LINES_PAGES*MAX_CHAR_LINE))->P //nombres pages
Lbl P
Menu("PAGES","PAGE 1",P1,"PAGE 2",P2...)
#Fin option 2
Lbl 1
Lbl P1
"zyeoiuqyzzeoiuqyzoeiuyqoziueyoqizyeiy //caractères pour une page
prgmZTEXT //string vers texte 1 page
If Ans=45: Goto P //retour menu sinon on continu
Lbl P2
"zyeoiuqyzzeoiuqyzoeiuyqoziueyoqizyeiy //caractères pour une page
prgmZTEXT //string vers texte 1 page
If Ans=45: Goto P //retour menu sinon on continu
...
Goto P
#Si option 1:
Lbl 2: //et label 1 identique
"ZERTYUEOIRHOIEHOEJZEOIFJOZIEJFOZIEJFOZIEJFOZIEJFOZIEJFOQJSDLKQJLSKJDLQKSJDLQKJSDLKQJSDLKJQLQSLDJLQSKJDLQKSJDLKQJSLDKJLQSKJDLQKJSDLKQJSLDKJQLSKDJLQKJDLQKJDLKQJLDSKJLQKJDLKQJLDKJLKDJSLQKJLKJ
prgmZTEXT //string vers textes, avec X pages
Goto 0
#fin si option 1
Lbl Q: Clrdraw:Disp "
Et le programme Ztext serait ainsi:
- Code: Select all
Delvar K
Ans->str0
If P >= 0: Then
Str0->Text sur une page
While(not(K))
getKey->K
End
Return
ELse
Str0 -> text() sur plusieurs pages
Pause :Clrdraw
Return
End
Return
Comme ça, 2 modes possibles exclusifs:
- Mode simple + idées critor & Adriweb: Un seul texte, un menu de découpage en pages. Après chaque page, le choix de soit continuer (
enter
), soit retourner au menu pages (clear
) - Mode avec menu, mon idée de base: Un découpage en menus crées par l'utilisateur, affichage multi-pages par parties et retour au menu initial en fin de partie.
Le programme Ztext a seulement pour but d'écrire les Text(Truc, Truc, "Truc"), le code le plus gourmand en ressource et répétitif.