Tipp 0016 Ist eine Soundkarte installiert?
Autor/Einsender:
Datum:
  Detlev Schubert
28.12.2000
Entwicklungsumgebung:   VB 5
Gerade für die Spielprogrammierung ist es notwendig zu erfahren, ob der User eine Soundkarte installiert hat oder nicht, denn was ist das schönste Spiel ohne entsprechende Sounds. Um dies zu erfahren, reicht eine einzige Zeile Code und die API-Funktion waveOutGetNumDevs.
 
Option Explicit

Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () _
        As Long

Private Sub Command1_Click(Index As Integer)
  Select Case Index
    Case 1
      If IsSoundkarte Then
        Label1.ForeColor = &H8000&
        Label1.Caption = "Es ist eine Soundkarte installiert."

      Else
        Label1.ForeColor = &HC0&
        Label1.Caption = "Es ist leider keine Soundkarte " & _
                "installiert."
      End If

    Case Else
      Unload Me
  End Select
End Sub

Private Function IsSoundkarte() As Boolean
  IsSoundkarte = waveOutGetNumDevs() > 0
End Sub
 
Weitere Links zum Thema
Soundkarten-Informationen auslesen
Hinweis für VBA-Anwender
Mit kleinen Anpassungen bzgl. des CommandButton-Click-Ereignisses (in VBA gibt es keine Steuerelementfelder) funktioniert der hier abgebildete Code auch in einem VBA-Projekt. Dieser muss dazu in den VB-Editor der entsprechenden Anwendung kopiert werden. Ein Import der im Download enthaltenen frm-Datei ist nicht möglich.

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (2,3 kB) Downloads bisher: [ 1186 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 28. August 2011