Friday, January 15, 2016

Project (47) Text-To-Speech demo

Project (47) Text-To-Speech demo

Scripter test version 2.1.2 ကို သံုးပါ။

EditText ထဲမွာ ရိုက္ထည့္ထားတဲ့ အဂၤလိပ္ စာေတြကို Text-To-Speech အသံုးျပဳၿပီး အသံထြက္ ဖတ္ခိုင္းတာ ျဖစ္ပါတယ္။

အသံထြက္ ဖတ္ေပးႏိုင္တဲ့ အဂၤလိပ္ ျမန္မာ အဘိဓာန္ လိုဟာမ်ိဳး ဖန္တီးႏိုင္ပါတယ္။

================

Main
====

AddEditText("edt1",4.5%x,14.7%y,90.8%x,44.9%y,"")
SetText("edt1","This is a test for Text To Speech")
AddLabel("lb1",4.8%x,3.2%y,90.6%x,9.6%y,"")
SetText("lb1","Enter text below:")

AddButton("btn1",19.5%x,66%y,64.3%x,11.8%y,"")
SetText("btn1","Speak")
SetEnabled("btn1",false)

SetActivityTitle("Text to Speech demo")

Dim_TTS

===============

EventsSubs
==========
Sub Button_Click(who)
TTS_Speak(GetText("edt1"),true)
End Sub

============

"xevents" module
==============

Sub TTS_Ready(success)
If (success) Then
SetEnabled("btn1",true)
End If
End Sub

=================