文档章节

vbs版的语音报时程序

孟飞阳
 孟飞阳
发布于 2016/07/09 11:25
字数 259
阅读 30
收藏 3
vbs

 几年前出于兴趣写的。将以下vbs代码另存为文件,双击后即可听到语音报时。

Dim a,b,c,d,e,f,g

Function   FormateTime(sendTime,Para) '格式化时间
select   case   Para 

case   "1" 
sendTime   =   Right("00"   &   Hour(sendTime),2)   & ":"&   right( "00"   &   minute(sendTime),2)   & ":"&   right( "00"   &   Second(sendTime),2) 

end   select   
FormateTime   =   SendTime 
end   Function 

Function   FormateDate(sendTime,Para) '格式化日期
select   case   Para 
Rem   YYYY年MM月DD日 
case   "1" 
sendTime   =   year(sendTime)   & "年"&   right( "00"   &   month(sendTime),2)   & "月"&   right( "00"   &   day(sendTime),2)& "日 " 
End select
FormateDate   =   SendTime 
end   Function 

'MsgBox FormateDate(date(), "1") 


a = Left(FormateTime(Time(), "1"),2)
b = "飞阳早上好,现在是,"
c = "飞阳上午好,现在是,"
d = "飞阳中午好,现在是,"
e = "飞阳下午好,现在是,"
f = "飞阳晚上好,现在是,"
g = ","&WeekdayName(Weekday(Date))
Set objVoice = CreateObject("SAPI.SpVoice")
objVoice.Rate = -2
objVoice.Volume = 60

If a >= 0 And a <= 8 Then
objVoice.Speak b&Time&g
End If

If a >= 9 And a <= 11 Then 
objVoice.Speak c&Time&g
End If

If a >= 12 And a <= 14 Then 
objVoice.Speak d&Time&g
End If

If a >= 15 And a <= 18 Then 
objVoice.Speak e&Time&g
End If

If a > 19 And a <= 23 Then 
objVoice.Speak f&Time&g
End If


 

© 著作权归作者所有

孟飞阳
粉丝 212
博文 1005
码字总数 552521
作品 5
朝阳
个人站长
私信 提问
【物联网智能网关-15】WAV播放器(WinForm+WavPlay库实例)

2002年在首钢实施焦炉四大机车自动化项目的时候,为了使系统更加友好,便增加了语音提示功能。不过控制设备是PLC,所以语音模块是通过IO进行控制的。接触WAV解码,是在2009年,为TI DM355平台...

yefanqiu
2012/11/28
0
0
基于vbs通过语音向电脑发送命令

1、程序源码 将以下配置文件另存为x.xml,vbs源码另存为文件,双击即可运行。运行前如果您的电脑没有启用麦克风,则会提示您开启麦克风,按顺序操作即可。 (1)vbs源码 (2)命令配置文件 ...

孟飞阳
2016/07/09
10
0
Deskpool安装之:准备Windows 7虚拟机基础镜像

Deskpool虚拟桌面管理系统在配置过程中,需要导入虚拟机镜像,然后将镜像制作成一个虚拟桌面模板。被导入的虚拟机需要满足如下条件,才能保证成功制作成模板。 1、安装虚拟化平台的驱动(Xen...

yangtzi
2014/07/16
0
0
关于号朋运动配速低于15不播报语音的需求征求意见。

在APP进入后台实时运行记录运动相关“放心交给号朋君吧” 之后, 每次达到整数里程语音播报前,基于本次公里所耗时长(暂定)耗时15分钟以内为允许报时,超过该时长则默认不播报里程。

issaclam
2016/11/22
1
5
Deskpool安装之:准备Windows XP虚拟机基础镜像

Deskpool虚拟桌面管理系统在配置过程中,需要导入虚拟机镜像,然后将镜像制作成一个虚拟桌面模板。被导入的虚拟机需要满足如下条件,才能保证成功制作成模板。 1、安装虚拟化平台的驱动(Xen...

yangtzi
2014/07/16
0
0

没有更多内容

加载失败,请刷新页面

加载更多

rsync工具常用选项以及同步的两种方式

rsync -av /etc/passwd /tmp/1.txt #rsync的本机传输写法 rsync -av /tmp/1.txt 192.168.188.128:/tmp/2.txt #rsync的远程传输rsync格式rsync [OPTION] … SRC ......

林怡丰
今天
3
0
GatewayWorker 报错:stream_socket_server(): unable to connect to tcp://0.0.0.0:1238

GatewayWorker 报错:stream_socket_server(): unable to connect to tcp://0.0.0.0:1238 (Address already in use) 官方文档虽然有相同的问题,但是对我的问题没起作用…… 后面发现自己手贱...

wenzhizhong
昨天
3
0
REST接口

文章来源 https://zhuanlan.zhihu.com/p/28674721?group_id=886181549958119424 http://www.ruanyifeng.com/blog/2014/05/restful_api.html REST 对请求的约定 REST 用来规范应用如何在 HTTP......

Airship
昨天
6
0
Spring Cloud Config 统一配置中心

Spring Cloud Config 统一配置中心 一、统一配置中心 统一管理配置 通常,我们会使用配置文件来管理应用的配置。如一个 Spring Boot 的应用,可以将配置信息放在 application.yml 文件中,如...

非摩尔根
昨天
6
0
android ------ AAPT2 error: check logs for details解决方法

AAPT 是全称是 Android Asset Packaging Tool,它是构建 App,甚至是构建 Android 系统都必不可少的一个工具。它的作用是将所有资源文件压缩打包到Android APK 当中。我们在 Android SDK 目录...

切切歆语
昨天
3
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部