'afficher un fichier en texte contenant combobox et statictext

'A VOIR :
'parfois une réponse juste est considérée comme fausse
'après un clic sur le bouton "refaire", la réponse à un combobox ne semble pas prise en compte
'bien que la combobox affiche le choix de l'utilisateur

 
'simulation de fichier texte, lu en ligne par ligne
    '(les préfixes et suffixes de 2 lettres sont des balises perso)
    'préfixe : TI, TE, CB, catégorie de ligne pour traitement séparé
    'suffixe : CL, changement de ligne volontaire à l'affichage.
    'à la lecture, une ligne dépourvue de CL se voit ajouter la ligne de fichier suivante

    nomfichier$="le Corbeau et le Renard.txt"   '(titre de la fenêtre)

    [fichier]
    data "TILe Corbeau et le RenardCL"
    data "TEMaître"
    data "CBCorbeau:Loup,Renard,Corbeau,Souriceau,Lion"
    data "TE, sur un arbre"
    data "CBperché:en fleur,déraciné,perché,feuillu,magnifique" '"réponse juste:choix1,choix2,...")
    data "TE, tenait en son bec un fromage.CL"
    data "TEMaître Renard, à l'odeur"
    data "CBalléchée:rouge vif,bleue,alléchée,puissante,sereine,assurée"
    data "TE, lui tint à peu près ce langage.CL"
    data "TEHé ! bonjour, Monsieur du"
    data "CBCorbeau:Courneau,Corbeau,Bigorneau,Cours d'EauCL"
    data "TEQue vous êtes joli ! que vous me semblez beau !CL"
 
    'mise en tableau des lignes
    NbrLignesFichier=12
    dim fichier$(NbrLignesFichier)
 
    restore [fichier]
    print:print "contenu du fichier :"
    for a=0 to NbrLignesFichier-1
        read a$
        fichier$(a)= a$
        print fichier$(a)
    next
 
 
 
 
'recherche hauteur et largeur occupée par l'affichage du fichier à l'écran
'définition du contenu,positions et dimensions des statictext et combobox

    'centrages
    centrageTitre = 1   'centrage du titre, 1=centré, 0=aligné à gauche
    centrageTexte = 1   'pas fonctionnel !!! centrage du texte, 1=centré, 0=aligné à gauche

    'dimensions des caractères à taille fixe (comment fait-on pour des dimensions qui varient d'un caractère à l'autre ?)
    LargeurCarTI=15     :HauteurCarTI=30  :interligneTI=int(HauteurCarTI*0.2)  'titre
    LargeurCarTE=9     :HauteurCarTE=15  :interligneTE=int(HauteurCarTE*2.2)  'texte du statictext
    correcVerticalCB = int(HauteurCarTE/4)
    interligneReponse = int(HauteurCarTE*1.6)' - correcVerticalCB

    'pour dimensionnement des statictext
    font$="lucida_console"
    fontetit$="!font " + font$ + " " + str$(LargeurCarTI) + " " + str$(HauteurCarTI)
    fontetex$="!font " + font$ + " " + str$(LargeurCarTE) + " " + str$(HauteurCarTE)
    fontecbx$="font " + font$ + " " + str$(LargeurCarTE) + " " + str$(HauteurCarTE)
    fonteexp$="!font " + font$ + " bold italic " + str$(LargeurCarTE) + " " + str$(HauteurCarTE)
 
    'nombre de caractères par lignes, dimensions d'affichage en découlant
    'marges de la fenêtre, exprimées en % de la future fenêtre
    margeGauche = 5
    margeHaut = 20
    margeDroite = 5
    margeBas = 10
 
    'position initiale de l'affichage des statictext et combobox
    posx = 0
    posy = 0
 
    'index pour le nombre de statictext et combobox rencontrés dans la lecture du fichier
    stxtext = 0 'statictext
    cmbbox = 0  'combobox

    'tableaux contenant les variables des statictexts
    NbStatMax = 50 'nombre maxi de statictexts dans la fiche
    dim staticChaine$(NbStatMax)
    dim staticX(NbStatMax)
    dim staticY(NbStatMax)
    dim staticLargeur(NbStatMax)
    dim staticHauteur(NbStatMax)
 
    NbCmbMax = 50 'nombre maxi de comboboxs dans la fiche

    dim comboX(NbCmbMax)
    dim comboY(NbCmbMax)
    dim comboLargeur(NbCmbMax)
    dim comboHauteur(NbCmbMax)
    dim comboNbDonnees(NbCmbMax)
    dim comboMotJuste$(NbCmbMax)
    '(faut-il prévoir un pré-remplissage utile à la seule déclaration des combobox ?)

 
 
 
'Lecture du fichier, dimensionnement provisoire et définition des combobox et statictext

    for a=0 to NbrLignesFichier-1
 
        print
        'analyse de la ligne
        ligne$ = fichier$(a)
 
        prefixe$ = left$(ligne$,2)
        suffixe$ = right$(ligne$,2)
 
        if suffixe$ = "CL" then aRetirer = 4 else aRetirer = 2
        texte$ = mid$(ligne$,3,len(ligne$)-aRetirer)
        longueurTexte = len(texte$)
        'print "préfixe : ";prefixe$;", suffixe : ";suffixe$;",  texte : ";texte$

 
        'définir et positionner les statictext et combobox
        select case prefixe$
 
 
            case "TI"
                print "case TI - titre : ";texte$
 
                LargeurObjet = longueurTexte * LargeurCarTI
                HauteurObjet = HauteurCarTI
                interligne = interligneTI
 
                staticChaine$(stxtext) = texte$
                staticX(stxtext) = posx
                staticY(stxtext) = posy
                staticLargeur(stxtext) = LargeurObjet
                staticHauteur(stxtext) = HauteurObjet
 
                interligne = interligneTI
 
                print "case TI - objet Titre : ";posx;" ";posy;" ";LargeurObjet;" ";HauteurObjet
                gosub [statictexts]
                stxtext = stxtext + 1
 
 
            case "TE"
                print "case TE - texte : ";texte$
 
                LargeurObjet = (longueurTexte + 1) * LargeurCarTE
                HauteurObjet = HauteurCarTE
                interligne = interligneTE
 
                staticChaine$(stxtext) = texte$
                staticX(stxtext) = posx
                staticY(stxtext) = posy
                staticLargeur(stxtext) = LargeurObjet
                staticHauteur(stxtext) = HauteurCarTE
 
                print "case TE - objet Texte : ";posx;" ";posy;" ";LargeurObjet;" ";HauteurObjet
                gosub [statictexts]
                stxtext = stxtext + 1
 
 
            case "CB"
                print "case CB - liste de choix : ";texte$
                'la longueur texte à afficher n'est pas la ligne
                'mais seulement le mot le plus long de la liste.

                'avant le ":" c'est le mot juste, après c'est la liste de mots proposée
                debutListe = instr(texte$,":") + 1
                motJuste$ = left$(texte$,debutListe-2)
 
                print "case CB - début liste : ";debutListe
                print "case CB - mot juste = ";motJuste$
 
                'analyse de la liste : mot le plus long, mise en tableau de la liste
                if debutListe=0 then
                    print "case CB - deux-points non trouvé, cette liste de choix sera ignorée"
                else
                    'nombre de données dans la liste
                    nbrDonnee = 1' on part du principe qu'il y a au moins une donnée. concevoir le cas où il n'y en aurait pas

                    for b = debutListe to longueurTexte
                        car$ = mid$(texte$,b,1)
                        if car$ = "," then nbrDonnee = nbrDonnee + 1
                    next
 
                    'dimensionnement du tableau pour combobox
                    print "case CB - nombre de données :";nbrDonnee
                    dim liste$(nbrDonnee), listeIntermediaire$(nbrDonnee), tir(nbrDonnee)
 
                    'recherche du plus grand mot de la liste, dont la longueur servira à l'affichage du combobox
                    'et remplissage du tableau avec la liste

                    mot$ = ""           'le mot de la liste actuellement traité
                    longueurMot = 0     'longueur du mot actuel
                    numeroMot = 0       'numéro du mot actuel
                    maxiMot = 0         'longueur du mot le plus long rencontré dans la liste

                    'remplissage du tableau contenant les entrées de la liste
                    for b = debutListe to longueurTexte
 
                        car$ = mid$(texte$,b,1)
 
                        if car$ = "," or b = longueurTexte then
                            if b = longueurTexte then mot$ = mot$ + car$
                            longueurMot = len(mot$)
                            if maxiMot < longueurMot then maxiMot = longueurMot ' on garde le nbre de caractères
                                'du mot le plus grand

 
                            'mettre le mot en tableau
                            liste$(numeroMot) = mot$            ' on met le mot en tableau

                            numeroMot = numeroMot + 1
                            print "case CB - maxiMot : ";maxiMot;",  longueur mot$ = ";longueurMot;",  mot$ = ";mot$
                            mot$=""                            ' et on prépare le travail sur le mot suivant
                        else
                            mot$ = mot$ + car$
                        end if
 
                    next
 
                    comboMotJuste$(cmbbox) = motJuste$
                    comboNbDonnees(cmbbox) = numeroMot
 
                end if
 
                LargeurObjet = maxiMot * LargeurCarTE + 25
                HauteurObjet = HauteurCarTE
                interligne = interligneTE
 
 
                print "case CB - objet Combobox : ";posx;" ";posy;" ";LargeurObjet;" ";HauteurObjet
 
                comboX(cmbbox) = posx
                comboY(cmbbox) = posy - correcVerticalCB 'essayer de le faire proportionnel à la hauteur de ligne
                comboLargeur(cmbbox) = LargeurObjet
                comboHauteur(cmbbox) = HauteurObjet
 
                gosub [comboboxes]
 
                cmbbox = cmbbox + 1 'on prépare pour le combobox suivant

 
            end select
 
        'si le changement de ligne est demandé
        if suffixe$="CL" then
            print  "case CL - Changement de ligne"
            'on officialise la longueur de la ligne actuelle (en fait, la largeur en pixels qu'elle occupe à l'écran)
            if LargeurAffMax < posx + LargeurObjet then LargeurAffMax = posx + LargeurObjet
 
            'on prépare la coordonnée verticale de la ligne suivante
            posx = 0
            posy = posy + HauteurObjet + interligne
 
            print
            print "case CL - CL = fin de ligne, posx = ";posx;" et posy = ";posy
 
        else
            'on ajoute à la longueur la longeur de l'objet venant d'^tre traité
            print
            print "case CL - ligne en cours"
            posx = posx + LargeurObjet
            print "case CL - ligne en cours, posx = ";posx;", Largeur de l'objet = ";LargeurObjet
 
        end if
 
 
        print "case CL - largeur affichage : ";LargeurAffMax;" pixels"
        print "case CL - position verticale affichage ligne suivante : ";posy;" pixels"
 
    next
 
 
 
 
'préparation à l'affichage de la fenêtre
    'détermination des marges
    print:print "Prépa fenêtre - détermination des marges"
    MargeGauchePx = int((LargeurAffMax*margeGauche)/100)
    MargeDroitePx = int((LargeurAffMax*margeDroite)/100)
    MargeHautPx = int((posy*margeHaut)/100)
    MargeBasPx = int((posy*margeBas)/100)
 
    print "Prépa fenêtre - marge gauche Px : ";MargeGauchePx;", droite : ";MargeDroitePx;", haut : ";MargeHautPx;", bas : ";MargeBasPx
 
    'application des marges
    print:print "Prépa fenêtre - application des marges"
    LargeurFenetre = MargeGauchePx + LargeurAffMax + MargeDroitePx
    HauteurFenetre = MargeHautPx + posy + MargeBasPx
    print "Prépa fenêtre - largeur fenêtre : ";LargeurFenetre;", hauteur fenêtre : ";HauteurFenetre;" pixels"
 
    'ajout de la rangée de boutons "corriger, refaire, quitter,"
    LargeurCarBTN=8     :HauteurCarBTN=20   :interligneBTN=int(HauteurCarBTN/2)  'fonte des boutons
    fontebtn$="!font courrier_new"+" "+str$(LargeurCarBTN)+" "+str$(HauteurCarBTN)
 
    nbrboutons = 3
    intervalle = LargeurFenetre / (nbrboutons * 2 + 1)
    largeurbouton = intervalle
 
    posy = posy + HauteurObjet + interligne
    xbouton = intervalle * 1 : button #fiche.corriger, "Corriger ?", [corriger], UL, xbouton, posy, largeurbouton, HauteurCarBTN+interligneBTN
    xbouton = intervalle * 3 : button #fiche.refaire, "Refaire", [refaire], UL, xbouton, posy, largeurbouton, HauteurCarBTN+interligneBTN
    xbouton = intervalle * 5 : button #fiche.quitter, "Quitter", [quit], UL, xbouton, posy, largeurbouton, HauteurCarBTN+interligneBTN
 
    HauteurFenetre = HauteurFenetre + HauteurCarBTN + MargeBasPx + 30
    print:print "Prépa fenêtre - application des boutons"
    print "Prépa fenêtre - largeur fenêtre, avec marges : ";LargeurFenetre;" pixels"
    print "Prépa fenêtre - hauteur fenêtre, avec marges : ";HauteurFenetre;" pixels"
 
    'centrage et positionnement des statictexts et combobox
    Milieu = int(LargeurFenetre)/2
 
    'centrage du titre
    if centrageTitre = 1 then staticX(0)=int(LargeurFenetre)/2 - int((staticLargeur(0)/2))
    staticY(0) = staticY(0) + margeHaut
    'positionnement correct des statictexts
    for boucle = 1 to stxtext
        staticX(boucle) = staticX(boucle) + MargeGauchePx
        staticY(boucle) = staticY(boucle) + MargeHautPx
    next
 
    'positionnement correct des comboboxs
    for boucle = 0 to cmbbox
        comboX(boucle) = comboX(boucle) + MargeGauchePx
        comboY(boucle) = comboY(boucle) + MargeHautPx
    next
 
 
 
 
'end

 
 
 
'dimensions et position de la fenêtre

    'milieu de la fenêtre au milieu de l'écran
    'dimensions de l'écran
    LargeurEcran = DisplayWidth
    HauteurEcran = DisplayHeight
    'si les dimensions de la fenêtre sont supérieures aux dimensions de l'écran, la fenêtre sera de la dimension de l'écran
    'il me semble bien que des ascenseurs sont affichés pour parcourir l'intégralité de la fenêtre.
    'il ne devrait donc pas être nécessaire de se préoccuper de cette situation. A confirmer.

    'point haut gauche de la fenêtre dans l'écran

    'centre de l'écran
    CentreEcranX = int(LargeurEcran / 2)
    CentreEcranY = int(HauteurEcran / 2)
 
    'centre de la fenêtre
    CentreFenetreX = int(LargeurFenetre / 2)
    CentreFenetreY = int(HauteurFenetre / 2)
 
    'positionner la fenêtre
    UpperLeftX = CentreEcranX - CentreFenetreX
    UpperLeftY = CentreEcranY - CentreFenetreY
 
    'dimensionner la fenêtre
    WindowWidth = LargeurFenetre
    WindowHeight = HauteurFenetre
 
    'a faire : prévoir le cas où LargeurAffMax ou posy seraient plus grands que les dimensions de l'écran
    'WindowHeight = HauteurTotaleAffichage

    print:print "Prépa fenêtre - juste avant ouverture de fenêtre :"
    print "Prépa fenêtre - largeur fenêtre = ";WindowWidth
    print "Prépa fenêtre - hauteur fenêtre = ";WindowHeight
    print
 
 
'remplissage et affichage de la fenêtre
    open nomfichier$ for window as #fiche
 
        print "affichage fenêtre"
 
        print #fiche.corriger, fontebtn$
        print #fiche.refaire, fontebtn$
        print #fiche.quitter, fontebtn$
 
        for fonte = 0 to stxtext
            select case fonte
                case 0 : #fiche.tit, fontetit$
                case 1 : #fiche.text1, fontetex$
                case 2 : #fiche.text2, fontetex$
                case 3 : #fiche.text3, fontetex$
                case 4 : #fiche.text4, fontetex$
                case 5 : #fiche.text5, fontetex$
                case 6 : #fiche.text6, fontetex$
                case 7 : #fiche.text7, fontetex$ 
            end select
        next
 
 
        for fonte = 0 to cmbbox - 1
            select case fonte
                case 0 : print "combobox n° ";fonte : #fiche.cb0,fontecbx0$'
                case 1 : print "combobox n° ";fonte : #fiche.cb1,fontecbx1$
                case 2 : print "combobox n° ";fonte : #fiche.cb2,fontecbx2$
                case 3 : print "combobox n° ";fonte : #fiche.cb3,fontecbx3$
                case 4 : print "combobox n° ";fonte : #fiche.cb4,fontecbx4$
            end select
            'print "cmbbox = ";cmbbox;", combobox n° ";fonte;" affichée"
        next
 
    print #fiche, "trapclose [quit]"
 
    wait
 
'fin du programme, au cas où...
end
 
 
'******** zone des sous-programmes ********

[quit]
    print : print "[quit]"
    print fontebtn$
    close #fiche
    end
 
 
[corriger]
    print : print "[corriger]"
    for fonte = 0 to cmbbox - 1
        select case fonte
            case 0 : print "cb0" : #fiche.cb0,fontecbx0$ : print #fiche.stcb0, corrige0$
            case 1 : print "cb1" : #fiche.cb1,fontecbx1$ : print #fiche.stcb1, corrige1$ 
            case 2 : print "cb2" : #fiche.cb2,fontecbx2$ : print #fiche.stcb2, corrige2$ 
            case 3 : print "cb3" : #fiche.cb3,fontecbx3$ : print #fiche.stcb3, corrige3$ 
            case 4 : print "cb4" : #fiche.cb4,fontecbx3$ : print #fiche.stcb4, corrige4$
        end select
    next
 
    print #fiche.corriger, "!disable" 'une fois la correction effectuée, il faut redémarrer
    'l'exercice pour pouvoir le corriger à nouveau
    print fontebtn$
 
wait
 
 
[refaire]
    print : print "[refaire]"
 
    cmbboxmax = cmbbox 'cmbboxmax est le nombre maxi de combobox
    cmbbox = 0 'cmbbox est le combobox courant

    'refaire tous les combobox pour en changer le contenu

    'pour chaque combobox

    print "[refaire] - début boucle cmbbox, traitant successivement tous les combobox"
    for cmbbox = 0 to cmbboxmax - 1
 
        print "[refaire] - combobox en cours = ";cmbbox
        nbDonnees = comboNbDonnees(cmbbox)
 
        print "[refaire] - nombre de données dans la combobox = ";nbDonnees
        dim liste$(nbDonnees)
 
        print:print "[refaire] - récupération de la liste du combobox n° ";cmbbox
        for ad=0 to nbDonnees-1
        select case cmbbox
            case 0 : print "[refaire] - case 0, ";comboliste0$(ad) : liste$(ad) = comboliste0$(ad)
            case 1 : print "[refaire] - case 1, ";comboliste1$(ad) : liste$(ad) = comboliste1$(ad)
            case 2 : print "[refaire] - case 2, ";comboliste2$(ad) : liste$(ad) = comboliste2$(ad)
            case 3 : print "[refaire] - case 3, ";comboliste3$(ad) : liste$(ad) = comboliste3$(ad)
            case 4 : print "[refaire] - case 4, ";comboliste4$(ad) : liste$(ad) = comboliste4$(ad)
        end select
        next
 
        print:print "[refaire] - gosub [melangeliste]"
        gosub [melangeliste]
 
        print "[refaire] - Réattribution de la liste modifiée"
        select case cmbbox
                case 0 : print "[refaire] - case 0, réattribution de la liste modifiée, combobox n° = ";cmbbox
                         for abc=0 to nbDonnees-1:comboliste0$(abc) = liste$(abc):print "[refaire] - ";comboliste0$(abc):next
                         print #fiche.cb0,"reload"
                         #fiche.cb0, fontecbx$ : print #fiche.cb0, "! " : print #fiche.stcb0, ""
 
                case 1 : print "[refaire] - case 1, réattribution de la liste modifiée, combobox n° = ";cmbbox
                         for abc=0 to nbDonnees-1:comboliste1$(abc) = liste$(abc):print "[refaire] - ";comboliste1$(abc):next
                         print #fiche.cb1,"reload"
                         #fiche.cb1, fontecbx$ : print #fiche.cb1, "! " : print #fiche.stcb1, ""
 
                case 2 : print "[refaire] - case 2, réattribution de la liste modifiée, combobox n° = ";cmbbox
                         for abc=0 to nbDonnees-1:comboliste2$(abc) = liste$(abc):print "[refaire] - ";comboliste2$(abc):next
                         print #fiche.cb2,"reload"
                         #fiche.cb2, fontecbx$ : print #fiche.cb2, "! " : print #fiche.stcb2, ""
 
                case 3 : print "[refaire] - case 3, réattribution de la liste modifiée, combobox n° = ";cmbbox
                         for abc=0 to nbDonnees-1:comboliste3$(abc) = liste$(abc):print "[refaire] - ";comboliste3$(abc):next
                         print #fiche.cb3,"reload"
                         #fiche.cb3, fontecbx$ : print #fiche.cb3, "! " : print #fiche.stcb3, ""
 
                case 4 : print "[refaire] - case 4, réattribution de la liste modifiée, combobox n° = ";cmbbox
                         for abc=0 to nbDonnees-1:comboliste4$(abc) = liste$(abc):print "[refaire] - ";comboliste4$(abc):next
                         print #fiche.cb4,"reload"
                         #fiche.cb4, fontecbx$ : print #fiche.cb4, "! " : print #fiche.stcb4, ""
        end select
        print "[refaire] - fin du tour"
        print
    next
 
    print : print "[refaire] - fin boucle cmbbox, traitant successivement tous les combobox"
 
    print #fiche.corriger, "!enable" 'rendre opérationnel le bouton "corriger"
    print "[refaire] - ";fontebtn$
 
    print "[refaire] - fin"
    print
 
wait
 
 
[melangeliste]
                    'mélange de la liste
    print : print "[melangeliste]"
    tour = 0
    mot = 0
    'un tableau recense les tirages : si un nombre a déja été tiré on refait le tirage
    'pour chaque case du tableau, on tire au sort un numéro

    'tableau recensant les numéros déjà tirés
    nbrDonnee = comboNbDonnees(cmbbox)
    print "[melangeliste] - nbrDonnee = ";nbrDonnee
    dim tirages(nbrDonnee)
    dim tirages$(nbrDonnee)
 
    'remplissage du tableau avec des valeurs "-1" (pour faire la différence avec la valeur "zéro", qui n'est pas  neutre
    print "[melangeliste] - remplissage tableau des tirages avec -1 valeur vide"
    for aa = 0 to nbrDonnee -1
        tirages(aa)=-1
    next
 
    print "[melangeliste] - placer les mots à une position aléatoire dans le tableau"
 
    complet = 0
    print "[melangeliste] - début while, variable = complet"
    while complet = 0
 
        tour = tour + 1
        tir = int(rnd(1) * nbrDonnee)
        print "[melangeliste] - tir = ";tir
 
        if tirages(tir)=-1 then
 
            tirages(tir) = mot
            tirages$(mot)=liste$(tir)
            print "[melangeliste] - mot n°";mot;", tir n°";tir;" accepté, tirages(tir) = ";tirages(tir);", tirages$(tir) = ";tirages$(mot)'tir
            mot = mot + 1
        end if
 
        if mot = nbrDonnee or tour = 100 then print "[melangeliste] - fin du tour. mot = ";mot;", tour = ";tour : print : complet = 1
    wend
    print "[melangeliste] - liste mélangée :"
 
    print:print "[melangeliste] - liste mélangée :"
    for aa = 0 to nbDonnees - 1
        liste$(aa) = tirages$(aa)
        print "[melangeliste] - position : ";aa;",  contenu : ";liste$(aa)
    next
 
    print
 
return
 
 
[statictexts]
    print : print "[statictexts]"
    select case stxtext
 
        case 0 : statictext #fiche.tit, staticChaine$(0), staticX(0),  staticY(0), staticLargeur(0), staticHauteur(0)
        case 1 : statictext #fiche.text1, staticChaine$(1), staticX(1),  staticY(1), staticLargeur(1), staticHauteur(1)
        case 2 : statictext #fiche.text2, staticChaine$(2), staticX(2),  staticY(2), staticLargeur(2), staticHauteur(2)
        case 3 : statictext #fiche.text3, staticChaine$(3), staticX(3),  staticY(3), staticLargeur(3), staticHauteur(3)
        case 4 : statictext #fiche.text4, staticChaine$(4), staticX(4),  staticY(4), staticLargeur(4), staticHauteur(4)
        case 5 : statictext #fiche.text5, staticChaine$(5), staticX(5),  staticY(5), staticLargeur(5), staticHauteur(5)
        case 6 : statictext #fiche.text6, staticChaine$(6), staticX(6),  staticY(6), staticLargeur(6), staticHauteur(6)
        case 7 : statictext #fiche.text7, staticChaine$(7), staticX(7),  staticY(7), staticLargeur(7), staticHauteur(7)
     end select
 
return
 
 
[comboboxes]
    print : print "[comboboxes]"
    print "[comboboxes] - cmbbox = ";cmbbox
    print : print "[comboboxes] - select case cmbbox"
    select case cmbbox
 
        case 0
            print "[comboboxes] - case 0"
            for cbx = 0 to nbrDonnee - 1 : comboliste0$(cbx) = liste$(cbx) :print "liste = ";liste$(cbx);" = ";comboliste0$(cbx): next
            combobox #fiche.cb0, comboliste0$(), [cb0], comboX(0), comboY(0), comboLargeur(0), comboHauteur(0)
            statictext #fiche.stcb0, "", comboX(0), comboY(0) + interligneReponse, comboLargeur(0), comboHauteur(0)
 
            motJuste0$=motJuste$
            fontecbx0$=fontecbx$
 
        case 1
            print "[comboboxes] - case 1"
            for cbx = 0 to nbrDonnee - 1 : comboliste1$(cbx) = liste$(cbx) : next
            combobox #fiche.cb1, comboliste1$(), [cb1], comboX(1), comboY(1), comboLargeur(1), comboHauteur(1)
            statictext #fiche.stcb1, "", comboX(1), comboY(1) + interligneReponse, comboLargeur(1), comboHauteur(1)
 
            motJuste1$=motJuste$
            fontecbx1$=fontecbx$
 
        case 2
            print "[comboboxes] - case 2"
            for cbx = 0 to nbrDonnee - 1 : comboliste2$(cbx) = liste$(cbx) : next
            combobox #fiche.cb2, comboliste2$(), [cb2], comboX(2), comboY(2), comboLargeur(2), comboHauteur(2)
            statictext #fiche.stcb2, "", comboX(2), comboY(2) + interligneReponse, comboLargeur(2), comboHauteur(2)
 
            motJuste2$=motJuste$
            fontecbx2$=fontecbx$
 
        case 3
            print "[comboboxes] - case 3"
            for cbx = 0 to nbrDonnee - 1 : comboliste3$(cbx) = liste$(cbx) : next
            combobox #fiche.cb3, comboliste3$(), [cb3], comboX(3), comboY(3), comboLargeur(3), comboHauteur(3)
            statictext #fiche.stcb3, "", comboX(3), comboY(3) + interligneReponse, comboLargeur(3), comboHauteur(3)
 
            motJuste3$=motJuste$
            fontecbx3$=fontecbx$
 
        case 4
            print "[comboboxes] - case 3"
            for cbx = 0 to nbrDonnee - 1 : comboliste3$(cbx) = liste$(cbx) : next
            combobox #fiche.cb4, comboliste4$(), [cb4], comboX(4), comboY(4), comboLargeur(4), comboHauteur(4)
            statictext #fiche.stcb3, "", comboX(4), comboY(4) + interligneReponse, comboLargeur(4), comboHauteur(4)
 
            motJuste4$=motJuste$
            fontecbx4$=fontecbx$
    end select
    print "[comboboxes] - fin select case"
    print "[comboboxes] - fin combo, return"
 
return
 
 
[cb0]
    print
    print "[cb0] - ce qui se passe quand on a choisi le mot dans CB0"
    'on vérifie le choix de l'utilisateur

    'on extrait le choix de l'utilisateur
    print #fiche.cb0, "contents? choix$"
    print "[cb0] - choix de l'utilisateur : ";choix$
    print "[cb0] -          bonne réponse = ";motJuste0$
 
    'on compare le choix au réel
    if choix$ = motJuste0$ then
        print "[cb0] - bonne réponse"
        'résultat juste, fonte normale
        cb0Resultat = 1
        fontecbx0$ = fontecbx$
        corrige0$ = ""
    else
        'résultat faux, fonte barrée
        'motJuste0$
        print #fiche.stcb0,fonteexp$
 
        print "[cb0] - réponse erronnée"
        cb0Resultat = 0
        fontecbx0$=fontecbx$+" strikeout"
        corrige0$ = comboMotJuste$(0)
    end if
    print "[cb0] - en [cb0] on a : ";fontecbx0$
 
    wait
 
 
[cb1]
    print
    print "[cb1] - ce qui se passe quand on a choisi le mot dans CB1"
    'on vérifie le choix de l'utilisateur

    'on extrait le choix de l'utilisateur
    print #fiche.cb1, "contents? choix$"
    print "[cb1] - choix de l'utilisateur : ";choix$
    print "[cb1] -          bonne réponse = ";motJuste1$
 
    'on compare le choix au réel
    if choix$ = motJuste1$ then
        print "[cb1] - bonne réponse"
        'résultat juste, fonte normale
        cb1Resultat = 1
        fontecbx1$=fontecbx$
        corrige1$ = ""
    else
        'résultat faux, fonte barrée
        print "[cb1] - réponse erronnée"
        print #fiche.stcb1,fonteexp$
        cb1Resultat = 0
        fontecbx1$=fontecbx$+" strikeout"
        corrige1$ = comboMotJuste$(1)
    end if
    print "[cb1] - en [cb1] on a : ";fontecbx1$
    wait
 
 
[cb2]
    print
    print "[cb2] - ce qui se passe quand on a choisi le mot dans CB2"
    'on vérifie le choix de l'utilisateur

    'on extrait le choix de l'utilisateur
    print #fiche.cb2, "contents? choix$"
    print "[cb2] - choix de l'utilisateur : ";choix$
    print "[cb2] -          bonne réponse = ";motJuste2$
 
    'on compare le choix au réel
    if choix$ = motJuste2$ then
        print "[cb2] - bonne réponse"
        'résultat juste, fonte normale
        cb2Resultat = 1
        fontecbx2$=fontecbx$
        corrige2$ = ""
    else
        'résultat faux, fonte barrée
        print "[cb2] - réponse erronnée"
        print #fiche.stcb2,fonteexp$
        cb2Resultat = 0
        fontecbx2$=fontecbx$+" strikeout"
        corrige2$ = comboMotJuste$(2)
    end if
    print "[cb2] - en [cb2] on a : ";fontecbx2$
    wait
 
 
[cb3]
    print
    print "[cb3] - ce qui se passe quand on a choisi le mot dans CB3"
    'on vérifie le choix de l'utilisateur

    'on extrait le choix de l'utilisateur
    print #fiche.cb3, "contents? choix$"
    print "[cb3] - choix de l'utilisateur : ";choix$
    print "[cb3] -          bonne réponse = ";motJuste3$
 
    'on compare le choix au réel
    if choix$ = motJuste3$ then
        print "[cb3] - bonne réponse"
        'résultat juste, fonte normale
        cb3Resultat = 1
        fontecbx3$=fontecbx$
        corrige3$ = ""
    else
        'résultat faux, fonte barrée
        print "[cb3] - réponse erronnée"
        print #fiche.stcb3,fonteexp$
        cb3Resultat = 0
        fontecbx3$=fontecbx$+" strikeout"
        corrige3$ = comboMotJuste$(3)
    end if
    print "[cb3] - en [cb3] on a : ";fontecbx3$
    wait
 
 
[cb4]
    print
    print "[cb4] - ce qui se passe quand on a choisi le mot dans CB4"
    'on vérifie le choix de l'utilisateur

    'on extrait le choix de l'utilisateur
    print #fiche.cb4, "contents? choix$"
    print "[cb4] - choix de l'utilisateur : ";choix$
    print "[cb4] -          bonne réponse = ";motJuste3$
 
    'on compare le choix au réel
    if choix$ = motJuste4$ then
        print "[cb4] - bonne réponse"
        'résultat juste, fonte normale
        cb4Resultat = 1
        fontecbx4$=fontecbx$
        corrige4$ = ""
    else
        'résultat faux, fonte barrée
        print "[cb4] - réponse erronnée"
        print #fiche.stcb4,fonteexp$
        cb4Resultat = 0
        fontecbx4$=fontecbx$+" strikeout"
        corrige4$ = comboMotJuste$(3)
    end if
    print "[cb4] - en [cb4] on a : ";fontecbx4$
    wait