VB.NET Anwendung stürzt ab wenn kein Mikrofon vorhanden ist

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    VB.NET Anwendung stürzt ab wenn kein Mikrofon vorhanden ist

    Hallo liebes Forum,

    ich habe eine Anwendung erstellt die mir mein Mikrofon Pegel anzeigt und das klappt auch alles perfekt wenn ein Mikrofon angeschlossen ist. Falls der Rechner keins besitzt Stürzt die App ab :(

    Könnt ihr mir da helfen :D

    VB.NET-Quellcode

    1. Public Class Mikrofon
    2. Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal Command As String,
    3. Optional ByVal ReturnString As String = " ", Optional ByVal ReturnLength As Integer = 0, Optional ByVal Callback As Integer = 0) As Integer
    4. Dim rs As String ' Returnstring
    5. Dim SoundLevel, Mode As New String(" ", 20)
    6. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    7. Call mciSendString("Open New Type waveaudio Alias MySound", rs, 128, 0)
    8. Call mciSendString("record MySound", rs, 128, 0)
    9. Call mciSendString("Stop MySound", rs, 128, 0)
    10. Timer1.Enabled = True
    11. End Sub
    13. Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
    15. End Sub
    17. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    18. Process.Start("control.exe", "mmsys.cpl")
    19. End Sub
    21. Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
    23. End Sub
    25. Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    26. Dim cb As Integer = 0
    27. Call mciSendString("status MySound level", SoundLevel, 20, cb)
    28. Label1.Text = Val(SoundLevel)
    29. Call mciSendString("status MySound mode", Mode, 128, cb)
    30. Label1.Text = SoundLevel
    32. ProgressBar1.Value = Label1.Text
    33. End Sub
    34. End Class


    Bild von meiner Form falls das Interessant ist im Anhang.

    Vielen Dank schon mal :)
    Gruß Steffen

    *Topic verschoben, Code-Tag angepasst*
    Bilder

    • Bildschirmfoto 2021-05-01 um 18.50.48.png

      12,81 kB, 326×172, 52 mal angesehen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    @iSteffen Willkommen im Forum.
    Fang an mit Option Strict On:
    Visual Studio - Empfohlene Einstellungen
    und wenn wir schon mal dabei sind, schau auch gleich hier rein:
    Debuggen, Fehler finden und beseitigen
    Sieh Dir an, was da aus der DLL zurückkommt und überlege, was zu tun ist, damit es nicht knallt.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!