如何实现文本朗读

魁啊啊 · 发表于 2022-12-5 21:03:14

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
姓名	文本型	0
i	整数型
路径	文本型
N	文本型
l	整数型
O	整数型
a	整数型

子程序名	返回值类型	公开	备注
_按钮1_被单击

路径＝取运行目录 () ＋ “\新建文本文档.txt”
调试输出 (路径)
N ＝到文本 (读入文件 (路径))
调试输出 (N)
调试输出 (文本_分割文本 (N, #换行符, 取数组成员数 (姓名), 姓名))
分割文本 (N, #换行符, 文本_分割文本 (N, #换行符, 取数组成员数 (姓名), 姓名))

判断 (按钮1.标题＝ “停止”)

按钮1.标题＝ “开始”

按钮1.标题＝ “停止”
透明标签1.标题＝ “开始”

计次循环首 (99999, l)

程序_延时 (150, )

O ＝到整数 (文本_取随机范围数字 (1, 取数组成员数 (姓名), ))

透明标签1.标题＝姓名 [O]

如果真 (按钮1.标题＝ “开始”)

跳出循环 ()

计次循环尾 ()
' ’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘想跳出循环后朗读透明标签1的标题的内容；；；；；；；；；；；；；；；；；；；；