Thursday 1 June 2017

अब आपका कंप्यूटर भी बात करेगा (Your computer will talk now)

इसके माध्यम से आप अपने कंप्यूटर को बात करना सकते हैं। तो और देर नहीं करके चले और जानें कैसे कम्प्यूटर को बात करना है।


पहले नोटपैड खोलें।

Figure-1


 अब नीचे दिए गए कोड कॉपी करें नोटपैड- पेस्ट करें।

msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg


Figure-2


इस बार File-Save As.. पर जाएँ और किसी भी नाम(dot)Vbs सेव करें (aaa. vbs)


Figure-3


 Save करने के वाद इसे खोलें और कम्प्यूटर से आप जो कहना चाहते हैं, ओ लिखकर OK- क्लिक करें। 



Figure-4


Figure-5

Thank You


No comments:
Write comments