# Notification.
Notification

Author Topic: คอมพิวเตอร์บอกเวลา  (Read 1799 times)

0 Members and 1 Guest are viewing this topic.

Offline ans58670

  • Webmaster
  • *****
  • Posts: 2040
    • View Profile
เอาอะไรกระจุกกระจิกมาให้เล่นกันแก้เหงาดีกว่า...นั่นก็คือ...ใช้ VBS Script ให้ Computer บอกเวลาเป็นภาษาคนทุกๆชั่วโมง!

อันนี้ก็มีคนสอนอยู่บ้างแล้วใน Web ของฝรั่ง แต่มันไม่บอกวันกับนาที ก็เลยทำแบบสมบูรณ์มาให้...
Code: [Select]
Dim talk, said
talk="It is " & date & " at " & hour(time) & " O’clock " & " and " & minute(time) & " minutes"
Set said=CreateObject("sapi.spvoice")
said.Speak talk


Copy ไป Save เป็น Vbs เช่น Time.vbs แล้วลอง Double Click เพื่อฟังดู

ทีนี้พอเราจะเอาไปทำให้มันบอกเวลาทุกๆชั่วโมง ก็แก้บรรทัดที่สองให้เหลือแค่
Code: [Select]
talk="It is " & hour(time) & " O’clock"

  1. สมมุติว่าเรา Save เอาไว้ที่ Desktop ชื่อ Time.vbs ก็เริ่มจากเปิด Task Schedule ด้วยคำสั่ง
      taskschd.msc

  2. เปิดขึ้นมาแล้วที่หน้าต่างขวามือเลือก
      Create Task...

  3. ได้หน้าต่างใหม่ขึ้นมา ดูที่ Tab แรก General ให้ใส่ชื่อ Schedule ที่ช่อง Name เอาว่าเป็นชื่อ "Time"

  4. ล่างสุดที่ Configure ให้เลือกเป็น "Windows ที่ใช้อยู่ปัจจุบัน"

  5. Tab ที่สองชื่อ Triggers ให้เลือก New... เพื่อสร้างใหม่

  6. จะได้หน้าต่างใหม่ขึ้นมา ตรง Start: ให้ตั้งเวลาที่ชั่วโมงต่อไปที่จะมาถึง เช่น ตอนนี้ 21.30 น. ก็ตั้งเป็น "22:00:00" เป็นต้น

  7. จากนั้นเลือกติ๊กที่ Repeat task every: ให้ตั้งเป็น "1 hour"

  8. ที่ for a duration of: ให้เลือกเป็น "Indefinitely" แล้วก็กด OK

  9. Tab ที่สาม Actions ก็เลือก New... เพื่อสร้างใหม่

10. ที่ Program/script: ก็ Browse ไปยัง Time.vbs ซึ่งในที่นี้จะเป็น "%USERPROFILE%\Desktop\Time.vbs" เพราะเก็บไว้ที่ Desktop

11. จากนั้นก็กด OK เพื่อ Save Actions แล้วกด OK อีกครั้งเพื่อ Save Schedule และออกจาก Task Schedule

ต่อไปทุกชั่วโมงก็จะมีเสียงผีฝรั่งเรียกจาก Computer ดังขึ้นมาหลอนเอง...

หรือถ้าจะให้ฝรั่งมันพูดอย่างอื่นเป็นภาษาไทย เช่น "กินข้าวได้แล้วโว้ย!" ก็แค่เปลี่ยนบรรทัดที่ 2 เป็น
Code: [Select]
talk="Kin koa dai laew Wooi?"

หรือ "นอนได้แล้วโว้ย" ก็เป็น
Code: [Select]
talk="Non dai laew Wooi?"

ให้สังเกตุว่าจะมีเครื่องหมายคำถาม "?" ต่อท้าย เพื่อให้ฝรั่งมันออกเสียงให้สูงขึ้น หากไม่มีแล้วจะออกเป็น "โวย" ไม่ใช่ "โว้ย"

ทำเล่นสนุกๆแก้เซ็งนะจ๊ะ...นอกจากนี้ ยังสามารถนำไปประยุกต์ใช้อย่างอื่น เช่น ในการสะกดชื่อไทยที่เราเขียนออกมาเป็นภาษาอังกฤษนั้น...จริงๆแล้ว ถ้าเราเขียนชื่ออย่างนั้น แล้วฝรั่งมันจะเรียกเราอย่างไร? [emo02]

Offline fantasy ಠ-ಠ

  • ผู้รู้ ผู้ตื่น ผู้เบิกบาน
  • N/A
  • *****
  • Posts: 4491
  • เมื่อวานรู้ วันนี้ก็รู้ แต่... พรุ่งนี้ไม่รู้
    • ICQ Messenger - 2484607
    • View Profile
    • iPlusZone.com
Re: คอมพิวเตอร์บอกเวลา
« Reply #1 on: 03 June 2013, 14:15:02 »
มีอะไร ๆ มาให้เล่นบ่อยเลยนะครับ ท่านน ans58670


 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27