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

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

文本转语音测试.part01.rar

文本转语音测试.part02.rar

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

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

如果只是这个没有多大意义。给你的置评是对你的脚本的肯定。具体要如何做，我就不教了

不要托大！

“只有这个"是什么意思？我估计你都没有打开附件进行测试。

不大，你做的这种工作我在十年前就做过了！劝你还是不要用这个的好，留下把柄，吃不了兜着走，有些话只能说不能做，有些事只能做不能说！

我置评你的这个，就是因为语音的使用，如果用在质保金上，劝你还是省了吧！

质保金本来就不应该是技术上来解决的问题，技术上能做的就只能是提醒，不应该设置停机或者功能缺失。所以，这个例子就是“只说不做”，压根就没有想过“做”，即便倒计时到达了，也不会影响正常功能的使用，但系统会一直提醒下去。

这个题目不是为了“解决”质保金的问题，而是“提醒”。

只聊技术，别吵吵，班主也是肯定了技术的使用……

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

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

工程师该操心的是，把这个策略做的更完善。提前多少时间作为警告预警，多级权限，停机了在更高权限的界面内可以修改到期时间，简单的通过按钮组合开放临时使用许可等等。

这个脚本纯碎是我用来当做VBS练习的，结合了两个练习点:

1，编程中对于日期和时间的理解，一句话概括就是“日期和时间的原型是浮点数”，它是相对于计算机“原点时间”的一个相对值，计算机系统以1900-1-1 0:00:00为元年，比如1900-1-2 0:00:00，它刚好经过了1天，那么这个时间用浮点数记作1.000000；这个时间再往后推10分钟，该记作什么数值呢？小数部分加上

10分钟/（24小时*60分钟）=0.00694444，也就是1.00694444。可以在vbs中试验一下Now＋0.0069444，看看结果是否是当前时间往后推10分钟?

2，就是语音输出了。WinCC OA那个版块给了一个VBS语音调用系统讲述人的例子，让系统讲中国话，虽然照着做没有问题，但总觉得太复杂了！本来一条语句可以搞定的，繁复地写了很多语句，让人不明觉厉。

时间和语音结合起来，刚好就做了一个到期提醒的例子。

VBS脚本用起来真是很方便，习惯了它的语法之后，我好多功能都不用在PLC中编程了，除非是有实时性要求的，多用用vbs和C，将PC和PLC各自的长处都能发挥出来。

两个话题：文本朗读和质保金。

前者已经实现了，后者不是程序员能解决的。

关于质保金这块，我自己的做法是，使用硬件狗（可不是学西门子啊，我们已经用了15年了）。

在狗的存储介质里，事先设置好软件使用权限：比如：到期后，提醒（30分钟提醒一次），1个月之后关闭数据采集功能；另一种就是终身用户，没有限制随便用。

第一种情况下，给钱了，换狗(换成终身用户的)，呵呵。

分享不错，谢谢了。

能看见提醒文本的人，也决定不了你的质保金给不给。

是个好方法

会可以不用，做了可以不说

感谢分享！