تويت
--[[
نفترض لدينا المسألة التالية
انطلقت سيارة من مدينة بوسعادة على
الساعة 11 صباحا و 50 دقيقة و 50 ثانية
اذا علمت ان مدة السير في الطريق تساوي
هي 13 ساعة و 50 دقيقة و 50 ثانية
ماهو وقت وصول السيارة ؟
]]
---- التوقيت الاول---
hour1=11 -- متغير ساعاته
min1=50 -- متغير دقائقه
sec1=50 -- متغير ثوانيه
-----------------------------------------------------------
---------- التوقيت الثاني -------------------------------
x1=13 ---- متغير ساعاته
x2=50 ---- متغير دقائقه
x3=50 ---- متغير ثوانيه
tamer = os.date('*t')
hour1=hour1+x1 --- جمع الساعات
min1=min1+x2 --- جمع الدقائق
sec1=sec1+x3 --- جمع الثواني
belkiss = os.time{year = tamer.year, month = tamer.month, day = tamer.day,hour=hour1, min= min1, sec = sec1}
Dialog.Message("",os.date('%H : %M :%S ',belkiss)); -- التوقبت الناتج و معالجتها وفق النظام الستيني
--------------------------ABOU _ BELKISS -------------------
--[[
äÝÊÑÖ áÏíäÇ ÇáãÓÃáÉ ÇáÊÇáíÉ
ÇäØáÞÊ ÓíÇÑÉ ãä ãÏíäÉ ÈæÓÚÇÏÉ Úáì
ÇáÓÇÚÉ 11 ÕÈÇÍÇ æ 50 ÏÞíÞÉ æ 50 ËÇäíÉ
ÇÐÇ ÚáãÊ Çä ãÏÉ ÇáÓíÑ Ýí ÇáØÑíÞ ÊÓÇæí
åí 13 ÓÇÚÉ æ 50 ÏÞíÞÉ æ 50 ËÇäíÉ
ãÇåæ æÞÊ æÕæá ÇáÓíÇÑÉ ¿
]]
---- ÇáÊæÞíÊ ÇáÇæá---
h1=11 -- ãÊÛíÑ ÓÇÚÇÊå
m1=50 -- ãÊÛíÑ ÏÞÇÆÞå
s1=50 -- ãÊÛíÑ ËæÇäíå
-----------------------------------------------------------
---------- ÇáÊæÞíÊ ÇáËÇäí -------------------------------
x1=13 ---- ãÊÛíÑ ÓÇÚÇÊå
x2=50 ---- ãÊÛíÑ ÏÞÇÆÞå
x3=50 ---- ãÊÛíÑ ËæÇäíå
-------------------
h = h1 + x1;
m = m1 + x2;
s = s1 + x3;
if s >=60 then
s = s-60
m = m+1
h=h
end
if m >= 60 then
m=m-60
h=h+1
end
if h >= 24 then
h=h-24
end
Dialog.Message("",h..":"..m..":"..s); -- ÇáÊæÞÈÊ ÇáäÇÊÌ æ ãÚÇáÌÊåÇ æÝÞ ÇáäÙÇã ÇáÓÊíäí
--------------------------ABOU _ BELKISS -------------------
belkiss=""
for k = 2010,2110 do
for i=31,1 ,-1 do
TAMER = os.time({year=k, month=10, day=i})
if os.date("%A",TAMER) =="Sunday" then
belkiss=belkiss..os.date("%A",TAMER).." "..i.." ".."october".." "..k.." "
break
end
end
end
Dialog.Message("ABOU_BELKISS:)",belkiss )
for i=31,1 ,-1 do
تعليق