PureBasic

Merci de toutes ces précisions.

Me reste plus qu'à trouver un moyen de détourner l'activation de ce produit, mon simulateur de modèle réduit, alors que je l'ai acheté ... Pour info, ils sont vraiment nuls chez easyfly / ikarus.

Kerky

@Ollivier

Bon, je vois bien que tu insistes pour obtenir des valeurs positives comprises entre 1 et 26 (ou 0 et 25), mais je ne me suis pas posé la question, n'en ayant point besoin, puisque j'ai ensuite rajouté un test si on n'est pas entre les 2 valeurs de la table Ascii que l'on traite.

Je ...

Salut,

Pour mettre mon grain de sel, qui saurait m'expliquer la différence entre le déblocage par clef de license, du système d'activation sur internet.
Windows a besoin d'une clef de license pour que l'on procède à l'installation, mais il faut EN PLUS l'activer sur le net. Quel mécanisme utilise l ...

Ollivier a écrit : Le problème c'est que ((-1) % 26) = -1, et ça ça n'est pas top.

Hum, pourquoi n'est-ce pas top ? Je n'ai pas de raison de chercher des nombres positifs, vu que je peux cycler par le bas.
J'ai bien (-1)%26=-1 ; (-27)%26=-1 ; 1%26=1 ; 27%26=1

Qu'est-ce qui tu chaffouine ?

Sinon, et pour ceux qui ne connaissent pas la division modulo :
mynewascii=myascii+(offset%26)

offset%26 donne le reste de la division entière d'offset par 26 ...
Donc :
si offset est compris entre 0 et 26, offset%26=offset.
si offset > 26, par exemple offset=28, 28%26=2, le reste de 28/26
Ça ...

Allez, pour faire plaisir à Dobro :P
Mais peut-être que Shinao ne veut pas de tout cela ... et si on lui demandait.


Procedure.s beta(myletter$,offset)
myascii=Asc(myletter$)
If myascii<97 Or myascii>122
mysortie$="Ne fonctionne qu'avec les les lettres minuscules !"
Else
;Debug "myletter ...

Et bien, comme tu avais mis le code qui permettait de faire la boucle sur les 26- caractères, j'ai pas voulu le recopier. Comme ça il reste un peu de travail à faire à Shinao :D

Et puis comme la question d'origine ne demandait pas explicitement une rotation sur l'alphabet, mais mentionnait aussi ...

Super marrant ! Et original, un boule soumise à la pesanteur, ça change des autres casse-briques.
Il y a même des comportements paranormaux avec la boule qui ne redescend pas faisant une courbe parabolique ouverte en haut ... assez bizarre.
J'aime et je vote : POUR

hihi :P l'effet vague est joli, mais ne rend pas vraiment compte de la déformation du drapeau. La vague le déforme de haut en bas, alors qu'en fait ce serait une modification d'avant en arrière en vue cavalière (sinon perspective)
Du coup, le soleil nippon est déformé comme un œuf mou prêt à éclore ...

Une correction pour traiter de vraies questions QCM.
Dans le cas où la page web utilise des formulaires de type case à cocher, et que plusieurs choix sont possibles, c'est le PHP qui fera le traitement de ces multiples choix en accolant les réponses.
Exemple ici dans le cas de la question Q47 ...

Accessoirement, voici le code PHP de reception du formulaire pour être compatible avec le traitement du QCM.
A sauvegarder sous le nom du fichier appelé par votre page ouaib, sur un serveur qui accepte de traiter du ftp. :

<?php
function insert_referer () {
echo $_SERVER['HTTP_REFERER ...

Fichier 5/5 - langues.pref - 165 lignes



[FR]
About=A Propos de TNA
activity=Activité:
allfiles=Tous les fichiers
by=par
Cancel=Annuler
company=Société:
confirmdelete=Êtes-vous sûr de vouloir supprimer les fichiers TNA du serveur ?
confirmdelete2=Êtes-vous sûr de vouloir supprimer les fichiers ...

Fichier 4/5 - TNA_saveas.pb 146 lignes

Procedure saveFileas(dequoi$)
hidewindow ( #Window_0 ,1)
Debug dequoi$
backupOK=0
Structure ftype
intitule.s
format.s
formatpref.s
EndStructure

;{ Définitions;
Dim myCBGchoice.ftype(4)
myCBGchoice(0)\intitule= "CSV (délimité par virgule ...

Fichier 3/5 - TNA_treatment.pb 249 lignes

Global Dim Q.S(1,99) ;tableau des questions 1 à 99 du fichier 0, soluce et du fichier 1, traité

Global isdebug=1

Procedure deb(thatstringtodebug$)
If isdebug
Debug thatstringtodebug$
EndIf
EndProcedure


Macro CeChampSoluce(CetteChaine ...