[TP7] Problème audio

**zakizaki7** · 23/12/2007, 00h01

Salut

J'ai écrit ce pgm en tp7 (exemple de cyberzoide) mais ça ne fonctionne pas.
Si vous pouviez m'indiquer où est le problème :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Program exemple11 ;
Uses crt ;
Var i, f : integer ;
BEGIN
For i := 1 to 20 do
Begin
For f := 500 to 1000 do sound ( f ) ;
Delay (10) ;
End ;
Nosound ;
END.

Merci d'avance!

**krachik** · 23/12/2007, 04h33

Bonjour
Quand tu dis que ce code ne fonctionne pas j'espere que tu sais ce que ça fait.
je crois si tu l'avais bien indenté tu aurais tout de suite vu pourquoi tu penses que ça ne fonctionne pas.
Quand tu dis que ça ne fonctionnne pas tu veux dire que il ne se passe rien quand l'execute?Si c'est ça alors c'est juste parce que tu n'a pas le temps de voir l'execution du code,ça se referme aussitot
mets un readln avant le dernier end et tu vera ça plus clairement

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

Program exemple11 ;
Uses crt ;
Var i, f : integer ;
BEGIN
    For i := 1 to 20 do
    Begin
        For f := 500 to 1000 do 
             sound ( f ) ;
        Delay (10) ;
    End ;
    Nosound ;
    Readln;
END.

@+