أضف هذا الملف البسيط لويندوز و أجعل ويندوز يتكلم و يخبرك كم الساعة في كل مرة

من البديهي أن لا تشعر بالوقت عند العمل أمام الحاسوب، ويمكن أن يساعدك استخدام تطبيقات تتبع الوقت في معرفة كم الساعة، ولكن بالنسبة للبعض، فإن سماع الوقت بصوت عال يمكن أن يساعد في تتبع الوقت بشكل أفضل و بفاعلية أكثر.

في حين أن لدى MacOS ميزة إعلان وقت مضمنة بالنظام، لا يوجد شيء مثل هذا في Windows. لكن لحسن الحظ ، يمكنك إضافته بنفسك في بضع لحظات.

افتح برنامج "المفكرة" Notepad  أو محرر نصوص آخر وقم بلصق ما يلي:

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 (فهو برنامج نصي Visual Basic).
اكتب برنامج جدولة المهام Task Scheduler في قائمة "ابدأ" و إفتح الأداة المساعدة "جدولة المهام Task Scheduler" .
حدد إجراء Action >  إنشاء Create مهمة من شريط القوائم.
أدخل اسمًا للمهمة ، مثل " Announce Time" .
قم بالتبديل إلى علامة التبويب " Triggers" وانقر فوق الزر " NEW" .
تأكد من اختيار وقت واحد . بجوار البدء ، حدد تاريخ اليوم واختر بداية الساعة التالية. على سبيل المثال ، إذا كانت الساعة 10:37 صباحًا ، فاختر 11:00:00 .
حدد المربع لمهمة Repeat (تكرار) كل مرة واختر ساعة واحدة. اختر إلى أجل غير مسمى Indefinitely بجانب المدة وانقر فوق زر موافق.
قم بالتبديل إلى علامة التبويب " Actions" وانقر فوق جديد NEW . انقر فوق استعراض بجانب مربع Program/script وابحث عن ملف VBS الذي قمت بإنشائه مسبقًا.
انقر فوق موافق و ها أنت قد قمت بإنشاء الأمر . ستسمع صوت افتراضي يعلن عن الوقت في تمام كل ساعة.

لمن يرغب في تحميل الملف جاهز :
Time announce