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.
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.
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;
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 aouif PowerPointApp.slide(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.if ProgressBar1.position = 2 then...
j’espère avoir été clair (: Merci d'avance pour vos réponses. Si vous voulez tout le programme je le partagerais (:
Thomas.B
Partager