Discussion :

[thomaso38]

Bonjour (;
Voilà dans mon projet de terminal (Classe intéractiv Porf/élèves) je dois faire un programme qui reçoit des données envoyé par 4 télécommandes et les affiché traité dans un fichier Excel !

Grâce à déjà 2 sujets sur ce site j'ai déjà beaucoup avancé, merci encore!
Je reviens vers vous puisque aujourd'hui j'ai un autre problème (:

Voilà J'ai donc 4 télécomandes (1,2,3,4) qui on chaqu'une d'elles 4 boutton (a,b,c,d) Pour cela j'ai pondu ce code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
if StrToInt(chaine2[2]) = Integer(1) then
    begin
 if StrToInt(chaine2[5]) = Integer(1) then
     begin
       Form1.Reponsej1 := 'A' ;
       Showmessage(chaine2[5])  ;
     End
    else if StrToInt(chaine2[5]) = Integer(2) then
          begin
            Form1.Reponsej1 := 'B' ;
            Showmessage(chaine2[5])  ;
          End
         else if StrToInt(chaine2[5]) = Integer(3) then
             begin
                Form1.Reponsej1 := 'C' ;
                Showmessage(chaine2[5])  ;
             End
            else if StrToInt(chaine2[5]) = Integer(4) then
                  begin
                    Form1.Reponsej1 := 'D' ;
                    Showmessage(chaine2[5])  ;
                  End
 end ;
 
 //-----------------------------------------------------------
 if StrToInt(chaine2[2]) = Integer(2) then
    begin
 if StrToInt(chaine2[5]) = Integer(1) then
     begin
       Form1.Reponsej2 := 'A' ;
       Showmessage(chaine2[5])  ;
     End
    else if StrToInt(chaine2[5]) = Integer(2) then
          begin
            Form1.Reponsej2 := 'B' ;
            Showmessage(chaine2[5])  ;
          End
         else if StrToInt(chaine2[5]) = Integer(3) then
             begin
                Form1.Reponsej2 := 'C' ;
                Showmessage(chaine2[5])  ;
             End
            else if StrToInt(chaine2[5]) = Integer(4) then
                  begin
                    Form1.Reponsej2 := 'D' ;
                    Showmessage(chaine2[5])  ;
                  End
//--------------------------------------------------------------------------
 end ;
 
  if StrToInt(chaine2[2]) = Integer(3) then
    begin
 if StrToInt(chaine2[5]) = Integer(1) then
     begin
       Form1.Reponsej3 := 'A' ;
       Showmessage(chaine2[5])  ;
     End
    else if StrToInt(chaine2[5]) = Integer(2) then
          begin
            Form1.Reponsej3 := 'B' ;
            Showmessage(chaine2[5])  ;
          End
         else if StrToInt(chaine2[5]) = Integer(3) then
             begin
                Form1.Reponsej3 := 'C' ;
                Showmessage(chaine2[5])  ;
             End
            else if StrToInt(chaine2[5]) = Integer(4) then
                  begin
                    Form1.Reponsej3 := 'D' ;
                    Showmessage(chaine2[5])  ;
                  End
 end ;
 //-----------------------------------------------------------
  if StrToInt(chaine2[2]) = Integer(4) then
    begin
 if StrToInt(chaine2[5]) = Integer(1) then
     begin
       Form1.Reponsej4 := 'A' ;
       Showmessage(chaine2[5])  ;
     End
    else if StrToInt(chaine2[5]) = Integer(2) then
          begin
            Form1.Reponsej4 := 'B' ;
            Showmessage(chaine2[5])  ;
          End
         else if StrToInt(chaine2[5]) = Integer(3) then
             begin
                Form1.Reponsej4 := 'C' ;
                Showmessage(chaine2[5])  ;
             End
            else if StrToInt(chaine2[5]) = Integer(4) then
                  begin
                    Form1.Reponsej4 := 'D' ;
                    Showmessage(chaine2[5])  ;
                  End
end
end;

Qui fonctionne très bien pour la première ligne de question. Mais sachant que mon programme fonctionne avec un timer et une progresse bar j'aimerais synchroniser l'arrivé des valeurs et chaque questions.
Pour être plus précis, imaginons que le prof met son diaporama a l'écran et comme j'ai réglé dans mon programme, à chaque diapo passé, la progresse bar avance d'une case et suis le timer (qui lui est réglé par le prof a l'ouverture du programme).
Donc pour enfin arrivé au problème. Je cherche à faire en sorte que les données reçus s'enregistre dans un tableau qui lui serras gérer en mode array deux dimension, mais pour lui dire à tel moment tu met les données reçus dans la case pour chaque élèves différent.

Donc 4 élèves qui répondent à (disons 10) 10 questions d'un intervalle de 5 secondes avec 4 choix de boutons.

J'hésite à vous envoyé mon programme puisqu'il est asser massique (: Une petite photo pour mieux comprendre.
http://www.cjoint.com/15mi/EEwqjMVWIPN.htm

Comme on le voit sur la photo, j'arrive à gérer parfaitement les 4 chaines de caractères, en les traitants et en les affichant dans la bonne case.

Pour repréciser, je cherche à différencier la reception des données pour qu'une télécommandes puisse répondre à toutes les questions avec l'afficahge derrière sans problème.
J'ai déjà fais le plus gros mais je ne sais pas comment faire pour lui dire a

if PowerPointApp.slide(2) then...

ou

if ProgressBar1.position = 2 then...

Mais au début de la deuxièmes diapo (des exemples que je viens de cités) ça crash. En gros il n'a pas encore reçus les données donc il bug... Mais je n’arrive pas à faire durée le temps de reçois des données pour que tout soit coordonnées.

j’espère avoir été clair (: Merci d'avance pour vos réponses. Si vous voulez tout le programme je le partagerais (:

Thomas.B

[SergioMaster]

Bonjour,

s'il s'agissait de Delphi on commençerait par compacter le code grâce à l'instruction case et une petite fonction de façon à avoir plus de visibilité ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function valeurreponse(valeur : word ) : string;
begin
  case valeur of
    1 : result:='A';
    2 : result:='B';
    3 : result:='C';
    4 : result:='D';
 end;  
end;
begin
 ...
 Case Inttostr(Chaine2[2]) of
 1 : reponsej1:=valeurreponse(StrToInt(chaine2[5]));
 2 : reponsej2:=valeurreponse(StrToInt(chaine2[5]));
 3 : reponsej3:=valeurreponse(StrToInt(chaine2[5]));
 4 : reponsej4:=valeurreponse(StrToInt(chaine2[5]));
 end;
...
// c'est encore largement améliorable

mais j'ai l'impression que cet élève s'est planté de forum

je dois faire un programme qui reçoit des données envoyées par 4 télécommandes et les afficher/traiter dans un fichier Excel !

et qu'il s'agit de VBA

[thomaso38]

Salut (: Alors si je suis bien sur Delphi, mais le projet et divisé en 3. Je suis donc charger de la partie Homme/Machine grâce à Delphi.
Merci pour l’amélioration j'en prend de la graine (:
Je ne sais pas si vous avez compris ce que je cherche a faire.
Je cherche à pouvoir différencier les données que je reçoit de la question 1 jusqu'à la dernière question.
Donc les données que j'avais penser à différencier les données reçus suivant le diapo actif. Et enregistrées les données reçus dans un tableau array à deux dimension. Mais par exemple quand le gros pâté de code que j'ai mis au dessus je le répété a chaque diapo. Mais si je dis "if powerpointapp.slide = 2 then (gros pâté du dessus)" Pour différencier les données reçus. Avec cette technique, quand le diapo est à la 2 ème slide il plante parce qu'il n'a encore rien reçus, et j'aimerais mettre un temps de latence durant tout le temps de la diapo (qui est aléatoire) Donc comment on reçois les données je sais le faire (:

Voilà j’espère avoir été plus claire (:

[tourlourou]

Pour bien réfléchir au problème, il faudrait savoir :
- comment arrivent les réponses des télécommandes,
- si elles sont directement attribuables à un candidat (ports différents) ou le code de la télécommande (du candidat) est inclus dans une trame de réception commune,
- qui gère le tempo : le programme ne peut deviner où en est la présentation, sauf s'il peut demander le n° de la diapo à powerpoint ou sait combien de temps dure chaque diapo (il connaît le rythme)...

On ne peut mettre de ProgressBar pour une question que si on sait quand elle démarre et combien de temps elle dure.

Il est conseillé de faire des fonctions qui décortiquent les trames (chaînes) si elles sont sur le même modèle, et d'agir en fonction.

Ne pas oublier qu'un candidat peut pê appuyer 2 fois pendant la même question : doit-on bloquer la 2° réception, ou retenir cette correction ?

etc.

[SergioMaster]

Bonjour,

comment arrivent les réponses des télécommandes,

et surtout les télécommandes sont-elles "réinitialisables" ?
Si on admet que c'est sur le principe des protocoles RS232 et que l'on obtient un flux de données le principe serait d'effacer les données reçues à l'affichage de la nouvelle diapo mais aussi effacer ce qui pourrait être en cours d'envoi (d'où ma question sur le "réinitialisable")

ou le code de la télécommande (du candidat) est inclus

je pense qu'il s'agit de ça , je le déduit du code "Case Inttostr(Chaine2[2]) of"
la question alors serait ne serait-il pas judicieux de mettre dans la trame le numéro de la question