Re: peut-on incrémenter ou décrémenter une variable
Publié : mer. 09/janv./2019 21:28
Si je trouve le moyen de réparer ma dynamo, j'aurai assez de jus pour te pondre un code Micoute. En attendant, c'est chaud...
Forums PureBasic - Français
https://www.purebasic.fr/french/
C'est là où c'est interessant, moi j'ai utilisé les listes sans même savoir comment ça fonctionnait, tout ce que je savais, c'est que c'était une suite d'information stocké et qu'il y avais des fonctions à appeler pour naviguer dedans. On peut utiliser les fonctions d'un langage sans comprendre leur fonctionnement, il suffit de lire la doc et d'appliquer bétement ce qui est écrit... Et ça fonctionne, c'est si on veux rentrer plus loins dans le délire qu'on a besoin de savoir leur mode de fonctionnement pour éventuelement pouvoir le détourner et faire des choses plus poussé.Avant de comprendre une chaîne, et même un tableau, il faut comprendre le concept de mémoire... Enfin voilà, c'est mon avis, maintenant, chacun fait comme il veut.
Code : Tout sélectionner
;*************************************************************************************************************************
Code : Tout sélectionner
maTable:
Data.I ?Test1, ?Test2, ?Test3, etc...
Code : Tout sélectionner
DataSection
Test1:
Data.S "L'épisiotomie, qu'est-ce que c'est ?"
Data.S "A. Le nom d'un état fédéral des Etats-Unis d'Amérique ?"
Data.S "B. Un épisode de Gray's Anatomy ?"
Data.S "C. Un coup de poële à frire si on remet le couvert ?"
Data.S "D. Une idée philosophique grecque"
Test2:
Data.S "La denrée, qu'est-ce que c'est ?"
Data.S "A. Une purée ?"
Data.S "B. Une des dents qui permettent de s'adapter à la pression atmosphérique ?"
Data.S "C. Un ami qui se barre avec un Louis d'or ?"
Data.S "D. Un arrêté préfectoral autorisant les lâchers flatulatoires hors couvre-feu"
Test3:
Data.S "Sauter une étape nécessite :"
Data.S "A. de bien identifier ladite étape ?"
Data.S "B. rien du tout, car qui trop saute, mal pressent ?"
Data.S "C. la tenue d'une étude d'experts certifiés ?"
Data.S "D. l'analyse consensuelle des efforts capitalisés dans la mesure des possibles sacrifices ?"
Test4:
Data.S "Susciter, est-ce :"
Data.S "A. Itérer une suspicion"
Data.S "B. L'imparfait de sucer"
Data.S "C. Analogue au fait d'émaner"
Data.S "D. Suggérer abusivement"
Test5:
Data.S "Dans l'expression << Tant va la cruche à l'eau... >> :"
Data.S "A. qu'à la fin, elle se casse."
Data.S "B. qu'à la fin, elle se cache."
Data.S "C. qu'à la fin, elle se lâche."
Data.S "D. qu'à la fin, elle se fâche."
Test6:
Data.S "Au XVIIIème siècle..."
Data.S "A. c'était un peu avant le jurassique ?"
Data.S "B. c'était un siècle avec éruptions islandaises ?"
Data.S "C. c'est un arrondissement de Marseilles ?"
Data.S "D. c'est une expression introduisant de nombreux contes de fées ?"
Test7:
Data.S "Un collapsus qu'est-ce que c'est ?"
Data.S "A. C'est un copain qui fait un lapsus ?"
Data.S "B. C'est un collage sous Photoshop ?"
Data.S "C. C'est une violente anomalie médicale ?"
Data.S "D. C'est un refrain litturgique ?"
Test8:
Data.S "La méthano-genèse :"
Data.S "A. intestin ou océan, point trop n'en faut pour salement balloner ?"
Data.S "B. C'est une méta-donnée ?"
Data.S "C. C'est une classe ouvrière émergente et concurrente des métallos ?"
Data.S "D. C'est anglais ?"
Test9:
Data.S "En marche normale,"
Data.S "A. Je roule à gauche"
Data.S "B. Je roule à droite"
Data.S "C. Je roule à poil"
Data.S "D. il n'y a pas de marche normale, la voiture électrique elle est où ?"
EndDataSection
Macro Restaure()
Restore Test#MacroExpandedCount
EndMacro
Procedure JeRestaure(Question)
If Question = 1
Restaure()
EndIf
If Question = 2
Restaure()
EndIf
If Question = 3
Restaure()
EndIf
If Question = 4
Restaure()
EndIf
If Question = 5
Restaure()
EndIf
If Question = 6
Restaure()
EndIf
If Question = 7
Restaure()
EndIf
If Question = 8
Restaure()
EndIf
If Question = 9
Restaure()
EndIf
EndProcedure
JeRestaure(5)
Read.S Q$
Read.S RA$
Read.S RB$
Read.S RC$
Read.S RD$
Debug Q$
Debug RA$
Debug RB$
Debug RC$
Debug RD$
Code : Tout sélectionner
CompilerIf 0
Partie 1
CompilerEndIf
Partie 2
Merci pour ce retour d'information.El Papounet a écrit :J'ai réussi à faire fonctionner ton code en modifiant quelque peu les chemins d'accès du compilateur et du source généré.