Ecrire 1 & 2

Bonjour/Bonsoir à tout les membres du forum et je vais vous montrer mon premier "vrai" programme.
Il y a ECRIRE quand vous le lancerez vous aurez un Hello World ! rouge qui s'écrit lettre par lettre  Mais ce programme ne sert pas à être lancé mais à être intégré dans vos jeux etc.... car vous pouvez changer la phrase   !

ECRIRE2 sert à créer des phrases pour ECRIRE


le lien: http://www.ptc-qr-code.sitew.fr/

Bon je viens de tester et voilà le soucis, c'est que tu t'es compliqué la vie avec les locate alors qu'une variable alphanumérique ayant comme valeur tous tes REPERE aurait été moins prise de tête.
Donc du style :
votre phrase est "machin truc"
MOTS$="''"+STR$(REPERE1)+STR$(REPERE2)+....+STR$(REPERE5)
IF LEN(STR$(REPEREX))==1 THEN X$="0"+STR$(REPEREX) ELSE X$=STR$(REPEREX)
IF LEN(STR$(REPEREY))==1 THEN Y$="0"+STR$(REPEREY) ELSE Y$=STR$(REPEREY)
IF REPERE5==1 THEN MOTS$=MOTS$+X$+Y$
'Ensuite j'ai pas vérifié quand REPERE5=0, si on doit mettre X et Y. si c'est le cas IF REPERE5==1 THEN n'est pas utile, et on laisse MOTS$=MOTS$+X$+Y$
MOTS$=MOTS$+STR$(REPERE6)+STR$(REPERE7)+" "+PHRASEF$+"''"
?MOTS$
Voilà tu arranges à ta sauce.  

Mais c'est un super programme en fait !
En commençant a lire je me disais, "oui? un programme pour écrire une phrase? D'accord."
Mais maintenant que j'ai compris je suis super content !
Je vais mettre ça dans Peterman 3 qui est en préparation avec a la clé : un scénario !!
c'est y pas incroyable ça?

[Ce MeSsAgE cOnTiEnT dE lA pUb, Il SeRa EfFaCé DaNs 15 SeCoNdEs]

J8B tu as raison je vaiq bientôt mettre à jour les Qr codes et aussi merci pour le fichier d'aide il m'as beaucoup aide .
Fenixelf c'est vrai que le nom n'est pas tres explicite mais c'est un peu dur ........ Mais en tout cas j'ai tres hate de voir PETERMAN 3
PS:desole pour les fautes d'orthographe je suis sur un clavier bluetooth regler en QWERTY.........
PPS:est ce que l'on peut pe me passer en petit programmeur je pense que je le merite non ?

Ton bug est peut-être du à un bug même du logiciel petit computer, j'ai essayé de simplifié ton programme (ca a marché mais si je révélais mon code le tiens ne serait plus utile à personne donc je le garde) et le même bug se déclenche chez moi SEULEMENT quand le texte va à la ligne. J'espère que ça peut t'aider... Bonne chance pour la suite !

Comme l'a dit J8B

J8B a écrit:Bon je viens de tester et voilà le soucis, c'est que tu t'es compliqué la vie avec les locate alors qu'une variable alphanumérique ayant comme valeur tous tes REPERE aurait été moins prise de tête.
Donc du style :
votre phrase est "machin truc"
MOTS$="''"+STR$(REPERE1)+STR$(REPERE2)+....+STR$(REPERE5)
IF LEN(STR$(REPEREX))==1 THEN X$="0"+STR$(REPEREX) ELSE X$=STR$(REPEREX)
IF LEN(STR$(REPEREY))==1 THEN Y$="0"+STR$(REPEREY) ELSE Y$=STR$(REPEREY)
IF REPERE5==1 THEN MOTS$=MOTS$+X$+Y$
'Ensuite j'ai pas vérifié quand REPERE5=0, si on doit mettre X et Y. si c'est le cas IF REPERE5==1 THEN n'est pas utile, et on laisse MOTS$=MOTS$+X$+Y$
MOTS$=MOTS$+STR$(REPERE6)+STR$(REPERE7)+" "+PHRASEF$+"''"
?MOTS$
Voilà tu arranges à ta sauce.  

Et dans ma présentation je dit bien que je fait tous en retard mais j'ai mit les nouveau QR codes sans le bug  

PS:Dans Ptc les INPUT SOnta bugués au bout de trois ligne de texte:

Code:

INPUT "blablabla 123 ABC";MOT$

Résultat:
blablabla
123
123
Bon voila c'est tout pour ce long post