Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on January 27, 2022, 06:55:28 pm

Title: LCD Clock With Speech And Bouncing Ball
Post by: SierraKen on January 27, 2022, 06:55:28 pm
Using an old LCD clock I made a few years ago, I added a woman's voice to it when you click it, and a ball that bounces around. The speech reads the title of the month, not the number of the month, as well as the date and time.

Edit: You will need to add this LCD.TTF font file to your folder, or Windows Fonts folder. I think you can just add it to your QB64 folder where you save this app anyway. If not, put it in your Windows Fonts folder that has the rest of your fonts. 

Code: QB64: [Select]
  1. 'By SierraKen on January 27, 2022.
  2. _Title "Digital Time and Date - Click to Listen."
  3.  
  4. Screen _NewImage(400, 200, 32)
  5. rootpath$ = Environ$("SYSTEMROOT") 'normally "C:\WINDOWS"
  6. fontfile$ = rootpath$ + "\Fonts\Lcd.ttf" 'TTF file in Windows
  7. style$ = "bold" 'font style is not case sensitive
  8. f& = _LoadFont(fontfile$, 72, style$)
  9. _Font f& '
  10. ballx = 200: bally = 100
  11. redo:
  13. dx = (Rnd * 5) - 5
  14. dy = (Rnd * 5) - 5
  15. If dx = 0 And dy = 0 Then GoTo redo:
  16. If dx < .25 And dx > -.25 Then GoTo redo:
  17. If dy < .25 And dy > -.25 Then GoTo redo:
  18.  
  19.  
  20. Dim message As String
  21. Dim message2 As String
  23.     _Limit 30
  24.  
  25.     t$ = Time$
  26.     hour$ = Left$(t$, 2)
  27.     h = Val(hour$)
  28.     If h > 11 Then pmam$ = " PM"
  29.     If h < 12 Then pmam$ = " AM"
  30.     If h > 12 Then h = h - 12: hour$ = Str$(h)
  31.     minute$ = Mid$(t$, 4, 2)
  32.     second$ = Right$(t$, 2)
  33.     Color _RGB32(127, 255, 127), _RGB32(0, 0, 0)
  34.     _PrintString (10, 10), hour$ + ":" + minute$ + ":" + second$ + pmam$
  35.     _PrintString (10, 100), Date$
  36.     ball ballx, bally, dx, dy
  38.         mouseX = _MouseX
  39.         mouseY = _MouseY
  40.         mouseLeftButton = _MouseButton(1)
  41.     Loop
  42.     If mouseLeftButton = -1 Then
  43.         mouseLeftButton = 0
  44.         If Left$(Date$, 2) = "01" Then month$ = "January"
  45.         If Left$(Date$, 2) = "02" Then month$ = "February"
  46.         If Left$(Date$, 2) = "03" Then month$ = "March"
  47.         If Left$(Date$, 2) = "04" Then month$ = "April"
  48.         If Left$(Date$, 2) = "05" Then month$ = "May"
  49.         If Left$(Date$, 2) = "06" Then month$ = "June"
  50.         If Left$(Date$, 2) = "07" Then month$ = "July"
  51.         If Left$(Date$, 2) = "08" Then month$ = "August"
  52.         If Left$(Date$, 2) = "09" Then month$ = "September"
  53.         If Left$(Date$, 2) = "10" Then month$ = "October"
  54.         If Left$(Date$, 2) = "11" Then month$ = "November"
  55.         If Left$(Date$, 2) = "12" Then month$ = "December"
  56.         day$ = Mid$(Date$, 4, 2)
  57.         year$ = Right$(Date$, 4)
  58.         message = "The time is " + hour$ + minute$ + pmam$ + " and " + second$ + " seconds."
  59.         speak message
  60.         message = "The date today is " + month$ + " " + day$ + " " + year$
  61.         speak message
  62.     End If
  63.  
  64.  
  65.  
  66.     _Display
  67.     Cls
  69.  
  70.  
  71. Sub ball (ballx, bally, dx, dy)
  73.     _Limit 100
  74.  
  75.     ballx = ballx + dx
  76.     bally = bally + dy
  77.     more:
  78.     If ballx < 0 Then dx = 5: dy = (Rnd * 5) - 5
  79.     If ballx > 400 Then dx = -5: dy = (Rnd * 5) - 5
  80.     If bally < 0 Then dy = 5: dx = (Rnd * 5) - 5
  81.     If bally > 200 Then dy = -5: dx = (Rnd * 5) - 5
  82.     If dx = 0 And dy = 0 Then GoTo more:
  83.     If dx < .25 And dx > -.25 Then GoTo more:
  84.     If dy < .25 And dy > -.25 Then GoTo more:
  85.  
  86.     r = 15
  87.     c = _RGB(0, 0, 255)
  88.     cx = ballx
  89.     cy = bally
  90.     fillCircle cx, cy, r, c
  91.  
  92.     _Display
  93.     Line (0, 0)-(_Width, _Height), _RGB32(0, 0, 0, 20), BF
  94.  
  96.  
  97. 'from Steve Gold standard
  98. Sub fillCircle (CX As Integer, CY As Integer, R As Integer, C As _Unsigned Long)
  99.     Dim Radius As Integer, RadiusError As Integer
  100.     Dim X As Integer, Y As Integer
  101.     Radius = Abs(R): RadiusError = -Radius: X = Radius: Y = 0
  102.     If Radius = 0 Then PSet (CX, CY), C: Exit Sub
  103.     Line (CX - X, CY)-(CX + X, CY), C, BF
  104.     While X > Y
  105.         RadiusError = RadiusError + Y * 2 + 1
  106.         If RadiusError >= 0 Then
  107.             If X <> Y + 1 Then
  108.                 Line (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  109.                 Line (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  110.             End If
  111.             X = X - 1
  112.             RadiusError = RadiusError - X * 2
  113.         End If
  114.         Y = Y + 1
  115.         Line (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  116.         Line (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  117.     Wend
  119.  
  120. 'Windows only, I think
  121. Sub speak (message As String)
  122.     out$ = "Powershell -Command " + Chr$(34)
  123.     out$ = out$ + "Add-Type -AssemblyName System.Speech; "
  124.     out$ = out$ + "$Speech = New-Object System.Speech.Synthesis.SpeechSynthesizer; "
  125.     out$ = out$ + "$Speech.SelectVoice('Microsoft Zira Desktop'); "
  126.     out$ = out$ + "$Speech.Speak('" + message + "');" + Chr$(34)
  127.     Shell _Hide out$
  129.  
Title: Re: LCD Clock With Speech And Bouncing Ball
Post by: bplus on January 27, 2022, 07:41:17 pm
hmm... don't have that font on my Windows 10.

Title: Re: LCD Clock With Speech And Bouncing Ball
Post by: SMcNeill on January 27, 2022, 08:33:15 pm
Updated this to use _DONTWAIT in the shell call so that your ball won't quit moving and the clock won't stop updating the time.

Code: QB64: [Select]
  1. 'By SierraKen on January 27, 2022.
  2. _Title "Digital Time and Date - Click to Listen."
  3.  
  4. Screen _NewImage(400, 200, 32)
  5. rootpath$ = Environ$("SYSTEMROOT") 'normally "C:\WINDOWS"
  6. fontfile$ = rootpath$ + "\Fonts\courbd.ttf" 'TTF file in Windows
  7. style$ = "bold" 'font style is not case sensitive
  8. f& = _LoadFont(fontfile$, 58, style$)
  9. _Font f& '
  10. ballx = 200: bally = 100
  11. redo:
  13. dx = (Rnd * 5) - 5
  14. dy = (Rnd * 5) - 5
  15. If dx = 0 And dy = 0 Then GoTo redo:
  16. If dx < .25 And dx > -.25 Then GoTo redo:
  17. If dy < .25 And dy > -.25 Then GoTo redo:
  18.  
  19.  
  20. Dim message As String
  21. Dim message2 As String
  22.  
  23. Color _RGB32(127, 255, 127), _RGB32(0, 0, 0)
  26.         mouseX = _MouseX
  27.         mouseY = _MouseY
  28.         mouseLeftButton = _MouseButton(1)
  29.     Loop
  30.     If mouseLeftButton = -1 And SpeakTime = 0 Then 'Don't spam speak if the user goes crazy with mouse clicks!
  31.         mouseLeftButton = 0
  32.         If Left$(Date$, 2) = "01" Then month$ = "January"
  33.         If Left$(Date$, 2) = "02" Then month$ = "February"
  34.         If Left$(Date$, 2) = "03" Then month$ = "March"
  35.         If Left$(Date$, 2) = "04" Then month$ = "April"
  36.         If Left$(Date$, 2) = "05" Then month$ = "May"
  37.         If Left$(Date$, 2) = "06" Then month$ = "June"
  38.         If Left$(Date$, 2) = "07" Then month$ = "July"
  39.         If Left$(Date$, 2) = "08" Then month$ = "August"
  40.         If Left$(Date$, 2) = "09" Then month$ = "September"
  41.         If Left$(Date$, 2) = "10" Then month$ = "October"
  42.         If Left$(Date$, 2) = "11" Then month$ = "November"
  43.         If Left$(Date$, 2) = "12" Then month$ = "December"
  44.         day$ = Mid$(Date$, 4, 2)
  45.         year$ = Right$(Date$, 4)
  46.         SpeakTime = 1 'Set the flag to speak the time.
  47.     End If
  48.     _Limit 30
  49.  
  50.     t$ = Time$
  51.     hour$ = Left$(t$, 2)
  52.     h = Val(hour$)
  53.     If h > 11 Then pmam$ = " PM" Else pmam$ = " AM"
  54.     If h > 12 Then h = h - 12: hour$ = Str$(h)
  55.     minute$ = Mid$(t$, 4, 2)
  56.     second$ = Right$(t$, 2)
  57.  
  58.     If SpeakTime = 1 Then 'Speak the first line
  59.         StartTimer = Timer + 4: SpeakTime = 2 'set the flag to wait 4 seconds before speaking the second line
  60.         message = "The time is " + hour$ + minute$ + pmam$ + " and " + second$ + " seconds."
  61.         speak message
  62.     ElseIf SpeakTime = 2 And Timer > StartTimer Then 'speak the second line
  63.         StartTimer = Timer + 4: SpeakTime = 3 'wait 4 seconds for the second line to finish.
  64.         message = "The date today is " + month$ + " " + day$ + " " + year$
  65.         speak message
  66.     ElseIf SpeakTime = 3 And Timer > StartTimer Then
  67.         SpeakTime = 0 'we're finished speaking.  Allow the user to click the clock again if they want.
  68.     End If
  69.  
  70.     _PrintString (10, 10), hour$ + ":" + minute$ + ":" + second$ + pmam$
  71.     _PrintString (10, 100), Date$
  72.     ball ballx, bally, dx, dy
  73.  
  74.     _Display
  75.     Cls
  77.  
  78.  
  79. Sub ball (ballx, bally, dx, dy)
  81.     ballx = ballx + dx
  82.     bally = bally + dy
  83.     more:
  84.     If ballx < 0 Then dx = 5: dy = (Rnd * 5) - 5
  85.     If ballx > 400 Then dx = -5: dy = (Rnd * 5) - 5
  86.     If bally < 0 Then dy = 5: dx = (Rnd * 5) - 5
  87.     If bally > 200 Then dy = -5: dx = (Rnd * 5) - 5
  88.     If dx = 0 And dy = 0 Then GoTo more:
  89.     If dx < .25 And dx > -.25 Then GoTo more:
  90.     If dy < .25 And dy > -.25 Then GoTo more:
  91.  
  92.     r = 15
  93.     c = _RGB(0, 0, 255)
  94.     cx = ballx
  95.     cy = bally
  96.     fillCircle cx, cy, r, c
  97.     Line (0, 0)-(_Width, _Height), _RGB32(0, 0, 0, 20), BF
  98.  
  100.  
  101. 'from Steve Gold standard
  102. Sub fillCircle (CX As Integer, CY As Integer, R As Integer, C As _Unsigned Long)
  103.     Dim Radius As Integer, RadiusError As Integer
  104.     Dim X As Integer, Y As Integer
  105.     Radius = Abs(R): RadiusError = -Radius: X = Radius: Y = 0
  106.     If Radius = 0 Then PSet (CX, CY), C: Exit Sub
  107.     Line (CX - X, CY)-(CX + X, CY), C, BF
  108.     While X > Y
  109.         RadiusError = RadiusError + Y * 2 + 1
  110.         If RadiusError >= 0 Then
  111.             If X <> Y + 1 Then
  112.                 Line (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  113.                 Line (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  114.             End If
  115.             X = X - 1
  116.             RadiusError = RadiusError - X * 2
  117.         End If
  118.         Y = Y + 1
  119.         Line (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  120.         Line (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  121.     Wend
  123.  
  124. 'Windows only, I think
  125. Sub speak (message As String)
  126.     out$ = "Powershell -Command " + Chr$(34)
  127.     out$ = out$ + "Add-Type -AssemblyName System.Speech; "
  128.     out$ = out$ + "$Speech = New-Object System.Speech.Synthesis.SpeechSynthesizer; "
  129.     out$ = out$ + "$Speech.SelectVoice('Microsoft Zira Desktop'); "
  130.     out$ = out$ + "$Speech.Speak('" + message + "');" + Chr$(34)
  133.  

Note that I'm manually having to allocate some time so the voice has time to process and speak here.  On my system, 4 seconds seems more than enough for each line to process and do their thing.  Older, slower computers might need an increase in that delay a bit so words don't get jumbled together or processed at the same time, since there's no callback at work to actually let us know when the text to speech is finished.

If you look, I've also reordered the order in which we process things here.  There's a noticable lag in when we click the time and when the Text To Speech reads the time, which ends up with the second being voiced being a few seconds behind what is displayed on the screen.  (It takes a bit to say "The time is Blah: Blah: Blah M and Blah seconds", so the voice is out of sync with the display.)  I reordered things to try and minimize this disparity as much as possible, but it's still about always a 4 second lag. 

If testing on various machines proves this to *always* be a 4 second lag, one simple solution would be to just add 4 seconds to the timer before creating the string to speak.  Then when Ziva says "thirty-two seconds", the display will read 32 seconds and not 36 (because you clicked it back at the 32 second mark and it took that long to say everything else first.)  Not sure if it's even an issue that would bug anyone else, or if it's just one of those little personal quirks of mine.  Anywho, I thought I'd point it out and explain why the number and voice doesn't match for things currently.  ;)

Fix it if you like.  If not, just leave it be the way it is.  ;)
Title: Re: LCD Clock With Speech And Bouncing Ball
Post by: SierraKen on January 27, 2022, 10:22:13 pm
Thanks for telling me B+. It must be a font I once got online a long time ago. I just added it to the first post for people to download.

Steve, whenever I used _DONTWAIT, the voice overlapped onto itself and made a real thick woman's voice. I also tried _DELAYs like you mention, but that was no different than waiting anyways without a _DONTWAIT. I think you are right though, every different type of computer does slightly different things with the speed of the voice. I'm just going to leave it as it is. But I appreciate the suggestions.
Title: Re: LCD Clock With Speech And Bouncing Ball
Post by: SMcNeill on January 28, 2022, 03:22:52 am
Did you even try my code above? It solves your overlap problem without the use of any _DELAY statement by timed execution of your calls.

    If SpeakTime = 1 Then 'Speak the first line
        StartTimer = Timer + 4: SpeakTime = 2 'set the flag to wait 4 seconds before speaking the second line
        message = "The time is " + hour$ + minute$ + pmam$ + " and " + second$ + " seconds."
        speak message
    ElseIf SpeakTime = 2 And Timer > StartTimer Then 'speak the second line
        StartTimer = Timer + 4: SpeakTime = 3 'wait 4 seconds for the second line to finish.
        message = "The date today is " + month$ + " " + day$ + " " + year$
        speak message
    ElseIf SpeakTime = 3 And Timer > StartTimer Then
        SpeakTime = 0 'we're finished speaking.  Allow the user to click the clock again if they want.
    End If

First, it sets a flag to start the first voice when the mouse is clicked.  Then it starts a timer.  Four seconds later it starts the second voice.  Four seconds after that, it resets the flag and allows mouse clicks again.

_DELAY completely stops program execution.  When you want the process to keep going, you introduce timed responses similar to above to prevent the overlapping effect.  ;)
Title: Re: LCD Clock With Speech And Bouncing Ball
Post by: SierraKen on January 28, 2022, 12:26:30 pm
Wow I just tried yours Steve, thank you! Yesterday I had a lot on my mind with my neighbor passing away. I woke up this morning and the first thing that entered my mind was, "You were wrong about the speech line being too long, it wasn't the speech line, it was the 's in date's that messed it up." So I just tried my version with just going to the SUB once and it worked. Then I tried your version and yours is better because you use the TIMER and DONTWAIT to keep the ball rolling. Thank you! I'll make yours the best one on the thread because it also doesn't need the added LCD font. Of course we could change yours so it only goes to the SUB once, but that's a bit too picky and wasted time, in my opinion.
Title: Re: LCD Clock With Speech And Bouncing Ball
Post by: SMcNeill on January 28, 2022, 01:08:01 pm
Quote from: SierraKen on January 28, 2022, 12:26:30 pm
Wow I just tried yours Steve, thank you! Yesterday I had a lot on my mind with my neighbor passing away. I woke up this morning and the first thing that entered my mind was, "You were wrong about the speech line being too long, it wasn't the speech line, it was the 's in date's that messed it up." So I just tried my version with just going to the SUB once and it worked. Then I tried your version and yours is better because you use the TIMER and DONTWAIT to keep the ball rolling. Thank you! I'll make yours the best one on the thread because it also doesn't need the added LCD font. Of course we could change yours so it only goes to the SUB once, but that's a bit too picky and wasted time, in my opinion.

Powershell has several options which you can use as command delimiters.  quotes, single quotes, brackets all seem to work the same way, more or less, from my testing.   One is a START whatever and the second is an END whatever, so things like the following are all valid:

File.Open = "C:\foo directory\foo the file.txt"
File.Open = 'C:\foo directory\foo the file.txt"
File.Open = {C:\foo directory\foo the file.txt}

Now. someone with more experience than me with Powershell scripts might be able to explain the difference in all those delimiters, but all I know is from my limited amount of playing around with them, they all seem to act the same to group the contents between them into one chunk of data.

The reason why quotes won't work in your SHELL call is from the fact that you're wrapping the whole shell statement inside quotes.

    out$ = "Powershell -Command " + Chr$(34)
    out$ = out$ + ...more stuff... + Chr$(34)

A set of stray quotes in the middle of those will mess up the formatting and leave powershell erroring out on what you're actually wanting it to do.

Single quotes are the same way 00 they're already being used in your code:

   out$ = out$ + "$Speech.SelectVoice('Microsoft Zira Desktop'); "

Toss an additional apostrophe in there, and it'll view that as the start of your delimiter, and formatting will get all confuzzled and goof up.

Quotes won't work.  Single Quotes won't work.  Brackets won't work.  I don't think the @ symbol works (if I remember correctly, it's got some reserved purpose as well).   There's several command keys reserved for use with Powershell, and if you're going to let the user type in whatever they want to read it back to them, you'll want to research what all of those might be.   Honestly, I even doubt that less than and greater than symbols will work without needing adjustment.  "<" and ">" are used in html to delimit commands, and windows speech has it's own form for html which it supports, making use of the same style syntax for SSML (Speech Synthesis Markup Language).

https://docs.microsoft.com/en-us/azure/cognitive-services/speech-service/speech-synthesis-markup?tabs=csharp

As I mentioned before, Speech Synthesis in Windows is quite a powerful little tool, once you start delving into the depths of what it can actually do for you!  Here's an example of some SSML written:

Code: Text: [Select]
  1. <speak version="1.0" xmlns="http://www.w3.org/2001/10/synthesis"
  2.        xmlns:mstts="https://www.w3.org/2001/mstts" xml:lang="en-US">
  3.     <voice name="en-US-AriaNeural">
  4.         <mstts:express-as style="cheerful">
  5.             That'd be just amazing!
  6.         </mstts:express-as>
  7.     </voice>
  8. </speak>

Notice how we're choosing Aria to speak, and we're telling to speak in a cheeful tone!!

And, as she says, "That'd be just amazing!"  Much more than just some lame old "text to speak" robotic voice which we used to hear when talking about speech synthesis!  ;)


End end point is just:  Be careful with what you allow in your text to be spoken.  There's a TON of reserved characters and delimiters and such that can't just be inserted and tossed around all willy-nilly wherever someone wants.  If you're going to write something to let the user enter whatever they want, you'll have to validate and cleanse their input to make it suitable for the syntax which the speech synthesizer expects to find and work with. 
Title: Re: LCD Clock With Speech And Bouncing Ball
Post by: SierraKen on January 28, 2022, 02:47:49 pm
True, the easiest way to scan the text for symbols would be using the ASCII chart and CHR$. I also found out that if you need an apostrophe in a word to talk with, just don't use it, like date's sounds the same as dates. And don't should sound the same as dont I would think.
Title: Re: LCD Clock With Speech And Bouncing Ball
Post by: SquirrelMonkey on January 28, 2022, 03:01:47 pm
Looks great!
Text Only | Text with Attachments