Dear sir,
I have found that link code by Happy Singh as afl. code is
_SECTION_BEGIN("AUTO SAVE");
function GetSecondNum()
{
Time = Now( 4 );
Seconds = int( Time % 100 );
Minutes = int( Time / 100 % 100 );
Hours = int( Time / 10000 % 100 );
SecondNum = int( Hours * 60 * 60 + Minutes * 60 + Seconds );
return SecondNum;
}
RequestTimedRefresh( 1 );
SaveTime = Interval() * 1 ;// to increase time Use * 2 or 5 or give the Time directly in number of Seconds
SecNumber = GetSecondNum();
Newperiod = SecNumber % SaveTime == 0;
SecsLeft = SecNumber - int( SecNumber / SaveTime ) * SaveTime;
SecsToGo = SaveTime - SecsLeft;
MinsLeft = floor(SecsToGo/60);
SecsLeft = SecsToGo%60;
GfxSetBkColor( colorBlack) ;
GfxSetTextColor(colorGold);
GfxSelectFont("Comic Sans MS", 12, 400 ); // Font and Size
GfxDrawText("Save After: " + NumToStr( SecsToGo, 1.0, False) + " Secs" ,5,20, 1300, 360, 0);
AB = CreateObject("Broker.Application"); //
if (SecsToGo==1) AB.SaveDatabase ;
_SECTION_END();
:thumb:
Regards
Raju.S
I have found that link code by Happy Singh as afl. code is
_SECTION_BEGIN("AUTO SAVE");
function GetSecondNum()
{
Time = Now( 4 );
Seconds = int( Time % 100 );
Minutes = int( Time / 100 % 100 );
Hours = int( Time / 10000 % 100 );
SecondNum = int( Hours * 60 * 60 + Minutes * 60 + Seconds );
return SecondNum;
}
RequestTimedRefresh( 1 );
SaveTime = Interval() * 1 ;// to increase time Use * 2 or 5 or give the Time directly in number of Seconds
SecNumber = GetSecondNum();
Newperiod = SecNumber % SaveTime == 0;
SecsLeft = SecNumber - int( SecNumber / SaveTime ) * SaveTime;
SecsToGo = SaveTime - SecsLeft;
MinsLeft = floor(SecsToGo/60);
SecsLeft = SecsToGo%60;
GfxSetBkColor( colorBlack) ;
GfxSetTextColor(colorGold);
GfxSelectFont("Comic Sans MS", 12, 400 ); // Font and Size
GfxDrawText("Save After: " + NumToStr( SecsToGo, 1.0, False) + " Secs" ,5,20, 1300, 360, 0);
AB = CreateObject("Broker.Application"); //
if (SecsToGo==1) AB.SaveDatabase ;
_SECTION_END();
:thumb:
Regards
Raju.S