Beep "beept" nicht...

Isard · Hält's aus hier Beiträge: 5

So, nachdem ich nun seit einer geschlagenen Woche rumprobiere, hab ich mir gedacht, dass ich eher an Altersschwäche sterbe, als die Lösung zu finden... hmmmm... fragen wir doch mal die, die ahnung von der materie haben

Folgendes Problem: windows.beep(440,1000) beept einfach nicht...
1) Windows standartsounds als schema in der Systemsteuerung eingestellt
2)knopf erstellt (oho

)
3)exakt "windows.beep(440,1000); in onklick reingeschrieben
4) man drücke den knopf und merke...
5)... das sich nix tut

Das Ganze sollte eigentlich in mein erstes "nützliches" Delphiprogramm rein, da meiner Uhr die Batterien ausgegangen sind und ich wirklich KEIN Zeitgefühl habe, also fix mal einen Wecker programmiert und ein wenig aufgehübscht (liegt auf dem Laptop, Quellcode kann auf Wunsch nachgeliefert werden). Nur das eine Textnachricht im hintergrund wie "ende" oder so nich auffällt, also muss ein Ton her, der aber nicht will...
Auf dem Laptop nicht und auf dem Recher auch nicht -.-"
So langsam glaube ich mein Rechner will mich ärgern... need help^^

hoffnungsvoll
Isard

Edit1: Delphi 5 verwendet (ist vllt noch wichtig

)
Edit2: Und ja bevors kommt: Sound ist an

Ramon · Beiträge: 107 WIN7 D6 Prof, D7 Prof, D 2009

Hallo,

der beep kann in der Regestrie deaktiviert werden.

Guck mal unter
HKEY_CURRENT_USER -> Control Panel -> Sound
wie Beep steht.

Isard · Hält's aus hier Beiträge: 5

1) Danke für die schnelle Hilfe
2) WAS? Also ich hab mich immer aus der Reg rausgehalten, da kenn ich mich nicht mit aus (nur das man die mit regedit aufruft)... Krige ich bitte ine schritt für schritt Anleitung oder was wie einen roten Faden dem ich hinterherlaufen kann? Wäre nett

3) Da gibs blos HKEY_CURRENT_CONFIG und HKEY_USERS welches davon hättens denn gerne? sorry falsch der est stand oben *pfeif*
Aaaalsoooo:
Da steht:

(Standart) REG_SZ (Wert nicht gesetzt)
Beep REG_SZ yes
Extended Sounds REG_SZ yes

Und was nu? Beep ist ja anscheinend aktiviert...

Ramon · Beiträge: 107 WIN7 D6 Prof, D7 Prof, D 2009

Ja, scheint aktiviert zu sein. Der Speaker ist auch angeschlossen?

EIn MessageBeep(0) gibt auch nichts aus?

Isard · Hält's aus hier Beiträge: 5

Ahaaaa hast dir nen Keks verdient :lol:

bei messagebeep(0) macht der den allgemein bekannten "pöng"-sound von windows (wie bei der lautsprechereinstellung).
Und ja speaker sind an, ich höre ja nebenbei musik, also daran wirds nicht leigen... oder ich bin mittlerweile so verrückt, dass ich mir die musik einbilde

aber davon geh ich mal nicht aus :wink:

beepen tut er trotzdem nicht... und einen guten "nerv" sound für einen wecker gibs bei messagebeep nicht oder?

---Moderiert von Narses: Beiträge zusammengefasst---

Hmmm hab mir erstmal wie folgt ausgeholfen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
var i,a:integer;
begin
 for i:=1 to 10 do
  begin
   for a:=1 to 3 do
    begin
    messagebeep(0);
    sleep(500);
    end;
    sleep(5000);
  end;
end;

ist nich doll aber erst mal notlösung... das einzige was noch ist: warum geht beep denn nu nicht?

edit: sorry wegen doppelpost, habbich zu spät gemerkt aber löschen kann mans ja nicht

Moderiert von Narses: Delphi-Tags hinzugefügt

jaenicke · Verfasst: Mo 11.05.09 14:23

Beep kann ja nur gehen, wenn du auch Lautsprecher im PC eingebaut hast. Bei modernen PCs ist das teilweise gar nicht mehr der Fall wie ich in letzter Zeit gesehen habe...

Isard · Hält's aus hier Beiträge: 5

Aaaaahsoooo na das hilft doch mal weiter. Da meine möhre nu nicht grade von vorgestern ist, hat die warscheinlich keine internen lautsprecher... ok das würde jedenfalls erklären warums nich "beept", danke für die hilfe, muss ich mich eben doch mit meiner notlösung rumplagen, auch wenn anstatt sleep noch timer reinmüssen, da man sonst das programm ja nie beenden kann^^.

jaenicke · Verfasst: Mo 11.05.09 14:28

Spiel doch einfach eine Wavdatei oder so mit PlaySound ab, wenn dir MessageBeep zu unauffällig ist.

Regan · Verfasst: Mo 11.05.09 14:28

Ich glaube, dass der Monitor auch einmal flackern sollte, wenn die Option zwar aktiviert aber kein Systemlautsprecher angeschlossen ist.

Isard · Hält's aus hier Beiträge: 5

Hmmm nee kann ich nicht behaupten, aber ich brech das hier einfach mal ab weil ich es nicht mehr benötige, denn ich habs anders gelöst:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, jpeg;

type
  TForm1 = class(TForm)
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    Timer1: TTimer;
    Label4: TLabel;
    Button1: TButton;
    Label5: TLabel;
    Label6: TLabel;
    Image1: TImage;
    Label7: TLabel;
    Label8: TLabel;
    Image2: TImage;
    Label3: TLabel;
    Image3: TImage;
    Timer2: TTimer;
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i: integer=0;

implementation

{$R *.DFM}

procedure TForm1.Button2Click(Sender: TObject);
var h,m,s:integer;
begin
h:=strtoint(edit4.text);
m:=strtoint(edit5.text);
s:=strtoint(edit6.text);
if h>24 then
showmessage('Maximalwert ist 24 für die Stundenanzahl.');
if m>60 then
showmessage('Maximalwert ist 60 für die Minutenanzahl.');
if s>60 then
showmessage('Maximalwert ist 60 für die Sekundenanzahl.');
label4.caption:=((inttostr(h))+':'+(inttostr(m))+':'+(inttostr(s)));
if h<10 then
label4.caption:=('0'+(inttostr(h))+':'+(inttostr(m))+':'+(inttostr(s)));
if m<10 then
label4.caption:=((inttostr(h))+':'+'0'+(inttostr(m))+':'+(inttostr(s)));
if s<10 then
label4.caption:=((inttostr(h))+':'+(inttostr(m))+':'+'0'+(inttostr(s)));
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label3.caption:=timetostr(now);
if label3.caption=label4.caption then
begin
i:=1;
messagebeep(0);
//showmessage('     ===!!!===Ende===!!!===     ');
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
application.terminate;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if i=1 then
messagebeep(0);
end;

end.

Moderiert von Narses: Delphi-Tags hinzugefügt

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme