Excel Impuls (Software) auf Signalgeber leiten (Hardware)

OP #3695922 
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?
Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Langsamer Modus Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Melden Danke 
So etwa:

1
Option Explicit  ' Funktion Beep Frequenz_in_Hz, Dauer_in_ms

2


3
Declare Function Beep Lib "kernel32" _

4
  (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

5


6
Sub TestBeep()

7
  Beep 440, 1000  ' 440 Hz, 1000 ms

8
End Sub


oder so:

1
Option Explicit  ' Programm oder Datei öffnen

2
' z.B. Sound-Datei mit Mediaplayer abspielen 

3


4
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _

5
  (ByVal hwnd as Long, ByVal lpOperation As String, _

6
   ByVAl lpFile As String, BYVal lpParameters As String, _

7
   ByVal lpDirectory As String, ByVAl nShowCmd As Long) As Long

8


9
Const file1 As String = "C:\Windows\Media\tada.wav"

10
' oder Bild: "C:\Windows\Web\Wallpaper\Windows\img0.jpg"

11
' oder Programm: "Notepad.exe"

12


13
Sub TestShellExec()

14
  ShellExecute Application.hwnd, "Open", file1, _

15
    vbNullString, vbNullString, vbNormalFocus

16
End Sub


Letzteres ist nicht sekundengenau, Aufruf u. Laden dauert eine Weile. 
Tonausgabe über Soundkarte, Beep-Ton evtl. auch über PC-Lautsprecher.
Antwort Zitieren Bearbeiten Löschen Melden Danke 
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.
Antwort Zitieren Bearbeiten Löschen Melden Danke
Thread beobachten

Antwort schreiben

Eine eigene Frage? Dieser Thread ist über 12 Jahre alt. Stell sie in einem eigenen Thread – dort lesen mehr Leute mit, und sie wird öfter und schneller beantwortet.

Neuen Thread starten

Eine Lösung, Ergänzung oder Rückmeldung zu diesem Thread? Dann antworte hier.

Formatierung
  • [c]C-Code[/c]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] – Link zu einem Artikel
  • Verweis auf einen anderen Beitrag: Rechtsklick auf dessen Beitrags-ID (#8078628), „Adresse kopieren“, in den Text einfügen

Mehr zur Formatierung

Längeren Sourcecode als Anhang, nicht in den Text. JPG nur für Fotos und Scans; Zeichnungen und Screenshots als PNG oder GIF. Siehe Bildformate.

Dein Name und deine E-Mail-Adresse

Schon registriert? Anmelden

Wird nicht angezeigt. Wir schicken dir einen Link; sobald du damit bestätigst, erscheint dein Beitrag.

Mit dem Abschicken legst du einen kostenlosen Account an und erkennst die Nutzungsbedingungen und die Datenschutzerklärung an.