Kirjautuminen

Haku

Tehtävät

Kilpailu

Putka Open 2025
4. kierros:
7.11. klo 18 – 9.11. klo 23

Keskustelu: Koodit: VB6: Puhetta koneella

JoreSoft [05.03.2004 00:30:02]

#

Microsoft DirectSS-moduulin käyttö omassa ohjelmassa.

Asenna DirecSS-moduuli.
Puhuu hieman hassua suomen murretta, mutta voisi varmaan muokata...

Private Sub Form_Load()
SP.Speed = 100
SP.Speaking = 2
SP.Speak "Tämä on puhe harjoitus , Aika on " & Time
End Sub

Sub Sleep(Seconds As Double)
   Dim TempTime As Double
   TempTime = Timer
   While Timer - TempTime < Seconds
      DoEvents
      If Timer < TempTime Then
         'Huomioidaan, jos mennään keskiyön yli..
         TempTime = TempTime - 24# * 3600#
      End If
   Wend
End Sub

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta