| |
Visual-Basic EinsteigerBeep funzt auf Server nicht | | | Autor: raymound | Datum: 12.12.12 16:13 |
| Hallo,
ich habe gerade gemerkt, dass nachstehende Code zwar auf WinXP nciht aber auf dem WinServer2003 funzt.
Kann mir jemand helfen, welcher Code dafür auch auf Server läuft?
Option Explicit
Private Declare Function Ton& Lib "kernel32" _
Alias "Beep" _
(ByVal dwFrequenz As Long, _
ByVal dwDauer As Long)
Sub LautAn1()
Ton 2500, 100
Ton 2000, 100
Ton 2500, 100
Ton 2000, 100
Ton 2500, 100
Ton 2000, 100 Viele Grüße aus HH bei -5 Grad gefühlt wie -10 bibber bibber bibber | |
Re: Beep funzt auf Server nicht | | | Autor: Blackbox | Datum: 12.12.12 18:53 |
| Hi,
der Ton wird nicht über die Soundkarte ausgegeben, sondern über den PC-Lautsprecher. Bist Du sicher, dass der Server-PC über einen solchen internen Lautsprecher verfügt? Dein WinXP-PC scheint ja einen zu haben. | |
Re: Beep funzt auf Server nicht | | | Autor: wb-soft | Datum: 12.12.12 20:07 |
| Hi!
Interner Lautsprecher sollte auch bei Servern vorhanden sein (z. B. für Signale vom BIOS).
mfg
WB | |
Re: Beep funzt auf Server nicht | | | Autor: Blackbox | Datum: 12.12.12 22:32 |
| Hi,
ein Gehäuselautsprecher ist teuer. Manche Hersteller setzen, wenn überhaupt noch statt dessen einen Piezo-Summer ein, der dann auch auch dem Mainboard sitzt. Der Summer kann Kernels Beep nicht umsetzen wenn das mehr als 440 Hz wäre. | |
Re: Beep funzt auf Server nicht | | | Autor: raymound | Datum: 13.12.12 09:46 |
| ok, wie kann ich den code umschreiben, damit 440Hz nicht überschritten werden?
VG Ray | |
Re: Beep funzt auf Server nicht | | | Autor: Blackbox | Datum: 13.12.12 14:33 |
| Hi,
versuche es mit der MessageBeep-Funktion. | |
Hilfe beim Einbau der f(x) | | | Autor: raymound | Datum: 14.12.12 09:34 |
| hi,
ich habe das hier genommen:
http://www.vb-archiv.de/api/api_messagebeep.html
auf der Userform habe ich eingetragen:
Declare Function MessageBeep Lib "user32.dll" (ByVal wType As Long) As Long
Const MB_ICONASTERISK = &H40& ' Warnung
beim Button:
Private Sub Command1_Click ()
Dim Retval As Long
Retval = MessageBeep (MB_ICONQUESTION)
If Retval = 0 Then
Debug.Print "MessageBeep ist gescheitert"
End If
End Sub
Aber ich hör nix und bekomme auch keine Box...
Was mach ich falsch?
VG Ray | |
Re: Beep funzt auf Server nicht | | | Autor: wb-soft | Datum: 14.12.12 09:43 |
| Hi!
anscheinend verwendest du nicht Option explicit mfg
WB | |
Re: Beep funzt auf Server nicht | | | Autor: raymound | Datum: 14.12.12 10:10 |
| hi,
so steht es auf der UF:
Option Explicit
Private Declare Function MessageBeep Lib "user32" (ByVal wType As BeepType) As _
Long
'Private Declare Function MessageBeep Lib "user32.dll" (ByVal wType As Long) As
' Long
Public Enum BeepType
MB_ICONASTERISK = &H40
MB_ICONEXCLAMATION = &H30
MB_ICONQUESTION = &H20
MB_ICONERROR = &H10
MB_OK = &H0
MB_SPEEKER = -1
End Enum der Button hat den code:
Private Sub Command4_Click()
Dim Retval As Long
Retval = MessageBeep(MB_SPEEKER)
If Retval = 0 Then
Debug.Print "MessageBeep ist gescheitert"
End If
End Sub | |
Re: Beep funzt auf Server nicht | | | Autor: Blackbox | Datum: 14.12.12 10:17 |
| Hi,
der Code funktioniert. Bei Test kommt jedenfalls ein Ton. Es ist aber auch so, dass man diese Systemmeldungen in der Systemsteuerung-Soundeinstellungen deaktivieren kann. Möglicherweise wurden
diese auf dem Server deaktiviert (was ja auch Sinn macht ;) ). | |
Re: Beep funzt auf Server nicht | | | Autor: raymound | Datum: 14.12.12 11:24 |
| Bei mir kommt bei XP auch kein ton....
Wo liegt der Fehler in meinem Code? | |
Re: Beep funzt auf Server nicht | | | Autor: Blackbox | Datum: 14.12.12 11:55 |
| Hi,
lt MS ist MessageBeep eine asynchrone Funktion. Du könntest sie mal ohne weiteren Code testen.
ZB:
Sub Test()
MessageBeep &H10
End sub
So habe ich das unter VBA getestet, und das Funktioniert unter WinXP. | |
Re: Beep funzt auf Server nicht | | | Autor: Blackbox | Datum: 14.12.12 19:35 |
| Hi,
jetzt mit 64Bit Win 7 getestet -> funktioniert. | |
Re: Beep funzt nur mit externen Lautsprechern | | | Autor: raymound | Datum: 17.12.12 11:30 |
| Hallo,
MsgBeep funzt nur bei angeschlossenen Lautsprechern
Noch ne Idee, wie ich aus dem Piezo vom Server Töne rausbekomme?
VG Ray | |
Re: Beep funzt auf Server nicht | | | Autor: wb-soft | Datum: 17.12.12 11:51 |
| Hi!
Ich denke du solltest zuerst abklären, ob der Server hardwaremäßig überhaupt einen Ton abgeben kann.
Normalerweise gibt es akustische Signale während des Bootvorganges. Damit werden eventuelle Fehler signalisiert. Ein Teil dieser Meldungen ist bei einem Server vermutlich im BIOS deaktiviert.
Wenn die Abgabe von Tönen grundsätzlich möglich ist, dann geh wieder zurück zu deinem ersten Beitrag. Da kannst du ja die Frequenz vorgeben.
Versuchen mit unterschiedlichen Frequenzen steht dann nichts im Weg.
mfg
WB | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
Neu! sevCommand 4.0
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere InfosTipp des Monats TOP Entwickler-Paket
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|