طريقة جديدة وحصرية تجعل حاسوبك يخبرك بلوقت بصوت عالى فعندما تجلس أمام الحاسوب يمضى الوقت بدون أن تشعر ولكن بهذا الطريقة سوف يتحدث حاسوبك ويخبرك بالوقت بكل ساعة تمضى من وقتك أمام الحاسوب وهى طريقة جديده وبسيطة تساعدك على تتبع الوقت و معرفة كم الساعة دون أن تظهر إلى الساعة
في حين أن لدى 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 الذي قمت بإنشائه مسبقًا.
انقر فوق موافق و ها أنت قد قمت بإنشاء الأمر . ستسمع صوت افتراضي يعلن عن الوقت في تمام كل ساعة.
أتمنا أن تنال التدوينة أعجابكم
في حين أن لدى 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 الذي قمت بإنشائه مسبقًا.
انقر فوق موافق و ها أنت قد قمت بإنشاء الأمر . ستسمع صوت افتراضي يعلن عن الوقت في تمام كل ساعة.
أتمنا أن تنال التدوينة أعجابكم
أرائكم تسعدنا:لمتابعة التعليق حتى نرد عليك فقط ضع إشارة على إعلامى