技术论坛

 • 产品分类
 • 咱工程师的故事
 • 培训与认证答疑专区
 • 服务合作伙伴专区

 winccflexible的vbs脚本编程——以质保金到期提醒为例

返回主题列表
作者 主题
看雪001
至圣

经验值:19336
发帖数:2076
精华帖:72
楼主    2017-10-13 15:35:54
主题：winccflexible的vbs脚本编程——以质保金到期提醒为例
质保金这个话题，如果不是老板，可能真的不会太关心，如果老板提出质保金到期停机一类的要求，技术人员处理得不好，即便是超过了质保期，强制停机影响到客户的正常生产，还是会惹上官司的。
但是警告和提示是无碍于用户使用的，本例子就是定时弹出警告信息，并用语音提示用户。

本例子使用WCF Advanced版本，设备为PC，windows中文操作系统并含有语音合成引擎（有些深度、雨林木风、玫瑰花园什么的已经精简掉这个引擎了，不具有讲述人功能）。操作时，可设置“质保期到期时间”、“倒计时终止时间”，当前时间大于“质保期到期时间”时，启动警报，每分钟复述一次倒计时（也可以设为每天，这里设置每分钟是便于观察调试）

文本转语音测试.part01.rar

文本转语音测试.part02.rar


大道至简，知易行难
看雪001
至圣

经验值:19336
发帖数:2076
精华帖:72
1楼    2017-10-13 16:48:25
精华帖  主题：回复：winccflexible的vbs脚本编程——以质保金到期提醒为例

Dim Text

If Now > SmartTags("DateTime_Set") Then
    SmartTags("倒计时警告")=True
    ResidueDecimal=SmartTags("FinalCountddown")-Now
    ResidueInt=Int(ResidueDecimal)
    SmartTags("DateTime_Current")=ResidueDecimal
    SmartTags("整数")=ResidueInt
    SmartTags("总数")=Int(SmartTags("FinalCountddown")-SmartTags("DateTime_Set"))
    Text = "距质保有效期还有  "  &  CStr(ResidueInt) & "天"& CStr(Hour(ResidueDecimal)) & "小时" & CStr(Minute(ResidueDecimal)) & "分 时间在流逝，内心很纠结.勿谓言之不预也"

    CreateObject("SAPI.SpVoice").Speak Text

End If


以上脚本，可以在调度器中定时调用，也可以根据外部变量触发调用。最后的语音输出部分只有一条语句，你可以试着单独调用它作为报时工具，当你可以控制机器的语音输出时，便会自然想到“我能不能将语音变成文本，让机器明白我的指令？”——可以的！



大道至简，知易行难
ZXC2011
侠圣

经验值:3140
发帖数:513
精华帖:9
8楼    2017-10-16 15:31:37
精华帖  主题：回复：winccflexible的vbs脚本编程——以质保金到期提醒为例

挺好的，wincc报警，在后台运行VBS脚本播放报警音我也做过的。

这个东西本来出现也就是规避业主违约，对于信誉明知有问题要赖你进度款的上这个系统不无不可，至于纠纷也不是你该考虑的事情。

工程师该操心的是，把这个策略做的更完善。提前多少时间作为警告预警，多级权限，停机了在更高权限的界面内可以修改到期时间，简单的通过按钮组合开放临时使用许可等等。
您收到0封站内信：
×
×
信息提示
很抱歉！您所访问的页面不存在，或网址发生了变化，请稍后再试。