Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Töne erzeugen

Forumthread: Töne erzeugen

Töne erzeugen
14.06.2005 23:59:11
Thorsten
Hallo,
gleich noch eine Frage. Ist es möglich, Töne zu erzeugen? Ich meine damit nicht
dieses lächerlich beep. Ich möchte keine wav in die Mappe einbinden, da das
unnötig aufbläht. Andererseits will ich bei Weitergabe aber auch nicht extra
Tondateien liefern müssen.
Gruß Thorsten
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Töne erzeugen
15.06.2005 00:45:48
Thorsten
Hallo,
danke für den Link. Das ganze basiert auf Beep und genau das will ich ja nicht.
Gruß Thorsten
Anzeige
AW: Töne erzeugen
15.06.2005 07:51:57
UweD
Hallo
ich kann auch nur mit Beep dienen
Private Declare Sub Beep Lib "kernel32.dll" ( _
Optional ByVal dwFreq As Long = 440, _
Optional ByVal dwDuration As Long = 240)

Private Sub Play(ByVal s As String)
Dim i As Integer
Dim t As String
For i = 1 To Len(s)
t = Mid$(s, i, 1)
Select Case t
Case "a": Call Beep(444)
Case "b": Call Beep(488)
Case "c": Call Beep(550)
Case "d": Call Beep(580)
Case "e": Call Beep(640)
Case "f": Call Beep(720)
Case "g": Call Beep(810)
Case "h": Call Beep(860)
Case "i": Call Beep(920)
Case " ": Call Beep(32767)
End Select
Next i
End Sub

Sub sag_mal_piep()
Call Play("aba")
End Sub
Sub singen()
Call Play("abcde e ffffe ffffe ddddc c bbbba")
End Sub
Gruß UweD
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige