Bonjour,
Je voudrais acceder a des variables contenues dans un task sans utiliser des entry. mais j'ai l'erreur suivante:
no selector "EnvoieLesLettres" for type "Bal_type_depart" defined at simulateur.adspackage simulateur
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 with simulateur; package body Bus is ----------------- -- Source_type -- ----------------- task body Source_type is begin loop select -- la commande qui ordonne l'envoie ou l'arret des lettres accept CommandStart do simulateur.BAL_depart.EnvoieLesLettres:=true; => ERREUR end CommandStart; ...
D'ou vient le probleme ? sinon comment faire pour modifier une variable sans rendez vous ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 task body BAL_type_depart is TabLettre: array(0..MaxTabLettreBAL) of Lettre_Access; PremiereLettre :T_PileBAL := 0; DerniereLettre :T_PileBAL := 0; -- ordonne l'envoie ou l'arret des lettres EnvoieLesLettres : boolean := false; --initie l'emission d'une lettre de la BAL de depart emissionLettre : boolean := false; begin ...
Cordialement
Partager