Home
GENESIS32 SCADA : Voice Alarm Toolkit PDF Print E-mail
Written by Administrator   
Wednesday, 04 January 2017 18:21

image

Voice Alarm Toolkit ทูลคิทสำหรับGENESIS32 9.4ขึ้นไป ให้แจ้งAlarmด้วยเสียงพูดแบบText to Speech

ดาวน์โหลด Voice Alarm Toolkit (22kb) | VDOสาธิตการใช้งาน

System Requirements

  • Windows 7 ขึ้นไป
  • GENESIS32 9.4 ขึ้นไป

Features

  • แจ้งเตือนด้วยเสียงแบบ Text to Speech ตามข้อความAlarm Message
  • แจ้งเตือนเมื่อเกิดAlarmขึ้น
  • กำหนดระยะเวลาของAlarmเก่าได้ว่าเกินระยะเวลาเท่าไหร่(จากปัจจุบัน)ไม่ให้แจ้งเตือน

ประโยชน์

  • แจ้งเตือนด้วยเสียงพูด(อังกฤษ) ผ่านลำโพงหรือเครื่องขยายเสียงของหน่วยงาน ทำให้รับทราบAlarmได้โดยไม่ต้องอยู่ที่หน้าจอSCADA

วิธีการใช้งาน (VDOการใช้งาน)

1. คอนฟิกAlarmWorX Serverตามปกติ โดยกำหนดข้อความที่จะให้ส่งเสียงเป็นภาษาอังกฤษ
image

 

2. กำหนดความเร็วของText to SpeechในWindowsให้เหมาะสม
image

image

 

3. เปิดใช้ไฟล์Toolkit(speech.gdf)ที่ดาวน์โหลดมา แล้วเข้าสู่Runtimeโดยกดปุ่มCtrl+M เมื่อมีAlarmใหม่เกิดขึ้นจะมีเสียงพูดแจ้งเตือนตามข้อความAlarmภาษาอังกฤษที่ระบุในAlarmWorX Server Configurator

คำแนะนำ

- ไม่ควรนำToolkitใช้ในหน้าแสดงผลร่วมกับงานอื่น ควรแยกให้Toolkitทำงานเดี่ยวๆ เพราะเวลาแจ้งด้วยเสียงจะทำให้กราฟิกอื่นในหน้าเดียวกันหยุดทำงาน

– หากต้องการซ่อนหน้าทูลคิทขณะทำงาน ให้ใช้GenTrayกำหนดลำดับการทำงานของหน้าแสดงผลเพื่อให้หน้าแสดงผลอื่นอยู่ด้านบนทูลคิท

– หากต้องการปรับระยะเวลาของAlarmเก่าได้ว่าเกินระยะเวลาเท่าไหร่(จากปัจจุบัน)ไม่ให้แจ้งเตือน ให้เปิดหน้าToolkitแล้วเข้าโหมดConfigure จากนั้นเข้าสู่VBA Editorโดยกดปุ่มAlt+F11บนแป้นพิมพ์ แล้วปรับโค้ดส่วนเวลาเป็นวินาทีจาก 5 วินาที เป็นระยะเวลาที่ต้องการ เช่นถ้าต้องการ10วินาทีก็ใช้ –10

image

เมื่อเกิดAlarmใหม่ก็จะเกิดเสียงเตือนพูดตามข้อความAlarmและยังแจ้งเตือนAlarmก่อนหน้าที่เกิดขึ้นไม่เกิน10วินาทีที่ผ่านมาด้วย ไม่ควรปรับให้นานเกินไปเพราะเมื่อมีAlarmเกิดขึ้นถี่ๆจะทำให้แจ้งเตือนAlarmยาวเกินจำเป็น จึงควรใช้FilterในAlarm Viewerเพื่อกรองเอาเฉพาะAlarmสำคัญ

ตัวอย่างการสร้างFilter

image

image

 

- ถ้าต้องการแจ้งเตือนเสียงเฉพาะAlarmล่าสุด สามารถแก้โค้ดเป็น

Private Sub AWXVIEW32OCX1_OnNewAlarm()

On Error Resume Next
Dim V As SpeechLib.SpVoice
Set V = New SpeechLib.SpVoice

Dim str1 As String, i As Integer, totRw As Integer, time1 As Date, time2 As Date

totRw = ThisDisplay.AWXVIEW32OCX1.GetTotalNumberofMessages

If totRw < 1 Then Exit Sub
For i = 1 To 1

        str1 = str1 & ThisDisplay.AWXVIEW32OCX1.ColRowInfo(i, AEMESSAGE) & "." & vbCrLf

Next i

If Len(str1) > 1 Then
V.Speak str1
End If

End Sub

แล้วกำหนดการจัดเรียงAlarmของAlarm Viewerดังนี้ เพื่อให้Alarmล่าสุดอยู่ด้านบน

image

 

บทความที่เกี่ยวข้อง

 

Last Updated ( Wednesday, 29 March 2017 10:43 )
 

สิ่งที่น่าสนใจ

DeviceNet surge protection หลากหลายแบบ