| Autor |
Beitrag |
einbrecher2007
Hält's aus hier
Beiträge: 8
|
Verfasst: Mi 10.03.10 18:05
Hi, ich denke mal unter Multimedia ist das hier am besten aufgehoben.
Manchmal kommt es vor, dass ein Programm sich akkustisch bemerkbar machen soll.
Da man sich auf die Soundkarte nicht immer verlassen kann, oder z.B. die Computerboxen
ausgeschaltet sein könnten, sehe ich den PC-Speaker als eine sehr praktische Erfindung XD
(Für alle die's nicht wissen, den PC Speaker kann man in Delphi über
  Delphi-Quelltext
1:
| Windows.Beep(Frequenz, Laenge); |
ansteuern.)
Weil dieses monotone Gepiepse natürlich nicht sehr schön klingt, kam ich auf die Idee, "Klingeltöne" für den PC-Speaker zu erstellen. Macht das jemand anders auch noch? Dieser Thread könnte zum sammeln dieser "Klingeltöne" dienen. Ich habe hier mal ein Beispiel.
Pink Panther:
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:
| procedure TForm1.Button1Click(Sender: TObject);
begin
Windows.Beep(554,200);
Windows.Beep(587,200);
sleep(200);
Windows.Beep(622,200);
Windows.Beep(659,200);
sleep(800);
Windows.Beep(740,200);
Windows.Beep(784,200);
sleep(800);
Windows.Beep(622,200);
Windows.Beep(659,200);
sleep(200);
Windows.Beep(740,200);
Windows.Beep(784,200);
sleep(200);
Windows.Beep(1046,200);
Windows.Beep(988,200);
sleep(200);
Windows.Beep(659,200);
Windows.Beep(783,200);
sleep(200);
Windows.Beep(988,200);
Windows.Beep(932,1000);
Windows.Beep(880,200);
Windows.Beep(783,200);
Windows.Beep(659,200);
Windows.Beep(587,200);
Windows.Beep(659,200);
end; |
Edit: Mal gucken, vieleicht schreib ich mal nen Klingelton-Editor XD
|
|
Xentar
 
Beiträge: 2077
Erhaltene Danke: 2
Win XP
Delphi 5 Ent., Delphi 2007 Prof
|
Verfasst: Mi 10.03.10 18:21
Dass es auch Menschen gibt, die diesen Pieper ausschalten, ist dir bekannt?
Kann man sich also auch nicht immer drauf verlassen  _________________ PROGRAMMER: A device for converting coffee into software.
|
|
Webo
Beiträge: 577
Erhaltene Danke: 14
Win 7, Debian
C# (Visual Studio 2013), PHP, C, C++ (Eclipse, KDevelop)
|
Verfasst: Mi 10.03.10 19:31
Nette Idee, ich hatte vor einiger Zeit eine ähnliche Idee. Mir schwebte aber der Gedanken vor, ein Beep-Konzert zu basteln: Ein Master-Rechner verwaltet das Lied und sendet die Töne an die Clienten, die dann fröhlich Piepen. Hab das zusammen mit einem Freund umgesetzt und er hat noch eine kleine Skript-Funktion eingebaut, sodass man wunderbar auf verschiedene Sachen reagieren kann. So haben wir vor den Weihnachtsferien, als wir mit dem Mathe-LK im PC-Raum waren, einam Jingle Bells auf 30 Rechnern ertönen lassen ... das war ein Spaß Ich habe für dieses Vorhaben einen kleinen Editor gebastelt, man kann auf einer Klaviatur ganz normal über Tasten spielen und der Editor setzt dies in Frequenz und Länge um und packt das in ein, für unser Tool passendes, Skript. Ich werde mal schauen, was ich noch so für nette Stücke "aufnehmen" kann. _________________ Man kann nur das aus dem Ärmel schütteln, was man auch vorher reingesteckt hat.
|
|
jakobwenzel
Beiträge: 1889
Erhaltene Danke: 1
XP home, ubuntu
BDS 2006 Prof
|
Verfasst: Mi 10.03.10 23:11
@Webo: Ich hab auch mal sowas gebastelt, meines kann normale Midi-Dateien laden und ins Netzwerk "streamen". 
P.S.: Imperial March klingt auf internen Speakern toll _________________ I thought what I'd do was, I'd pretend I was one of those deaf-mutes.
|
|
BenBE
Beiträge: 8721
Erhaltene Danke: 191
Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
|
Verfasst: Di 16.03.10 17:11
Gibt's Aufzeichnungen davon? Bzw. das Programm zum selber mal probieren?
_________________ Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.
|
|
Tastaro
Beiträge: 414
Erhaltene Danke: 23
|
Verfasst: Di 16.03.10 17:41
Ich hab auch eines:
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:
| Windows.beep(262, 300);
Windows.beep(349, 300);
Windows.beep(440, 300);
Windows.beep(349, 300);
Windows.beep(392, 600);
Windows.beep(467, 150);
Windows.beep(440, 150);
Windows.beep(392, 150);
Windows.beep(349, 150);
Windows.beep(330, 300);
Windows.beep(392, 300);
Windows.beep(262, 300);
Windows.beep(330, 300);
Windows.beep(349, 600);
Windows.beep(440, 600);
Windows.beep(262, 300);
Windows.beep(349, 300);
Windows.beep(440, 300);
Windows.beep(349, 300);
Windows.beep(392, 600);
Windows.beep(467, 150);
Windows.beep(440, 150);
Windows.beep(392, 150);
Windows.beep(349, 150);
Windows.beep(330, 300);
Windows.beep(392, 300);
Windows.beep(262, 300);
Windows.beep(330, 300);
Windows.beep(349, 600); |
Beste Grüße
|
|
|
