في حين أن لدى 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
المصدر : مدونة مشروح
تبليغ
التبليغ عن مشكل أو رابط معطل
ليست هناك تعليقات:
إرسال تعليق