ผู้เขียน หัวข้อ: NotePad สามารถทำให้คอมพิวเตอร์พูดได้  (อ่าน 1429 ครั้ง)

Annop

  • Administrator
  • Sr. Member
  • *****
  • กระทู้: 351
    • อีเมล์
NotePad สามารถทำให้คอมพิวเตอร์พูดได้
« เมื่อ: มีนาคม 07, 2014, 10:59:06 PM »
NotePad สามารถทำให้คอมพิวเตอร์พูดได้

อยากให้คอมพิวเตอร์พูดได้ ลองพิมพ์ หรือ Copy Text ไฟล์ธรรมดา ใส่ไว้ใน NotePad ตามรูป

Dim message, sapi
message=InputBox("Enter the text you want spoken","Speak This")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message



Save เป็นชื่ออะไรก็ได้ เช่น "พูดตามที่พิมพ์" จะได้ไฟล์เป็น พูดตามที่พิมพ์.txt
แล้ว Rename .txt เป็น .vbs จะมีคำเตือน แต่เราไม่เชื่อกด Yes ไปเลย



ตอนนี้ไฟล์ที่เราทำไว้ก็จะเป็น พูดตามที่พิมพ์.vbs ลองเปิดดูครับ
จะมีหน้าต่าง Speak This ขึ้นมา ลองพิมพ์ I love You แล้วกด OK มันพูดถูกด้วย



ลองทดสอบพิมพ์ The quick brown fox jumps over the lazy dog มันก็พูดได้ชัดดีครับ

ลองแล้ว พูดได้แต่ภาษาอังกฤษเท่านั้น

เครดิต

http://www.justusers.net/