Soucis avec une BDD paradox...

Boujour à tous...

J'ai un petit soucis avec une base de données PARADOX...

Voilà, je souhaiterais modifier le programme que j'avais fait avec une stringgrid concernant l'édition d'une liste de vocabulaire... je préfère désormais gérer ça avec une base de données.

Lors de l'éxécution de mon programme, j'ai une petite form qui me réclame le nom de ma base de donnée (bein voui, l'utilisateur a peut-être envie de créer plusieurs listes de voca...), puis lorsque je clique sur le boutton Valider ma base de données est créée dans le répertoire d'exécution avec les caractéritiques que je veux.

Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

FormPrincipale->Table->Active = false; FormPrincipale->Table->DatabaseName = ""; FormPrincipale->Table->TableType = ttParadox; FormPrincipale->Table->TableName = NomBase; FormPrincipale->Table->FieldDefs->Clear();   if (!FormPrincipale->Table->Exists) // Ne remplace pas une table existante { FormPrincipale->Table->FieldDefs->Add("Ligne",ftAutoInc,0,false); FormPrincipale->Table->FieldDefs->Add("Mot Français",ftString,180,false); FormPrincipale->Table->FieldDefs->Add("Mot Anglais",ftString,180,false); FormPrincipale->Table->CreateTable();

---

Le problème viens lors de l'exécution de la seconde form, la form d'édition de la table ! En effet, il faut que je lui dise d'utiliser la table que j'ai créée précédement mais je ne sais trop comment faire :s

J'utilise une DBGrid pour voir les modifications de la table en temps réel. Sur ma seconde form j'ai donc mis un composant TTable avec un DataSource mais le pb c'est que je ne sais trop comment dire au composant TTable de pointer sur la table créée précedement et surtout de l'activer pour qu'elle soit prise en compte dans la fenêtre et affiché dans la DBGrid...

J'ai essayé :

Code:

---

FormPrincipale->Table->Active = true;

---

mais il me sors une erreur de paramètre...
Si vous avez une idée... help me please ^^

D'autre part si vous avez aussi une idée pour fermer une base de données et la recharger ultérieurement dans un DBGird...

Merci pour vos réponses

Bonjour,
La première chose qui m'interpelle, c'est ceci :

Code:

---

1 2	FormPrincipale->Table->DatabaseName = "";

---

Je vais peut être dire une bêtise mais comment fais tu pour spécifier un chemin illustrant le repertoire ou est stocker la table créée ?
Perso, j'ai fais des Alias et donc je renseigne cette prppriété mais bon....
tes soucis ne sont peut être pas forcement de la.

@ + ;)

Re Salut ;)

Euhhh sauf cas contraire, si ce champ n'est pas renseigné, le programme cherche la base de données dans le répertoire en cours d'utilisation... Or là, la base de données créée est dans le répertoire ou mon prog est exécuté...

sinon comment remplirais tu ce champ ?

Code:

---

1 2	FormPrincipale->Table->DatabaseName= "mapremierebase.db";

---

comme ceci ?

merci...

Généralement, je renseigne cette propriété a la conception avec l'inspecteur d'objet (mais cela tiens surement a des 'déviances' personnelles :D).
Bon je ne dis pas que cela soit le vrai motif de l'erreur.
Que dis exactement le message d'erreur ?

Donc si tu veux, la base de données est belle et bien créer puisque le fichier apparait dans le répertoire, j'accède a la form pour l'édition de la base et quand je clique sur nouveau (pour ajouter un enregistrement), j'ai droit a un joli msg d'erreur : Table : Cannot perform this operation on a closed dataset

l'exécutable a créer une erreur dans EDatabaseError avec le msg ci dessus... voila ce que j'ai :s

et le code est le meme que celui que j'ai mis plus haut...

nifnif

Il y a t il bien un objet TDatabase et TTable - avec respectivement 'connected=true' et 'active=true' - pointant vers cette table ?

Alors c'est bisare parce que je n'ai pas de propriété "connected" dans l'inspecteur d'objet concernant la database, mais oui il pointe bien vers la table de la première form et deusio le active du TTable je le met a true dans le code...

Code:

---

1 2	FormPrincipale->Table->Active = true;

---

Bon finalement j'ai résolu mon problème ti seul comme un grand :d ^^
Merci à toi cantrelle pour ton aide, bref il s'agissait tout simplement d'un problème de pointage... le programme pointait sur une table inexistante :s


Bref du temps que j'y suis, si quelqu'un pouvais me donner deux trois idées de façon à charger une base de données à partir d'une combobox par exemple... En gros ce que je voudrais faire mnt c'est pouvoir afficher toutes les listes (base de données) disponible dans une combobox, l'utilisateur choisi celle qu'il veut et en cliquant, admettant sur ok, la base de données se charge dans une DBGrid par exemple... je cherche de mon coté mais si quelqu'un à la solution :oops:...

Pour fermer une base de donnée je pense avoir trouvé la solution, suffit de la désactiver nan ?

bref merci pour vos réponses ^^

Bonsoir,
Bien content pour toi, j'avoue n'avoir pas eu beaucoup d'idée a te donner :oops:

Un exemple d'un petit truc que j'ai fait :
Dans une table, le premier champs contiens la liste des catégories de produits (issu d'une mercuriale d'un service achat); ces catégories apparaissent dans le Combobox (ou la zone de liste).
Le deuxième champs contient les noms de table réels, le troisième les chemins d'accès a ces tables.
Je filtre la table sur le premier champs en fonction de la valeur selectionnée dans le Combobox et j'utilise alors les valeurs des champs suivants pour indiquer les paramètres de la connexion a faire (c'est un peu résumé).
(les valeurs des derniers champs pouvant alors être renseignés 'en amont' par qqu'un ayant les droits nécéssaires pour définir les chemins d'accés aux infos, etc...)
Pour le coup, j'utilisais un TADODataset mais on peut envisager la même chose pour les paramètres TableName et autre d'un TTable...

En espérant t'aider
@ + ;)

Euh c'est sans vouloir te vexr mais j'ai rien compris... :oops:

sinon j'ai trouvé quelque chose qui à l'air de marcher... lorsque je rentre le nom de ma base de donné, je le sauvagarde dans un fichier texte qui contient le nom de toute les autres base de données. Lors de la création de la seonde form, ce fichier est chargé dans dans le combobox, puis je choisi la base que je veux, je fait ok, ce qui a pour but de remplacer le nom de la base dernièrement prise en compt par le programme, puis je l'active... y'a certainement plus simple et plus élégant mais bon ça marche :p

voici le code, pour la création et la sauvegarde :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

NomBase=Edit1->Text;   // on peut créer la base FormPrincipale->Table->Active = false; // Le composant Table ne doit pas être actif FormPrincipale->Table->DatabaseName = ""; // laisser vide cherche la base dans le repertoire actuel FormPrincipale->Table->TableType = ttParadox; FormPrincipale->Table->TableName = NomBase;   FormPrincipale->Table->FieldDefs->Clear();   if (!FormPrincipale->Table->Exists) // Ne remplace pas une table existante { FormPrincipale->Table->FieldDefs->Add("Ligne",ftAutoInc,0,false); // ERREUR FormPrincipale->Table->FieldDefs->Add("Mot Français",ftString,180,false); FormPrincipale->Table->FieldDefs->Add("Mot Anglais",ftString,180,false);   // Maintenant que vous avez spécifié votre choix, création de la table FormPrincipale->Table->CreateTable(); };   listes=fopen("liste.txt","a+"); fprintf(listes,"%s\n",Edit1->Text); fclose(listes);   Form1 = new TForm1(Application); Form1->ShowModal(); delete Form1;

---

et pour l'ouverture et le chargement en combobox :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

void __fastcall TForm1::FormCreate(TObject *Sender) { char CHN[100]; listes=fopen("liste.txt","r"); fscanf(listes,"%s",CHN); while(!feof(listes)) { ComboBox1->Items->Add(CHN); fscanf(listes,"%s",CHN); } fclose(listes); } //---------------------------------------------------------------------------   void __fastcall TForm1::Button5Click(TObject *Sender) { FormPrincipale->Table->Active=true; } //---------------------------------------------------------------------------   void __fastcall TForm1::Button8Click(TObject *Sender) { FormPrincipale->Table->TableName = ComboBox1->Text; //remplace NomBase par la base choisi dans la combo }

---

voila, dites moi ce que vous en pensez et si il y a moyen de faire plus simple et/ou plus élégant...

Citation:

---

Euh c'est sans vouloir te vexr mais j'ai rien compris...

---

:mouarf:
Non, non c'est plutôt a moi de m'excuser, je n'ai cas refléchir afin de formuler un peu mieux mes réponses...

Toi tu stockes le nom des tables dans un fichier .txt.
Moi je les stockais dans une autre table (.db), destinée rien qu'a cet effet.
L'intérêt pour moi, c'est que les autres champs de la table me permettaient de stocker d'autres infos que le nom de la table.

@ + ;)

Bonjour, boujour,

Me revoilà pour de nouvelles aventures... hum

Bref donc mes petits soucis d'édition et de recherche de table sont maintenant réglés ! un peu grâce aux tutos, au forum de developpez.com et à l'aide de Cantrelle...

En ce moment mon problème serait plutot comment récupérer le nombre de lignes dans une table et ensuite faire pointer le curseur sur une ligne tirée au hazard à l'aide de random()...

En gros j'ai une table avec deux colonnes, une de mots français et l'autre de mot anglais. Je pointe sur le champ "Mot Français", enfin la colonne mot français quoi,

Code:

---

1 2	Edit1->Text=test->Table->FieldByName("Mot Français")->AsString; //Ca sa marche nickel !

---

mais après comment tirer une ligne au hasard ??? Ceci dans le simple but de tirer aléatoirement un mot de cette colonne et d'en demander la traduction à l'utilisateur qui sera par la suite vérifié au mot correspondant.
J'ai essayé plusieurs trucs mais sans grand succès :s...

Si jamais quelqu'un peut éclairer ma lanterne ^^

Bonjour,

Peut être qqchose comme :

Code:

---

1 2 3

Table1->RecNo = random(Table1->RecordCount); ShowMessage(Table1->FieldByName("NomDeChamps")->AsString);

---

avec

Code:

---

1 2	#include <stdlib.h>

---

@ + ;)

Ro la vache ! Ca marcheeeeeeeeeeeeeeeee, énorme !

Merci bcp, bon par contre random() c'est pas au point, il tire plusieurs fois le même numéro d'afilé... à mon avis c'est p-ê parce que je n'ai pas assez d'enregistrements ;)

Mnt me reste à faire la vérification... Je sais pas trop si il vaut mieux vérifier la trad au fur et a mesure ou bien stocker les trad de l'utilisateur dans une grille ou une base et ensuite le programme fait une vérif automatique et affiche les erreurs :s...

Tu pourrais effectivement utiliser une TStringList pour stocker les réponses de l'utilisateur en fonction des mots proposé. En effet, la TStringList peut stocker les 'Clefs/Valeurs' et te permettera de parcourir toutes les valeurs stockées dans une simple boucle (par ex) et de vérifier si la réponse était bonne...
Voir la propriété Values de TStrings, accéssible donc depuis un TStringList.
//EDIT
Si l'on fait :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

void __fastcall TForm1::ButtonClick(TObject *Sender) { int i; TestR = Table1->FieldByName("Texture")->AsString; do { randomize(); i = random(Table1->RecordCount); Table1->RecNo = i; }while (Table1->FieldByName("Texture")->AsString.operator ==(TestR) || TestR.IsEmpty()); ShowMessage(Table1->FieldByName("Texture")->AsString); }

---

avec :

Code:

---

1 2 3

private: // Déclarations de l'utilisateur String TestR;

---

cela ne règle t il pas le soucis de la répétition...?

Hey ! you're the best !!!

La répétition est effectivement supprimé mais bon, pour le moment je me suis contenté de faire un copié coller en adaptenat les noms de variables, jai essayé de comprendre ce que tu m'a pondu mais en vain...

c'est surtout cette ligne la

Code:

---

while (Table1->FieldByName("Texture")->AsString.operator ==(TestR) || TestR.IsEmpty())

---

que je ne comprends pas :s (excuse je suis encore un petit débutant :$)

et sinon pour la string list je vois ce que tu veux faire mais, cette string list il faut la déclarer :

Code:

---

1 2	TStringList *Liste=new TStringList;

---

Mais une fois qu'elle est créée, plus la peine d'y revenir dessus ? y'a juste à mettre

Code:

---

Liste->Add(Edit2->Text);

---

pour ajouter des éléments... mais bon, le truc c'est que l'ajout d'éléments se fait soit par un clique sur un boutton, soit par la réinitialisation d'un timer :s
Bouuhhhhhh chu un boulet :s j'ai un peu de mal nif nif

Citation:

---

Hey ! you're the best !!!

---

Arrêtes, arrêtes...je vais te demander en mariage ! :mouarf:

Code:

---

1 2	while (Table1->FieldByName("Texture")->AsString.operator ==(TestR) || TestR.IsEmpty())

---

Et bien, tant que random repositionne l'enregistrement actif sur une valeur semblable a celle contenu par la variable 'TestR', et bien re-random ...(je ne suis pas sur que tester si TestR est vide soit bien utile)
Si l'ajout se fait par un click, au moment de la validation de la réponse par l'utilisateur, il faudra alors entrer (a mon avis) dans la TStringList :

Code:

---

1 2	Liste->Add(Table1->FieldByName("Texture")->AsString + AnsiString("=") + ReponseSaisie);

---

ou 'ReponseSaisie' est la réponse donnée par l'utilisateur, de type String, qui peut provenir (en fonction de ce que tu as prévu) de la valeur saisie dans un TEdit (?).
Ainsi, on a un couple Clé/valeur.
Après, pour la vérification, tu peut parcourir la TStringList dans une boucle; utiliser un TDataSource pointant sur ta table et filtrer celle ci avec :

Code:

---

1 2	DataSource->DataSet->Filter = AnsiString("NomdeChamp1 = '") + Liste->Names[int] + ("'");

---

après, vu que tu est positionné sur un enregistrement concerné par le test, tu peut faire une vérif du type :

Code:

---

1 2	if (Liste->Values[int].operator==(Table1->FieldByName("NomDeChamp2")->AsString)

---

Bon, c'est une proposition comme une autre, y a peut être beaucoup mieux...
;)

//EDIT

Citation:

---

soit par la réinitialisation d'un timer

---

:koi:...précisions... ?

Mmmmm oui y'a p-ê mieux mais bon, tout ce que je sais c'est que cela fonctionne et euhhh c'est le principal :D

Sinon, en ce qui concerne le Timer, c'est simple, l'utilisateur à la perssion :p, au bout de X secondes on passe au mot suivant ! et miraculeusement j'ai réussi à faire fonctionner le timer :mouarf:


J'ai pas encore tester la comparaison, mais bon, la liste est à mon avis créée...

Citation:

---

Arrêtes, arrêtes...je vais te demander en mariage ! :mouarf:

---

on va attendre un petit peu nan tu crois pas ?

Citation:

---

on va attendre un petit peu nan tu crois pas ?

---

Bon, bon...d'accord je m'emballe un peu vite.

Au moins, as - tu résolu ton souci ?

arf, nan, il me reste un dernier petit soucis, sorry :oops:

le voici mon pb :

Code:

---

1 2 3 4 5 6 7 8 9

int j; TStringList *Liste=new TStringList; for(i=0;i<=4;i++) { test->DataSource1->DataSet->Filter = AnsiString("Mot Français = '") + Liste->Names[i] + ("'"); if (Liste->Values[i].operator==(test->Table->FieldByName("Mot Anglais")->AsString)) j++; };

---

c'est tout simplement pour la vérification... soit je suis un boulet et y'a un truc qui m'échappe, soit j'ai pas assez réfléchi :s :?

//EDIT
Euhhhh, petite précision tout de même :s
Il me dis que Liste n'est pas déclaré et au moment d'effectuer une vérif, il me sors une big erreur du genre "List index out of bounds(0)"
voili voilou ^^

La c'est normal...
Tel que tu le fais, tu essaies de tester une liste qui est vide...
La TStringList doit être créee (une seule fois) avant que l'utilisateur réponde
aux questions; au moment des réponses, ou du passage automatique a une autre question, tu dois renseigner la liste (Liste->Add(...)).
Ensuite tu testes les éléménts dans la liste pour valider les réponses.
Une fois que tout est terminer, vider la liste...

Okay j'ai pigé, pour moi elle était déclarée mais pas correctement...

Bref, là le pb qui se pose, c'est qu'il ne veut pas prendre en compte le nom de mon champ :s
explication :

Code:

---

1 2	test->DataSource1->DataSet->Filter = AnsiString("Mot Français = '") + Liste->Names[i] + ("'");

---

Il me dit que 'Mot' est introuvable dans la table, ou bien si je met "MotFrançais", il dit à ce moment là que 'MotFran' est introuvable aussi :s... l'est chiant ce truc la, jlui dde pas le bout du monde :(.
DataSource1 pointe bien vers ma table, de ce coté là aucun soucis :s, ne prendrait-il qu'un nombre limité de caractères pour les nom de champ ??

As tu essayé en restant 'simple' sur le nom de champ...style:

Citation:

---

Mot_francais

---

?
(pas de caractères un peu 'spéciaux')

Euhhhhhh, je veux bien essayer avec cela, il prend effectivement en compte le truc entier mais cela suppose que je refasse toute mes DBGrid, ainsi que ma base de données :p...

Je veux bien essayé si cela peut fonctionner, que je n'ai pas fait d'autre erreur dans le code que tu m'as gentillement soufflé :D

Citation:

---

je refasse toute mes DBGrid, ainsi que ma base de données

---

Hé bien oui, dans ce cas tu dois faire un changement sur la table concernée mais qu'entends tu par 'tous mes DBGrids' ? (pour chaque colonne d'une DBGrid, tu as - dans l'inspecteur d'objects - la possibilité de spécifier 'Title -> Caption', ce faisant, c'est ce qui apparaitra quel que soit le nom 'réel' du champ...sommes nous d'accord ?)
Bon moi, je veux pas te rajouter tu taf en plus...mais bon..des fois faut tester :mouarf:

Bon alors effectivement ce fameux problème de nom de champ est corrigé ! chui un boulet je ne n'avais pas vu que la DBGrid avait un event Title->Caption, j'en était resté à l'event FieldDef... bref

Mais j'en ai un autre !

Toujours celui de "List index out of bounds(0)", mais cette fois le 0 est passé a 1 :s...
Va comprendre quelque chose


chu en train de penser que l'on se fait un topic à deux :p... PrIvAte ToPiC :P

C'est surement la 'borne supérieure' de ta boucle...
Il faut qqchose comme :

Code:

---

1 2 3 4 5

for (int i = 0; i < Liste->Count; i ++) {   }

---

@+ ;)

Bon je reviens pour de nouveau pbs !

Je commence a désepérer, j'ai mis un timer pour que le tirage aléatoire des mots s'exécute toutes les X secondes. Jusqu'à hier cela fonctionnait très bien ! aujourd'hui plus rien ! j'ai beau essayé tout un tas de truc veut rien savoir.
Ce qui se passe c'est lorsque je lance le tirage, le premier mot est afficher pdt le tps du timer (1sec ici) et hop après plus rien ! Le timer n'exécute même pas son code...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113

void __fastcall Ttest2::boutontirageClick(TObject *Sender) { if(test->choixauto->Checked==true) //tirage automatique { int u;   if(test->choix10->Checked==true) u=10;   if(test->choix20->Checked==true) u=20;   if(test->choix30->Checked==true) u=30;   if(test->choixperso->Checked==true) u=StrToInt(test->Edit1->Text); u=2; boutontirage->Enabled=false; while(u!=0) //boucle pour effectuer le tirage n fois { u--; Timer1->Enabled=true; //appel du timer }; };   if(test->choixmanu->Checked==true) Timer1->Enabled=false;   randomize(); if(test->RadioButton1->Checked==true) { Edit1->Text=test->Table->FieldByName("Mot_Francais")->AsString; do { i=random(test->Table->RecordCount); test->Table->RecNo=i; }while(test->Table->FieldByName("Mot_Francais")->AsString.operator ==(Edit1->Text) || Edit1->Text.IsEmpty()); nomfield="Mot_Français"; };   if(test->RadioButton2->Checked==true) { Edit1->Text=test->Table->FieldByName("Mot_Anglais")->AsString; do { i=random(test->Table->RecordCount); test->Table->RecNo=i; }while(test->Table->FieldByName("Mot_Anglais")->AsString.operator ==(Edit1->Text) || Edit1->Text.IsEmpty()); nomfield="Mot_Anglais"; };   if(test->RadioButton3->Checked==true) { Edit1->Text=test->Table->FieldByName("Mot_Francais")->AsString; do { i=random(test->Table->RecordCount); test->Table->RecNo=i; }while(test->Table->FieldByName("Mot_Francais")->AsString.operator ==(Edit1->Text) || Edit1->Text.IsEmpty()); };   Edit2->Text=""; } //---------------------------------------------------------------------------   void __fastcall Ttest2::Timer1Timer(TObject *Sender) {   randomize();   if(test->RadioButton1->Checked==true) { Edit1->Text=test->Table->FieldByName("Mot_Francais")->AsString; do { i=random(test->Table->RecordCount); test->Table->RecNo=i; } while(test->Table->FieldByName("Mot_Francais")->AsString.operator ==(Edit1->Text) || Edit1->Text.IsEmpty()); nomfield="Mot_Francais"; };   if(test->RadioButton2->Checked==true) { Edit1->Text=test->Table->FieldByName("Mot_Anglais")->AsString; do { i=random(test->Table->RecordCount); test->Table->RecNo=i; } while(test->Table->FieldByName("Mot_Anglais")->AsString.operator ==(Edit1->Text) || Edit1->Text.IsEmpty()); nomfield="Mot_Anglais"; };   if(test->RadioButton3->Checked==true) { Edit1->Text=test->Table->FieldByName("Mot_Francais")->AsString; do { i=random(test->Table->RecordCount); test->Table->RecNo=i; } while(test->Table->FieldByName("Mot_Francais")->AsString.operator ==(Edit1->Text) || Edit1->Text.IsEmpty()); };   Liste->Add(test->Table->FieldByName("Mot_Francais")->AsString + AnsiString("=") + Edit1->Text);   Edit2->Text=""; Edit1->Text="";   }

---

bon donc je lui demande d'exécuter la boucle de tirage un certain nombre de fois définie par l'utilisateur 10, 20, 30 fois ou personnalisé.
Hier je n'avais pas ça ! j'avais juste une boucle do while dans le timer qui m'exécutait le code un nombre de fois limité que j'avais défini et miraculeusement ça fonctionnait ! Aujourd'hui plus rien :s
Pour la boucle de tirage, j'ai essayé avec un do while mais c'est pareil, j'ai enlever les if pour les nbs de tirage, c'est pareil, bref rien ne fonctionne, sa me soul, sa fait 3h que je suis dessus :s

Si une ame charitable pouvait me filer un coup de main parce que je désèspère et mon projet est à rendre bientot...

Bonsoir,

Première réaction vite fait, comme ça:
.d'ou viens cette profusion de " ; " un peu partout dans le code ?
Etait ce vraimment nécéssaire ?
. ne peut on pas imaginer qu'une variable (déclarée en private) représente le type de traitement qu'a choisi l'utilisateur, plutôt que de tester si tel ou tel RadioButton a été coché ?
Ainsi, tu pourrais avoir une variable :

Code:

---

1 2 3

private: char Mode;

---

affectée par :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

void __fastcall TaForm::TRadioButton1Click(TObject *Sender) { Mode = 'A'; //choix anglais } // void __fastcall TaForm::TRadioButton2Click(TObject *Sender) { Mode = 'F'; //choix français } //etc, etc, etc

---

Alors tu pourrais tester quel comparaison appliquer plutôt via un 'switch', par ex:

Code:

---

1 2 3 4 5 6 7 8 9 10

switch (Mode) { case 'A': //bla, bla... break; case 'F': //bla, bla... break; }

---

De plus, j'ai du mal a piger ce que fais le lancement du TTimer dans la boucle 'while'...si l'option 'automatique' a été choisie, le Timer ne devrais t il pas être lancé une fois pour toute et tout les traitements devraient être éffectué dans son 'OnTimer', ...non ?
Bon, moi, je dis ça vite fait sans vraimment tout tester mais bon...
@ + ;)

pour le switch/case,

un truc comme ça tu veux dire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

if(test->choixmanu->Checked==true) { switch (Mode) { case 'F': Edit1->Text=test->Table->FieldByName("Mot_Francais")->AsString; do { i=random(test->Table->RecordCount); test->Table->RecNo=i; }while(test->Table->FieldByName("Mot_Francais")->AsString.operator ==(Edit1->Text) || Edit1->Text.IsEmpty());   break;   case 'A': Edit1->Text=test->Table->FieldByName("Mot_Anglais")->AsString; do { i=random(test->Table->RecordCount); test->Table->RecNo=i; }while(test->Table->FieldByName("Mot_Anglais")->AsString.operator ==(Edit1->Text) || Edit1->Text.IsEmpty());   break; } };

---

le problème c'est que mes boutons ne sont pas sur la même form... et transférer une variable d'une form a l'autre c'est possible ? utiliser private, oui mais euhhh sa marche coment cette chose ??

et euhhh pour le timer, oui j'ai mis la boucle do while dans le timer mais bon, sa change pas grand choz.. il tourne en boucle mais sans jamais s'arrêter...

bouhhhh c'est la cata :s :(:(

//EDIT

Bon j'ai mis char Mode; dans le fichier H de la form A (contenant les radioboutons), mais dans ma form B (celle du test) contenant le code et incluant le fichier H de la form A, il me met que Mode est introuvable et d'autre part, avec le code que je t'ai mis plus haut il me sors 6 fois la même erreur : [C++ Error] fentest2.cpp(81): E2094 'operator||' not implemented in type 'AnsiString' for arguments of type 'bool' ou fentest2 est la form B

si tu as une idée je suis preneur :D (même si tu en fais déja bcp pour moi ! :oops:)

Citation:

---

Envoyé par barth69

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

if(test->choixmanu->Checked==true) { switch(variableATester) { case 'F': Edit1->Text=test->Table->FieldByName("Mot_Francais")->AsString; do { i=random(test->Table->RecordCount); test->Table->RecNo=i; }while(test->Table->FieldByName("Mot_Francais")->AsString.operator ==(Edit1->Text) || Edit1->Text.IsEmpty()); break; case 'A': Edit1->Text=test->Table->FieldByName("Mot_Anglais")->AsString; do { i=random(test->Table->RecordCount); test->Table->RecNo=i; }while(test->Table->FieldByName("Mot_Anglais")->AsString.operator ==(Edit1->Text) || Edit1->Text.IsEmpty()); break; } };

---

---

Dans ton switch tu as oublié la variable à tester, je l'ai mis en rouge dans le code.

Citation:

---

Envoyé par barth69

le problème c'est que mes boutons ne sont pas sur la même form... et transférer une variable d'une form a l'autre c'est possible ? utiliser private, oui mais euhhh sa marche coment cette chose ??

et euhhh pour le timer, oui j'ai mis la boucle do while dans le timer mais bon, sa change pas grand choz.. il tourne en boucle mais sans jamais s'arrêter...

bouhhhh c'est la cata :s :(:(

---

Tu peut créer un fonction qui retour un char dans la form ou ce situ
Code :

Citation:

---

Envoyé par Cantrelle

Code:

---

1 2	private: char Mode;

---

---

Par exemple :

Code:

---

1 2 3

char TMaForm::LireMode(void){ return Mode ; }

---

il ne te reste plus qu'a chercher dans ta form ou tu a le switch :

Code:

---

1 2 3

switch(NomDeMaForm->LireMode()){ ... }

---

Sans oublier de mettre un

Code:

---

#include "MaForm.h"

---

dans le fichier .h de la form ou ce situ le switch.
A plus

si j'ai bien compris, je met

Code:

---

1 2 3 4

char Ttest::LireMode(void){ return Mode ; }

---

dans le fichier H de la form A (celle qui a les radiobouton),

et dans la forme B (celle contenant le switch) je met

Code:

---

1 2	#include "fentest.h"

---

ce qui est déjà fait car j'ai besoin de pointer sur la table de la form A...

//EDIT

Je dois être un boulet parce que je comprends pas tout dans cette histoire...
je viens de faire ce que je dis plus haut et voila ce que j'obtient :
[C++ Error] fentest2.cpp(72): E2247 'Ttest::LireMode()' is not accessible

hum... excusez mon ignorance en programmation :oops:

Citation:

---

Envoyé par barth69

si j'ai bien compris, je met

Code:

---

1 2 3 4

char Ttest::LireMode(void){ return Mode ; }

---

dans le fichier H de la form A (celle qui a les radiobouton),

---

Pas tout a fait, dans le .h de la Form A, tu met :

Code:

---

1 2	public : char LireMode(void) ;

---

et le code que tu as marqué, qui est juste au dessus, tu le met dans le .cpp de la Form A

C'est énorme !
J'ai mis du temps mais j'ai pigé le fonctionnement de private et public ! private c'est uniquement pour les déclaration propre au code de la form A par ex et public c'est pour utiliser la varaible dans une autre form...
c'est ça ? :? dites moi oui :D

Bref en tout cas merci, mon switch fonctionne super bien !
Me reste mnt à résoudre le problème du timer qui ne s'arrête jamais (un tirage aléatoire qui ne s'arrête jamais ce peut être embêtant ^^), et la vérification des traductions qui reste en permanence à 5 pour les réponse justes...

Merci encore ;)

//EDIT

Bon après réflexion, et comme je n'ai pas envie de passer toutes mes soirée sur ce p*** de projet, j'ai finalement décider de remplacer la StringList pour la vérif par une StringGrid ! J'ouvre une form à la fin du test contenant les réponses et les mots qui étaient à traduire, je propose la vérif et lors de la vérif il met les cases en vert ou rouge suivant si la réponse est juste ou fausse...

Par contre j'arrive toujours pas a résoudre mon problème de Timer :s

Citation:

---

Envoyé par barth69

Par contre j'arrive toujours pas a résoudre mon problème de Timer :s

---

C'est quoi ton probleme de Timer, j'ai pas tout suivi, c'est ta boucle do while dans tu ne sort jamais ou c'est le Timer qui ne s'arréte pas ?

je sais pas trop, certaine fois le timer n'exécute pas son code, d'autre il l'exécute mais en boucle donc j'ai un tirage aléatoire qui ne s'arrete jamais... par je ne sais pas si la boucle do while s'exécute ! j'ai testé un truc aprèm mais bon sa ma figé le pgm quand j'ai lancé le timer donc... j'en ai conclu que c'était pas terrible :s

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

randomize();   switch(test->LireMode()) { case 'F': Edit1->Text=test->Table->FieldByName("Mot_Francais")->AsString; verif->StringGrid1->Cells[0][1]=test->Table->FieldByName("Mot_Francais")->AsString; do { i=random(test->Table->RecordCount); test->Table->RecNo=i; } while(test->Table->FieldByName("Mot_Francais")->AsString.operator ==(Edit1->Text) || Edit1->Text.IsEmpty()); nomfield="Mot_Français"; break;   case 'A': Edit1->Text=test->Table->FieldByName("Mot_Anglais")->AsString; verif->StringGrid1->Cells[0][1]=test->Table->FieldByName("Mot_Francais")->AsString; do { i=random(test->Table->RecordCount); test->Table->RecNo=i; } while(test->Table->FieldByName("Mot_Anglais")->AsString.operator ==(Edit1->Text) || Edit1->Text.IsEmpty()); nomfield="Mot_Anglais"; break;   case 'Al': Edit1->Text=test->Table->FieldByName("Mot_Francais")->AsString; do { i=random(test->Table->RecordCount); test->Table->RecNo=i; } while(test->Table->FieldByName("Mot_Francais")->AsString.operator ==(Edit1->Text) || Edit1->Text.IsEmpty()); }   Edit2->Text=""; Edit1->Text=""; u--;

---

voila ce que j'ai pour le timer, et dans le boutton qui lance le timer j'ai ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

if(test->choixauto->Checked==true) { switch(test->LireTirage()) { case'di': u=10; break;   case'vi': u=20; break;   case'tr': u=30; break;   case'per': u=StrToInt(test->Edit1->Text); break; }   boutontirage->Enabled=false;   do { Timer1->Enabled=true; } while(u!=0); };

---

voili voilou ^^, je sais que le timer n'exécute qu'une seul fois son code après avoir terminé son décompte mais est ce qu'il s'arrête après avoir exécuter son code ? ou une fois qu'il est lancé il ne s'arrête plus ?

Citation:

---

Envoyé par barth69

voili voilou ^^, je sais que le timer n'exécute qu'une seul fois son code après avoir terminé son décompte mais est ce qu'il s'arrête après avoir exécuter son code ? ou une fois qu'il est lancé il ne s'arrête plus ?

---

Pour l'arréter il faut que tu remet la propriété Enabled du Timer à false, sinon le timer recommencera toute la fonction tout les n milliseconde, n étant le chiffre que tu as mis dans la propriété Interval de ce Timer.

d'accord, donc cela confirme bien ce que je pensais, il faut arrêter le timer manuellement... enfin oui on se comprend.

Donc ce que j'aimerais arriver à faire, c'est exécuter

Code:

---

1 2	Timer1->Enabled=false;

---

lorsque la variable u, par exemple, est arrivé à 0...
Voilà pourquoi j'avais mis des boucles do...while un peu partout. Le problème c'est que soit la boucle n'est pas exécutée, soit elle fige le programme :s.
Donc si tu as une idée, je la prend volontier :D

Merci de ton aide ;)

//EDIT

Bon alors petite rectification, j'ai supprimé la boucle do while dans le code du bouton tirage mais par contre j'ai mis un if...else dans le code du timer :

Code:

---

1 2 3 4 5 6 7 8 9

if(u!=0) { .... //exécute le code du tirage aléatoire suivant le choix de l'utilisateur } else { ...//réactive le bouton tirage et désactive le timer }

---

okay, jsuque la tout va bien, sauf que effectivement le timer s'exécute et il fait bien sa bucle puisque le bouton tirage n'est réactivé qu'au bout d'un certain tps... mais, il ne fait aucun tirage ! c'est a dire qu'il tourne mais à vide, sans exécuter le code du tirage aléatoire :s... je comprends pas du tout ce qui se passe !