Discussion :

[abdou monta]

Bonjour !

J'ai déjà terminé un programme d'horloge, et je suis en train de l'améliorer ; j'ai eu l'idée de faire un bruit (bip) chaque heure.

J'ai trouvé 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
Uses Crt;
Begin;
 
ClrScr;
 
For i := 1 TO 32767 DO
Begin;
Sound(i);
Delay(20);
End;
 
NoSound;
 
End.

L'éditeur du code a juste montré qu'on peut faire une légère détonation ou bip.

Mais ça ne marche pas

[Alcatîz]

Bonjour,

Turbo Pascal pour Windows est destiné à écrire des applications... pour Windows. Par conséquent, ce genre d'instructions réservées à MS-DOS ne peut fonctionner. Il faut consulter une bonne documentation de l'API de Windows (voir par exemple ici mais aussi l'aide de TPW).

La fonction Beep pourrait convenir :

Code :

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

Function Beep (dwFreq, dwDuration : Longint) : Boolean;

La fonction MessageBeep peut également être utilisée pour produire les sons du système.

[abdou monta]

La fonction MessageBeep peut également être utilisée pour produire les sons du système.

MessageBeep, c'est sous quelle unité??

[Alcatîz]

MessageBeep, c'est sous quelle unité??

mais aussi l'aide de TPW).

L'unité WinProcs. Par contre, la fonction Beep ne semble pas faire partie de l'API de Windows 3.

[abdou monta]

et les paramétres? pour le moment tous va bien

[Alcatîz]

mais aussi dans l'aide de TPW

Décidément, le message ne passe pas. Je vais essayer une autre langue : Je moet de hulp van TPW raadplegen.