Exécution incomplète du programme.

Exécution incomplète du programme. - Ada - Programmation

Marsh Posté le 10-08-2009 à 18:59:18    

Bonjour,
 
Je fais un import de la bibliothèque portmidi et j'ai un problème à l'exécution, le dernier put ne s'éxécute pas.
 
 
Voici le code :
 

Code :
  1. subtype subString is String(1..64);
  2.  
  3.   package String_Address_Conversion is new System.Address_To_Access_Conversions(substring);
  4.   use String_Address_Conversion;
  5.  
  6.   procedure Play is
  7.  
  8.      Error : PmError;
  9.  
  10.      PortMidiStream_Ptr,
  11.      OutputDriverInfo_Ptr,
  12.      Time_Info_Ptr  : System.Address;
  13.  
  14.      Current_DeviceInfo : DeviceInfo;
  15.  
  16.      Device : Natural;
  17.  
  18.  
  19.   begin
  20.  
  21.      Error := Pm_Initialize;
  22.      New_Line;
  23.      for I in 0..Pm_CountDevices loop
  24.         Current_DeviceInfo := DeviceInfo_Conversion.To_Pointer(Pm_GetDeviceInfo(I)).all;
  25.         Put(I);
  26.         Put_Line(" : " & To_Pointer(Current_DeviceInfo.Name).all);
  27.      end loop;
  28.      New_Line;
  29.      Put("Choose device : " );
  30.      Get(Device);


 
Auriez vous une idée de la raison pour laquelle les deux dernière instruction ne sont exécutées ?
Merci


---------------
des gestes simples et ponctués, par quelques points presque importants, la précision coordonnée, d'une île déserte, des plans secrets, d'un architecte, à la retraite, passionné par son métier, refaire le monde, à son idée, tracer des routes, les emprunter
Reply

Marsh Posté le 10-08-2009 à 18:59:18   

Reply

Marsh Posté le 10-08-2009 à 19:19:08    

En plus j'ai un peu n'importe quoi comme résultat ...

Citation :

0 : Midi Through Port-0 APâ¦`Tâ¦â¦â¦â¦(â¦â¦`â¦â¦â¦
          1 : Midi Through Port-0Hâ¦â¦    â¦â¦â¦cards)â¦â¦â¦
          2 : UA-101 MIDI 1Xâ¦â¦  UA-101 MIDI 1RADIAS MIDI 1â¦
          3 : UA-101 MIDI 1RADIAS MIDI 1⦠      !/usr/share/alsa/
          4 : RADIAS MIDI 1⦠   !/usr/share/alsa/alsa.confâ¦P`â¦â¦xGâ¦
          5 : RADIAS MIDI 1RADIAS MIDI 2RADIAS MIDI 2
          6 : RADIAS MIDI 2RADIAS MIDI 2!CA0106 MPU-401 (
          7 : RADIAS MIDI 2!CA0106 MPU-401 (UART)!CA0106 M
          8 : CA0106 MPU-401 (UART)!CA0106 MPU-401 (UART)nf Q
          9 : CA0106 MPU-401 (UART)nf Q@â¦â¦      Pâ¦`â¦â¦â¦


 
Là aussi j'aurais besoin d'un tuyau !


---------------
des gestes simples et ponctués, par quelques points presque importants, la précision coordonnée, d'une île déserte, des plans secrets, d'un architecte, à la retraite, passionné par son métier, refaire le monde, à son idée, tracer des routes, les emprunter
Reply

Marsh Posté le 10-08-2009 à 19:34:03    

The matrix a écrit :


 
Là aussi j'aurais besoin d'un tuyau !


 
 
Pour le charabia, j'ai trouvé.
 
ligne 1 : subtype subString is Char_array(1..64);
 
Je sèche toujours, pour le dernier put et le get, j'ai ajouté un skip_line, rien.


---------------
des gestes simples et ponctués, par quelques points presque importants, la précision coordonnée, d'une île déserte, des plans secrets, d'un architecte, à la retraite, passionné par son métier, refaire le monde, à son idée, tracer des routes, les emprunter
Reply

Marsh Posté le 10-08-2009 à 20:56:49    

Yep ! Trouvé !
 
Ligne 23 : for I in 0..Pm_CountDevices-1 loop


---------------
des gestes simples et ponctués, par quelques points presque importants, la précision coordonnée, d'une île déserte, des plans secrets, d'un architecte, à la retraite, passionné par son métier, refaire le monde, à son idée, tracer des routes, les emprunter
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed