طريقة جعل الويندوز ينطق الوقت عند مرور كل ساعة بصوت عالي

0

جعل الويندوز ينطق الوقت كل ساعة – عندما تقوم بالاندماج في العمل على جهاز الكمبيوتر الخاص بك و تقوم بإهدار الكثير من الوقت بدون ان تشعر ، و يرجع السبب الرئيسي لضياع هذا الوقت هي العناصر التي تقوم بفقد التركيز من تطبيقات تراسل فوري او حتى مواقع التواصل الاجتماعي و التي تتمثل في الفيس بوك و الواتس اب.

و غيرها فضلاً عن بعض العنواين التي تلف الانتباه الي اخره ، في تلك الحالة وجود الساعة فى شريط المهام اسفل الشاشة لم يفى بالغرض و لا حتي وجودها على سطح المكتب جهاز الكمبيوتر الخاص بك لن يأتي بالمنفعة الكبيرة عليك .

ويندوز 10
ويندوز 10

طريقة جعل الويندوز ينطق الوقت كل ساعة – لذا الشئ الذي سوف نكون فى حاجة اليه هو صوت عالي ينبهنا بالوقت و الساعة لعل هذا العنصر الصوتي يعمل بشكل ذات كفاءة اعلى و اقوى من العنصر المرئي في تلك المرة ، لذا تابع هذا المحتوى الذي يقدم من قبل موقع جوال أبس من اجل ان تتعرف على كيفية تفعيل صوت الساعة في الويندوز بدون برامج كل ساعة و تتمكن من التعرف على الوقت و الانتباه له .

كيفية جعل الويندوز ينطق الوقت كل ساعة بصوت عالي بدون برامج ؟!

  • في البداية سوف تقوم بفتح برنامج المفكرة او اي محرر نصوص لديك على جهاز الكمبيوتر الخاص بك و قم بلصق هذا المحتوى به .
Dim speaks, speech
hour_now=hour(time)
if hour_now > 12 or hour_now = 12 Then
hour12 = hour_now - 12
ampm = "PM"
Else
hour12 = hour_now
hourfinal = hour_now
ampm = "AM"
End If
If hour12 = 10 Then
hourfinal = "Ten"
Elseif hour12 = 11 Then
hourfinal = "Eleven"
Elseif hour12 = 12 Then
hourfinal = "Twelve"
Elseif hour12 = 0 Then
hourfinal = "Twelve"
Elseif hour12 > 0 and hour12 < 10 Then
hourfinal = hour12
End If
speaks = "It is " & hourfinal & " o clock " & ampm
Set speech=CreateObject("sapi.spvoice")
speech.Speak speaks
  • بعد ذلك قم بحفظ هذا الملف فى مكان جيد لا تنساه و ليكن سطح المكتب بشكل مبدئي ، و قم بتسميه الملف TimeAnnounce ، و لكن كن متأكد ان الامتداد الخاص به منتهي بهذه الصيغة .vbs .
 كيفية تفعيل صوت الساعة في الويندوز بدون برامج
كيفية تفعيل صوت الساعة في الويندوز بدون برامج
  • بعد ذلك سوف تقوم بالكتابة فى البحث جدولة المهام – Task Scheduler و بعد ذلك قم بالضغط على Enter من اجل فتحها .
  • قم من خلال شريط القوائم بالضغط على إجراء Action ، و عن طريق القائمة المندسلة قم بإختيار إنشاء مهمة Create Task ، او من خلال الواجهة الاساسية إجراءات و بعد ذلك انشاء مهمة .
  • من خلال النافذة المنبثقة في خانة الاسم قم بإدخال اسم المهمة و لتكن Announce Time ، و في خانة الوصف قم بإدخال وصف المهمة و اترك باقي الاعدادات .
  • بعد ذلك قم بعملية تبديل الي علامة التبويب المشغلات Triggers و قم بالضغط فوق جديد او New و تأكد من اختيار وقت واحد او One Time و التيت وجد بجوار البدء Strat .
  • قم بتحديد تارخ اليوم و اختار بداية الساعة التالية .
  • بعد ذلك قم بوضع علامة صح على خانة تكرار المهمة كل Repeat task every .
  • و بجوار تلك الخانة قم بختيار ساعة واحدة Hour 1 ، و بجانبها اختيار المدة و اجعله الي اجل غير مسمي Indefinitely و بعد ذلك قم بالضغط على موافق OK .
  • قم بعملية تبادل الي علامة التبويب اجراءات Action و قم بالضغط على جديد New .
  • بعد ذلك قم بالضغط على استعراض التي توجد بجانب مربع البرنامج النصي و قم بالبحث عن ملف ذات صيغة vbs الذي قمت بإنشائه .
  • بعد ذلك قم بالضغط على موافق OK لانشاء المهمة .

اترك تعليق

يرجي التسجيل لترك تعليقك

شكرا للتعليق