clem68100
Messages postés15Date d'inscriptionvendredi 11 septembre 2015StatutMembreDernière intervention14 décembre 2016 14 sept. 2015 à 11:38
Ce code ne fonctionne pas sous Delphi XE7
enfaite il faudrait émettre un son quant les secondes sont de 55,56,57,58,59 et un son plus long quand on passe a la minute supérieur
Jpense que ca doit être un casse tête!
Caribensila
Messages postés2527Date d'inscriptionjeudi 15 janvier 2004StatutMembreDernière intervention16 octobre 201918
>
clem68100
Messages postés15Date d'inscriptionvendredi 11 septembre 2015StatutMembreDernière intervention14 décembre 2016 14 sept. 2015 à 15:03
« Jpense que ca doit être un casse tête! »
- Oué. Enfin... ça dépend de la tête.
clem68100
Messages postés15Date d'inscriptionvendredi 11 septembre 2015StatutMembreDernière intervention14 décembre 2016 14 sept. 2015 à 17:19
Apres reverrification de mon code dans les unité au debut j'avais WinApi.windows et j'ai modifié ca en windows tous implement
Et les sons me parraisse bon mais faudrais l'adapté avec les secondes comme j'ai dit avant
Merci pour vos aides
clem68100
Messages postés15Date d'inscriptionvendredi 11 septembre 2015StatutMembreDernière intervention14 décembre 2016 14 sept. 2015 à 17:23
Peut etre faut i lrecreer un composant Timer et y inclure cette procédure, car la quand je clique sur un boutton il fait les beep mais l'horrloge s'arrete
clem68100
Messages postés15Date d'inscriptionvendredi 11 septembre 2015StatutMembreDernière intervention14 décembre 2016 Modifié par Cirec le 15/09/2015 à 11:14
voila pour explication
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Timer1: TTimer;
Button1: TButton;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
private
{ Déclarations privées }
public
procedure DoCountdown;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure Tform1.DoCountdown;
begin
Windows.Beep(1400,175);
sleep(825);
Windows.Beep(1400,175);
sleep(825);
form1.Label1.Update;
Windows.Beep(1400,175);
sleep(825);
form1.Label1.Update;
Windows.Beep(1400,175);
sleep(825);
form1.Label1.Update;
Windows.Beep(1400,600);
form1.Label1.Update;
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
//En validant ce radio on fait les DoCountdown toutes les 1 min
begin
if radiobutton1.Checked = true then
DoCountdown;
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
//En validant ce radio on fait les DoCountdown toutes les 2 min
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
DoCountdown;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=TimeToStr(now);
end;
EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI