Auf SpeechSynthesizer() Ende der Sprachausgabe in einer Sub warten

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 36 Antworten in diesem Thema. Der letzte Beitrag () ist von Westerwälder.

    Auf SpeechSynthesizer() Ende der Sprachausgabe in einer Sub warten

    Guten Morgen,

    programme mir zur Zeit ein kleines Hilfsprogramm mit Sprachausgabe.
    Nun möchte ich in einer Sub auf das Ende der Sprachausgabe warten.
    Die Lösung mit DoEvents gefällt mir nicht wirklich:

    VB.NET-Quellcode

    1. With Sprachausgabe
    2. .Gestartet = True
    3. .Sprachtext = "Hallo " & Anwender.Vorname & " ich bin das Hilfsprogramm, gleich geht es los. Beendet werde ich mit der f 1 taste"
    4. .Sprachgeschwindigkeit = Me.Sprachtempo
    5. .Vorlesen()
    6. End With
    7. Me.Timer_Pruefung.Enabled = True
    9. Do While Sprachausgabe.Gestartet
    10. Application.DoEvents()
    11. Loop
    13. Private Sub Timer_Pruefung_Tick(sender As Object, e As EventArgs) Handles Timer_Pruefung.Tick
    14. If Sprachausgabe.Gestartet = False Then Exit Sub
    16. If Not Me.currentlyAnimating Then Me.Animation_Starten()
    18. If Sprachausgabe.IsWorking = False Then
    19. Me.Timer_Pruefung.Enabled = False
    20. Sprachausgabe.Gestartet = False
    21. End If
    23. End Sub


    wie könnte man das anders lösen?

    Habe gerade festgestellt, dass bei Schliessen der Form mit me.close

    auf der Startform (also andere Form) folgender Fehler produziert wird:

    Ein Ausnahmefehler des Typs "System.ObjectDisposedException" ist in System.Windows.Forms.dll aufgetreten.
    Zusätzliche Informationen: Auf das verworfene Objekt kann nicht zugegriffen werden.

    VB.NET-Quellcode

    1. Private Sub TS_System_Programm_Tour_Click(sender As Object, e As EventArgs) Handles TS_System_Programm_Tour.Click
    2. If Misterdos.Visible Then Exit Sub
    3. Misterdos.Modus = "A"
    4. Misterdos.Show()
    5. End Sub


    Vielleicht stelle ich mal den kompletten Code zur Verfügung

    Spoiler anzeigen


    VB.NET-Quellcode

    1. Public Class Misterdos
    3. Declare Sub mouse_event Lib "user32.dll" (ByVal dwFlags As UInt32, ByVal dx As UInt32, ByVal dy As UInt32, ByVal dwData As UInt32, ByVal dwExtraInfo As IntPtr)
    4. Public Modus As String
    5. Private animatedImage As New Bitmap(Pfade.Diverse.Pfad & "Misterdos.gif")
    6. Private currentlyAnimating As Boolean = False
    7. Private Sprachtempo As Integer
    8. Private Taste_F1 As MBC_Diverse.Hotkey
    9. Private I As Integer
    11. Private PosOben As Integer
    12. Private PlusOben As Integer
    13. Private PosLinks As Integer
    15. Private TS_DDButton As ToolStripDropDownButton
    16. Private TS_ToolstripLabel As ToolStripLabel
    18. Private Sub Misterdos_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
    19. Me.Timer_Pruefung.Enabled = False
    20. Me.Animation_Beenden()
    21. Me.Modus = Nothing
    22. Sprachausgabe.Stopp()
    23. End Sub
    24. Private Sub Misterdos_Load(sender As Object, e As EventArgs) Handles Me.Load
    26. Me.Visible = False
    27. Me.Opacity = 0
    28. Me.Visible = True
    29. Monitor.Form_Initalisieren(Me)
    30. Me.KeyPreview = True
    31. Me.BackColor = Color.White
    32. Me.TransparencyKey = Color.White
    33. Me.PlusOben = 22
    35. Me.Taste_F1 = New MBC_Diverse.Hotkey
    36. Me.Taste_F1.TryRegister(Keys.F1)
    37. AddHandler Taste_F1.Pressed, AddressOf Me.Beendetaste
    38. Me.Timer_Pruefung.Enabled = False
    40. Me.Opacity = 1
    41. Me.BringToFront()
    42. Me.TopMost = True
    44. Me.Animation_Starten()
    45. With Sprachausgabe
    46. .Gestartet = True
    47. .Sprachtext = "Hallo " & Anwender.Vorname & " ich bin das Hilfsprogramm, gleich geht es los. Beendet werde ich mit der f 1 taste"
    48. .Sprachgeschwindigkeit = Me.Sprachtempo
    49. .Vorlesen()
    50. End With
    51. Me.Timer_Pruefung.Enabled = True
    53. Do While Sprachausgabe.Gestartet
    54. Application.DoEvents()
    55. Loop
    57. If Me.Modus = "A" Then Me.Part_Startmenue()
    59. End Sub
    60. Private Sub Beenden()
    62. With Sprachausgabe
    63. .Gestartet = True
    64. .Sprachtext = "Ich hoffe es hat dir gefallen. tschüss"
    65. .Sprachgeschwindigkeit = Me.Sprachtempo
    66. .Vorlesen()
    67. End With
    68. Me.Timer_Pruefung.Enabled = True
    70. Do While Sprachausgabe.Gestartet
    71. Application.DoEvents()
    72. Loop
    74. Me.Close()
    76. End Sub
    78. Private Sub Beendetaste(sender As Object, e As EventArgs)
    79. Me.Close()
    80. End Sub
    81. Private Sub Animation_Starten()
    83. If Not currentlyAnimating Then
    84. ImageAnimator.Animate(animatedImage,
    85. New EventHandler(AddressOf Me.OnFrameChanged))
    86. Me.currentlyAnimating = True
    87. End If
    89. End Sub
    90. Private Sub Animation_Beenden()
    91. ImageAnimator.StopAnimate(animatedImage, New EventHandler(AddressOf Me.OnFrameChanged))
    92. Me.currentlyAnimating = False
    93. End Sub
    94. Private Sub OnFrameChanged(ByVal o As Object, ByVal e As EventArgs)
    95. Me.Invalidate()
    96. End Sub
    97. Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
    99. ImageAnimator.UpdateFrames()
    100. e.Graphics.DrawImage(Me.animatedImage, New Point(0, 0))
    102. End Sub
    103. Private Sub Timer_Pruefung_Tick(sender As Object, e As EventArgs) Handles Timer_Pruefung.Tick
    104. If Sprachausgabe.Gestartet = False Then Exit Sub
    106. If Not Me.currentlyAnimating Then Me.Animation_Starten()
    108. If Sprachausgabe.IsWorking = False Then
    109. Me.Timer_Pruefung.Enabled = False
    110. Sprachausgabe.Gestartet = False
    111. End If
    113. End Sub
    114. Private Sub Vorlesen(ByVal Text As String)
    116. Sprachausgabe.Gestartet = True
    117. Me.Timer_Pruefung.Enabled = False
    119. With Sprachausgabe
    120. .Stopp()
    121. .Sprachtext = Text
    122. .Sprachgeschwindigkeit = Me.Sprachtempo
    123. .Gestartet = True
    124. .Vorlesen()
    125. End With
    127. Me.Timer_Pruefung.Enabled = True
    129. End Sub
    130. Private Sub Bearbeitung_TS_Label(ByVal MeinLabel As ToolStripLabel, ByVal Sprachtext As String)
    132. If Not MeinLabel.Visible Then Exit Sub
    133. Sprachausgabe.Gestartet = True
    134. Me.Timer_Pruefung.Enabled = False
    136. Me.PosOben = 25
    137. Me.PosLinks = MeinLabel.Bounds.Left + MeinLabel.Bounds.Width + 50
    138. Me.Maus_Bewegen(MeinLabel.Bounds.Left + 20, 15)
    140. Me.Top = Me.PosOben
    141. Me.Left = Me.PosLinks
    143. Me.Vorlesen(Sprachtext)
    145. End Sub
    146. Private Sub Bearbeitung_TS_DDButton(ByVal MeinButton As ToolStripDropDownButton,
    147. ByVal MutterItem As ToolStripMenuItem,
    148. ByVal KindItem As ToolStripMenuItem,
    149. ByVal MutterNummer As Integer,
    150. ByVal HatKindItem As Boolean,
    151. ByVal Sprachtext As String)
    153. If Not MeinButton.Visible Then Exit Sub
    154. Sprachausgabe.Gestartet = True
    155. Me.Timer_Pruefung.Enabled = False
    157. If MutterItem Is Nothing AndAlso KindItem Is Nothing Then
    159. Me.PosOben = 25
    160. Me.PosLinks = MeinButton.Bounds.Left + MeinButton.Width + 50
    161. MeinButton.Select()
    162. Me.Maus_Bewegen(MeinButton.Bounds.Left + 20, 15)
    163. Me.Maus_EinfachClick()
    165. Else
    167. If Not MutterItem Is Nothing Then
    169. Me.PosOben = (MutterNummer * Me.PlusOben) + MeinButton.Height
    171. If MeinButton.Width > MutterItem.Width Then
    172. Me.PosLinks = MeinButton.Bounds.Left + MeinButton.Bounds.Width + 50
    173. Else
    174. Me.PosLinks = MeinButton.Bounds.Left + MutterItem.Bounds.Width + 50
    175. End If
    176. MutterItem.Select()
    177. Me.Maus_Bewegen(MeinButton.Bounds.Left + 25, Me.PosOben)
    178. MutterItem.Select()
    180. End If
    182. If Not KindItem Is Nothing Then
    183. Me.PosLinks += KindItem.Width
    184. Me.Maus_Bewegen(MeinButton.Bounds.Left + 25 + MutterItem.Width + KindItem.Width, Me.PosOben)
    185. KindItem.Select()
    186. End If
    188. End If
    190. Me.Top = Me.PosOben
    191. Me.Left = Me.PosLinks
    193. Me.Vorlesen(Sprachtext)
    195. End Sub
    196. Private Sub Maus_Bewegen(ByRef MausLeft As Integer, MausTop As Integer)
    197. Cursor.Position = New Point(MausLeft, MausTop)
    198. End Sub
    199. Private Sub Maus_EinfachClick()
    200. mouse_event(2, 0, 0, 0, New System.IntPtr())
    201. mouse_event(4, 0, 0, 0, New System.IntPtr())
    203. End Sub
    204. Private Sub Maus_DoppelClick()
    205. mouse_event(2, 0, 0, 0, New System.IntPtr())
    206. mouse_event(4, 0, 0, 0, New System.IntPtr())
    207. mouse_event(2, 0, 0, 0, New System.IntPtr())
    208. mouse_event(4, 0, 0, 0, New System.IntPtr())
    210. End Sub
    212. Public Sub Part_Startmenue()
    214. Me.TS_ToolstripLabel = Startmenue.TS_Datum
    215. If Me.TS_ToolstripLabel.Visible Then
    216. Me.Bearbeitung_TS_Label(Me.TS_ToolstripLabel, "Zeigt das aktuelle Datum." &
    217. "Klickst du diesen an, erscheint ein kleiner Kalender.")
    218. Do While Sprachausgabe.Gestartet
    219. Application.DoEvents()
    220. Loop
    221. End If
    223. Me.TS_ToolstripLabel = Startmenue.TS_Uhrzeit
    224. If Me.TS_ToolstripLabel.Visible Then
    225. Me.Bearbeitung_TS_Label(Me.TS_ToolstripLabel, "Zeigt die aktuelle Uhrzeit." &
    226. "Klickst du diesen an, erscheint eine analoge Uhr")
    227. Do While Sprachausgabe.Gestartet
    228. Application.DoEvents()
    229. Loop
    230. End If
    232. Me.TS_DDButton = Startmenue.TS_Menue
    233. If Me.TS_DDButton.Visible Then
    235. Me.TS_DDButton = Startmenue.TS_Menue
    236. If Me.TS_DDButton.Visible Then
    237. Me.Bearbeitung_TS_DDButton(Me.TS_DDButton, Nothing, Nothing, 0, False,
    238. "Anwendungen. hier findest du die Standardprogramme")
    239. Do While Sprachausgabe.Gestartet
    240. Application.DoEvents()
    241. Loop
    242. End If
    244. Me.I = 0
    245. For Each MenueItem As ToolStripMenuItem In Me.TS_DDButton.DropDownItems.OfType(Of ToolStripMenuItem)()
    247. With MenueItem
    249. Me.I += 1
    251. If .Name = "TS_Menue_Astronomie" Then
    252. If .Visible Then
    253. Me.Bearbeitung_TS_DDButton(Me.TS_DDButton, MenueItem, Nothing, Me.I, False,
    254. "Astronomie, Hier findest du Informationen über Sonnensysteme und Sterne")
    255. Do While Sprachausgabe.Gestartet
    256. Application.DoEvents()
    257. Loop
    258. End If
    259. End If
    261. If .Name = "TS_Menue_EMail" Then
    262. If .Visible Then
    263. Me.Bearbeitung_TS_DDButton(Me.TS_DDButton, MenueItem, Nothing, Me.I, True,
    264. "Email")
    265. Do While Sprachausgabe.Gestartet
    266. Application.DoEvents()
    267. Loop
    268. End If
    270. For Each MenueSubItem As ToolStripMenuItem In MenueItem.DropDownItems.OfType(Of ToolStripMenuItem)()
    271. If MenueSubItem.Name = "TS_Menue_EMail_Center" Then
    273. If MenueSubItem.Visible Then
    274. Me.Bearbeitung_TS_DDButton(Me.TS_DDButton, MenueItem, MenueSubItem, Me.I, False,
    275. "Im mailcenter findest Du gesendete und empfange mails")
    276. Do While Sprachausgabe.Gestartet
    277. Application.DoEvents()
    278. Loop
    279. End If
    280. End If
    281. Next
    283. End If
    285. End With
    286. Next
    288. End If
    290. Me.Beenden()
    292. End Sub
    294. End Class




    Gruß Markus

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Westerwälder“ ()

    1. Ich würde die Do while Schleife komplett weglassen inklusive DoEvents.
    2. Beim Schließen der Anwendung Application.exit() benutzen.
    3. Setze einen Public Boolean auf der Startform von Nebenform um Festzustellen ob Form offen (Load Ereignis der nebenform setzt Boolean).
    4. Erst Form öffnen dann auf Form zugreifen.

    Danke, aber was mache ich hier ohne Do while?

    VB.NET-Quellcode

    1. Public Sub Part_Startmenue()
    3. Me.TS_ToolstripLabel = Startmenue.TS_Datum
    5. Me.Bearbeitung_TS_Label(Me.TS_ToolstripLabel, "Zeigt das aktuelle Datum." &
    6. "Klickst du diesen an, erscheint ein kleiner Kalender.")
    7. Do While Sprachausgabe.Gestartet
    8. Application.DoEvents()
    9. Loop
    11. Me.TS_ToolstripLabel = Startmenue.TS_Uhrzeit
    13. Me.Bearbeitung_TS_Label(Me.TS_ToolstripLabel, "Zeigt die aktuelle Uhrzeit." &
    14. "Klickst du diesen an, erscheint eine analoge Uhr")
    15. Do While Sprachausgabe.Gestartet
    16. Application.DoEvents()
    17. Loop
    19. Me.TS_DDButton = Startmenue.TS_Menue
    20. If Me.TS_DDButton.Visible Then
    22. Me.TS_DDButton = Startmenue.TS_Menue
    24. Me.Bearbeitung_TS_DDButton(Me.TS_DDButton, Nothing, Nothing, 0, False,
    25. "Anwendungen. hier findest du die Standardprogramme")
    26. Do While Sprachausgabe.Gestartet
    27. Application.DoEvents()
    28. Loop
    30. Me.I = 0
    31. For Each MenueItem As ToolStripMenuItem In Me.TS_DDButton.DropDownItems.OfType(Of ToolStripMenuItem)()
    33. With MenueItem
    35. Me.I += 1
    37. If .Name = "TS_Menue_Astronomie" Then
    39. Me.Bearbeitung_TS_DDButton(Me.TS_DDButton, MenueItem, Nothing, Me.I, False,
    40. "Astronomie, Hier findest du Informationen über Sonnensysteme und Sterne")
    41. Do While Sprachausgabe.Gestartet
    42. Application.DoEvents()
    43. Loop
    45. End If
    47. If .Name = "TS_Menue_EMail" Then
    49. Me.Bearbeitung_TS_DDButton(Me.TS_DDButton, MenueItem, Nothing, Me.I, True,
    50. "Email")
    51. Do While Sprachausgabe.Gestartet
    52. Application.DoEvents()
    53. Loop
    55. For Each MenueSubItem As ToolStripMenuItem In MenueItem.DropDownItems.OfType(Of ToolStripMenuItem)()
    56. If MenueSubItem.Name = "TS_Menue_EMail_Center" Then
    58. Me.Bearbeitung_TS_DDButton(Me.TS_DDButton, MenueItem, MenueSubItem, Me.I, False,
    59. "Im mailcenter findest Du gesendete und empfange mails")
    60. Do While Sprachausgabe.Gestartet
    61. Application.DoEvents()
    62. Loop
    64. End If
    65. Next
    67. End If
    69. End With
    70. Next
    72. End If
    74. Me.Beenden()
    76. End Sub
    Gruß Markus

    @Westerwälder Wie funktioniert denn die Sprachausgabe?
    Wenn diese selbst bei Beendigung ein Event senden würde, wäre Dein Problem gelöst.
    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!

    Westerwälder schrieb:

    Sprachausgabe.isworking
    wäre nach meinem Verständnis eine Property, die Du pollen müsstest. Ein Event sehe ich da nicht.
    Wenn Du dies in einer Timer-Tick-Routine machtest mit sagen wir 100 Millisekunden Timer-Intervall solte das doch auch besser ablaufen.
    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!

    Arbeite mit einem Timer

    VB.NET-Quellcode

    1. Private Sub Timer_Pruefung_Tick(sender As Object, e As EventArgs) Handles Timer_Pruefung.Tick
    2. If Sprachausgabe.Gestartet = False Then Exit Sub
    4. If Not Me.AnimationisRuning Then Me.Animation_Starten()
    6. If Sprachausgabe.IsWorking = False Then
    7. Me.Timer_Pruefung.Enabled = False
    8. Sprachausgabe.Gestartet = False
    9. End If
    11. End Sub


    Die Computerstimme soll den Text komplett ansagen.
    Solange soll sich die Maus- und Formposition nicht ändern.
    Ist die Ansage fertig, wird das nächste Element im Toolstrip aufgerufen.

    Klar, ich könnte für jedes Element eine eigene Sub machen, aber
    erstens viel Aufwand und
    zweitens ein Rumgebastel wenn irgendwas noch dazu bzw. im Toolstrip wieder entfernt wird.
    Gruß Markus

    Westerwälder schrieb:

    VB.NET-Quellcode

    1. Do While Sprachausgabe.Gestartet
    2. Application.DoEvents()
    3. Loop
    Nö.
    Du machst einen riesigen Misch-Masch-Kauderwelsch. ;(
    Du solltest Deinen Ablauf mal völlig neu durchdenken und das ganze ggf. in eine separate Klasse auslagern, die könnte dann bei Bedarf ein Event senden.
    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!

    Westerwälder schrieb:

    in der Sub
    überhaupt nicht.
    Verinnerliche folgendes Prinzip:
    Du bestellst eine Pizza.
    Du hast zwei Möglichkeiten:
    • Du saust alle 60 Sekunden zur Tür und siehst nach, ob der Pizzabote davor steht.
    • Du siehst Dir einen Film an und wartest auf das Klingeln des Pizzaboten.
    Genau so musst Du es in Deinem Programm machen.
    Wenn das Ende der Sprachausgabe den Start von xyz auslösen soll, musst Du in das Sprachausgabe-Ende-Event xyz starten.
    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!

    @Westerwälder Beschreibe mal mit Worten (ohne Code), wie Dein Ablauf ablaufen soll.
    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!

    Ich habe etwa 25 Formen in meinem Projekt.
    Für jede Form soll ein Hilfsprogramm zur Verfügung stehen.

    User clickt irgendwo den Hilfebutton. Über den Modus weis das Hilfeprogramm, um welche Form es sich handelt.

    Erstelle mir nun eine Klasse mit den benötiogen Information,
    - Sprachtext
    - Labelbezeichung
    - Buttonbezeichnung
    usw.

    Von dieser Klasse erstelle ich mir eine List of
    Nun durchlaufe ich alle Elemente im Toolstrip und füge sie der List of bei

    Ist dies erfolgt, starte ich den Timer und hole mir den ersten Index aus der List of
    nun erfolgt Maus- und Formpositionierung sowie Sprachausgabe

    Meldet nun Sprachausgabe.IsWorking = false
    bearbeite ich den nächsten Eintrag der List of
    Gruß Markus

    Westerwälder schrieb:

    Sprachausgabe
    Was wird da akustisch ausgegeben?
    Warum willst / musst Du warten, bis das zu Ende ist?
    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!

Facebook
Telefonspende