Excel Impuls (Software) auf Signalgeber leiten (Hardware)

[Jürgen T. (negreuj)]

Ich habe auf Excel ein (Countdown)-Programm laufen, dass bei 0 einen Ton 
erzeugt. Leider ist der nicht laut genug und ich möchte daher den Impuls 
von Excel auf einen externen Signalgeber mit eigener Stromversorgung 
leiten. Ich suche jemanden, der mir das macht, da ich absoluter Laie in 
diesen Dingen bin. Wer kann mir weiter helfen?

[Peter II (Gast)]

Jürgen Tagge schrieb:
> Wer kann mir weiter helfen?

Aktiv-Lautsprecher für 10€.

[Jürgen T. (negreuj)]

Peter II schrieb:
> Jürgen Tagge schrieb:
>> Wer kann mir weiter helfen?
>
> Aktiv-Lautsprecher für 10€.

Der Preis ist OK, aber wie laut ist der Ton? Und mit welcher Verbindung 
komme ich vom Rechner an den Lautsprecher? Und wie lautet der VBA-Code 
für die Tonerzeugung?

[www.google.de (Gast)]

Jürgen Tagge schrieb:
> Und wie lautet der VBA-Code
> für die Tonerzeugung?

www.google.de --> vba ton erzeugen

...ist das so schwer?

[Rainer V. (rudi994)]

So etwa:

Option Explicit  ' Funktion Beep Frequenz_in_Hz, Dauer_in_ms

Declare Function Beep Lib "kernel32" _
  (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Sub TestBeep()
  Beep 440, 1000  ' 440 Hz, 1000 ms
End Sub

oder so:

Option Explicit  ' Programm oder Datei öffnen
' z.B. Sound-Datei mit Mediaplayer abspielen 

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
  (ByVal hwnd as Long, ByVal lpOperation As String, _
   ByVAl lpFile As String, BYVal lpParameters As String, _
   ByVal lpDirectory As String, ByVAl nShowCmd As Long) As Long

Const file1 As String = "C:\Windows\Media\tada.wav"
' oder Bild: "C:\Windows\Web\Wallpaper\Windows\img0.jpg"
' oder Programm: "Notepad.exe"

Sub TestShellExec()
  ShellExecute Application.hwnd, "Open", file1, _
    vbNullString, vbNullString, vbNormalFocus
End Sub

Letzteres ist nicht sekundengenau, Aufruf u. Laden dauert eine Weile. 
Tonausgabe über Soundkarte, Beep-Ton evtl. auch über PC-Lautsprecher.

[Reinhard S. (rezz)]

Jürgen Tagge schrieb:
> Peter II schrieb:
>> Jürgen Tagge schrieb:
>>> Wer kann mir weiter helfen?
>>
>> Aktiv-Lautsprecher für 10€.
>
> Der Preis ist OK, aber wie laut ist der Ton?

So laut du ihn einstellst. Da geht schon was, wenns nicht gut klingen 
muss.

> Und mit welcher Verbindung komme ich vom Rechner an den Lautsprecher?

3,5mm Klinke.

> Und wie lautet der VBA-Code
> für die Tonerzeugung?

Laut
Jürgen Tagge schrieb:
> Ich habe auf Excel ein (Countdown)-Programm laufen, dass bei 0 einen Ton
> erzeugt. Leider ist der nicht laut genug

hast du doch schon den Ton hinbekommen.

[Georg (Gast)]

Jürgen Tagge schrieb:
> aber wie laut ist der Ton?

Dafür gibt es doch keine obere Grenze - du kannst deinen Ausgang in die 
Anlage der Rolling Stones einspeisen und den Nürburgring beschallen.

Georg

[Jürgen T. (negreuj)]

Vielen Dank für Eure Hilfe, ich bin jetzt weiter gekommen.

Jürgen