Spoken Rubbish

[Henko]

flag=0
if flag then ! list voices ! stop ! end if
randomize
k$="aeiouy" ! m$="bcdfghjklmnprstvwxz"
nk=len(k$) ! nm=len(m$)
t$=""
for nw=1 to 20
lw=1+rnd(4)
w$=mid$(m$,rnd(nm),1)
for i=2 to lw
w$&=mid$(k$,rnd(nk),1)
if i<lw then w$&=mid$(m$,rnd(nm),1)
next i
t$&=w$&" "
next nw
debug pause
say pitch 1.4
say rate .9
say voice "en-us"
say text t$
while saying() ! slowdown ! end while
end

[Dutchman]

The program didn't work; it finished without any speech. I therefore added some code to print the value of SAYING(). This revealed that the first value of SAYING() following the command SAY TEXT T$ was 0.
Consequently, I added a wait loop to the program that continues until SAYING()=1:
DO ! UNTIL SAYING()
Good example for a voice application

Code: Select all

'Spoken rubbish, by Henko, Oct 19, 2026
'https://nitisara.ru/forum/viewtopic.php?f=20&t=2839
flag=0
if flag then ! list voices ! stop ! end if
randomize
k$="aeiouy" ! m$="bcdfghjklmnprstvwxz"
nk=len(k$) ! nm=len(m$)
t$=""
for nw=1 to 20
  lw=1+rnd(4)
  w$=  mid$(m$,rnd(nm),1)
  for i=2 to lw
    w$&=mid$(k$,rnd(nk),1)
    if i<lw then w$&=mid$(m$,rnd(nm),1)
  next i
  t$&=w$&" "
next nw
debug pause
say pitch 1.4
say rate .9
say voice "en-US"
say text t$   
DO ! UNTIL SAYING() ' added for starting
while saying() ! slowdown ! end while
end

[Henko]

This is strange.
I dowloaded my version from the forum and the program worked.
Then a downloaded your version from the forum and it worked; after commenting out your “do until” addition, it still worked.

I use iPadOS 17.7.5 (21H420) and SmartBasic 6.9.

(I used the “debug pause” to inspect the contents of the text string)

[Dutchman]

I have a 9th-generation iPad. I have updated my iOS version to 27.0.1.
The 'starter loop' no longer seems to be necessary. I cannot explain why.
In the attached version, I have made a small change.
Originally, the words always began with a consonant.
I have adjusted this so that there is now an almost equal probability of a word starting with either a vowel or a consonant.

Code: Select all

'Spoken rubbish, by Henko, Oct 19, 2026
'https://nitisara.ru/forum/viewtopic.php?f=20&t=2839
'modified by Dutchman
flag=0
IF flag THEN ! LIST VOICES ! STOP ! END IF
RANDOMIZE
k$="aeiouy" ! m$="bcdfghjklmnprstvwxz"
nk=LEN(k$) ! nm=LEN(m$)
t$=""
FOR nw=1 TO 20
  w$=MID$(k$&k$&k$&m$,RND(3*nk+nm),1) ' start with vowel or consonant
  lw=1+RND(4)
  w$&=MID$(m$,RND(nm),1)
  FOR i=2 TO lw
    w$&=MID$(k$,RND(nk),1)
    IF i<lw THEN w$&=MID$(m$,RND(nm),1)
  NEXT i
  t$&=w$&" "
NEXT nw
DEBUG PAUSE
SAY PITCH 1.4
SAY RATE .9
SAY VOICE "en-US"
SAY TEXT t$   
WHILE SAYING() ! SLOWDOWN ! END WHILE
END