Friday 27 December 2013

တစ္နာရီျပည္႔တုိင္း ကြန္ပ်ဴတာကို နာရီ ေအာ္ေစမယ္...

         ကြ်န္ေတာ္ကေတာ႔ ကြန္ပ်ဴတာ ေရွ႔ထုိင္ျပီဆုိ နာရီတစ္ခါမွ မၾကည္႔ဖူးဘူး ။ ကြန္ပ်ဴတာ ေရွ႔မွာပဲ အိပ္ေပ်ာ္သြားတာမ်ားတယ္ :) အခုလည္း တစ္နာရီျပည္တုိင္း ကြန္ပ်ဴတာကို နာရီေအာ္ေစပါဦးမယ္ ...
နာရီ သိရုံတင္ေလးပါ :)

စမ္းၾကည္႔ခ်င္တယ္ ဆုိရင္ေတာ႔....



ထုံးစံအတုိင္း Notepad ကို ဖြင္ပပါ ။ window + R ပါ ။ ျပီးရင္ ေအာက္က ကုတ္ေတြကို ကူးျပီးေတာ႔ ထည္႔လုိက္ပါ ။
Dim sapi,h,ampm,wish
Set sapi = CreateObject("sapi.spvoice")
if(hour(now)=0)then
        ampm="AM"
end if
if(hour(now)=12)then
        ampm="PM"
end if
if(hour(now)<12)then
        ampm="AM"
end if          
if(hour(now)>12) then
        ampm="PM"
end if        
select case hour(now)
case 0: h="12"
case 1: h="1"
case 2: h="2"
case 3: h="3"
case 4: h="4"
case 5: h="5"
case 6: h="6"
case 7: h="7"
case 8: h="8"
case 9: h="9"
case 10: h="10"
case 11: h="11"
case 12: h="12"
case 13: h="1"
case 14: h="2"
case 15: h="3"
case 16: h="4"
case 17: h="5"
case 18: h="6"
case 19: h="7"
case 20: h="8"
case 21: h="9"
case 22: h="10"
case 23: h="11"
end select

if(hour(now)>=0 and hour(now)<12) then
wish="Good Morning"
end if
if(hour(now)>=12 and hour(now)<=17) then
wish="Good Afternoon"
end if
if(hour(now)>17 and hour(now)<=23) then
wish="Good Evening"
end if
sapi.Speak wish+". The time is "+ h+" "+ampm

SpeakingClock.vbs လုိ႔ နာမည္ေပးျပီး သိမ္းပါ ။

ပီးရင္ေတာ႔ ဖြင္႔ၾကည္႔လုိက္ပါ ။ နံနက္ခင္းဆုိ Goodmoring ဆုိျပီး လာလိမ္႔မယ္ ....နာရီပါ တစ္ခါတည္းေျပာျပလိမ္႔မယ္ ။

အဲ တစ္ခုေျပာစရာရွိတာကေတာ႔ ကြန္ပ်ဴတာကိုပါ အထီးအမပါ ထပ္ခြဲလုိ႔ရေသးတယ္ :)

ကြ်န္ေတာ္ေရးဖူးျပီးျပီ ဘေလာ႔အေဟာင္းမွာ ဖတ္ႏုိင္ပါတယ္ ။

ေယာက်ၤားေလး အသံဆုိေတာ႔ ကြ်န္ေတာ္ကြန္ပ်ဴတာက အထီးပါ :)

ဒါကေတာ႔ ကြန္ပ်ဴတာကို အခ်ိန္ေလးပဲ ေအာ္ခိုိင္းတာပါ ။ ၁ နာရီထုိးတုိင္း ေအာ္ေအာင္ ဆက္လုိက္ရေအာင္ဗ်ာ....

Task Scheduler  ကို ဖြင္႔ပါ ။ Start Menu ကေနTask Scheduler လုိ႔ ရုိက္ထည္႔ျပီးေတာ႔ ရွာႏုိင္ပါတယ္ ။

ျပီးရင္ Menu bar က Action >>> New Task ကို Crate Task ကို နိပ္ပါ ။
Crate Task ကေန Triggers က New ကို နိပ္ပါ ။ ျပီးရင္ေတာ႔ ေအာက္က ပုံအတုိင္း Settings ေျပာင္းလုိက္ပါ ။
Speaking Clock Settings

Settings ေတြကို လုိက္ဖတ္ၾကည္႔လုိက္ပါ ။ ကိုယ္ၾကိဳက္သလုိအမ်ားၾကီးလုပ္ႏုိင္ပါေသးတယ္ ။ ကြန္ပ်ဴတာ အဖြင္႔မွာ လုပ္ေစမွာလား အလုပ္ခ်ိန္မွာလား စသည္ျဖင္႔ကို ေတြ႔ရပါတယ္ ။ ေနာက္ျပီးေတာ႔ ၃ ရက္လား ၄ရက္ လားဆုိျပီးေတာ႔ ရွိပါေသးတယ္ ထုိတာဝန္ျပီးဆုံးမယ္႔ ေန႔လည္း ေရြးႏုိင္ပါေသးတယ္ ။

စိတ္ဝင္စားစရာေကာင္းပါတယ္ ။
 ျပီး၇င္ေတာ႔ Triggers နားကပဲ Action ကို ဆက္နိပ္ပါ ။ အေပၚ Menu bar ကို ေျပာတာေနာ္ ။ Action >>>New အဲမွာ Program/ Script ကေန ေစာေစာက လုပ္ထားတဲ႔  VBS file ကို ေရြးေပးပါ ။ ျပီးရင္ Genaral မွာ နာမည္တစ္ခုခု ထည္႔ေပးလုိက္ပါ ။ ပုံေတြ အေသးစိတ္ မျပေတာ႔ဘူး ။ နာလည္မယ္လုိ႔ ေမွ်ာ္လင္႔ပါတယ္ ။ အဆင္မေျပရင္လည္း Comment ေပးသြားလုိက္ပါ။
တစ္နာရီျပည္႔တုိင္း မနက္ ေန႔လည္ ညေန အလုိက္ သူႏႈတ္ဆက္ျပီးေတာ႔ နာရီေတြကို ေျပာျပပါလိမ္႔မယ္ ...
အဆင္ေျပပါေစဗ်ာ ။

မူ၇င္း..ခြန္ေမာင္ပန္။

No comments:

Post a Comment