flashing cells easylanguage

February 22nd, 2018, 09:22 AM

can someone please help me in coding it?
i'm trying with no luck to code a flashing (blinking) cell in radarscreen for the following alarm

Code

Var:  
MyAlarm = True;  
  
if Condition1 then  
		begin  
			Plot1 ("YeY", "1");  
			Alert( ! ( "Alert" ) );  
			SetPlotColor ( 1 , DarkBlue );   
			SetPlotBGColor (1, White);  
  
			Once begin  
			MyAlarm = (playsound("C:\MyFiles\MySounds.wav"));  
			end;  
			  
			end  
Else 	begin  
			Plot1 ("", "1");  
			SetPlotBGColor (1, Transparent);  
			  
			   
		end;

ABCTG · February 22nd, 2018, 10:47 AM

w4rri0r,

it appears you got a working example for your question in the official TS forum already. Maybe you can post your solution here on futures.io to help other members.

Regards,

ABCTG

February 22nd, 2018, 11:02 AM

ABCTG

w4rri0r,

it appears you got a working example for your question in the official TS forum already. Maybe you can post your solution here on futures.io to help other members.

Regards,

ABCTG

i wouldn't asking for help if i've got a solution ....or you are the same Chris of TS support....

March 4th, 2018, 05:31 AM

any hope to get any chance for an unselfish helping hand by easylanguage community....?

i found this code on the net

Code

using elsystem ;   
using elsystem.collections ;   
   
Vars:     
	Timer Tmr(null),  
	DateTime now(null),   
	TimeSpan ExitFlasher(null),   
	DateTime ExitDT(null);   
  
method void Tmr_Elapsed(object sender, EventArgs args)  
begin  
	PlotIt();  
end;   
  
method void PlotIt()  
begin   
	  
	//---------------------------------------------------------------------------------------------------    
	//	FLASH background color to highlight    
	//---------------------------------------------------------------------------------------------------    
	ExitFlasher = DateTime.Now - ExitDT;   
 	  
	Plot1("FLASHER", "Exit DT");    
	if mod(ExitFlasher.TotalSeconds, 2) = 0 then    
	begin    
		setplotbgcolor(1, Yellow);    
		setplotcolor(1, Black);	    
	end    
	else    
	begin    
		setplotbgcolor(1, Black);    
		setplotcolor(1, White);	    
	end;    
end;  
  
Once  
begin	   
	Tmr = new Timer();  
	Tmr.Interval = 1000;  
	Tmr.Elapsed += Tmr_Elapsed;  
	Tmr.Start();  
	  
	ExitDT = DateTime.Now;  
end;  
  
value99 = close;  
PlotIt();

flashing cells easylanguage

Discussion in EasyLanguage Programming

flashing cells easylanguage