Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

BIOS-Sound (Peep) mit VBA?

BIOS-Sound (Peep) mit VBA?
06.10.2006 15:06:46
MelanieBerlin
Hallo Leute!
Weiß jemand, wie man mit VBA den BIOS-Sound(Peep) ansprechen kann? bei turbopascal ging das auch immer...
Melanie

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: BIOS-Sound (Peep) mit VBA?
ransi
Hallo
Ist das der Ton ?

Sub test()
Beep
End Sub

ransi
AW: BIOS-Sound (Peep) mit VBA?
ransi
Hallo
Hiermit kannst den "Beep" noch etwas "formatieren".


Option Explicit
Private Declare Function Beep Lib "kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long
Public Sub test()
Beep 1000, 1000
End Sub


ransi
Anzeige
AW: BIOS-Sound (Peep) mit VBA?
09.10.2006 08:39:20
MelanieBerlin
Hallo Ransi!
Danke für den Tip. Dann war das doch so einfach in VBA. Als ich sound vba etc usw in google eingegeben habe, kam ich immer nur zu .wav abspielen. habe aaber auf der arbeit keine soundkarte, so dass ich noch auf den peep angewiesen bin.
AW: BIOS-Sound (Peep) mit VBA?
06.10.2006 15:12:39
UweD
Hallo
wie gefällt dir das?
Private Declare Sub Beep Lib "kernel32.dll" ( _
Optional ByVal dwFreq As Long = 440, _
Optional ByVal dwDuration As Long = 240)
Sub sag_mal_piep()
Call Play("aba")
End Sub 

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 singen()
Call Play("abcde e ffffe ffffe ddddc c bbbba")
End Sub
Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: BIOS-Sound (Peep) mit VBA?
09.10.2006 08:43:57
MelanieBerlin
Danke Uwe!
Da werden noch so einige Komponisten geboren.
So macht das arbeiten gleich etwas mehr Spaß mit ein wenig Musik!
Grüsse
Melanie

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige