آقاياني كه دوست دارند فوق العاده خوش صدا شوند بخوانند
منبع: http://www.niksalehi.com
بقیه در ادامه مطالب
منبع: http://www.niksalehi.com
بقیه در ادامه مطالب
sec=0
min=0
minutes=0
function sectimer()
sec=sec+1
Label.SetText("Label5", sec);
if sec==59 then
sec=0
min=min+1
Label.SetText("Label6", min);
if min==59 then
min=0
end
end
end
|
از منو صفحه مورد نظر به قسمت Script رفته و در تب On Preload کد های زیر را کپی کنید
Page.StartTimer(1000, 12);
Page.StartTimer(3600000, 14);
Page.StartTimer(1000, 15);
Label.SetText("Label6", minutes);
حالا به قسمت On close رفته و کد زیر را کپی کنید
minutes = Label.GetText("Label6");
سپس به قسمت On timer رفته و کد زیر را کپی کنید
if e_ID==12 then sectimer() end
تمام شد
دقت کنید برای هر صفحه ای که می خواهید کد های بالا رو به تر تیب کپی کنید و دو لیبل به نام Label5 Label6 داشته باشید
با تشکر
منیع : Alιoz سافت 98
re = Dialog.Message("Notice", "do you realy exit?.", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1);
if re==6 then
Application.Exit();
end
تغییرات را ثبت کنید.و یکبار اجرا کنید.
برای قرار دادن تصویر متحرک در صفحات اتوپلی
در صفحه در page properties در قسمت on time بنویسید
Image.Move("Image1",1000, MOVE_RIGHT);
مقدار 1000 اندازه حرکت روی محور افقی است بستگی به رزولوشن صفحه page هم دارد.اگر وسط صفحه تصویر ایستاد این مقدار را بیشتر کنید تا تصویر به اندازه کافی از صفحه بیرون رود.
MOVE_RIGHT معنی ان این است که به سمت راست حرکت می کند.... دقت کنید اگر خواستید تغییر دهید مثلا بنویسید LEFT باید به حروف بزرگ باشد.
در صفحه در page properties در قسمت on preload بنویسید
MOVE_UP = 0; MOVE_DOWN = 1; MOVE_LEFT = 2; MOVE_RIGHT = 3;
local tblPos = Image.GetPos("Image1");
function Image.Move(strObject, nDiff, cType) local function Stop() Page.StopTimer(); Application.ExitScript();
end if (cType == 0) then
if (Image.GetPos(strObject).Y == tblPos.Y - nDiff) then
Stop()
end Image.SetPos(strObject, tblPos.X, Image.GetPos(strObject).Y - 1);
elseif
(cType == 1) then
if (Image.GetPos(strObject).Y == tblPos.Y + nDiff) then
Stop() end Image.SetPos(strObject, tblPos.X, Image.GetPos(strObject).Y + 1);
elseif
(cType == 2) then
if (Image.GetPos(strObject).X == tblPos.X - nDiff) then
Stop()
End
Image.SetPos(strObject, Image.GetPos(strObject).X - 1, tblPos.Y);
Elseif
(cType == 3) then
if (Image.GetPos(strObject).X == tblPos.X + nDiff) then
Stop()
end Image.SetPos(strObject, Image.GetPos(strObject).X + 1, tblPos.Y);
end
end
Page.StartTimer(10);