.版本 2
.支持库 ESpeechEngine
.支持库 eMMedia

a ＝ 机读.列举语音库 ()
.如果真 (取数组成员数 (a) ≠ 0)
    机读.设置语音库 (a [1])
    机读.设置声音大小 (100)
    录音音波1.打开 ()
.如果真结束


.子程序 _按钮1_被单击
.局部变量 现在时间, 日期时间型

.如果真 (到整数 (取日 (现在时间)) ％ 10 ＝ 1)

    .如果真 (到整数 (取小时 (现在时间)) ＝ 8)
        .如果真 (到整数 (取分钟 (现在时间)) ＞ 12)

            次数 ＝ 0
            机读.文本到语音 (0, 编辑框1.内容)
            时钟1.时钟周期 ＝ 200