Tour de magie (Code source)

Code source pour réaliser un tour de magie avec Windev (Mathématique)
-       Ce code est personnel et gratuit  (GhrSoft ) - La distribution est  libre de droit.
  • Le principe :

L’utilisateur de l'application pense à un chiffre entre 1 et 30 (pour simplifier l’exemple), et répond aux questions relatives à l’existence, du chiffre choisi, dans le tableau correspondant.
A la fin, comme par magie, l’application détecte automatiquement le chiffre choisi.

  •    Les tableaux






Il y a plusieurs méthodes pour réaliser ce petit programme, et chacun sa méthode.
Ci-dessus une solution:


       Les champs :
       La fenêtre comporte 7 plans 
       Plan 1 :  Acceuil    -   Plan 2 :  Tab 1 ........... Plan 7:  Résultat 
       5 sélecteurs ( SEL_01, 02, 03, 04 et SEL_05)
       Dans chaque Plan (2 A 6  ) 1 sélecteur et 2 Boutons (Suivant et Retour) et un tableau
       Voir Image Exemple:
      Plan 1                                                     Plan 2


    CODE: 
  • Déclarations globales de la fenêtre:
gnRESULT1, gnRESULT2, gnRESULT3, gnRESULT4, gnRESULT5 sont des entiers = 0
gnRESULTFINALE est un entier = 0
  •     BTN_Suivant (Plan 2 - Tableau 1)

     // 1er tableauSELON SEL_01
// oui
CAS 1
gnRESULT1 = 1 // LE PREMIER CHIFFRE DANS LE TABLEAU 1
// non
CAS 2
gnRESULT1 = 0
FIN
MaFenêtre..Plan = 3


  • BTN_Suivant (Plan 3 - Tableau 2)

 // 2eme tableau
SELON SEL_02
// oui
CAS 1
gnRESULT2 = 2 // LE PREMIER CHIFFRE DANS LE TABLEAU
// non
CAS 2
gnRESULT2 = 0
FIN
MaFenêtre..Plan = 4



  • BTN_Suivant (Plan 4 - Tableau 3)

// 3eme tableau
SELON SEL_03
// oui
CAS 1
gnRESULT3 = 4 // LE PREMIER CHIFFRE DANS LE TABLEAU
// non
CAS 2
gnRESULT3 = 0
FIN
MaFenêtre..Plan = 5

  • BTN_Suivant (Plan 5 - Tableau 4)

// 4eme tableau
SELON SEL_04
// oui
CAS 1
gnRESULT4 = 8 // LE PREMIER CHIFFRE DANS LE TABLEAU
// non
CAS 2
gnRESULT4 = 0
FIN
MaFenêtre..Plan = 6

  • BTN_Suivant (Plan 6 - Tableau 5)
// 3eme tableau
SELON SEL_05
// oui
CAS 1
gnRESULT5 = 16 // LE PREMIER CHIFFRE DANS LE TABLEAU
// non
CAS 2
gnRESULT5 = 0
FIN

// Résultat final
gnRESULTFINALE = gnRESULT1 + gnRESULT2 + gnRESULT3 + gnRESULT4 + gnRESULT5
// Cas de mauvaises réponses   ....
SI gnRESULTFINALE = 0 OU gnRESULTFINALE > 30 ALORS
IMG_FAUX..Visible = Vrai     // Image au choix
IMG_JUSTE..Visible = Faux    // Image au choix

LIB_Vous_avez_pensé_à = "Oops !!"
LIB_magic..Visible = Faux
LIB_RESULT..Couleur = RougeClair
LIB_RESULT = "?"
MaFenêtre..Plan = 7
                                        ToastAffiche("Vérifier vos réponses !!" + RC + "Le chiffre doit être entre 01 et 30",toastCourt,cvMilieu,chCentre,RougeClair)

Son(sonSystèmeArrêtCritique)
SINON //  Le chiffre est trouvé ... ok
IMG_FAUX..Visible = Faux
IMG_JUSTE..Visible = Vrai
LIB_Vous_avez_pensé_à = "Vous avez pensé à !!"
LIB_RESULT..Couleur = VertClair
LIB_RESULT = gnRESULTFINALE
LIB_magic..Visible = Vrai
MaFenêtre..Plan = 7
Son(sonSystèmeDéfaut)
FIN

  
  • BTN_Précédent (plan 1 A 7)
MaFenêtre..Plan = x (Le plan précédent) 
Exemple: dans le plan 5
MaFenêtre..Plan = 4


Vos questions, suggestions et commentaires sont les bienvenus...

Commentaires

Enregistrer un commentaire

Posts les plus consultés de ce blog

Image
PROCÉDURE  DE CALCUL DE LA CLÉ DE CONTRÔLE - CCP  (N° de compte chèque postal - Algérie) Dans les nouveaux chèques ccp (Jaunes), la clé correspond au N° de RIP. Des fois, vous êtes dans l’obligation de calculer la clé  du N° ccp et non pas le RIP. Cette procédure peut être utile.  Pour tester cette procédure (Sous Windev), il vous faut: Un champs de saisie pour saisir le N° de ccp ( SAI_CCP   - 10 Chiffres) Un champs pour récupérer la clé de contrôle ( SAI_CLE -  2 chiffres) A l'entrée et  sortie du  SAI_CCP  : Suite de la procédure:  A la fin;  Télécharger l'application
Lire la suite

Extension des fichiers créés par WINDEV, WEBDEV, WINDEV Mobile

Image
Extension des fichiers créés par WINDEV, WEBDEV, WINDEV Mobile Quels sont les fichiers créés et gérés par WINDEV, WEBDEV et WINDEV Mobile ? Le tableau ci-dessous présente les principales extensions des fichiers créés et gérés par WINDEV, WEBDEV et WINDEV Mobile. Pour faciliter la lecture, ces extensions sont triées par ordre alphabétique. Extension Description Thème .AWL Fichier généré pour chaque page d'un site dynamique. Correspond à la bibliothèque de la page. Utilisé lors d'un  déploiement page à page . Exécution .AWP Page WEBDEV AWP Exécution .AWWS Bibliothèque contenant toutes les procédures d'un Webservice. Ces procédures seront utilisables par n'importe quelle application utilisant votre Webservice. Pour plus de détails, consultez  Générer un Webservice . Exécution .BKC Fichier archive d'une  classe  (créé à la première sauvegarde de la classe) Archi...
Lire la suite

Ouverture d’un tiroir-caisse

Image
Ouverture d’un tiroir-caisse : Pour un point de vente, le tiroir-caisse est souvent considéré comme une extension de l’imprimante. L’ouverture de celui-ci est donc activée par une commande d’impression. Pour une imprimante TM-T88x (par exemple) : //**************************************************************************************************************************** ImprimanteTicket  est une  chaîne   // nom de l'imprimante ticket derrière laquelle se trouve le tiroir-caisse   iConfigure ( ImprimanteTicket ) //ouverture du tiroir-caisse chTiroir  est une  chaîne chTiroir = ESC + "p0" + ESC + "5" + ESC + "5" iEscape ( chTiroir ) iFinImprime () //**************************************************************************************************************************** Une autre solution : sEcrit ( _port , ESC + "p" + Caract ( 0 )+ Caract ( 25 )+ Caract ( 250 )) //****************...
Lire la suite